           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
