Erro acbrnfse - Guarulhos

[amauridebarros]

Bom dia pessoal 

Estou com um probleminha aqui veja se voces podem me dar o caminhos das pedras pra resolver

Estou emitindo uma nfse para guarulhos e estou direcionando o ambiente para produção

Producao                                := snSim;

 

porem ele manda a nota para o ambiente de homologação...

 

O que eu posso estar fazendo de errado?

segue abaixo a rotina alimentecomponente.

******************************************************************

******************************************************************

procedure TFrmM005HK.AlimentaComponente(NumNFSe, NumLote: String);
var
  ValorISS: Double;
  ValorNfs: Double;
  VsCnpj  : String;
begin
  with ACBrNFSe do
  begin
    // Provedor ISSNet sem certificado
    Configuracoes.Geral.Emitente.WebChaveAcesso := 'A001.B0001.C0001-1';
    with Configuracoes.Geral.Emitente.DadosSenhaParams.Add do
    begin
      Param := 'ChaveAutorizacao';
      Conteudo := 'A001.B0001.C0001-1';
    end;
    NotasFiscais.NumeroLote                   := NumLote;
    NotasFiscais.Transacao                    := True;
    with NotasFiscais.Add.NFSe do
    begin
      NumeroLote                              := NumLote;
      IdentificacaoRps.Numero                 := FormatFloat('#########0', StrToInt(NumNFSe));
      // Para o provedor ISS.NET em ambiente de Homologação mudar a série para '8'
      IdentificacaoRps.Serie                  := 'NF';
      // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom );
      IdentificacaoRps.Tipo                   := trRPS;
      DataEmissao                             := Now;
      DataEmissaoRPS                          := Now;
      (*
        TnfseNaturezaOperacao = ( no1, no2, no3, no4, no5, no6, no7,
        no50, no51, no52, no53, no54, no55, no56, no57, no58, no59,
        no60, no61, no62, no63, no64, no65, no66, no67, no68, no69,
        no70, no71, no72, no78, no79,
        no101, no111, no121, no201, no301,
        no501, no511, no541, no551, no601, no701 );
      *)
      NaturezaOperacao                        := no1;
      // TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP );
      RegimeEspecialTributacao                := retMicroempresarioEmpresaPP;
      // TnfseSimNao = ( snSim, snNao );
      OptanteSimplesNacional                  := snSim;
      // TnfseSimNao = ( snSim, snNao );
      IncentivadorCultural                    := snNao;
      // TnfseSimNao = ( snSim, snNao );
      // snSim = Ambiente de Produção
      // snNao = Ambiente de Homologação
      Producao                                := snSim;
      // TnfseStatusRPS = ( srNormal, srCancelado );
      Status                                  := srNormal;
      // Somente Os provedores Betha, FISSLex e SimplISS permitem incluir no RPS
      // a TAG: OutrasInformacoes os demais essa TAG é gerada e preenchida pelo
      // WebService do provedor.
      OutrasInformacoes                       := 'Pagamento a Vista';
      // Usado quando o RPS for substituir outro
      // RpsSubstituido.Numero      := FormatFloat('#########0', i);
      // RpsSubstituido.Serie       := 'UNICA';
      // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom );
      /// RpsSubstituido.Tipo   := trRPS;
      ValorISS:=0;
      ValorNfs:=0;
      VdAtbNse.fvcitense.First;
      while Not VdAtbNse.fvcitense.Eof do
      Begin
         ValorNfs:=ValorNfs + VdAtbNse.fvcitense.FieldByName('basecalculo').AsFloat;
         ValorISS:=ValorISS + VdAtbNse.fvcitense.FieldByName('issretido').AsFloat;
         VdAtbNse.fvcitense.next;
      End;
      Servico.Valores.ValorServicos           := ValorNfs;
      Servico.Valores.ValorDeducoes           := 0.00;
      Servico.Valores.ValorPis                := 0.00;
      Servico.Valores.ValorCofins             := 0.00;
      Servico.Valores.ValorInss               := 0.00;
      Servico.Valores.ValorIr                 := 0.00;
      Servico.Valores.ValorCsll               := 0.00;
      // TnfseSituacaoTributaria = ( stRetencao, stNormal, stSubstituicao );
      // stRetencao = snSim
      // stNormal   = snNao
      if VdAtbNse.fVicmuemi = VdAtbNse.fvicodmun then
      Begin
         Servico.Valores.IssRetido:= stNormal;
         Servico.Valores.Aliquota := 0;
         ValorISS:=0;
      End
      Else
      Begin
         Servico.Valores.IssRetido:= stNormal;
         Servico.Valores.Aliquota := 0;
         ValorISS:=0;
      End;
      Servico.Valores.ValorIssRetido          := ValorISS;
      Servico.Valores.OutrasRetencoes         := 0.00;
      Servico.Valores.DescontoIncondicionado  := 0.00;
      Servico.Valores.DescontoCondicionado    := 0.00;
      Servico.Valores.BaseCalculo             := Servico.Valores.ValorServicos -
      Servico.Valores.ValorDeducoes - Servico.Valores.DescontoIncondicionado;
      // No caso do provedor Ginfes devemos informar a aliquota já dividida por 100
      // para outros provedores devemos informar por exemplo 3, mas ao fazer o calculo
      // do valor do ISS devemos dividir por 100

      // Valor do ISS calculado multiplicando-se a base de calculo pela aliquota
      ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota / 100;
      // A função RoundTo5 é usada para arredondar valores, sendo que o segundo
      // parametro se refere ao numero de casas decimais.
      // exemplos: RoundTo5(50.532, -2) ==> 50.53
      // exemplos: RoundTo5(50.535, -2) ==> 50.54
      // exemplos: RoundTo5(50.536, -2) ==> 50.54
      Servico.Valores.ValorISS := RoundTo5(ValorISS, -2);
      Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos -
        Servico.Valores.ValorPis - Servico.Valores.ValorCofins -
        Servico.Valores.ValorInss - Servico.Valores.ValorIr -
        Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes -
        Servico.Valores.ValorIssRetido - Servico.Valores.DescontoIncondicionado
        - Servico.Valores.DescontoCondicionado;

      // TnfseResponsavelRetencao = ( ptTomador, rtPrestador );
      Servico.ResponsavelRetencao := ptTomador;
          Servico.ItemListaServico := '01.07';
    //  Servico.CodigoCnae := '852010';

      // Usado pelo provedor de Goiania
      Servico.CodigoTributacaoMunicipio := '951180001';

      // Para o provedor ISS.NET em ambiente de Homologação
      // o Codigo CNAE tem que ser '6511102'
      // Servico.CodigoCnae                := '123'; // Informação Opcional
      //Servico.CodigoTributacaoMunicipio := '3314799';
      Servico.Discriminacao := 'Pestação de serviços';

      // Para o provedor ISS.NET em ambiente de Homologação
      // o Codigo do Municipio tem que ser '999'
      Servico.CodigoMunicipio := '3518800';     //01

      // Informar A Exigibilidade ISS para fintelISS [1/2/3/4/5/6/7]
      Servico.ExigibilidadeISS := exiExigivel;

      // Informar para Saatri
      Servico.CodigoPais := 1058; // Brasil
      Servico.MunicipioIncidencia := 3518800;

      // Somente o provedor SimplISS permite infomar mais de 1 serviço
      with Servico.ItemServico.Add do
      begin
        Descricao := 'SERVICO 1';
        Quantidade := 1;
        ValorUnitario := 15.00;
      end;

      VsCnpj:=floattostr(VdAtbNse.fVfcnpemi);
      VsCnpj:=StringOfChar('0',(14-Length(VsCnpj))) + VsCnpj;

      Prestador.CNPJ := VsCnpj;
      Prestador.InscricaoMunicipal := '224780';

      // Para o provedor ISSDigital deve-se informar também:
      // Prestador.Senha := edtSenhaWeb.Text;
      // Prestador.FraseSecreta := edtFraseSecWeb.Text;
      // Prestador.cUF := 33;

      PrestadorServico.Endereco.CodigoMunicipio := '3518800';    //02
      PrestadorServico.RazaoSocial := VdAtbNse.fVsnomemi;

      VsCnpj:=floattostr(VdAtbNse.fVfcnpdes);
      VsCnpj:=StringOfChar('0',(14-Length(VsCnpj))) + VsCnpj;

      Tomador.IdentificacaoTomador.CpfCnpj :=  VsCnpj;
      Tomador.IdentificacaoTomador.InscricaoMunicipal := VdAtbNse.fVsimudes;
      Tomador.RazaoSocial := VdAtbNse.fVsnomdes;
      Tomador.Endereco.Endereco := VdAtbNse.fVsenddes;
      Tomador.Endereco.Numero := VdAtbNse.fVsnroend;
      Tomador.Endereco.Complemento := VdAtbNse.fVscpldes;
      Tomador.Endereco.Bairro := VdAtbNse.fVsbaides;
      Tomador.Endereco.CodigoMunicipio := IntToStr(VdAtbNse.fvicodmun);
      Tomador.Endereco.UF := VdAtbNse.fVsestcli;
      Tomador.Endereco.CodigoPais := 1058; // Brasil
      Tomador.Endereco.CEP := IntToStr(VdAtbNse.fVicepdes);
      // Provedor Equiplano é obrigatório o pais e IE
      Tomador.Endereco.xPais := 'BRASIL';
      Tomador.IdentificacaoTomador.InscricaoEstadual := FloatToStr(VdAtbNse.fVfiesdes);
      Tomador.Contato.Telefone := VdAtbNse.fVsteldes;
      Tomador.Contato.Email := VdAtbNse.fvsemades;
      // Usado quando houver um intermediario na prestação do serviço
      // IntermediarioServico.RazaoSocial        := 'razao';
      // IntermediarioServico.CpfCnpj            := '00000000000';
      // IntermediarioServico.InscricaoMunicipal := '12547478';
      // Usado quando o serviço for uma obra
      // ConstrucaoCivil.CodigoObra := '88888';
      // ConstrucaoCivil.Art        := '433';
    end;
  end;
end;

******************************************************************

******************************************************************

 

[Juliana Tamizou]

Bom dia.

Nestes casos queira por favor anexa o arquivo com o código ou usar a opção  Code( <>) na barra de recursos do texto, assim fica mais fácil a visualização do tópico...

Quanto a sua dúvida, vc chegou a reproduzir no demo?

Att.

[amauridebarros]

No demo eu só reproduzi na base de homologação

não testei enviando pra produção não.

 

[amauridebarros]

Favor Anexar o arquivo

[amauridebarros]

UntM005HK.txt

[amauridebarros]

Ao que está parecendo a informação produção só serve pra mensagem sair ou não na nota, quando coloco em homologação a nfse sai com a informação (nota emitida em ambiente de homologação. e quando esta em produção a mensagem não sai mas a nota vai pra homologação do mesmo jeito.

o meu exemplo não esta funcionando estou arrumando pra tentar testar nele.

[amauridebarros]

Eu fiz uma alteração no fonte incluindo um item que eu achei aqui no forum mas não funcionou

eu inclui esta linha

 

ACBrNFSe.Configuracoes.WebServices.Ambiente:=taProducao;

 

mas conforme eu disse não ele continua enviendo a nota para o ambiente de homologação.

[amauridebarros]

Bom pessoal

Realmente eu cheguei no limite da minha competência neste processo

Alterei as linhas abaixo

ACBrNFSe.Configuracoes.WebServices.Ambiente           :=taProducao;
with NotasFiscais.Add.NFSe 
        Producao:=snSim;
 

não consegui encontrar mais nada que alterasse o ambiente.

[Italo Giurizzato Junior]

Bom dia Amauri,

O que determina que o Rps vai ser enviado para o ambiente de homologação ou de produção é a configuração do componente.

ACBrNFSe.Configuracoes.WebServices.Ambiente

A linha que você incluiu na rotina que alimenta o componente com os dados do serviço prestado não se faz necessário.

Uma coisa é a configuração do componente e outra e a alimentação dos dados.

Note que no programa exemplo na aba WebService temos um quadro chamado "Selecione o Ambiente de Destino" nele temos as opções: Produção e Homologação.

Toda vez que fazemos alguma alteração em alguma aba de configuração devemos clicar no botão [Salvar Configurações], caso contrario a alteração não é considerada.

Pelo titulo da sua postagem a cidade é Guarulhos/SP, correto?

Pois bem, essa cidade se utiliza do provedor Ginfes como diversas outras cidades, você é o primeiro a relatar esse problema de não conseguir enviar para o ambiente de produção.

Se você esta fazendo testes com a sua aplicação acredito que antes de enviar você esta configurando o componente e nessa configuração consta que é para enviar para o ambiente de homologação.

Procure sempre fazer testes com o programa exemplo, pois ele é o que temos de comum, entre você e nós da ACBr.

 

[amauridebarros]

--RESOLVIDO--

Eu não sei exatamente o que mas havia algo travando na minha aplicação eu não fiz alteração alguma nem nada de diferente, não tenho dúvida de que havia um problema e que este problema foi aqui na minha aplicação.

O Fato é que o processo passou a ser enviado corretamente.

Obrigado a todos.

e desculpem.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.