Ir para conteúdo
  • Cadastre-se

dev botao

Erro no método ACBrBoleto.GerarRemessa


Ver Solução Respondido por amauridebarros,
  • Este tópico foi criado há 1036 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde,

Por favor tem alguma forma da debugar o método ACBrBoleto.GerarRemessa();

Eu estou gerando um boleto que pelo exemplo esta funcionando certinho

Porem quando eu coloco no meu sistema ao executar este método ele me retorna a mensagem abaixo

'-' is not a valid  integer value

Eu estou conferindo o componente do exemplo com o meu isto vai me tomar bastante tempo por isso eu gostaria de saber se tem alguma forma de debugar este metodo ou se alguem sabe o que pode estar errado.

Segue anexo a imagem do erro

Obrigado

ErroRemessa.png

Link para o comentário
Compartilhar em outros sites

Segue abaixo a rotina que está configurando o componente:

//////////////////////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////////////////////

procedure TFrmM005HK.SB_GerBolClick(Sender: TObject);
Var Titulo  : TACBrTitulo;
    Vsdesser: String;
    VLinha, logo : string;
    Vsdeschm:String;
    Vsatdchm:String;
    Vsperatd:String;
begin
    Application.CreateForm(TDmAtbCadRec, DmAtbCadRec);

    DmAtbCadRec.ACBrBoleto.ListadeBoletos.Clear;
    DmAtbCadRec.ACBrBoleto.Cedente.FantasiaCedente  :='xyz - informatica';
    DmAtbCadRec.ACBrBoleto.Cedente.Nome             :='xyz - informatica';
    DmAtbCadRec.ACBrBoleto.Cedente.Logradouro       :='Rua x';
    DmAtbCadRec.ACBrBoleto.Cedente.Bairro           :='Bairo xyz';
    DmAtbCadRec.ACBrBoleto.Cedente.Cidade           :='Cidade XYZ';
    DmAtbCadRec.ACBrBoleto.Cedente.CEP              :='07569-999';
    DmAtbCadRec.ACBrBoleto.Cedente.Telefone         :='(11) 9999-9999';
    DmAtbCadRec.ACBrBoleto.Cedente.Modalidade       :='01';
    DmAtbCadRec.ACBrBoleto.LayoutRemessa            :=c240;
    DmAtbCadRec.ACBrBoleto.Cedente.CodigoCedente    :='999999-9';
    DmAtbCadRec.ACBrBoleto.Cedente.CodigoTransmissao:='';
    DmAtbCadRec.ACBrBoleto.Cedente.Agencia          :='9999';
    DmAtbCadRec.ACBrBoleto.Cedente.AgenciaDigito    :='0';
    DmAtbCadRec.ACBrBoleto.Cedente.Modalidade       :='01';
    DmAtbCadRec.ACBrBoleto.Cedente.Convenio         :='';
    DmAtbCadRec.ACBrBoleto.Cedente.TipoCarteira     :=tctRegistrada;
    DmAtbCadRec.ACBrBoleto.Cedente.ResponEmissao    :=tbCliEmite;
    DmAtbCadRec.ACBrBoleto.Cedente.TipoInscricao    :=pJuridica;
    DmAtbCadRec.ACBrBoleto.Cedente.IdentDistribuicao:=tbClienteDistribui;
    DmAtbCadRec.ACBrBoleto.Cedente.CaracTitulo      :=tcSimplesRapComReg;
    DmAtbCadRec.ACBrBoleto.Cedente.Conta            :='0000000123456';
    DmAtbCadRec.ACBrBoleto.Cedente.ContaDigito      :='0';
    DmAtbCadRec.ACBrBoleto.Cedente.CNPJCPF          :='27.285.127/0001-50';
    Titulo := DmAtbCadRec.ACBrBoleto.CriarTituloNaLista;
    with Titulo do
    begin
       Vencimento        := StrToDate('16/05/2021');
       DataDocumento     := StrToDate('16/05/2021');
       NumeroDocumento   := '2';
       EspecieDoc        := 'DM';
       Aceite            := atNao;
       DataProcessamento := StrToDate('16/05/2021');
       Carteira          := '9';
       NossoNumero       := '2';
       ValorDocumento    := 5.37;
       Sacado.NomeSacado := 'Sacado e cia';
       Sacado.CNPJCPF    := '44.316.298/0001-19';
       Sacado.Logradouro := 'Rua bcd';
       Sacado.Numero     := '1234';
       Sacado.Bairro     := 'Bairro bcd';
       Sacado.Cidade     := 'Cidade Bcd';
       Sacado.UF         := 'SP';
       Sacado.CEP        := '08893-000';
       ValorAbatimento   := 0;
       LocalPagamento    := 'Pagar preferêncialmente nas agências do Sicoob';
       ValorMoraJuros    := 0;
       ValorDesconto     := 0;
       DataMoraJuros     := 0;
     //  DataDesconto      := ;
     //  DataAbatimento    := ;
     //  DataProtesto      := ;
     //  PercentualMulta   := ;
     //  DataMulta         := ;
     //Mensagem.Text     := memMensagem.Text;
     //  OcorrenciaOriginal.Tipo := toRemessaBaixar;
       OcorrenciaOriginal.Tipo :=toRemessaRegistrar;
     //  Instrucao1        := VdBoleto.TInstrucao01;
     //  Instrucao2        := VdBoleto.TInstrucao02;
       QtdePagamentoParcial:= 1;
       TipoPagamento:= tpNao_Aceita_Valor_Divergente;
       PercentualMinPagamento:= 0;
       PercentualMaxPagamento:= 0;
       ValorMinPagamento:= 0;
       ValorMaxPagamento:= 0;
       // dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem);
       {
       ViLinhas:=1;
       Vsdesser:='Nro.OS'               + stringOfChar(' ',10-Length('Nro.OS'))      +
                 'Data'                 + stringOfChar(' ',12-Length('Data'))        +
                 'Descrição do Chamado' + stringOfChar(' ',40-Length('Descrição do Chamado')) +
                 'Tipo';
       Detalhamento.Add(Vsdesser);
       VdBoleto.TDetalhamento.First;
       while ((not VdBoleto.TDetalhamento.Eof) and (ViLinhas <= 27))  do
       Begin
         Vsatdchm:=VdBoleto.TDetalhamento.FieldByName('dataChamado').AsString;
         Vsdeschm:=VdBoleto.TDetalhamento.FieldByName('Descricao').AsString;
         Vsdesser:=VdBoleto.TDetalhamento.FieldByName('NumeroOS').AsString + stringOfChar(' ',10-Length(VdBoleto.TDetalhamento.FieldByName('numeroOS').AsString))    +
                   Vsatdchm                                                + stringOfChar(' ',20-Length(Copy(Vsatdchm,1,20)))                                               +
                   Vsdeschm                                                + stringOfChar(' ',40-Length(Vsdeschm))        +
                   '  ' + VdBoleto.TDetalhamento.FieldByName('tipo').AsString;
         Detalhamento.Add(Vsdesser);
         if (ViLinhas = 27) then
         begin
            Detalhamento.Add(Vsdesser);
         end;
         VdBoleto.TDetalhamento.Next;
         Vsatdchm:='';
         Vsperatd:='';
         Vsdeschm:='';
         Vsdesser:='';
         ViLinhas := ViLinhas +1;
       End;
       }
       logo:= ExtractFileDir(ParamStr(0)) + 'C:\sistemas\Delphi\AcbrBoleto\Win32\Debug\Img\hks.jpg';
       //ArquivoLogoEmp := logo;  // logo da empresa
       ArquivoLogoEmp := 'C:\sistemas\Delphi\AcbrBoleto\Win32\Debug\Img\hks.jpg';  // logo da empresa
       //ShowMessage(logo);
       Verso := False;
    end;

    ////////////////////////////////////////////////////////////

    //// gera a remessa

 
    DmAtbCadRec.ACBrBoleto.GerarRemessa(1);
end;

//////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////////////////////////////////////////////////////////////////////

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Quando estoura a exceção ou depurando dentro do gerar tu não consegue ver qual está convertendo ? mas o problema basicamente é algum dos campos que tu colocou o - e deve ser só numerico

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1036 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.