- Code: Select all Expand view
- DEFINE BUTTON OF oBar ACTION Modificar( oBrw:aRow, oBrw )
DEFINE BUTTON OF oBar ACTION Modificar( oBrw:aRow, oBrw )
:bClrStd := { || { CLR_BLACK, Colores(oBrw:aRow[4]) } }
oPrn:Line( nTop, nLeft, nBottom, nRight, oPen )
oPrn:Line(10,1,10,40)
FONT 12, "Courier New", 0, 1, 1
por:
FONT 12, "Courier New"
PrnSetSize(2125, 3250) //(8.50x2.5)x100 = 2125 mm (13*2.5)*100=3250 mm
nrow += .4
IF nrow > 25.5
oprn:endpage()
oprn:Startpage()
titulo(oprn, oPen1, oFont)
nrow := 3.1
endif
next
ENDPAGE
ENDPRINT
oV4C4_1 := NIL
Release oV4C4_1
ACTION Eval( ::aMenu1[ nMenu,3 ] )