Voy a hacer pruebas con cambiar el tipo de letra, uso couriew new porque es fija, asi no tengo que calcular posiciones.
Hago las pruebas y comento.
Code: Select all | Expand
**************************************************************
** Impresion del orden de pagos
PROCEDURE oPago(nNumero)
LOCAL oRep, nRow, nCol, oFont1, oFont2, i, oQryPag, oQryPagCon, oQryPagFac,oQryPro
oQryPag := oApp:oServer:Query( "SELECT * FROM ordpag WHERE numero = " + ClipValue2SQL(nNumero))
oQryPagFac := oApp:oServer:Query( "SELECT * FROM ordfac WHERE numero = " + ClipValue2SQL(nNumero))
oQryPagCon := oApp:oServer:Query( "SELECT * FROM ordcon WHERE numero = " + ClipValue2SQL(nNumero))
oQryPro := oApp:oServer:Query( "SELECT * FROM provee WHERE codigo = " + ClipValue2SQL(oQryPag:proveedor))
IF oQryPag:nRecCount = 0
MsgStop("Orden de pago no existe!!","Error")
RETURN
ENDIF
DEFINE FONT oFont1 NAME "COURIER NEW" SIZE -nRow*0.85,nCol*2.5 BOLD
DEFINE FONT oFont2 NAME "COURIER NEW" SIZE -nRow*0.85,nCol*2.5
PRINT oRep NAME "Orden Pago" PREVIEW MODAL
nRow = oRep:nVertRes() / 80
nCol = oRep:nHorzRes() / 120
PAGE
oRep:SayImage(0,0,"OPAGO.JPG",oRep:nHorzRes(),oRep:nVertRes(), nil, .t.)
oRep:Say(nRow*06,nCol*65,"Fecha de pago:"+ DTOC(oQryPag:fecha),oFont1)
oRep:Say(nRow*08,nCol*65," Nro:"+STRTRAN(STR(oQryPag:numero,10)," ","0"),oFont1)
oRep:Say(nRow*12,nCol*3,"Proveedor:("+STR(oQryPro:codigo,08)+")"+LEFT(oQryPro:nombre,40), oFont1)
oRep:Say(nRow*13,nCol*3,"C.U.I.T. :"+oQryPro:cuit,oFont1)
oRep:Say(nRow*14,nCol*3,"Direccion:"+LEFT(oQryPro:direccion,30), oFont1)
oRep:Say(nRow*15,nCol*3,"Localidad:"+oQryPro:localidad,oFont1)
i := 3
oRep:Say(nRow*(17+i),nCol*03,"Comprobante Nro Importe",oFont1)
DO WHILE !oQryPagFac:Eof()
oRep:Say(nRow*(18+i),nCol*03,oQryPagFac:numfac+" "+STR(oQryPagFac:importe,14,2),oFont2)
oQryPagFac:SKIP()
i++
ENDDO
oRep:Say(nRow*(18+i),nCol*40,"Neto pagado:"+STR(oQryPag:total,16,2),oFont2)
i := 22 + i
oRep:Say(nRow*(i),nCol*03,"====================== Forma de pago =======================",oFont1)
i ++
DO WHILE !oQryPagCon:Eof()
oRep:Say(nRow*(i),nCol*03,LEFT(oQryPagCon:observa,35)+" "+STR(oQryPagCon:importe,12,2),oFont2)
oQryPagCon:SKIP()
i++
ENDDO
i := i + 3
oRep:Say(nRow*(i+2),nCol*03,"_________________________",oFont2)
oRep:Say(nRow*(i+3),nCol*03,"Por " + oQryPro:nombre,oFont2)
ENDPAGE
ENDPRINT
RETURN
