Pesquisar na Comunidade
Showing results for tags 'evento encerramento'.
Encontrado 1 registro
-
Olá a todos. Estou tentando imprimir eventos do MDFe, uso o mesmo padrão tanto no NFe, NFCe, CTe e todos funcionam porém ao tentar com o MDFe ele retorna vazio com mensagem de "cancelamento" mesmo sendo um evento de encerramento. Se eu uso o método auxM.EventoMDFe.LerXML funciona perfeitamente, mas se uso o auxM.EventoMDFe.LerXMLFromString não funciona. Acabei de zerar o ACBr e o Lazarus do me PC e continua da mesma forma, estou desde sedo procurando nos tópicos e não achei nada que resolvesse. var auxXML: string; auxM: TACBrMDFe; auxI: TACBrMDFeDAMDFeRL; begin DataModulo.OpenSQL('SELECT XML FROM MDF_EVENTOS WHERE ID = 1); auxXML := DataModulo.Query.FieldByName('XML').AsString; try auxM := TACBrMDFe.Create(nil); auxM.EventoMDFe.LerXMLFromString(auxXML); try auxI := TACBrMDFeDAMDFeRL.Create(nil); auxM.DAMDFE := auxI; auxM.ImprimirEvento; finally FreeAndNil(auxI); end; finally FreeAndNil(auxM); end; end;
