database rayovac    end 

define variable negras_on char(2)
       variable negras_of char(2)
       variable doce      char(2)
       variable numero_nom INTEGER
       variable tipo CHAR(1)
       variable nom_tipo char(15)
       variable codigo SMALLINT
       variable p_valor decimal(12,2)
end 
input   
  prompt for tipo using "Entre Tipo Empleados: "
  prompt for numero_nom using "Entre no. de la nomina: "
  prompt for codigo using "Entre Codigo Movimiento: "
end
output report to pipe "lp -dlpt1" end
select
	a.tipo_emp,
	a.num_emp,
        c.nom1_emp,
        c.apell1_emp,
	a.cod_mov,
        b.descrip_mov,
        b.cantidad_cia,
	a.cantidad,
	a.valor
from notb00007 a,notb00002 b, adtb00003 c
where a.num_nomi = $numero_nom and
      a.tipo_emp = $tipo and
      a.cod_mov = b.cod_mov and
      a.status_t is null and
      a.num_emp = c.num_emp and
      a.cod_mov = $codigo

order by 5,2 end
format 
page header
     let negras_on = ascii 27, ascii 69
     let negras_on = ascii 27, ascii 70
     let doce = ascii 27, ascii 77
     print negras_on
     print column 1, "noprrp017",
           column 16, "R A Y .O. V A C   D O M I N I C A N A, S. A.",
           column 69, today using "dd/mm/yy"
     print column 32, "Sistema de nomina",
           column 69, time
  
begin
     IF tipo_emp = "Q" THEN
        LET nom_tipo = "QUINCENAL"
      ELSE
        LET nom_tipo = "SEMANAL"
end 
     print column 32, nom_tipo
     print negras_of,doce

    print column 1,
"============================================================================",
"=============" 
     print column 1, "Movimientos",
           column 30, "Empleados",  
           column 70,  "Cantidad",
           column 84,  "Valor"
    print column 1,
"============================================================================",
"=============" 

before group of 5
      skip 1 line  
     print column 1, cod_mov using "&&"," ",descrip_mov
on every row 
     begin 
     let p_valor = valor
     if cantidad_cia > 0 then
        let p_valor = cantidad_cia * cantidad
     end 
     print column 30, num_emp using "&&&"," ",nom1_emp clipped," ",
                      apell1_emp,
           column 70, cantidad using "###.##",
           column 80, p_valor using "##,###.##"
end