AVInfo Sistemas Posted October 15, 2007 Report Share Posted October 15, 2007 Boa tarde, alguém poderia me mandar por e_mail o logo do Bradesco ? sdinformatica@click21.com.br Quote Link to comment Share on other sites More sharing options...
AVInfo Sistemas Posted October 15, 2007 Author Report Share Posted October 15, 2007 Boa tarde, alguém poderia me mandar por e_mail o logo do Bradesco ? sdinformatica@click21.com.br Quote Link to comment Share on other sites More sharing options...
helio1361303486 Posted October 15, 2007 Report Share Posted October 15, 2007 Enviei para seu endereço. Hélio xHarbour 0.99.71/WS/PELLESC Quote Link to comment Share on other sites More sharing options...
AVInfo Sistemas Posted October 15, 2007 Author Report Share Posted October 15, 2007 Obrigado Hélio eu recebi o arquivo. Estou usando o programa que o Valdecir colocou nas Dicas dá tudo certo só não imprime o Logo. O que estou fazendo de errado ? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 15, 2007 Report Share Posted October 15, 2007 citação:Obrigado Hélio eu recebi o arquivo. Estou usando o programa que o Valdecir colocou nas Dicas dá tudo certo só não imprime o Logo. O que estou fazendo de errado ? id=quote>id=quote>Mostre o que voce está fazendo, que fica mais fácil de se responder. LA PREGUNTA??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Skype: fw_kapiaba FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
AVInfo Sistemas Posted October 17, 2007 Author Report Share Posted October 17, 2007 //// // // Segundo Bloco // ///// virfont2(oprn, "times new roman", @ofont2, 2, 5) _saytxt(-28, 42, "237-2", 2) _saytxt(-28, 57, "LUCHEFARMA DIST. MEDICAMENTOS LTDA CNPJ : 05.292.723/0001-25", 1) _saytxt(-28, 140, "Recibo do Sacado", 2) _saytxt(-21, 121, str(valor, 10, 2), 2) vircfgfont(oprn, "times new roman", @ofont, @ofontn, "N") _saytxt(-27, 22, "BRADESCO") _saytxt(-22, 01, "Vencimento") _saytxt(-19, 01, dtoc(datavenc)) _saytxt(-22, 26, "Agência / Cód Cedente") _saytxt(-19, 26, "1497-4/0027940-4") _saytxt(-22, 51, "Cart. / Nosso Número") _saytxt(-19, 51, nosso_n) _saytxt(-22, 76, "Titulo") _saytxt(-19, 76, 'titulo') _saytxt(-22, 101, "Valor") _saytxt(-16, 01, "(-) Desconto / Abatimento") _saytxt(-16, 26, "(-) Outras Deduções") _saytxt(-16, 51, "(+) Mora / Multa") _saytxt(-16, 76, "(+) Outros Acréscimos") _saytxt(-16, 101, "(=) Valor Cobrado") _saytxt(-10, 01, "Sacado") _saytxt(-10, 140, "Autenticação Mecânica", 3) _saytxt(-7, 01, clCli, 2 ) // MUDEI AQUI // @ kra + xa[1] + (y * 85), x * 7 int25 "(" + cod_barra + ")" of oprn cod_barra=_int25(cod_barra) go_code(cod_barra,kra + xa[1] + (y * 85), x * 9, oprn) oprn:saybitmap(kra + xa[1] + y - 5, x * 6, 'c:\checknovo\237.bmp', y * 20, x * 5) oprn:saybitmap(kra + xa[1] + y - 670, x * 6, 'c:\checknovo\237.bmp', y * 20, x * 5) oprn:endpage() SELECT 28 Receb29i->(DBSETORDER(1)); Receb29i->(DBGOTOP()) Receb29i->(DBSEEK( STRZERO(VAL(LEFT(ALLTRIM(nota),5)),10) )) WHILE ! Receb29i->( RLOCK() ) ; END REPLACE Receb29i->NumBol29 WITH strzero(VAL(SUBS(ALLTRIM(nosso_n),8,6)),5),; Receb29i->NumDig29 WITH strzero(VAL(RIGHT(ALLTRIM(nosso_n),1)),2) DbUnlock() return(Nil) Quote Link to comment Share on other sites More sharing options...
gvc Posted October 17, 2007 Report Share Posted October 17, 2007 oprn:saybitmap(kra + xa[1] + y - 5, x * 6, 'c:\checknovo\237.bmp', y * 20, x * 5) oprn:saybitmap(kra + xa[1] + y - 670, x * 6, 'c:\checknovo\237.bmp', y * 20, x * 5) Vc verificou se o bitmap existe e se estão nessa pasta? (c:\checknovo\237.bmp) Quote Link to comment Share on other sites More sharing options...
AVInfo Sistemas Posted October 20, 2007 Author Report Share Posted October 20, 2007 sim estão nessa pasta Quote Link to comment Share on other sites More sharing options...
gvc Posted October 22, 2007 Report Share Posted October 22, 2007 Aparece alguma coisa no lugar do logo? Vc testou outra imagem bmp? Vc já tentou "acertar" esses valores? [local da impressão] kra + xa[1] + y - 5, x * 6 [Tamanho da impressão] y * 20, x * 5 Quote Link to comment Share on other sites More sharing options...
AVInfo Sistemas Posted October 22, 2007 Author Report Share Posted October 22, 2007 Obrigado pela dica gvc Resolvido um abraço Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.