ERRO NO XML DA NFE REFERENCIADAS

[Jean Carlo]

Boa Tarde.

Estou precisando de ajuda.

Gero uma nfe referenciada com cupom fiscal e o XML não fica correto.  Estou anexando o XML.

Obs: Já atualizei os componentes.

 

22160604679581000190550010000010641000010649-nfe.xml

[Sérgio Assunção]

26 minutos atrás, Jean Carlo disse:

Boa Tarde.

Estou precisando de ajuda.

Gero uma nfe referenciada com cupom fiscal e o XML não fica correto.  Estou anexando o XML.

Obs: Já atualizei os componentes.

 

22160604679581000190550010000010641000010649-nfe.xml

Você não está informando o número de ordem do ECF e creio que o número do cupom também esteja errado.

<nECF>000</nECF>
<nCOO>000001</nCOO>

[Jean Carlo]

Colega Sergio, 

Estou enviando a rotina que fiz para inserir as informações da nfe referenciada, primeiramente salvo em uma tabela e depois repasso para nfe.     

 

        with pFIBDPesquisa_Cupom_Ref do
                    begin
                      close;
                      ParamByName('icod_saida_').AsInteger := iCodSaida;
                      ParamByName('iano_saida_').AsInteger   :=   iAno;
                      open;

                      pFIBDPesquisa_Cupom_Ref.first;
                      while not pFIBDPesquisa_Cupom_Ref.eof do
                        begin
                           if Trim(pFIBDPesquisa_Cupom_RefVREFECF_MODELO.Asstring)='ECFModRefVazio' then
                             Ide.NFref.add.RefECF.modelo    := ECFModRefVazio;
                           if Trim(pFIBDPesquisa_Cupom_RefVREFECF_MODELO.Asstring)='ECFModRef2B' then
                             Ide.NFref.add.RefECF.modelo    := ECFModRef2B;
                           if Trim(pFIBDPesquisa_Cupom_RefVREFECF_MODELO.Asstring)='ECFModRef2C' then
                             Ide.NFref.add.RefECF.modelo    := ECFModRef2C;
                           if Trim(pFIBDPesquisa_Cupom_RefVREFECF_MODELO.Asstring)='ECFModRef2D' then
                             Ide.NFref.add.RefECF.modelo    := ECFModRef2D;

                           Ide.NFref.add.RefECF.nECF   := pFIBDPesquisa_Cupom_RefVREFECF_NECF.AsString;
                           Ide.NFref.add.RefECF.nCOO   := pFIBDPesquisa_Cupom_RefVREFECF_NCOO.AsString;
                           next;

                        end;
                    end;

[Sérgio Assunção]

12 horas atrás, Jean Carlo disse:

Colega Sergio, 

Estou enviando a rotina que fiz para inserir as informações da nfe referenciada, primeiramente salvo em uma tabela e depois repasso para nfe.     

Tem erro na sua rotina. Repare no seu XML que tem pelo menos 3 vezes a tag NFref e com o conteúdo incompleto.

[rluispaulo7]

Boa tarde!

Jean Carlo, também tive esse mesmo problema hoje. Atualizei os fontes do ACBr e nada funcionou.

Fiz o seguinte, alterei a forma de como alimentar o componente:

            Ide.NFref.Add.RefECF.modelo:= StrToECFModRef(bConv, cdsRef.FieldByName('modelo').AsString);
            Ide.NFref.Items[0].RefECF.nECF:= cdsRef.FieldByName('numero').AsString;
            Ide.NFref.Items[0].RefECF.nCOO:= cdsRef.FieldByName('cooecf').AsString;

Cheguei a esta conclusão depois que adicionei uma variável para contar quantas linhas eram inseridas no XML. Quando usamos " Ide.NFref.Add.RefECF", são geradas 3 linhas. Então pensei em criar a tag na primeira linha e atribuir os valores ao vetor 0.

Pronto! Funcionou. Espero que ajude.

 

Att.

Luis Paulo Rodrigues