Jeffe.info

Opa Obrigado Juliomar, vou fazer a configuração direto no componente, obrigado pela dica. ahh sobre o debug não consegui arrumar, será que você poderia acessar minha máquina remotamente para me mostrar? vamos combinar, meu whats é 12991112244 obrigado

Ola boa noite, obrigado pelas dicas, sobre o breakpoint eu não consegui entender como eu posso resolver, só acontece neste programa. Já até pensei em refazer este sistema, do zero, e ir copiando aos poucos as rotinas para o novo. Talvez eu faça assim se eu não conseguir resolver este problema dos breakpoints. Juliomar você teria um exemplo populando a combobox ? para eu ver as variáveis do ACBr certinho. no meu Demo de boletos não tem esta rotina para escolher o banco e imprimir o boleto de acordo com o banco selecionado.

Estou fazendo um teste para poder implementar dentro de meu sistema de retaguarda. Eu queria colocar um combo para escolher o banco que irá gerar o boleto, em uma tela de configurações para boletos bancários, Vi que o projeto Acbr tem rotina para vários bancos. Achei incrível, muito bom mesmo, amo trabalhar com Acbr. O erro que esta dando é que este boleto esta vindo na tela sem logo, sem banco definido, estou apanhando um pouco, é minha primeira implementação com boletos usando Acbr. mas estou gostando muito. Pretendo estudar bastante esta ferramenta, gostei muito. Sobre o Break Point, eu não sei porque não esta funcionando para este sistema, acho que é porque eu uso encapsulamento de código para colocar tudo dentro do mesmo form. A IDE não esta reconhecendo isto, e não funciona breakpont, eu tenho que ficar dando showmessage para debugar. Será que tem um outro jeito de consertar isto?

Ola amigos boa tarde, estou implementando a rotina para geração do boleto em meu sistema de retaguarda, mas quando eu vou popular o Título esta dando erro de variável não instanciada, no uses coloquei: uses ACBrBoleto, ACBrBoletoConversao, uDMForte antes de popular ListadeBoletos estou tentando limpar para ter certeza que não terá nenhum teste já incluido, e nesta linha esta dando erro: try dmBoleto.ACBrBoleto.ListadeBoletos.Clear; except on E : Exception do ShowMessage('Erro ! '+ E.ClassName + ' Mensagem: '+E.Message); end; Fiz um teste com dados fictícios só para ver se estava gerando, mas nem chega nesta linha, abaixo segue a rotina completa, para gerar um boleto com dados fictícios, e envio para impressora para teste: procedure TfrmConfig.btnTesteBoletoClick(Sender: TObject); var Titulo : TACBrTitulo; VQtdeCarcA, VQtdeCarcB, VQtdeCarcC :Integer; VLinha, logo : string; i: Integer; begin if cbbLayOut.ItemIndex = -1 then begin cbbLayOut.ItemIndex := 0; end; try dmBoleto.ACBrBoleto.ListadeBoletos.Clear; except on E : Exception do ShowMessage('Erro ! '+ E.ClassName + ' Mensagem: '+E.Message); end; dmBoleto.ACBrBoleto.Cedente.FantasiaCedente := 'Nome Fantasia'; dmBoleto.ACBrBoleto.Cedente.Nome := 'Nome do cedente'; dmBoleto.ACBrBoleto.Cedente.Logradouro := 'Logradouro do cedente'; dmBoleto.ACBrBoleto.Cedente.Bairro := 'Bairro do cedente'; dmBoleto.ACBrBoleto.Cedente.Cidade := 'Cidade do cedente'; dmBoleto.ACBrBoleto.Cedente.CEP := 'CEP do cedente'; dmBoleto.ACBrBoleto.Cedente.Telefone := '(xx) 99999-9999'; Titulo := dmBoleto.ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := Now; DataDocumento := StrToDate('12345678'); NumeroDocumento := '01'; EspecieDoc := 'DM'; Aceite := atSim ; DataProcessamento := Now; Carteira := '09'; NossoNumero := '11122233'; ValorDocumento := StrToCurr('1.00'); Sacado.NomeSacado := 'Nome do Sacado'; Sacado.CNPJCPF := OnlyNumber('87.854.233-78'); Sacado.Logradouro := 'Endereço'; Sacado.Numero := '0'; Sacado.Bairro := 'Bairro'; Sacado.Cidade := 'Cidade'; Sacado.UF := 'UF'; Sacado.CEP := OnlyNumber('12.100-000'); ValorAbatimento := StrToCurrDef('0',0); LocalPagamento := 'Local Pagto'; ValorMoraJuros := StrToCurrDef('0.00',0); ValorDesconto := StrToCurrDef('0.00',0); ValorAbatimento := StrToCurrDef('0.00',0); DataMoraJuros := StrToDateDef('0.00', 0); DataDesconto := StrToDateDef('', 0); DataAbatimento := StrToDateDef('', 0); DataProtesto := StrToDateDef('', 0); PercentualMulta := StrToCurrDef('0',0); Mensagem.text := dbedtMensagem.Text; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := PadRight(trim(dbedtInstrucao1.Text),2,'0'); Instrucao2 := PadRight(trim(dbedtInstrucao2.Text),2,'0'); Instrucao3 := ''; QtdePagamentoParcial := 1; TipoPagamento := tpNao_Aceita_Valor_Divergente; PercentualMinPagamento := 0; PercentualMaxPagamento := 0; ValorMinPagamento := 0; ValorMaxPagamento := 0; dmBoleto.ACBrBoleto.AdicionarMensagensPadroes(Titulo, Mensagem); if cbbLayOut.ItemIndex = 6 then begin for i:=0 to 3 do begin VLinha := '.'; VQtdeCarcA := length('Descrição Produto/Serviço ' + IntToStr(I)); VQtdeCarcB := Length('Valor:'); VQtdeCarcC := 85 - (VQtdeCarcA + VQtdeCarcB); VLinha := PadLeft(VLinha,VQtdeCarcC,'.'); Detalhamento.Add('Descrição Produto/Serviço ' + IntToStr(I) + ' '+ VLinha + ' Valor: '+ PadRight(FormatCurr('R$ ###,##0.00', StrToCurr('1') * 0.25),18,' ') ); end; Detalhamento.Add(''); Detalhamento.Add(''); Detalhamento.Add(''); Detalhamento.Add(''); Detalhamento.Add('Desconto ........................................................................... Valor: R$ 0,00' ); end; logo:= ExtractFileDir(ParamStr(0)) + '\acbr_logo.jpg'; ArquivoLogoEmp := logo; // logo da empresa //ShowMessage(logo); Verso := False; //((cbxImprimirVersoFatura.Checked) and ( cbxImprimirVersoFatura.Enabled = true )); end; dmBoleto.ACBrBoleto.GerarRemessa(1); dmBoleto.ACBrBoleto.Imprimir; end;

Obrigado

Ola amigos, procurei aqui no forum mas não encontrei, onde posso baixar o emulador do tef? aquele emulador que usam no demo do TEF ACBR?

Ola tudo bom? estou desenvolvendo um sistema PDV que irá funcionar com SAT, ou ECF e com TEF. Precisava instalar os emuladores, onde consigo baixar?

Obrigado Felipe, eu estava com o mesmo problema Instalando no Delphi 10.3.2 comunity, vou baixar novamente e recompilar. Obrigado pela dica.

Juliomar, obrigado pela dica, ja encontrei o opensource do fastreport 6, instalei e também ja compilei os pacotes do acbr Trunk2. valeu mesmo. muito obrigado Deus te abençoe.

Obrigado Juliomar Marchetti, Por me dar esta luz, agora estou no caminho novamente. sabe de algum github com esta versão do FR VCL Enterprise para Rio, pesquisei aqui no google e só encontrei a versão 4.

estou tendo o mesmo erro no Delphi Rio. Instalei o fortes semproblemas. log_Delphi_10.3_Rio.txt