{
-----------------------------------------------------------------------
 PROGRAMA          : CCPRMT012
 OBJETIVO          : AUTORIZACION ORDENES
 PROGRAMADOR       : JUAN SOTO                   
 FECHA REALIZACION : SEPTIEMBRE 25, 2008
-----------------------------------------------------------------------
}
GLOBALS "ccprgb000.4gl"

MAIN                
#  WHENEVER ERROR CONTINUE
   DEFER INTERRUPT
   SELECT * INTO p_companias.* FROM companias
   CALL pantalla()
   CALL ccprmt012()
END MAIN    

FUNCTION ccprmt012()

   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)
   DEFINE arrautoriza [500] OF RECORD
         num_oc1    INTEGER,
         cliente    CHAR(60),
         fecha_oc   DATE,
         valor      DEC(12,2)
         us_autoriza  CHAR(40),
         estado     CHAR(2),
         fecha_autorizacion DATE
   END RECORD

   OPTIONS
        FORM LINE 10,
         ERROR LINE 24

    OPEN FORM ccfmmt012 FROM "ccfmmt012"
    DISPLAY FORM ccfmmt012

    CONSTRUCT BY NAME criterio ON a.num_oc

     IF int_flat THEN
        LET numero_msg = 2
        CALL msg(numero_msg)
        RETURN
     END IF

     LET selec = "SELECT a.num_oc,a.tipo_cliente||'-'||a.sec_cliente||' '||b.nombre,a.fecha_oc,a.valor,a.us_autoriza,",
                 "a.estado,a.fecha_autorizacion ",
                 " FROM prtb00025 a,vetb00004 b ",
                 "WHERE ",criterio clipped,
                 " AND a.tipo_cliente = b.tipo_cliente and a.sec_cliente = b.sec_cliente ",
                 " ORDER BY a.fecha_oc DESC"
             
     PREPARE comando FROM selec
     DECLARE busca_orden CURSOR FOR comando
     LET idx = 1
     FOREACH busca_orden INTO arrautoriza[idx].*
       LET idx = idx +1
     END FOREACH

     CALL set_count(idx-1)
     INPUT ARRAY arrautoriza WITHOUT DEFAULTS FROM sorden.*
      LET pdescripcion = "LA ",arrautoriza[idx].num_oc," SE AUTORIZO EL DESPACHO EN FECHA ",arrautoriza[idx].
     INSERT INTO prtb00026 (num_oc,fecha,dscripcion)
END FUNCTION


FUNCTION pantalla() 
    DEFINE fecha CHAR(8),
           hora char(5) 
    LET fecha = today USING "dd/mm/yy"  
    LET hora = time

    LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
    DISPLAY p_companias.nombre CLIPPED AT 4,lj ATTRIBUTE (REVERSE,blue)
    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
    DISPLAY "Sistema de Cuentas por Cobrar" AT 5,25
    DISPLAY hora AT 6,73 ATTRIBUTE(blue)

    CALL fgl_drawbox(5,79,3,1)
    #CALL fgl_drawbox(1,79,22,1)
END FUNCTION