{
------------------------------------------------------------------------------
PROGRAMAS   : COPRMT022
OBJETIVO    : DAR MANTENIMIENTO A LA TABLA COTB00028 DIAS QUE PERMANECE UNA
              MATERIA PRIMA EN ADUANAS.
PROGRAMADR  : JUAN F. SOTO
FECHA       : OCTUBRE 20, 1995
------------------------------------------------------------------------------
}
DATABASE marmotech

MAIN
DEFINE aduana RECORD LIKE cotb00028.*,
       p_companias RECORD LIKE companias.*,
       l,numero_msg INTEGER,
       formulario CHAR(80)

DEFER INTERRUPT
OPTIONS 
    FORM LINE 9,
    ERROR LINE 24,
    COMMENT LINE 23
    SELECT * INTO p_companias.* FROM companias

OPEN FORM cofmmt022 FROM "cofmmt022"
DISPLAY FORM cofmmt022

CALL pantalla()
DISPLAY "coprmt022" AT 4,3
DISPLAY "Mantenimiento Dias Permanece Una Materia Prima En Aduana" AT 6,20
   
SELECT *INTO aduana.* FROM cotb00028

INPUT BY NAME aduana.* WITHOUT DEFAULTS

IF int_flag THEN
   LET numero_msg = 2
   CALL msg(numero_msg)
   LET int_flag = false
ELSE  
   UPDATE cotb00028 set dia = aduana.dia
   LET numero_msg = 13
   CALL msg(numero_msg)
END IF

END MAIN    

FUNCTION pantalla() 
    DEFINE fecha CHAR(8),
           hora char(5) 
    LET fecha = today USING "dd/mm/yy"  
    LET hora = time
    LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
    DISPLAY p_companias.nombre CLIPPED AT 4,l ATTRIBUTE (REVERSE,YELLOW)
    DISPLAY fecha AT 4,70 ATTRIBUTE (YELLOW)
    DISPLAY "Sistema de Compras" AT 5,31
    DISPLAY hora AT 6,73 ATTRIBUTE(YELLOW)

    CALL fgl_drawbox(5,79,3,1)
    CALL fgl_drawbox(1,79,22,1)
END FUNCTION
{
  Esta funcion se utiliza para desplegar mensajes de errores en todos 
  los sistemas de Ray-O-Vac Dominicana. 
  Esta funcion busca el mensaje deseado en la tabla "msgtable" y lo
  despliega en la linea de mensajes
}

FUNCTION msg(numero_msg)
         DEFINE numero_msg SMALLINT
         DEFINE descripcion CHAR (60)
         SELECT desc_msg INTO descripcion FROM msgtable 
                WHERE cod_msg = numero_msg

         IF status = NOTFOUND THEN 
            LET numero_msg = 22
            SELECT desc_msg INTO descripcion FROM msgtable 
                   WHERE cod_msg = numero_msg
            ERROR descripcion ATTRIBUTE(BOLD) 
         ELSE 
            ERROR descripcion ATTRIBUTE(BOLD) 
            LET numero_msg = 0
         END IF
END FUNCTION