Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Robinho de Morais

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    43

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Robinho de Morais

    Testar Demo ACbr com A3

    em ACBrNFe

    Postado

    19 minutos atrás, BigWings disse:

    O certificado deve estar instalado no Windows. Ele deve aparecer na tela Opções de Internet - Conteúdo - Certificados, na aba Pessoal.

    sim está instalado e aparecendo...

    mas qual configuração deve ser no demo para conseguir ?

    Testar Demo ACbr com A3

    em ACBrNFe

    Postado

    Boa noite, como testa o demo da acbr com o certificado a3 ? com o a1 já consegui fazer...mas tenho uma maquina com o a3, coloquei a sslib como libcapicom mas não aparece para selecionar...como eu faço ?

    Erro ao assinar nota fiscal

    em ACBrNFe

    Postado

    Bom dia,

      Fiz ajustei as versões do delphi conforme o blog do isaque.... desistalei o delphi berlin e o acbr, instalei o berlin e o acbr, porém fui realizar o teste no demo da acbr nfe e ao assinar também deu erro;

    Screenshot_8.png

    Erro ao Abrir demo do ACbrNfe

    em ACBrNFe

    Postado

    Eu tenho o delphi 7 e Berlin, vou desistalar o Berlin, porque uso o ACBR para o emissor de nfe e o Projeto é do delphi 7 e não compensa migrar por causa de muitos componentes de terceiros...ai vou instalar tudo para ver....vou seguir as dicas do blog do isaque....

    Erro ao assinar nota fiscal

    em ACBrNFe

    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....

    Erro ao Abrir demo do ACbrNfe

    em ACBrNFe

    Postado

    15 horas atrás, William F. L. disse:

    Não sei nas versões mais recentes do Delphi, mas valor default em variáveis só funcionam em variáveis  globais.

    Se precisar usar o demo antes do pessoal corrigir no SVN, modifique esse trecho retirando o valor default: 

    
var
 CarregarMaisXML : Boolean;
begin
  CarregarMaisXML := True;

     

    Bom dia,

      Fiz o que informou, mas ai dá outro erro : 

    [dcc32 Error] E2161 Error: RLINK32: Unsupported 16bit resource in file "C:\ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi\Unit1.dfm"

    Como faço para voltar a versão anterior ?

    1 hora atrás, Juliomar Marchetti disse:

    Qual versão do delphi?

    Berlin

    Erro ao Abrir demo do ACbrNfe

    em ACBrNFe

    Postado

    Ontem atualizei o ACBr e ao tentar abrir o demo esta dando esse erro :

    apos o erro abre a Unit1 e ao compilar dá erro também; 

    [dcc32 Fatal Error] ACBrNFe_demo.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

     

    Screenshot_3.png

    Screenshot_7.png

    Erro ao assinar nota fiscal

    em ACBrNFe

    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)

     

     

    Arquivo de Schema não especificado

    em ACBrNFe

    Postado

    BigWings uma coisa que não parei para analisar era o xml e aparentemente está errado, estou validando as informações e fiz um teste com um de uma nf valida e validou corretamente, como a mensagem falava do schema, não relacionei o erro com o xml.

    Arquivo de Schema não especificado

    em ACBrNFe

    Postado

    Boa noite, primeiro pesquisei e fiz tudo que encontrei aqui no forum sobre esse erro e a versão está correta, o path também está correto, mas não consegui solucionar esse erro na minha aplicação e também no DEMO da ACbr;

    fiz o teste também forçando a versão e também não funcionou.

      

    ACBrNFe1.NotasFiscais.Add.NFe.infNFe.Versao := 3.1;

     

    conf.png

    erro.png

    NFE - Por onde começar

    em Dúvidas Gerais sobre o ACBr

    Postado

    Boa noite,

      Primeiramente se estou abrindo o tópico em fórum incorreto me desculpe e me auxiliem para onde devo ir.

      Tenho uma aplicação no delphi7 e meu cliente usa o emissor de nfe da fazendo de SP, porém apartir do ano que vem será descontinuado.

       Instalei o delphi Belin e instalei o acbr, mas não sei por onde começar, alguém tem um tutorial para que eu possa seguir ?

       Preciso pegar os dados da venda, gerar o xml > quais dados preciso colocar no xml ?

       Preciso pegar o xml e transmitir > qual componente do ACbr utilizar e parametros ?

       Assim como retorno, status, impressão e inutilização.

     

      Agradeço desde já a atenção.

×
×
  • 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.