Componente Gnre

[Ronaldonet]

O Componente ACBrGNRE não está carregando os registro do arquivo xml, na rotina de imprimir guia GNRE, Na função TGuiasRetorno.LoadFromFile, não esta carregando o objeto GNRERetorno, a guia sempre esta vazia, sem os dados do xml!!!!!

[Juliomar Marchetti]

Sugestão de alguma correção? chegou a debugar e achar o erro? se sim e quiser contribuir anexa os fontes ao post

[Ronaldonet]

Acredito que não seja erro, mas alguma falta de lógica na função, ou alguma falta de informação de mim parte.

mas a inconsistência está aqui;

function TGuiasRetorno.LoadFromFile(CaminhoArquivo: string): boolean;

var GNRERetorno : TGNRERetorno;

ArquivoRetorno: TStringList;

i: Integer;

begin

try

ArquivoRetorno := TStringList.Create;

ArquivoRetorno.LoadFromFile(CaminhoArquivo);

Result := True;

GNRERetorno := TACBrGNRE(ACBrGNRE).GuiasRetorno.Add.GNRE;

for i := 0 to ArquivoRetorno.Count - 1 do

begin

if SameText(Copy(ArquivoRetorno.Strings, 1, 1), '0') then

- A condição "if SameText(Copy(ArquivoRetorno.Strings, 1, 1), '0') then ", os arquivos que estou carregando não entram nessa condição.

estou tentando carregar esse xml:

<?xml version="1.0" encoding="UTF-8" standalone="true"?>

-<TLote_GNRE xmlns="http://www.gnre.pe.gov.br">-<guias>-<TDadosGNRE><c01_UfFavorecida>RS</c01_UfFavorecida><c02_receita>100099</c02_receita><c27_tipoIdentificacaoEmitente>1</c27_tipoIdentificacaoEmitente>-<c03_idContribuinteEmitente><CNPJ>51467447000106</CNPJ></c03_idContribuinteEmitente><c28_tipoDocOrigem>10</c28_tipoDocOrigem><c04_docOrigem>0008556</c04_docOrigem><c06_valorPrincipal>971.34</c06_valorPrincipal><c10_valorTotal>971.34</c10_valorTotal><c14_dataVencimento>2014-01-17</c14_dataVencimento><c16_razaoSocialEmitente>Rodabras Ind. Bras. Rodas e Autopecas Ltda</c16_razaoSocialEmitente><c17_inscricaoEstadualEmitente>417003492110</c17_inscricaoEstadualEmitente><c18_enderecoEmitente>Rua Palmeiras</c18_enderecoEmitente><c19_municipioEmitente>02774</c19_municipioEmitente><c20_ufEnderecoEmitente>SP</c20_ufEnderecoEmitente><c21_cepEmitente>13484080</c21_cepEmitente><c34_tipoIdentificacaoDestinatario>1</c34_tipoIdentificacaoDestinatario><c36_inscricaoEstadualDestinatario>100038522</c36_inscricaoEstadualDestinatario><c37_razaoSocialDestinatario>G.M.V. COML DE FERRAGENS LTDA</c37_razaoSocialDestinatario><c38_municipioDestinatario>00606</c38_municipioDestinatario><c33_dataPagamento>2014-01-17</c33_dataPagamento>-<c05_referencia><periodo>1</periodo><mes>01</mes><ano>2014</ano></c05_referencia></TDadosGNRE></guias></TLote_GNRE>

Alguém tem alguma idéia?

[Juliomar Marchetti]

Anexe os arquivos para lhe ajudar assim fica um post menor e melhor organizado! 

[Ronaldonet]

Esse é um dos arquivo que não consigo imprimir!!!!!

gnreenvlot.xml

[Ronaldonet]

Acho que realmente não vai funcionar porque o arquivo que tenho que carregar tem que ser um arquivo txt.

Arquivo gerado somente em ambiente de produção, eu estava testando em ambiente de homologação. 

Por isso não obtive o arquivo, e estava testando com o xml!!!!!