Usando Acbrnfe Na Udm

[alessandro pancotte]

Ola,

 

Para ficar mais facil estou colocando todos os componentes do Acbrnfe na minha UDM.

Algumas rotinas funcionaram bem, mas tem uma em especial que nao funciona

Se faco a consulta desse jeito da erro de schemas

if chavef = nxmlf then

    begin

      if FileExists(ExtractFilePath(Application.ExeName)+'NFE\'+TRIM(DM.qEmpresaCNPJ.VALUE)+ '\' + FormatDateTime('YYYYMM', QRYDATAEMISSAO.AsDateTime)+ '\'+Xmls.Items.Strings) then

      begin

        nota := ExtractFilePath(Application.ExeName)+'NFE\'+TRIM(DM.qEmpresaCNPJ.VALUE)+ '\' + FormatDateTime('YYYYMM', QRYDATAEMISSAO.AsDateTime)+ '\'+Xmls.Items.Strings;

        dm.ACBrNFe.WebServices.Consulta.NFeChave := COPY(Xmls.Items.Strings, 1, length(Xmls.Items.Strings) - 4);//ACBrNFe.NotasFiscais.Items[0].XML.NFeChave;

        dm.ACBrNFe.WebServices.Consulta.Executar;

 

Se faco deste jeito da mensagem Nota Fiscal Eletronica na encontrada!

    if chavef = nxmlf then

    begin

      if FileExists(ExtractFilePath(Application.ExeName)+'NFE\'+TRIM(DM.qEmpresaCNPJ.VALUE)+ '\' + FormatDateTime('YYYYMM', QRYDATAEMISSAO.AsDateTime)+ '\'+Xmls.Items.Strings) then

      begin

        DM.ACBrNFe.NotasFiscais.Clear;

        DM.ACBrNFe.NotasFiscais.LoadFromFile(ExtractFilePath(Application.ExeName)+'NFE\'+TRIM(DM.qEmpresaCNPJ.VALUE)+ '\' + FormatDateTime('YYYYMM', QRYDATAEMISSAO.AsDateTime)+ '\'+Xmls.Items.Strings);

        DM.ACBrNFe.Consultar;

 

Tem algum problema colocar o componente em outro form, pq esta rotina estava funcionando da seguinte forma, eu so acrecentei dm.

    if chavef = nxmlf then

    begin

      if FileExists(ExtractFilePath(Application.ExeName)+'NFE\'+TRIM(DM.qEmpresaCNPJ.VALUE)+ '\' + FormatDateTime('YYYYMM', QRYDATAEMISSAO.AsDateTime)+ '\'+Xmls.Items.Strings) then

      begin

        ACBrNFe.NotasFiscais.Clear;

        ACBrNFe.NotasFiscais.LoadFromFile(ExtractFilePath(Application.ExeName)+'NFE\'+TRIM(DM.qEmpresaCNPJ.VALUE)+ '\' + FormatDateTime('YYYYMM', QRYDATAEMISSAO.AsDateTime)+ '\'+Xmls.Items.Strings);

        ACBrNFe.Consultar;

 

[alessandro pancotte]

Bom dia!

 

Será que este problema é tosco demais para responderem.

Ou não é o ideal trabalhar deste jeito.

[André Ferreira de Moraes]

Vc está configurando o componente que está no DataModule corretamente(Ambiente, estado, etc)?

[alessandro pancotte]

Bom dia Andre,

 

Desculpe, esta funcionando normalmente. O problema estava no xml, por alguma razão ele foi gerado zerado. E só vi isso agora por acaso. Égua veia do caramba!!!!