Jump to content

Natanael.Ribeiro

Membros
  • Posts

    54
  • Joined

  • Last visited

Posts posted by Natanael.Ribeiro

  1. O Campo [nItem: ] está sendo informando errado na função ValidarRegrasdeNegocios, na função é usado [nItem:' + IntToStr(I) + ']', sendo que deveria ser Prod.nItem, a variável "I" está sendo usada para retornar o Det

    for I:=0 to NFe.Det.Count-1 do
    begin
        with NFe.Det do

    ficando divergente do Prod.nItem usado, eu alterei aqui e estou subindo caso seja usado.

    ACBrNFeNotasFiscais.pas

  2. olá, a função ValidarRegrasdeNegocios está validando as formas de pagamento nas notas de Devolução e Ajuste, sendo que elas devem ser informada como Sem Pagamento com o valor zerado.

        else if (NFe.infNFe.Versao >= 4) then
        begin
          fsvTotPag := 0;
          for I := 0 to NFe.pag.Count-1 do
          begin
            fsvTotPag :=  fsvTotPag + NFe.pag.vPag;
          end;
          GravaLog('Validar: 767-Soma dos pagamentos');
          if (fsvTotPag < NFe.Total.ICMSTot.vNF) then
            AdicionaErro('767-Rejeição: Somatório dos pagamentos diferente do total da Nota Fiscal');

          GravaLog('Validar: 869-Valor do troco');
          if (NFe.Total.ICMSTot.vNF <> (fsvTotPag - NFe.pag.vTroco)) then
            AdicionaErro('869-Rejeição: Valor do troco incorreto');
        end;

  3. Em 26/03/2018 at 18:09, Daniel Simoes disse:

    Não conseguimos um desconto, efetivamente.. pois os preços são tabelados... 

    Mas para melhorar a oferta, estou adicionando a doação de 3 a 6 meses de assinatura do SAC do ACBr, para Upgrade ou novas licenças...

    Iniciamos um trabalho em conjunto com a Embarcadero (vocês devem estar recebendo um e-mail)

    https://emailmarketing.locaweb.com.br/accounts/58294/messages/323?email=&c=1521834200&contact_id=[id]

    olá, nos compramos a licença do delphi tokyo enterprise no dia 21, já tá valendo essa promoção do ACBr?

  4. Olá, estou tendo problema na validação das regras de negócios devido a soma das formas de pagamento.

    só que a diferença é de 0,02 centavos devido o arredondamento de um parcelamento.

    Rejeição 

    767 – NFC-e com somatório dos pagamentos diferente do total da Nota Fiscal

    Causa  Quando for emitida uma NFC-e com o valor do Somatório dos pagamentos (Campo: vPag – ID: YA03) diferente do Total da Nota Fiscal (Campo: vNF – ID: W16), será retornado a rejeição “767 – NFC-e com somatório dos pagamentos diferente do total da Nota Fiscal”.

    Observação

    Há uma tolerância de R$ 1,00 para diferença entre o Valor do Pagamento e o Valor da Nota Fiscal.

    na linha 1154 do arquivo ACBrNFeNotasFiscais, está fazendo essa validação, não está considerando a tolerância de até 1 real.

        if (NFe.Ide.modelo = 65) and (NFe.infNFe.Versao < 4) then
        begin
          GravaLog('Validar: 767-NFCe soma pagamentos');
          fsvTotPag := 0;
          for I := 0 to NFe.pag.Count-1 do
          begin
            fsvTotPag :=  fsvTotPag + NFe.pag.vPag;
          end;

          if (NFe.Total.ICMSTot.vNF <> fsvTotPag) then //Validação
            AdicionaErro('767-Rejeição: NFC-e com somatório dos pagamentos diferente do total da Nota Fiscal');
        end;

  5. 2 horas atrás, joaobuenosi disse:

    olá @André Ferreira de Moraes,

    por favor, eu gostaria de saber se foi utilizado a comunicação com o Integrador via DLL ?, ou seja via chamadas de função ? pois pelo que vi existem 2 tipos de comunicação:

    1 - via arquivos xml nas pastas output e imput....

    2 - via funções da DLL.

     

    alguém já usou via a DLL ? sabem de assinaturas destas funções ?

    Eu usava via dll e é muito ruim, quando o integrador trava a dll não tem nenhum tratamento e trava completamente a aplicação.

    troquei pelo uso do ACBrSAT e ACBrIntegrador e está muito bom.

  6. Problema ao instalar o pacote ACBr_NFCeECFVirtual, pelo instalador.

    D:\Programacao\Delphi_10\Componentes\ACBr\Fontes\ACBrDFe\ACBrNFe\ACBrECFVirtualNFCe\ACBrECFVirtualNFCe.pas(42) Fatal: E2225 Never-build package 'ACBr_NFe' must be recompiled
    Compilation failure
    Erro ao compilar o pacote "ACBr_NFCeECFVirtual.dpk".

  7. Estou tendo problemas no retorno do ACBrIntegrador no uso das funções enviarpagamento, enviarstatus e respostafiscal, o TRespostaPagamento retorna normal, com todos os dados necessários, mas dentro do TRespostaPagamento tem o TIntegradorResposta que retorna em branco, nele está o status da operação nos campos Codigo e Valor.

        <IntegradorResposta>
            <Codigo>AP</Codigo>
            <Valor>Arquivo processado</Valor>
        </IntegradorResposta>

    só que na função EnviaComando ele está reduzindo o xml, pegando somente essa parte do xml

        </IntegradorResposta>
        <Resposta>
            <IdPagamento>4473915</IdPagamento>
            <Mensagem>Pagamento enviado com sucesso ao validador fiscal! O ID da transação para acompanhar o status e identificá-la no portal de ajustes é 4473915</Mensagem>
            <StatusPagamento>EnviadoAoValidador</StatusPagamento>
        </Resposta>

    Linha 294 Result := PegaResposta(RespostaIntegrador); 

    eu comecei a passar o retorno completo, e está funcionamento normalmente, até preenchendo os campos do TRespostaPagamento e o TIntegradorResposta.

    Linha 294 Result := RespostaIntegrador;

    Testei também a função EnviarStatus e RespostaFiscal e também está normal depois da operação.

    não entendi porque no arquivo pcnVFPeR foi adicionado a leitura completa do xml, mas na função EnviaComando está reduzindo o xml removendo os campos do IntegradorResposta.

    procedure TRespostaPagamentoR.LerXml;
    begin
      Leitor.Grupo := Leitor.Arquivo;

      RespostaPagamento.Clear;

      RespostaPagamento.IDPagamento     := Leitor.rCampo(tcInt, 'IDPagamento');
      RespostaPagamento.Mensagem        := Leitor.rCampo(tcStr, 'Mensagem');
      RespostaPagamento.StatusPagamento := Leitor.rCampo(tcStr, 'StatusPagamento');

      RespostaPagamento.IntegradorResposta.LerResposta(Leitor.Arquivo);
    end;

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.