Designer_SP

Pessoal , se vcs me permitem tenho duas perguntas : 1-Por acaso vcs sabem se os boletos sem registro , ou seja , por exemplo aquele do banco do brasil carteira 18/019 em que não é registrado , se consegue fazer os arquivos de Remessa e Retorno do banco do brasil ? e se não coseguir fazer Remessa , tem como controlar isso de quem pagou ou não sem este esquema de Remessa ? 2-Tem como como configurar o papel tipo A4 , Carta... no componente de impressão ? Pois a minha impressão aqui ficou desconfigurada no papel A4 ! Estou usando o Fortes Report ! Obrigado a todos . Marcio .

Juliana entendi , no caso o campo ValorDespesaCobranca não tem tanta importancia pois nem tem este campo no boleto , mas o campo ValorOutrasDespesas tem ! enfim... Juliana posso estar analizando os fontes e implementando isso , para todos os efeitos terei que estudar os fontes para implemento e vcs não pois ja tem as cordenadas do projeto , seria dificil vcs estar implementando isso ? pois no caso seria válido para o projeto e demais usuarios que venham a precisar e não só pra mim . Obrigado . Marcio .

boa tarde , é normal que as tags ValorOutrasDespesas e ValorDespesaCobranca não sejam impressas no boleto ? Coloco valores nesses campos e não são impressos , tentei em todos os bancos e nada ! é normal isso mesmo ? 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 := StrToDate(edtDataDoc.Text); NossoNumero := edtNossoNro.Text ; Carteira := edtCarteira.Text; ACBrBoleto.Cedente.Convenio := edtConvenio.Text ; ACBrBoleto.Cedente.Modalidade := edtModalidade.Text ; ValorDocumento := StrToCurr(edtValorDoc.Text); Sacado.NomeSacado := edtNome.Text; Sacado.CNPJCPF := RemoveStrings(edtCPFCNPJ.Text,AString); Sacado.Logradouro := edtEndereco.Text; Sacado.Numero := edtNumero.Text; Sacado.Bairro := edtBairro.Text; Sacado.Cidade := edtCidade.Text; Sacado.UF := edtUF.Text; Sacado.CEP := RemoveStrings(edtCEP.Text,AString); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0); LocalPagamento := edtLocalPag.Text; ValorOutrasDespesas := StrToCurrDef( edtOutrasDespesas.text ,0) ; ValorDespesaCobranca := StrToCurrDef( edtDespesaCobranca.text ,0) ; 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 := padL(trim(edtInstrucoes1.Text),2,'0'); Instrucao2 := padL(trim(edtInstrucoes2.Text),2,'0'); end ; Valeu pela força Marcio .