GustavoKato

Unit: ACBrUtil Linha: 1940 class function CTeUtil.IdentificaTipoSchema(const AXML: AnsiString; var I: integer): integer; var lTipoEvento: String; begin I := pos(' Result := 1; if I = 0 then begin I := pos(' if I > 0 then Result := 1 else begin I := pos(' if I > 0 then Result := 2 else begin I := pos(' if I > 0 then Result := 3 else begin I := Pos(' if I > 0 then begin lTipoEvento := Trim(RetornarConteudoEntre(AXML,'','')); if lTipoEvento = '110111' then Result := 6 // Cancelamento else if lTipoEvento = '210200' then Result := 7 //Manif. Destinatario: Confirmação da Operação else if lTipoEvento = '210210' then Result := 8 //Manif. Destinatario: Ciência da Operação Realizada else if lTipoEvento = '210220' then Result := 9 //Manif. Destinatario: Desconhecimento da Operação else if lTipoEvento = '210240' then Result := 10 //Manif. Destinatario: Operação não Realizada else Result := 5; //Carta de Correção Eletrônica end else Result := 4; //DPEC end; end; end; end; end; aparentemente funcionou corretamente, transmitiu e autorizou (em homologação). espero ter ajudado

Parabéns a equipe, o projeto está atendendo muito bem as necessidades! porém sou mais um com este mesmo problema, irei analisar o código e ver em que consigo ajudar e mais uma vez, parabéns aos colaboradores