Ir para conteúdo
  • Cadastre-se

zanona

Membros
  • Total de ítens

    31
  • Registro em

  • Última visita

Últimos Visitantes

1.153 visualizações

zanona's Achievements

Contributor

Contributor (5/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

1

Reputação

1

Community Answers

  1. Olá, mas onde indicaria a ultima numeração gerada? Já fiz outras vezes isso e leva apenas para a nota existente! Não vi nada relacionada a ultima!
  2. É pelo demo que estou testando! Basicamente incluo o boleto conforme exemplo abaixo! var Titulo: TACBrTitulo; begin Titulo := dm.ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := StrToDate(edtVencimento.Text); DataDocumento := StrToDate(edtDataDoc.Text); NumeroDocumento := edtNumeroDoc.Text; EspecieDoc := edtEspecieDoc.Text; if cbxAceite.ItemIndex = 0 then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; Carteira := edtCarteira.Text; NossoNumero := edtNossoNro.Text; ValorDocumento := StrToCurr(edtValorDoc.Text); Sacado.NomeSacado := edtNome.Text; Sacado.CNPJCPF := OnlyNumber(edtCPFCNPJ.Text); Sacado.Logradouro := edtEndereco.Text; Sacado.Numero := edtNumero.Text; Sacado.Bairro := edtBairro.Text; Sacado.Cidade := edtCidade.Text; Sacado.UF := edtUF.Text; Sacado.CEP := OnlyNumber(edtCEP.Text); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0); LocalPagamento := edtLocalPag.Text; ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text, 0); ValorDesconto := StrToCurrDef(edtValorDesconto.Text, 0); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0); DataMoraJuros := StrToDateDef(edtDataMora.Text, 0); DataDesconto := StrToDateDef(edtDataDesconto.Text, 0); DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0); DataProtesto := StrToDateDef(edtDataProtesto.Text, 0); PercentualMulta := StrToCurrDef(edtMulta.Text, 0); Mensagem.Text := memMensagem.Text; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := PadRight(trim(edtInstrucoes1.Text), 2, '0'); Instrucao2 := PadRight(trim(edtInstrucoes2.Text), 2, '0'); end; E depois clico duas vezes no botão imprimir! Código abaixo! dm.ACBrBoletoReport.FastReportFile:= 'D:\projetos\ACBR\trunk2\Exemplos\ACBrBoleto\Delphi\Report\BoletoNovo.fr3'; dm.ACBrBoletoReport.DirLogo:='D:\projetos\ACBR\trunk2\Fontes\ACBrBoleto\Logos\Colorido\'; dm.ACBrBoleto.Imprimir;
  3. zanona

    Mensagem Duplicando

    Olá pessoal, quando vou imprimir a mensagem padrão do boleto aparece corretamente! Se mando imprimir novamente a mensagem duplica! Tem como evitar isso?
  4. Resolvido! Era o arquivo com problema! O campo DataField="QrCodeCarregado" estava desta forma! Eu simplesmente apaguei e deu certo!
  5. Pessoal, tenho uma NFC-e está saindo sem QRCODE. Pelo que eu vi está autorizado a nota mas não tá saindo! O que poderia ser? Modelo DANFeNFCeA4.fr3 arquivo.xml
  6. Eu tenho o XE7 também! Eu tentei instalar para os dois Delphi inicialmente! Não deu certo! Eliminei a install dos dois Delphi e deixei apenas o D2007 mas ainda ocorre!
  7. --------------------------- bds.exe - Ponto de entrada não encontrado --------------------------- Não foi possível localizar o ponto de entrada do procedimento @Rlreport@TRLCustomReport@SetTitle$qqrx17System@AnsiString na DLL (dynamic-link library) D:\projetos\code\trunk2\Lib\Delphi\LibD11\ACBr_SATExtratoRL.bpl. --------------------------- OK ---------------------------
  8. Já procurei em todo meu PC as BPLs que tinham! Apaguei tudo! Mesmo assim ainda ocorre o problema
  9. Sim! Inclusive criei outro diretório diferente do que estava instalado para tentar evitar qualquer outro problema!
  10. Eu instalo o ACBR tranquilamente! Quando vou abrir um projeto que tenha acbr dá mensagem abaixo! Dou OK na mensagem e abro menu Delphi Install componentes e vários pacotes desmarcados! Delphi 2007 e Xe7! Ambos com problema bds.exe - Ponto de entrada não encontrado --------------------------- Não foi possível localizar o ponto de entrada do procedimento @Acbrnfedanfeclass@TACBrNFeDANFEClass@ManterNomeImpresso$qqr17System@AnsiStringt1 na DLL (dynamic-link library) D:\Projetos\ACBR\trunk2\Lib\Delphi\LibD11\ACBr_NFeDanfeFR.bpl. --------------------------- OK ---------------------------
  11. Sim no mesmo SO! Qual seria o fast que o ACBR usa? 4 ou 5 ?
  12. zanona

    Erro ao usar ACBrCTeDACTEFR

    Quando vou jogar o componente ACBrCTeDACTEFR dá o seguinte erro abaixo! --------------------------- Error --------------------------- Access violation at address 50BDDD17 in module 'dsnap210.bpl'. Read of address 00000000. --------------------------- OK Details >> --------------------------- Isto ocorre no Delphi XE7 com fast report 5.5.8 OBS: No meu Delphi 2007 com fast 4 isto não ocorre! Alguém sabe o que poderia ser?
×
×
  • 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.

The popup will be closed in 10 segundos...