Ir para conteúdo
  • Cadastre-se

gui369

Membros
  • Total de ítens

    14
  • Registro em

  • Última visita

Posts postados por gui369

  1. Tenho aplicação funcionando a algum tempo usando o componente ACBrNfe.

    Estou tendo um problema parecido em apenas um cliente.

    Ele tem certificado A3, o componente não pede a digitação da senha PIN.

    Testei o cartão em outro cliente e funcionou.

    Testei o cartão pelo teste do site da Certising e deu certo.

    Refiz todo processo de registro da dll Capcom.

    Tudo leva crer que seja algo no pc do cliente (Windows XP), porem não consigo identificar qual o problema.

    Alguma sugestão dos amigos ?

  2. Pessoal, utilizo ACBRNfeMonitor, passo a instrução abaixo.
    Ocorre o Erro, mas a NFe é processada pelo Sefaz - SP.
     
    No programa chamador considero que houve um erro, e tento reenviar
    a nota com mesmo numero recebo retorno de erro :
    CStat=539
    XMotivo=Rejeicao: Duplicidade de NF-e, com diferenca na Chave de Acesso.
     
     
    NFE.CriarEnviarNFeSefaz("N0263.TXT",1,         0)
     
     
    Enviando para Sefaz -15:15:12
     
    Lote recebido com sucesso
    [ENVIO]
    Versao=SP_NFE_PL_006q
    TpAmb=1
    VerAplic=SP_NFE_PL_006q
    CStat=103
    XMotivo=Lote recebido com sucesso
    CUF=35
    NRec=351001921716964
    DhRecbto=28/10/2013 15:15:13
    TMed=1
    Msg=Lote recebido com sucesso
     
  3. Bom dia, 

     

    Vamos analisar o caso :

    Nosso numero original : vNNO = 1234

     

    SetNossoNumero(vNNO,16,'0') = 000.000.000.000.1234

     

    Na linha 230 da unit ACBrBancoHSBC temos :

    RightStr(padR(NossoNumero, 13, '0'),13), portanto 

     

    padR(vNNO, 13, '0') = 000.000.000.000.1

     

    Neste momento o valor de Nosso Numero esta incorreto...

     

    Att.

  4. Juliana, boa tarde.

     

    Sobre a ultima correção, testei e não funciona.

    Na unit ACBrBoleto, na procedure SetNossoNumero, o numero do NossoNumero ja fica errado porque o

    TamanhoMaximoNossoNumero esta com 16 quando na verdade deveria estar como 13.

     

     

    procedure TACBrTitulo.SetNossoNumero ( const AValue: String ) ;

    var
       wTamNossoNumero: Integer;
    begin
       with ACBrBoleto.Banco do
       begin
          wTamNossoNumero := TamanhoMaximoNossoNum;
          if wTamNossoNumero < 1 then
             wTamNossoNumero:= CalcularTamMaximoNossoNumero(Carteira, AValue);
     
          if Length(trim(AValue)) > wTamNossoNumero then
             raise Exception.Create( ACBrStr('Tamanho Máximo do Nosso Número é: '+ IntToStr(wTamNossoNumero) ));
     
          //// AQUI ELE MUDA PARA 16 DIGITOS, E DAI PRA FRENTE FICA ERRADO
          fNossoNumero := padR(trim(AValue),wTamNossoNumero,'0');
     
       end;
    end;
×
×
  • 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.