Canhoto no boleto cobrebem

[jaguiar]

Olá caríssimos.

Gostaria de saber como faço param imprimir o boleto bradesco com canhoto em harbour/xHarbour.

Desde já agradeço as colaborações

João Freire de Aguiar

[jaguiar]

Olá caríssimos.

Gostaria de saber como faço param imprimir o boleto bradesco com canhoto em harbour/xHarbour.

Desde já agradeço as colaborações

João Freire de Aguiar

[Yury]

Modelos de boleto suportados pelo Cobrebem

'Padrao'

'PadraoHTML'

'PadraoReciboPersonalizadoHTML'

'Invertido'

'CarnetReciboLateralDireita'

'CarnetReciboLateralEsquerda'

'PadraoReciboPersonalizado'

'InvertidoReciboPersonalizado'

'CarnetReciboLateralDireitaPersonalizado'

'CarnetReciboLateralEsquerdaPersonalizado'

'ReciboLateralEsquerda'

'PadraoEnderecadoVerso'

'InvertidoEnderecadoVerso'

'PadraoEnderecadoVersoReciboPersonalizado'

'InvertidoEnderecadoVersoReciboPersonalizado'

'PadraoVersoPersonalizado'

'InvertidoVersoPersonalizado'

'PadraoVersoPersonalizadoReciboPersonalizado'

'InvertidoVersoPersonalizadoReciboPersonalizado'

'CarnetReciboTopo'

'CarnetReciboTopoPersonalizado'

'ReciboLateralEsquerdaPersonalizado'

oComponente:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto =

id=code>id=code>

imagino q seja algum destes tipos de 'Carnet', passe o modelo desejado para a propriedade do componente Cobrebem

abraço

Yury Marcelino Al

Viman Sistemas

vimansca@vimansca.com.br

yury030575@yahoo.com.br (msn)

skype: yury.marcelino.al

Leme / SP

FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say

[jaguiar]

Olá Yury.

Falei com o pessoal da Cobrebem que me enviaou um código html com o layout do boleto Bradesco que necessito. Porém, torna-se necessário utilizar a opção PadraoReciboPersonalizado e criar as tags html.

Aí é que o bicho pega, pois nunca fiz nada parecido!.

Se alguém tiver um exemplo de como fazer isso, vou ficar eternamente grato.

João Freire de Aguiar

[EDUTEK]

mais ou menos assim

if mcbx_layout = "PadraoReciboPersonalizado"

mcct = grava_html()

CobreBemX:PadroesBoleto:PadroesBoletoImpresso:HTMLReciboPersonalizado := mCCt

endif

function grava_html()

mcr := chr(13)+chr(10)

mhtml := ""

mhtml2 := ""

mhtml3 := ""

mHTML = mHTML +'

Â	Comprovante de Entrega

' + mcr

mHTML = mHTML +'

Cedente <#NomeCedente> '+ mcr mHTML = mHTML +'			Agência/Código Cedente <#AgenciaCodigoCedente> '+ mcr mHTML = mHTML +'	Vencimento <#Vencimento> '+ mcr mHTML = mHTML +'
Sacado <#NomeSacado> '+ mcr mHTML = mHTML +'			Número do Documento <#NumeroDocumento> '+ mcr mHTML = mHTML +'	Nosso Número <#NossoNumeroExibicao> '+ mcr mHTML = mHTML +'
Espécie <#Moeda> '+ mcr mHTML = mHTML +'	Quantidade <#Quantidade> '+ mcr mHTML = mHTML +'	(x) Valor   '+ mcr mHTML = mHTML +'	(=) Valor do Documento <#ValorDocumentoExibicao> '+ mcr mHTML = mHTML +'	(-) Desconto <#ValorDescontoExibicao> '+ mcr mHTML2 = mHTML2 +'
Demonstrativo:			(+) Outros Acréscimos <#ValorOutrosAcrescimosExibicao> '+ mcr mHTML2 = mHTML2 +'	(=) Valor Cobrado   '+ mcr * mHTML2 = mHTML2 +'
Local, Data e Assinatura : _____________________________, ____ de ______________________de ______. Aceite : _________________________________________

'+ mcr

mHTML2 = mHTML2 +'

Local, Data e Assinatura :<#CidadeSacado>(<#estadoSacado>), ____de ____________________de_____.

Aceite : _____________________________________

'+ mcr

mHTML2 = mHTML2 +'

---------------------------------------------------------------------------------------------------------------------------------------------------------------- Corte Aqui ------------------------------

'+ mcr

mHTML2 = mHTML2 +'

<#LogotipoCedente>

<#IdentificacaoCedente>

Recibo do Sacado

'+ mcr

mHTML2 = mHTML2 +'

Cedente <#NomeCedente> '+ mcr mHTML2 = mHTML2 +'			Agência/Código Cedente <#AgenciaCodigoCedente> '+ mcr mHTML2 = mHTML2 +'	Vencimento <#Vencimento> '+ mcr mHTML2 = mHTML2 +'
Sacado <#NomeSacado> '+ mcr mHTML2 = mHTML2 +'			Número do Documento <#NumeroDocumento> '+ mcr mHTML2 = mHTML2 +'	Nosso Número <#NossoNumeroExibicao> '+ mcr mHTML3 = mHTML3 +'
Espécie <#Moeda> '+ mcr mHTML3 = mHTML3 +'	Quantidade <#Quantidade> '+ mcr mHTML3 = mHTML3 +'	(x) Valor   '+ mcr mHTML3 = mHTML3 +'	(=) Valor do Documento <#ValorDocumentoExibicao> '+ mcr mHTML3 = mHTML3 +'	(-) Desconto <#ValorDescontoExibicao> '+ mcr mHTML3 = mHTML3 +'
Demonstrativo:			(+) Outros Acréscimos <#ValorOutrosAcrescimosExibicao> '+ mcr mHTML3 = mHTML3 +'	(=) Valor Cobrado   '+ mcr mHTML3 = mHTML3 +'
<#Demonstrativo>

'+ mcr

mHTML3 = mHTML3 +'

	Autenticação Mecânica
Â	Â
Â	Â

'+ mcr

mcct = mhtml+mhtml2+mhtml3

return mCCT

id=code>id=code>

Eduardo Mendes

eduardo@conesnet.com.br (MSN)

Fwh 9.04 + GTWVW + xH 1.0.0 + xDev + Fast Report + SQLRDD

Clipper 5.2e + DBFCDX + Exospace

Campo Grande - MS