usar box en impresión

[surGom]

Quisiera saber si me pueden ayudar con esto Tengo que Poner dentro de un recuadro ,"Retención de Ingresos Brutos", el código es el de abajo.

Code: Select all  Expand view

PRINT oPrn title cTitulo
oPrn:setup()
oPrn:SetPage(9)
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,14 BOLD UNDERLINE of oPrn
DEFINE FONT oFont NAME "ARIAL" SIZE 0,12 BOLD of oPrn
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,12 BOLD UNDERLINE of oPrn

//PAGEBEGIN()

PAGE
do

oPrn:CmSay(nrow :=sumlinea(nrow,1.6),5.9,"Retención de Ingresos Brutos",oFont2,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),6.3,cTitulo,oFont2,,,,0)
oPrn:CmSay(nrow := sumlinea(nrow, 1.2),1.5,"Fecha: " + dtoc(oVar:dfecha),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Constancia N° " + valstr(oVar:nNbruto),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.8),1.5,"QUÍMICA MEGA S.A.",oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Matanza 1453",oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Villa Domínico-Pcia. Buenos Aires",oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"CUIT 30-65485547-8",oFont,,,,0)
oPrn:CmSay(nrow,12,"Agente de Retención: " + oApp:nroBruto,oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,1.2),1.5,("Rentenido a: " + aMae[2]),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,("CUIT " + aMae[7]),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,("Domicilio: " + alltrim(aMae[3]) + space(2) + alltrim(aMae[4])),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,aMae[5],oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Número de IIBB: " + aMae[17],oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Pago efectuado: $" + transform(oVar:ntotalrecibo,"@e 99,999,999.99"),oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),1.5,"Importe retenido: $" + transform(oVar:nRetib,"@e 99,999,999.99"),oFont,,,,0)
oPrn:CmSay(nrow ,12,"Alícuota aplicada: %" +transform(oVar:nPorIB, "@e 99.99"),oFont,,,,0)
for x = 1 to len(oVar:adeta)
      if oVar:adeta[x,5] >= oApp:minibru
          oPrn:Cmsay(nrow := sumlinea(nrow,.4),1.5, ("Afecta a comprobante Nº " + oVar:adeta[x,2] + " Base Imp. " +;
                         transform(oVar:adeta[x,5],"@e 999,999.99")),oFont,,,,0)
      endif
next
oPrn:CmSay(nrow :=sumlinea(nrow,1.2),1.5,"Importe que será depositado por declaración jurada correspondiente al mes de",oFont,,,,0)
oPrn:CmSay(nrow :=sumlinea(nrow,.4),5.5, cmonth(oVar:dfecha) + " de " + valstr(year(oVar:dFecha)),oFont,,,,0)

z++
nrow += 1.2

until z = 2

//PAGEEND()

ENDPAGE

ENDPRINT


oFont:end()
oFont1:end()
oFont2:end()

cierroalias(alias())

Muchas gracias por su atención

Luis

[cmsoft]

Code: Select all  Expand view

oPrn:CmBox( 1.5,.5,2.5,20.5 )
oPrn:CmSay(nrow :=sumlinea(nrow,1.6),5.9,"Retención de Ingresos Brutos",oFont2,,,,0)
 

[surGom]

Gracias Cmsoft, pero lo que hace es la caja a lo ancho de la página y me tapa el título como podrás ver en la imagen que envío, la idea era que me hiciera el recuadro solo del título

https://www.ilovepdf.com/es/descargar/4534dab6a3593947b51aecb1a3eda014_f1f4ad08794fdf6e12a506885a308d5c

Es posible hacer ese efecto?

[cmsoft]

Hola Luis, hay que ajustar los parametros de los cm de las coordenadas...
Eso es prueba y error
El metodo CmBox( nRow, nCol, nBottom, nRight, oPen ), donde los parametros son
nRow: Fila inicial
nCol: Columna inicial
nBottom: Fila final
nRight: Columna final
oPen: Ancho de la la linea (con un objeto pen definido)
Espero te sirva

[surGom]

Ok gracias Cmsoft, probaremos entonces.

Gracias nuevamente