[Problema com ACBrConsultaCNPJ]

16 horas atrás, dannymazzo disse:

Pessoal, boa tarde.

Fiz um teste agora e retornou o erro abaixo, o que pode ser?

Faz tempo que esta dando esse erro, até desabilitei essa opção no meu software por que não tem sentido ter se não esta funcionando.

[Problema com ACBrConsultaCNPJ]

3 minutos atrás, Felipe E. Resende Mesquita disse:

Tentou utilizar o demo na pasta exemplos?

 

Não sei se o erro esta no meu notebook ou no receita federal.

Não sei se

[Problema com ACBrConsultaCNPJ]

4 minutos atrás, Felipe E. Resende Mesquita disse:

Bom dia, bacalajr.

Veja o tópico abaixo:

 

Bom dia Felipe, meu é win10 e minha duvida e o que to fazendo de errado, pois estou me baseando no modelo que tem do acbr.

[Problema com ACBrConsultaCNPJ]

Ola quando tento testa usando o modelo do acbr esta dando esse erro, o site da receita não sua mais o cach parece para opção ano sou um robô.

Como posso arrumar isso?

 

obrigado

 

[682 - Rejeição Não acho o erro]

5 horas atrás, Amarildo de Matos disse:

bom dia..

       </prod>
        <imposto>
          <vTotTrib>3.99</vTotTrib>

Voce tem de informar em cada iten vTotTrib.

no seu caso nao esta informado, por isso o erro.

estou mandando um arquivo xml de exemplo

 

 

xml_pag.xml

Esse me escapou, muito obrigado por sua ajuda.

[682 - Rejeição Não acho o erro]

Em 19/09/2018 at 21:15, RicardoVoigt disse:

Ola... pela mensagem da tela parece ser o campo vTotTrib...

Att

Ricardo

Ola e como eu arrumo esse problema?

[682 - Rejeição Não acho o erro]

Ola Boa noite, nos teste em hommologação do minha nfe esta dando esse erro 682, e não consigo de forma nenhuma encontrar onde esta o problema.

Anexo esta o XML dessa nota fiscal.

Alguem pode por favor me ajudar? 

Sou novo é meu primeiro sistema com nota fiscal.

35180907349858000105000010000000291000000296-nfe.xml

[Falha na Validação dos dados]

Entendi obrigado

[Falha na Validação dos dados]

Senhor BigWings que tipo de informação nProc tem que receber ou deixo 123456789 mesmo?

[Falha na Validação dos dados]

Não sei o que tem que informar

 

//Z. Informações Adicionais da NF-e
         with InfAdic do
            begin
            infCpl := '';
            if Cdsquerydadosadd.AsInteger <> 0 then
               infCpl := Copy(TabDadosAddtexto.Value + #13 + Cdsqueryobservacao.Value,1,5000);

            procRef.Add.nProc := '';
            procRef.Add.indProc := TpcnIndicadorProcesso.ipSEFAZ;
            end;//fim infadic

[Falha na Validação dos dados]

Que tipo de erro é esse? Como eu arrumo?

[Erro no campo CEP do Sat Fiscal]

Teve alguma mudança no campo CEP de integer para string ou algum outro tipo de mudança, pois do dia para outro começou a dar problema.

obrigado

[Erro no modelo sat fiscal do acbr]

Essa ja ta certo já arrumei

obrigado

[Erro ao gerar o xml no sat]

Eu achei o problema mas não sei como arrumar.

[Erro ao gerar o xml no sat]

Feito é biblioteca.pas

 

obrigado e desculpa o encomodo

Biblioteca.pas

[Erro ao gerar o xml no sat]

Esse comando eu coloquei :

 

Inicializado := not Inicializado ;

            if Inicializado then
               SatMensagem := 'Sat Fiscal Pronto para uso!'
            else
               SatMensagem := 'Sat Fiscal desligado!';
 

  if DM.TabRegistroSatAssinatura.AsString <> '' then
      begin

      //Configuração do Sat Fiscal
      With DM do
         begin

         With ACBrSAT do
            begin
            //Inicio Rede
            With Rede do
               begin
               //Tipo da Rede
               if TabRegistroSatTipoNet.AsInteger = 1 then
                  begin
                  tipoInter := TTipoInterface(DM.TabRegistroSatTipoNet.AsInteger);
                  SSID := DM.TabRegistroSatSSID.AsString;
                  Seg := TSegSemFio(DM.TabRegistroSatSeg.AsInteger);
                  Codigo := DM.TabRegistroSatSenha.AsString;
                  end;

               //Tipo de Provedor
               case DM.TabRegistroSatRede.AsInteger of
                  1 : begin
                      //PPPoE
                      Usuario := DM.TabRegistroSatPPPoEUsu.AsString;
                      Senha := DM.TabRegistroSatPPPoESen.AsString;
                      end;

                  2 : begin
                      //IPFIX
                      LanIP := DM.TabRegistroSatIPPFixIP.AsString;
                      LanMask := DM.TabRegistroSatIPPFixMask.AsString;
                      LanGW := DM.TabRegistroSatIPPFixGat.AsString;
                      LanDNS1 := DM.TabRegistroSatIPPFixdns1.AsString;
                      LanDNS2 := DM.TabRegistroSatIPPFixdns2.AsString;
                      end;
               end;//fim case

               //Configuração do Proxy
               if TabRegistroSatProxy.AsInteger = 1 then
                  begin
                  Proxy := DM.TabRegistroSatProxy.AsInteger;
                  Proxy_IP := DM.TabRegistrosatip.AsString;
                  Proxy_Porta := DM.TabRegistroSatProxyPorta.AsInteger;
                  Proxy_User := DM.TabRegistroSatUsuario.AsString;
                  Proxy_Senha := DM.TabRegistrosatproxysenha.AsString;
                  end;
               end; //Fim Rede

            //Se satemulador for igual a 0 entao não sera usado o emulado do sat
            if TabRegistrosatemulador.AsInteger = 0 then
               begin
               //Ativar o Sat
               AtivarSAT(1, DM.TabRegistrocnpjcpf.AsString, CodIBGEUF[DM.TabRegistroSatCodUf.AsInteger]);

               //Ler Certificado Digital
               ComunicarCertificadoICPBRASIL(DM.TabRegistroNrCertSat.AsString);

               //Associar Assinatura
               AssociarAssinatura(DM.TabRegistroSatCNPJ.asstring + DM.TabRegistrocnpjcpf.AsString, DM.TabRegistroSatAssinatura.AsString);
               end;

            //Ajusta Sat
            //Configurações
            Modelo := TACBrSATModelo(DM.TabRegistroSatIniSat.AsInteger);
            ArqLOG := DM.TabRegistroSatArqLog.AsString;

            if DM.TabRegistroSatNomeDLL.AsString <> '' then
               NomeDLL := DM.TabRegistroSatNomeDLL.AsString
            else SatMensagem := 'Falta DLL para o Sat' + #13;

            with Config do
               begin
               PaginaDeCodigo := DM.TabRegistroSatPagCod.asinteger;

               if DM.TabRegistroSatUTF8.AsInteger = 0 then
                  EhUTF8 := false
               else EhUTF8 := true;
               end;//Fim Config

            With ConfigArquivos do
               begin
               if DM.TabRegistroSatSalvacfes.AsInteger = 0 then
                  SalvarCFe := false
               else SalvarCFe := true;

               if DM.TabRegistroSatSalvacfecanc.AsInteger = 0 then
                  SalvarCFeCanc := false
               else SalvarCFeCanc := true;

               if DM.TabRegistroSatSalvaenvio.AsInteger = 0 then
                  SalvarEnvio := false
               else SalvarEnvio := true;

               if DM.TabRegistroSatSepCNPJ.AsInteger = 0 then
                  SepararPorCNPJ := false
               else SepararPorCNPJ := true;

               if DM.TabRegistroSatSepMes.AsInteger = 0 then
                  SepararPorMes := false
               else SepararPorMes := true;
               end;  //fim ConfigArquivos

            if Modelo = mfe_Integrador_XML then
               begin
               With DM.ACBrIntegrador do
                  begin
                  PastaInput := DM.TabRegistroSatInput.Value;
                  PastaOutput := DM.TabRegistroSatOutput.Value;
                  Timeout := DM.TabRegistroSattimeout.AsInteger;
                  end;

               Integrador := DM.ACBrIntegrador;
               end;

            With CFe do
               begin
               //A - Dados do Cupom Fiscal Eletrônico
               With infCFe do
                  begin
                  //Versão do Leiaute do CF-e
                  Versao := 22108;

                  //Versão do leiaute do arquivo de dados do AC
                  //versaoDadosEnt := StringtoFloat(DM.TabRegistroSatVersao.AsString);

                  //Versão Software Básico do Sat
                  versaoSB := 1;

                  //Identificador da TAG a ser assinada
                  Id := Copy(DM.TabRegistroSatAssinatura.AsString,1,47);
                  end;//infCFe

               //B - Identificação do Cupom Fiscal Eletrônico
               with ide do
                  begin
                  //Código da UF do emitente do Documento Fiscal
                  cUF := EmitCEPtoCodIBGEUF();

                  //numero de caixas
                  numeroCaixa := TabRegistroSatNumCaixa.AsInteger;

                  //Código do Modelo do Documento Fiscal
                  modelo := 59;

                  //Número de Série do Equipamento SAT
                  //nserieSAT :=

                  //Identificação do Ambiente
                  case DM.TabRegistroSatAmbiente.AsInteger of
                      0 : tpAmb := TpcnTipoAmbiente.taProducao;
                      1 : tpAmb := TpcnTipoAmbiente.taHomologacao;
                  end;

                  //CNPJ Software House
                  CNPJ := DM.TabRegistroSatCnpj.AsString;

                  //Assinatura do Aplicativo Comercial
                  signAC := Copy(DM.TabRegistroSatCnpj.AsString + DM.TabRegistrocnpjcpf.AsString,1,344);

                  end;//fim ide

               //C - Identificação do Emitente do Cupom Fiscal Eletrônico
               With Emit do
                  begin
                  //CNPJ do emitente
                  CNPJ := Copy(TabRegistrocnpjcpf.AsString,1,14);

                  //Razão Social do emitente
                  xNome := Copy(TabRegistrorazaosoc.AsString,1,60);

                  //Nome Fantasia
                  xFant := Copy(TabRegistrofantasia.AsString,1,60);

                  with EnderEmit do
                     begin
                     With TabEndRegistro do
                        begin
                        close;
                        parambyname('codemp').AsInteger := codemp;
                        open;
                        end;

                     //Logradouro
                     xLgr := Copy(TabEndRegistroendereco.AsString,1,60);
                     //Número
                     nro := Copy(TabEndRegistronumero.AsString,1,60);

                     //Complemento
                     xCpl := '';
                     if TabEndRegistrocomplemento.AsString <> '' then
                        xCpl := Copy(TabEndRegistrocomplemento.AsString,1,60);

                     //Bairro
                     xBairro := Copy(TabEndRegistrobairro.AsString,1,60);
                     //Nome do Municipio
                     xMun := Copy(TabEndRegistromunicipio.AsString,1,60);
                     //Código do CEP
                     CEP := TabEndRegistrocep.AsInteger;

                     //Inscrição Estadual
                     IE := '';
                     if TabRegistroinscest.AsString <> '' then
                        IE := PreencherVazio(TabRegistroinscest.AsString,12);

                     //Inscrição Municipal
                     IM := '';
                     if TabRegistroregmun.AsString <> '' then
                        IM := Copy(TabRegistroregmun.AsString,1,15);

                     //Código de Regime Tributário
                     if TabRegistroindcrt.AsInteger = 1 then
                        cRegTrib := TpcnRegTrib.RTSimplesNacional
                     else cRegTrib := TpcnRegTrib.RTRegimeNormal;

                     end;//EnderEmit
                  end;//Fim Emit
               end; //Fim CFe

            ConfigurarInterfaceDeRede();

            Inicializado := not Inicializado ;

            if Inicializado then
               SatMensagem := 'Sat Fiscal Pronto para uso!'
            else
               SatMensagem := 'Sat Fiscal desligado!';
            end;//Fim ACBrSat
         end;//fim DM
      end;//fim se

[Erro ao gerar o xml no sat]

Ao gerar a venda bem na linha da geração do xmal esta dando erro, preciso muito de uma orientação nessa parte, se falta algum código.

[Erro no modelo sat fiscal do acbr]

ok, muito obrigado por sua ajuda

Deus abençoe!

[Erro no modelo sat fiscal do acbr]

Ao compilar o projeto de exemplo no acbr esta dando erro, acho que falta uma bibioteca pode me informa qual seria?

[Duvida com linhas de comando]

Config.emit_IE         := edtEmitIE.Text;
Config.emit_IM         := edtEmitIM.Text;

Config.emit_cRegTribISSQN := TpcnRegTribISSQN( cbxRegTribISSQN.ItemIndex ) ;
Config.emit_indRatISSQN   := TpcnindRatISSQN( cbxIndRatISSQN.ItemIndex ) ;

As duas primeira linha caso não houver inscrição estadual pode representar assim:

Config.emit_IE := '';  ?

O mesmo para o config.emit_IM := '' ?

 

NO caso de não ter inscrição municipal como proceder com as duas ultimas linhas?

Config.emit_cRegTribISSQN := TpcnRegTribISSQN( cbxRegTribISSQN.ItemIndex ) ;
Config.emit_indRatISSQN   := TpcnindRatISSQN( cbxIndRatISSQN.ItemIndex ) ;

 

obrigado

[Problema com unit]

Qual unit que tem que declarar para funcionar a unit configuraserial?

 

 

obrigado

[Exemplo Sat fiscal não abre]

Eu respirei pensei e abri uma unit referente ao sat fiscal, e consegui abrir o exemplo, muito obrigado por sua ajuda e atenção.

 

Deus abençoe.

[Exemplo Sat fiscal não abre]

Fiz o que disse mas o erro continua

[Exemplo Sat fiscal não abre]

Os fontes que tem do ACBr  do sat fiscal não esta abrindo e não sei o que fazer precisa do fonte para seguir para fazer um meu.

alguem pode me ajudar?

[Probelma na instalação]

Esta dando esse erro ao abrir o delphi na pasta indiciada tem o arquivo mas não sei o que fazer pode ajudar?