Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Erro ao assinar nota fiscal

Robinho de Morais

Por Robinho de Morais
em ACBrNFe

 Compartilhar
  • Este tópico foi criado há 2555 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Robinho de Morais Contributor

Robinho de Morais

Postado
Postado

Boa noite, estou tendo erro ao assinar a nota fiscal antes de gerar o xml, até inicio da semana estava normal....estou fazendo assim; 


  try

        frmEmissaoNFE.ACBrNFe1.NotasFiscais.Clear;

        with frmEmissaoNFE.ACBrNFe1.NotasFiscais.Add.NFe do
          begin
            if nrNfeDummy = '' then
             Ide.cNF     := StrToInt(txNfe.Text)
            else
             Ide.cNF     := StrToInt(nrNfeDummy);
            Ide.natOp   := 'VENDAS';
            Ide.indPag  := ipVista;
            Ide.modelo  := frmEmissaoNFE.tblConfNfemodelo.AsInteger;
            Ide.serie   := frmEmissaoNFE.tblConfNfeserie.AsInteger;
            if nrNfeDummy = '' then
             Ide.nNF     := StrToInt(txNfe.Text)
            else
             Ide.nNF     := StrToInt(nrNfeDummy);
            Ide.dEmi    := txDtEmissao.DateTime;
            Ide.dSaiEnt := txDtSaiEnt.DateTime;
            Ide.tpNF    := tnSaida;
            if frmEmissaoNFE.tblConfNfeambiente.AsInteger = 0 then
              Ide.tpAmb := taProducao
            else
              Ide.tpAmb := taHomologacao;
            Ide.verProc := '1.0.0.0';
            {Verificar se esta correto}
            Ide.cUF     := frmEmissaoNFE.tblEmpresacoduf.AsInteger;
            {Verificar se esta correto}
            Ide.cMunFG  := frmEmissaoNFE.tblEmpresacodcidade.AsInteger;
            Ide.finNFe  := fnNormal;

            //Emitente
            Emit.CRT     := crtSimplesNacional;
            Emit.CNPJCPF := frmEmissaoNFE.tblEmpresacnpj.AsString;
            Emit.IE      := frmEmissaoNFE.tblEmpresaie.AsString;
            Emit.IEST    := '';
            Emit.xNome   := frmEmissaoNFE.tblEmpresarazao_social.AsString;
            Emit.xFant   := frmEmissaoNFE.tblEmpresafantasia.AsString;
            Emit.IM      := '';
            Emit.CNAE    := '';
            Emit.EnderEmit.xLgr := frmEmissaoNFE.tblEmpresaendereco.AsString;
            Emit.EnderEmit.nro  := frmEmissaoNFE.tblEmpresanumero.AsString;
            Emit.EnderEmit.xCpl := frmEmissaoNFE.tblEmpresacomplemento.AsString;
            Emit.EnderEmit.cMun := frmEmissaoNFE.tblEmpresacodcidade.AsInteger;
            Emit.EnderEmit.xMun := frmEmissaoNFE.tblEmpresacidade.AsString;
            Emit.EnderEmit.xBairro := frmEmissaoNFE.tblEmpresabairro.AsString;
            Emit.EnderEmit.UF   := frmEmissaoNFE.tblEmpresaestado.AsString;
            Emit.EnderEmit.CEP  := frmEmissaoNFE.tblEmpresacep.AsInteger;
            Emit.EnderEmit.fone := frmEmissaoNFE.tblEmpresatelefone.AsString;
            Emit.EnderEmit.cPais:= 1058;
            Emit.EnderEmit.xPais:= 'BRASIL';
            //Destinatário
            Dest.CNPJCPF           := tblClientecpf_cpnj.AsString;
            Dest.IE                := tblClienteie_rg.AsString;
            Dest.ISUF              := '';
            Dest.xNome             := tblClientenome.AsString;
            Dest.EnderDest.xLgr    := tblClienteendereco.AsString;
            Dest.EnderDest.nro     := tblClientenumero.AsString;
            Dest.EnderDest.xCpl    := tblClientecomplemento.AsString;
            Dest.EnderDest.xBairro := tblClientebairro.AsString;
            Dest.EnderDest.cMun    := tblClientecodcidade.AsInteger;
            Dest.EnderDest.xMun    := tblClientecidade.AsString;
            Dest.EnderDest.UF      := tblClienteuf.AsString;
            Dest.EnderDest.CEP     := tblClientecep.AsInteger;
            Dest.EnderDest.cPais   := 1058;
            Dest.EnderDest.xPais   := 'BRASIL';
            Dest.EnderDest.fone    := tblClientetelefone.AsString;
            //Itens da NFE
           while not tblProdutos.Eof do
              begin
                with Det.Add do
                  begin
                    Prod.nItem  := tblProdutos.RecNo;
                    Prod.cProd  := tblProdutoscodproduto.AsString;
                    Prod.xProd  := tblProdutosproduto.AsString;
                    Prod.NCM    := tblProdutosncm.AsString;
                    Prod.EXTIPI := '';
                    if (tblProdutostp_produto.AsString = '0') or // 0 - tributado
                       (tblProdutostp_produto.AsString = '1') or // 1 - Isento
                       (tblProdutostp_produto.AsString = '2') or // 2 - Nao Tributado
                       (tblProdutostp_produto.AsString = '4') then // 4 - Serviço
                       begin
                         Prod.CFOP   := '5102';
                       end
                       else
                    if tblProdutostp_produto.AsString = '3' then // 3 - Sub. Tributaria
                       begin
                         Prod.CFOP   := '5403';
                       end;
                    Prod.uCom     := tblProdutosunidade.AsString;
                    Prod.qCom     := tblProdutosquantpro.AsCurrency;
                    Prod.cEANTrib := '';
                    Prod.uTrib    := tblProdutosunidade.AsString;

                    Prod.qTrib   := tblProdutosquantpro.AsCurrency;
                    Prod.vUnCom  := tblProdutosvalunit.AsCurrency;
                    Prod.vProd   := tblProdutosvalunit.AsCurrency * tblProdutosquantpro.AsCurrency;
                    Prod.vUnTrib := tblProdutosvalunit.AsCurrency;
                    Prod.vFrete   := 0;
                    Prod.vSeg     := 0;
                    Prod.vDesc    := tblProdutosdesitem.AsCurrency;
                    with Imposto do
                      begin
                        with ICMS do
                          begin
                           if tblProdutostp_produto.AsString = '0' then // 0 - tributado
                             begin
                               CST           := cst00;
                               CSOSN         := csosn101;
                               ICMS.orig     := oeNacional;
                               ICMS.modBC    := dbiValorOperacao;
                               ICMS.vBC      := tblProdutosvalunit.AsCurrency;
                               ICMS.pICMS    := tblProdutosvlicms.AsCurrency;
                               ICMS.vICMS    := tblProdutosvlicms.AsCurrency;
                               ICMS.modBCST  := dbisMargemValorAgregado;
                               ICMS.pMVAST   := 0;
                               ICMS.pRedBCST := 0;
                               ICMS.vBCST    := 0;
                               ICMS.pICMSST  := 0;
                               ICMS.vICMSST  := 0;
                               ICMS.pRedBC   := 0;
                             end;
                           if tblProdutostp_produto.AsString = '3' then // 3 - Sub. Tributária
                             begin
                               CST           := cst60;
                               ICMS.orig     := oeNacional;
                               ICMS.modBC    := dbiValorOperacao;
                               ICMS.vBC      := tblProdutosvaltotunit.AsCurrency;
                               //% de icms do produto
                               ICMS.pICMS    := 0;
                               //calculo do valor do icms
                               ICMS.vICMS    := 0;
                               ICMS.modBCST  := dbisMargemValorAgregado;
                               ICMS.pMVAST   := 0;
                               ICMS.pRedBCST := 0;
                               ICMS.vBCST    := 0;
                               ICMS.pICMSST  := tblProdutosicms.AsCurrency;
                               ICMS.vICMSST  := tblProdutosvlicms.AsCurrency;
                               ICMS.pRedBC   := 0;
                               ICMS.CSOSN    := csosn500;
                             end;
                          end;
                        if (tblProdutostp_produto.AsString = '1') or  // 1 - Isento
                           (tblProdutostp_produto.AsString = '2') then // 2 - Não tributado
                          begin
                           { with II do
                              begin
                                vBC      := 0;
                                vDespAdu := 0;
                                vII      := tblProdutosvaltotunit.AsCurrency;
                                vIOF     := 0;
                              end;}
                            ICMS.CSOSN   := csosn400;
                            PIS.CST      := pis08;
                            COFINS.CST   := cof08;
                          end;
                        if (tblProdutostp_produto.AsString = '4') then  // 4 - Serviço
                          begin
                            with ISSQN do
                              begin
                                vBC       := 0;
                                vAliq     := tblProdutosicms.AsCurrency;
                                vISSQN    := tblProdutosvlicms.AsCurrency;
                                cMunFG    := 0;
                                cListServ := '0';
                              end;
                            ICMS.CSOSN := csosn400;
                          end;
                      end;

                  end;
                tblProdutos.Next;
              end;

              //Informações finais da NFE

              Total.ICMSTot.vBC     := 0;
              Total.ICMSTot.vICMS   := 0;
              Total.ICMSTot.vBCST   := 0;
              Total.ICMSTot.vST     := 0;
              Total.ICMSTot.vProd   := vlVendaBruta;
              Total.ICMSTot.vFrete  := 0;
              Total.ICMSTot.vSeg    := 0;
              Total.ICMSTot.vDesc   := StrToFloat(txVlDes.Text);
              Total.ICMSTot.vII     := 0;
              Total.ICMSTot.vIPI    := 0;
              Total.ICMSTot.vPIS    := 0;
              Total.ICMSTot.vCOFINS := 0;
              Total.ICMSTot.vNF     := tblProdutosvaltotvenda.AsCurrency;
              //
              Total.ISSQNtot.vServ   := 0;
              Total.ISSQNtot.vBC     := 0;
              Total.ISSQNtot.vISS    := 0;
              Total.ISSQNtot.vPIS    := 0;
              Total.ISSQNtot.vCOFINS := 0;
              //
              Total.retTrib.vRetPIS     := 0;
              Total.retTrib.vRetCOFINS  := 0;
              Total.retTrib.vRetCSLL    := 0;
              Total.retTrib.vBCIRRF     := 0;
              Total.retTrib.vIRRF       := 0;
              Total.retTrib.vRetPrev    := 0;
              //transportadora
              {Transp.Transporta.CNPJCPF := '';
              Transp.Transporta.xNome   := '';
              Transp.Transporta.IE      := '';
              Transp.Transporta.xEnder  := '';
              Transp.Transporta.xMun    := '';
              Transp.Transporta.UF      := '';
              with Transp.Reboque.Add do
                begin
                    placa := '';
                    UF    := '';
                    RNTC  := '';
                end;
              with Transp.Vol.Add do
                begin
                    qVol  := 1;
                    esp   := '';
                    marca := '';
                    nVol  := '';
                    pesoL := 0;
                    pesoB := 0;
                end;  }
              //Cobrança
              Cobr.Fat.nFat  := txOrdCli.Text;
              Cobr.Fat.vOrig := vlVendaBruta;
              Cobr.Fat.vDesc := StrToFloat(txVlDes.Text);
              Cobr.Fat.vLiq  := StrToFloat(txVlTotal.Text)                          
          end;

           frmEmissaoNFE.ACBrNFe1.NotasFiscais.Assinar;  <ERRO OCORRE AQUI

           frmEmissaoNFE.ACBrNFe1.NotasFiscais.Items[0].GravarXML();
           memLog.Lines.Add(FormatDateTime('dd/MM/yyyy HH:mm:ss',now) + ' : NFE gerada com sucesso');
           gravaLogRetorno('NFE gerada com sucesso');
           dsCamXML := frmEmissaoNFE.ACBrNFe1.NotasFiscais.Items[0].NomeArq;

First chance exception at $5927B679. Exception class $C0000005 with message 'access violation at 0x5927b679: read of address 0xdad9b819'. Process EmissorNFE.exe (6632)
First chance exception at $5927B679. Exception class $C0000005 with message 'access violation at 0x5927b679: read of address 0xdad9b819'. Process EmissorNFE.exe (6632)
First chance exception at $0040963E. Exception class $C0000005 with message 'access violation at 0x0040963e: read of address 0xdad9b819'. Process EmissorNFE.exe (6632)
First chance exception at $7713A932. Exception class EResNotFound with message 'Resource TfrmErro not found'. Process EmissorNFE.exe (6632)
First chance exception at $77946EDD. Exception class $C0000005 with message 'access violation at 0x77946edd: read of address 0x00000000'. Process EmissorNFE.exe (6632)

 

 

Link para o comentário
Compartilhar em outros sites
Robinho de Morais Contributor

Robinho de Morais

Postado
  • Autor
Postado
1 hora atrás, Juliomar Marchetti disse:

bom dia

primeiro não cole códigos longos, anexe

usando o demo ocorre o mesmo?

configurou como o componente e registrou e informou quais dll.

Bom dia, o demo não estou conseguindo usar, está dando erros apos atualizar o ACBR, até terça feira da semana passada estava normal, o mesmo código que está ai funciona corretamente, mas do nada até para notas que já consegui assinar e gerar o xml não gera mais....

Link para o comentário
Compartilhar em outros sites
  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado

notei que está tendo problemas em mais de um lugar!

eu acho que você atualizou e não recompilou os componentes ou está com dois delphis no mesmo S.O.

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites
  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado
1 hora atrás, Robinho de Morais disse:

Recompilei, mas o erro persiste, sim tenho 2 delphi e estava funcionando corretamente até fazer a atualização do acbr.

Então é o seguinte vá até o blog do isaque que explica como deve proceder para ter os dois delphi no mesmo window.

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites
  • Este tópico foi criado há 2555 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...