[NFSe - Goiania]

Alguem já consegui resolver?

[Inicialização Nota Fiscal De Serviço]

Olá,

 

Alguém tem algum exemplo ou tutorial de como implementar a nota fiscal de serviço ?

 

Estou iniciando com esse componente agora. 

[Erro Retorno Sicoob Erro: 00/00/0000 Is Not Valid Date And Time]

SIm, consegui corrigir removendo a parte que trata da data do documento do acbr não foi a forma correta , mas resolveu temporariamente.

[Erro Retorno Sicoob Erro: 00/00/0000 Is Not Valid Date And Time]

Retorno Correto, segue o print com o erro.

Retorno-Goiania.zip

[Erro Retorno Sicoob Erro: 00/00/0000 Is Not Valid Date And Time]

Segue o retorno correto a menssagem e erro: '/ /' is not valid date and time

[Erro Retorno Sicoob Erro: 00/00/0000 Is Not Valid Date And Time]

Alguém pode me ajudar?

[Erro Retorno Sicoob Erro: 00/00/0000 Is Not Valid Date And Time]

Olá Amigos ,

 

Estou com um problema para ler o arquivo de retorno do Banco Sicoob quando chamado ACBrBoleto1.LerRetorno ele da um erro

erro: 00/00/00 is not valid date and time , alguém pode me ajudar a resolver, segue também o arquivo de retorno.

 

Segue o código:

 with ACBrBoleto1.Banco do

         begin

                   Digito  := 0;

                   Nome    := 'SICOOB';

                   Numero  := 756;

                   TipoCobranca := cobBancoob;

         end;

 

(*DADOS DO CEDENTE*)

         ACBrBoleto1.Cedente.Nome := Qconf.FieldByName('cedentenome').AsString;

         ACBrBoleto1.Cedente.CNPJCPF := Qconf.FieldByName('cedentecnpj').AsString;

         ACBrBoleto1.Cedente.CodigoCedente := Qconf.FieldByName('cedentecodigo').AsString;

         ACBrBoleto1.Cedente.Agencia := Qconf.FieldByName('cedenteagencia').AsString;

         ACBrBoleto1.Cedente.AgenciaDigito := Qconf.FieldByName('cedenteagenciadigito').AsString;

         ACBrBoleto1.Cedente.Conta := Qconf.FieldByName('cedenteconta').AsString;

         ACBrBoleto1.Cedente.ContaDigito := Qconf.FieldByName('cedentecontadigito').AsString;

         ACBrBoleto1.Cedente.Modalidade := Qconf.FieldByName('cedentemodalidade').AsString;

 

         ACBrBoleto1.NomeArqRetorno := ExtractFileName(OpenDialog1.FileName);

         ACBrBoleto1.DirArqRetorno := ExtractFilePath(OpenDialog1.FileName);

         ACBrBoleto1.LeCedenteRetorno := true;

         ACBrBoleto1.LerRetorno;

CB050200.zip

[Carteira Bradesco]

Olá estou configurando o acbr boleto para o banco bradesco com o fast report mas informo a titulo.carteira mas esse valor não esta sendo reconhecido, estou passando como string.

 

Delphi xe7

 

 

alguém pode me ajudar?

 

Segue o código:

 

Titulo := ACBrBoleto1.CriarTituloNaLista;

 

     with Titulo do

     begin

        Vencimento        := DsDados.DataSet.FieldByName('datavencimento').Value;

        DataDocumento     := DsDados.DataSet.FieldByName('dataconta').Value;

        NumeroDocumento   := DsDados.DataSet.FieldByName('idcr').Text;

        EspecieDoc        := DsBoleto.DataSet.FieldByName('especiedoc').AsString;

        if DsBoleto.DataSet.FieldByName('aceite').AsString = 'SIM' then

           Aceite := atSim

        else

           Aceite := atNao;

        EspecieMod     := 'R$';

        EspecieDoc     := DsBoleto.DataSet.FieldByName('especiedoc').AsString;

        DataProcessamento := Now;

        Parcela           := DsDados.DataSet.FieldByName('parcela').value;

        TotalParcelas     := DsDados.DataSet.FieldByName('totalparcelas').value;

        NossoNumero       := DsDados.DataSet.FieldByName('nossonumero').Text;

        Carteira          := DsBoleto.DataSet.FieldByName('carteira').Text;

        ShowMessage(Carteira);

        ValorDocumento    := StrToCurr(DsDados.DataSet.FieldByName('valorconta').Text);

        ShowMessage(CurrToStr(ValorDocumento));

        Sacado.NomeSacado := DsBoleto.DataSet.FieldByName('nomecompleto').AsString;

        Sacado.CNPJCPF    := DsBoleto.DataSet.FieldByName('cpf').AsString;

        Sacado.Logradouro := DsBoleto.DataSet.FieldByName('endereco').AsString;

        Sacado.Numero     := DsBoleto.DataSet.FieldByName('complemento').AsString;

        Sacado.Bairro     := DsBoleto.DataSet.FieldByName('bairro').AsString;

        Sacado.Cidade     := DsBoleto.DataSet.FieldByName('cidade').AsString;

        Sacado.UF         := DsBoleto.DataSet.FieldByName('uf').AsString;

        Sacado.CEP        := OnlyNumber(DsBoleto.DataSet.FieldByName('cep').AsString);

        ValorAbatimento   := StrToCurrDef(DsDados.DataSet.FieldByName('valoracrecimo').text,0);

        LocalPagamento    := 'Preferencialmente no Banco '+DsBoleto.DataSet.FieldByName('nomebanco').AsString;;

        ValorMoraJuros    := StrToCurrDef(DsDados.DataSet.FieldByName('valorjuros').text,0);

        ValorDesconto     := StrToCurrDef(DsDados.DataSet.FieldByName('valordesconto').Text,0);

        ValorAbatimento   := 0;

        DataMoraJuros     := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0);

        DataDesconto      := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0);

        DataAbatimento    := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0);

        DataProtesto      := StrToDateDef(DateToStr(DsDados.DataSet.FieldByName('datavencimento').Value+10), 0);

        PercentualMulta   := StrToCurrDef(DsDados.DataSet.FieldByName('valormulta').Text,0);

        Mensagem.Text     := 'Até o Vencimento Desconto ';

        OcorrenciaOriginal.Tipo := toRemessaBaixar;

        Instrucao1        := padL(trim('Menssagem 1'),2,'0');

        Instrucao2        := padL(trim('Menssagem 2'),2,'0');

 

       // ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem);

     end;