anticorpo

Alguem já consegui resolver?

Olá, Alguém tem algum exemplo ou tutorial de como implementar a nota fiscal de serviço ? Estou iniciando com esse componente agora.

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

Retorno Correto, segue o print com o erro. Retorno-Goiania.zip

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

Alguém pode me ajudar?

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

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;