Ola estou com o seguinte problema, estou enviando o evento de Ciência da Operação para as notas baixadas do site da Sefaz segue abaixo o .INI
A lib retorna o erro: "Nenhum Evento adicionado ao Lote"
O retorno volta em branco sem nada.
abaixo esta um pedaço da minha rotina
Util_DeleteFile (App.Path & "\Evento.INI"), True
INI_PutString "idLote", "EVENTO", "1", App.Path & "\Evento.INI"
INI_PutString "cOrgao", "EVENTO001", "91", App.Path & "\Evento.INI"
INI_PutString "CNPJ", "EVENTO001", Util_OnlyDigits(lbCNPJ.caption), App.Path & "\Evento.INI"
INI_PutString "chNFe", "EVENTO001", Replace(Tb!Chave, " ", ""), App.Path & "\Evento.INI"
INI_PutString "dhEvento", "EVENTO001", Format(Now, "dd/mm/yyyy hh:mm:ss"), App.Path & "\Evento.INI"
INI_PutString "tpEvento", "EVENTO001", "210210", App.Path & "\Evento.INI"
INI_PutString "nSeqEvento", "EVENTO001", CStr(1), App.Path & "\Evento.INI"
INI_PutString "versaoEvento", "EVENTO001", 1#, App.Path & "\Evento.INI"
ACBrNFe.LimparListaEventos
ACBrNFe.CarregarEventoINI (App.Path & "\Evento.INI")
sRetorno = ACBrNFe.EnviarEvento(1)
If ACBrNFe.errNumber < 0 Then
oLogger.wError " Erro de processamento #1.1: " & ACBrNFe.errDescription
oLogger.wError " Retorno #1.1: " & sRetorno
Exit Sub
End If
O mais estranho é que isso ocorre só na maquina do cliente na minha maquina de desenvolvimento funciona e no caso retorna ate a duplicidade de evento caso eu mande duas vezes, não sei o que fazer
Alguém pode me ajudar por favor... Desde já agradeço muito
Abraços