5918 - Parâmetro de entrada via Webservice
Problema: Descrição do Problema: Ao executar um relatório via Web Service (interno.com.senior.g5.co.ger.relatorio.executar) e informar um valor no parâmetro de entrada o campo milhar é cortado.
Por exemplo: é passado para parâmetro do Web Service o valor R$ 1234.00 no relatório é gerado o valor R$ 234.00.
Se o relatório é gerador via Gerador de Relatório o valor sai corretamente.
Rotina / Tela: Ao incluir um parâmetro de entrada via Web Service.
Solução: Solução 5918: É necessário observar como esse valor está sendo passado no parâmetro de entrada do Web Service. Se o formato do valor informado Via Web Service (Ex: 1234.65), o relatório irá entender a casa de milhar se estiver no formato com ponto (Ex:1.000,00.)
Definir interno.com.senior.g5.co.ger.relatorio.executar VRelatorio;
Definir Alfa Resultado;
VRelatorio.prDir = C://Teste//Cliente1;
vRelatorio.prExecFmt = tefFile; @Define saida como arquivo@
vRelatorio.prFileName = NomeRelatorio; @Define nome padrão do arquivo@
vRelatorio.prRelatorio = SRNFXXXX.GER; @Define o modelo utilizado@
vRelatorio.prEntrada = <EDatPro1=01/01/2011><ETipFap=1><ECtaFin=N/A><ENumPrj=5147><ETipBen=B><ECodFor=3265><ECodBan=001><ECodAge=0254-2><ECcbFor=24203-9><EQtdNfc=1><EVlrTot=1.000,00><EctaGemap=N/A>;
vRelatorio.prSaveFormat = tsfPDF; @Executa com tipo PDF@
vRelatorio.prEntranceIsXML = F;
@ Executar ação @
VRelatorio.ModoExecucao = 1;
VRelatorio.Executar();
@ Processar resultado @
definir alfa ValStr;
ValStr = VRelatorio.PrRetorno;
Por exemplo: é passado para parâmetro do Web Service o valor R$ 1234.00 no relatório é gerado o valor R$ 234.00.
Se o relatório é gerador via Gerador de Relatório o valor sai corretamente.
Rotina / Tela: Ao incluir um parâmetro de entrada via Web Service.
Solução: Solução 5918: É necessário observar como esse valor está sendo passado no parâmetro de entrada do Web Service. Se o formato do valor informado Via Web Service (Ex: 1234.65), o relatório irá entender a casa de milhar se estiver no formato com ponto (Ex:1.000,00.)
Definir interno.com.senior.g5.co.ger.relatorio.executar VRelatorio;
Definir Alfa Resultado;
VRelatorio.prDir = C://Teste//Cliente1;
vRelatorio.prExecFmt = tefFile; @Define saida como arquivo@
vRelatorio.prFileName = NomeRelatorio; @Define nome padrão do arquivo@
vRelatorio.prRelatorio = SRNFXXXX.GER; @Define o modelo utilizado@
vRelatorio.prEntrada = <EDatPro1=01/01/2011><ETipFap=1><ECtaFin=N/A><ENumPrj=5147><ETipBen=B><ECodFor=3265><ECodBan=001><ECodAge=0254-2><ECcbFor=24203-9><EQtdNfc=1><EVlrTot=1.000,00><EctaGemap=N/A>;
vRelatorio.prSaveFormat = tsfPDF; @Executa com tipo PDF@
vRelatorio.prEntranceIsXML = F;
@ Executar ação @
VRelatorio.ModoExecucao = 1;
VRelatorio.Executar();
@ Processar resultado @
definir alfa ValStr;
ValStr = VRelatorio.PrRetorno;