Files
MBS/PROYECTO/nodir/encab
T

30 lines
1.2 KiB
Plaintext

LET l = (171 - LENGTH(varia))/2
LET l = (120 - LENGTH(p_companias.nombre CLIPPED))/2
## AQUI SE INDICA LA IMPRESION DE LOS ENCABEZADOS
PRINT COLUMN 1, doce,comp_on,
COLUMN 2, "Nomina No.:",
COLUMN 15, no_nomina,
COLUMN 31, doble_on,
COLUMN l, p_companias.nombre CLIPPED,doble_off clipped,
COLUMN 104," Pag. ",pageno using "###"
LET l = (132 - LENGTH("Nomina Empleados "))/2
PRINT COLUMN 2, "noprrp001",
COLUMN l, "Nomina Empleados ",
COLUMN L, varia ,
COLUMN 145, today using "dd/mm/yy"
LET l = (132 - LENGTH("Nomina Regular del "))/2
PRINT COLUMN l, "Nomina Regular del ",
COLUMN 62, DAY(fecha1) using "&&",
COLUMN 66, " de ",
COLUMN 70, nombre clipped,
COLUMN 83, " Al ",
COLUMN 87, DAY(fecha2) using "&&"," ",
COLUMN 91, nombre2 clipped,
COLUMN 103, " de ",
COLUMN 107, YEAR(fecha2) using "####",
COLUMN 145, time
SKIP 1 LINE