Olá pessoal! Este é o meu primeiro post no grupo.
Necessito confeccionar os arquivos arquivos XML para gerar, consultar, cancelar e etc NFSe para um cliente de S.J. do Rio Preto e outras cidades que utilizam Ginfes.
Como vi muita informação repetida na internet e pouco explicativas sobre o Ginfes, estou tentando este fórum para tirar minhas primeiras dúvidas:
1. Para cada cidade que utiliza o Web Sevice Ginfes é um layout dierente de XML?
2. Alguém pode dar um exemplo COMPLETO do XML de NFSe Ginfes e seu envio através do Delphi 7?
3. Apesar de ter pego alguns exemplos e já ter confeccionado meu primeiro XML de envio, estou tendo o seguinte erro ao usar o método RecepcionarLoteRpsV3: "Project Project1.exe raised exception class Exception with message 'Empty document'."
Eis o código:
procedure EnviarGinfes(obj : TNFSe);
var
WebService : ServiceGinfesImpl;
cArg1 : WideString;
Cabec : WideString;
HTTPRIO: THTTPRIO;
begin
try
HTTPRIO := THTTPRIO.Create(nil);
WebService := GetServiceGinfesImpl(True, '', HTTPRIO);
Cabec := '<ns2:cabecalho versao="3" xmlns:ns2="h t t p : / /www ginfes com br / cabecalho_v03.xsd">' +
'<versaoDados>3</versaoDados>' +
'</ns2:cabecalho>';
*cArg1 := Copy(obj.xmlEnv, Pos('<arg1>', obj.xmlEnv) + Length('<arg1>'), (Pos('</arg1>', obj.xmlEnv) - 1) - (Pos('<arg1>', obj.xmlEnv) + Length('<arg1>')));
Obj.xmlRet := WebService.RecepcionarLoteRpsV3(Cabec, cArg1);
finally
HTTPRIO.Free;
end;
end;
*Onde a variável cArg1 é o conteúdo do XML que está dentro da tag <arg1>.
No aguardo, pessoal. Obrigado desde já!
Rogério Monteiro.
Início 
