PHABLO HENRIQUE

Desculpe, não entendi; Os valores do abatimento está sendo passado quando eu incluo o boleto; que em seguida gero a remessa; como valido nos fontes? abraços

Boa noite senhores; Estou utilizando o acbrBoleto e em todas as funções ele funciona 100%, porém, quando eu incluo um abatimento no boleto (ValorAbatimento := IBQ_FATURA.FieldByName('DESCONTO').AsVariant ) ele aparece no boleto impresso, mas na hora que gero a remessa, os abatimentos não vão para o banco que registra o boleto total sem os abatimentos. alguém já passou por isso?

Boa tarde doutor. Realmente havia a falha comentada; Eliminei a duplicidade e deu tudo certo, porém, precisava de mais um auxilio seu. no Layout Bradesco, o campo "Identificação do Tipo de Inscrição do Pagador" onde 1 = CPF e 2 = CNPJ no componente ele aponta sempre como 1(CPF) Como faço para alterar este campo para 2 quando for CNPJ ?

Bom dig BigWings, obrigado pelo retorno. Sinceramente eu tinha essa impressão, porém eu olho e não consigo identifcar onde realmente estou fazendo isso. a questão curiosa é que sempre esta linha "indevida" tem as mesmas informações. Exemplo: eu crio 10 titulos e todos saem corretos mas nas entrelinhas sempre aparece essa linha com a mesma informação. e não sei onde pode estar a duplicidade. Segue parte do meu código onde faço a inclusão do título; consegue me orientar? procedure TFRM_FATURA.InclBoleto; var Titulo: TACBrTitulo; DtProt: tDateTime ; VrLiquido : Variant ; begin DtVencto := StrToDate(IBQ_FATURA.FieldByName('VENCTO').AsString) ; Titulo := F_DM.ACBrBradesco.CriarTituloNaLista; with Titulo do begin VrLiquido := ( IBQ_FATURA.FieldByName('VALOR').AsVariant + IBQ_FATURA.FieldByName('ACRESCIMO').AsVariant + nJrsBol ); Vencimento := DtVencto; DataDocumento := StrToDate( IBQ_FATURA.FieldByName('EMISSAO').AsString ); // StrToDate(edtDataDoc.Text); NumeroDocumento := IBQ_FATURA.FieldByName('NUMERO').AsString; // edtNumeroDoc.Text; EspecieDoc := 'DS' ; // edtEspecieDoc.Text; Aceite := atNao; DataProcessamento := Now; Carteira := '09' ; // edtCarteira.Text; NossoNumero := Copy(IBQ_FATURA.FieldByName('NOSSONUMERO').AsString, 1, 11 ) ; //edtNossoNro.Text; ValorDocumento := StrToCurr(VrLiquido) ; Sacado.NomeSacado := Copy(IBQ_FATURA.FieldByName('RAZAO_SOCIAL').AsString, 1, 40) ; // edtNome.Text; Sacado.CNPJCPF := IBQ_FATURA.FieldByName('CNPJ').AsString ; // edtCPFCNPJ.Text; Sacado.Logradouro := Copy(IBQ_FATURA.FieldByName('ENTR_END').AsString, 1 , 40) ; // edtEndereco.Text; Sacado.Numero := IBQ_FATURA.FieldByName('ENTR_NUM').AsString ; // edtNumero.Text; Sacado.Bairro := IBQ_FATURA.FieldByName('ENTR_BAIRRO').AsString ; // edtBairro.Text; Sacado.Cidade := IBQ_FATURA.FieldByName('ENTR_MUN').AsString ; // edtCidade.Text; Sacado.UF := IBQ_FATURA.FieldByName('ENTR_UF').AsString ; // edtUF.Text; Sacado.CEP := Copy(IBQ_FATURA.FieldByName('ENTR_CEP').AsString, 1, 2) + Copy(IBQ_FATURA.FieldByName('ENTR_CEP').AsString, 4, 3) + Copy(IBQ_FATURA.FieldByName('ENTR_CEP').AsString, 8, 3) ; LocalPagamento := 'Pagar Preferencialmente nas agencias Bradesco ' ; // edtLocalPag.Text; ValorMoraJuros := (IBQ_FATURA.FieldByName('VALOR').AsVariant * 0.0033); // StrToCurrDef(edtMoraJuros.Text, 0); ValorDesconto := 0 ; IF DtVencto > StrToDate(IBQ_FATURA.FieldByName('VENCTO').AsString) then Begin ValorAbatimento := 0 ; end else Begin ValorAbatimento := StrToCurr(IBQ_FATURA.FieldByName('DESCONTO').AsString); end; DataMoraJuros := DtVencto ; DataDesconto := DtVencto ; DataAbatimento := DtVencto ; DtProt := DtVencto + 7 ; DataProtesto := DtProt ; PercentualMulta := 2 ; // StrToCurrDef(edtMulta.Text, 0); IF DtVencto > StrToDate(IBQ_FATURA.FieldByName('VENCTO').AsString) then Begin Mensagem.Text := 'Vencimento Original: ' + IBQ_FATURA.FieldByName('VENCTO').AsString; end else begin Mensagem.Text := '' ; // memMensagem.Text; end; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := '00' ; // PadR(trim(edtInstrucoes1.Text), 2, '0'); Instrucao2 := '00' ; // PadR(trim(edtInstrucoes2.Text), 2, '0'); // F_DM.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem); F_DM.ACBrBradescoReport.NomeArquivo := caminho + Copy(IBQ_FATURA.FieldByName('ARQ_PDF').AsString, 1, 16) + 'BOL' + Copy(IBQ_FATURA.FieldByName('ARQ_PDF').AsString, 20, 51) ; end; end;

Boa noite. Venho utilizando o AcBR para gerar boletos e até então tudo dando certo, porém, hoje comecei a adaptar a rotina para gerar remessa. Ele gera a remessa corretamente, mas para cada boleto ele traz 2 linhas sendo que no meu entendimento a primeira está correta e a segunda não. Tenho que apagar manualmente linha por linha. Sabem me dizer se tem alguma configuração que eu precise ajustar? Segue arquivo TXT gerado. um forte abraço a todos e obrigado cb010404.rem

como eu faço pra instalar o trunck2 ? eu na verdade achei no google e instalei. desinstalo tudo e recomeço com trunkc2 ???

Bom dia; estou tendo dificuldades em instalar os pacotes aCBR; Os principais ele instala certinho no Delphi, porém, a instalação dos componentes ligados ao relatório da erro na instalação pelo Trunk5 e também na instalação manual. Quando tento instalar manual pelos pacotes do aCBR ele da erro na compilação: {$IFDEF VER150} RLibWinD7vcl, vcljpg,{$ENDIF} // D7 [Fatal Error] ACBr_BoletoFC_Fortes.dpk(36): Required package 'RLibWinD7vcl' not found Os outros dois pacotes também dão erros semelhante; Se eu tentar rodar o Boletos da a seguinte mensagem: Class TACBrBoletoFCFortes not found. Ignore error and continue? NOTE: Ignoring the error may cause components to be deteted or property values to be lost; Class TACBrBoletoQuick not found. Ignore error and continue? NOTE: Ignoring the error may cause components to be deteted or property values to be lost; Estou usando Delphi 7 no windows 8 64 bits; Baixei os pacotes aBCR pelo Trunk5 e o ForteReport indicado no site para Delphi7

Regys e Italo, bom dia. Estou começando a entender. Dei uma olhada nos arquivos textos/exemplos e vejam se estou no caminho certo. Eu tenho 4 tabelas que serão utilizadas neste projeto, Tabela Empresa; nesta tenho o cadastro de todos os clientes e algumas informações fiscais; Tabela Cidade; nesta o cadastro de cidades vinculadas a tabela cliente com algumas informações que iremos utilizar tbém (IBGE, dipam, etc) Tabela Cte; a tabela onde registro todos os Cte e algunas informações necessárias, tais como cfop, tipo emissão, entre outras; Tabela CteNF; esta é a tabela de notas fiscais que compõe o Cte. Primeiro passo seria alimentar o AbcrCte com essas informações. Criar rotinas que convertam os dados do meu sistema para o padrão Abcr. Depois q eu converter meus dados pro Abcr (que é provavelmente a etapa mais dificil) ele já faz tudo automático? correto?

Regys, bom dia, Eu tenho pouco conhecimento em Delphi, estou programando a apenas 2 anos e as rotinas mais comuns, gerenciar tabelas, querys, resultados tive facilidade. Eu vi este exemplo e percebi que é bem completo, mas ainda ficou uma grnade dúvida. Eu vou utilizar este modelo/exemplo quando eu já tiver o xml pronto ou através dele consigo gerar o xml? obrigado,

Pessoal, estou desenvolvendo um sistema de transporte e agora cheguei na validação e emissão do CT-e. Li sobre as facilidades do Acbr mas não sei nada sobre. Pelo Acbr eu consigo já gerar o XML automático com base nas informações do meu sistema? além de gerar o xml eu já consigo validar e imprimir? não vou precisar fazer tudo na unha? Estou utilizando o Delphi 7 conto com voces. abraços