{
------------------------------------------------------------------
 PROGRAMA          : VEPRMT104
 OBJETIVO          : Capturar, Modificar, Eliminar registros de la
                     Proyectos de Clientes 
 PROGRAMADOR       : Victor Gomez C. 
 FECHA REALIZACION : Wednesday, October 03, 2001 
------------------------------------------------------------------
}
GLOBALS "veprgb000.4gl"   

FUNCTION veprmt106(xtipo_cliente,xsec_cliente) 
 DEFINE xtipo_cliente,xsec_cliente SMALLINT,
        xnombre CHAR(30)
 SET CONNECTION "MSSQL"
 OPEN WINDOW proyecto AT 2,2  WITH FORM "vefmmt106" ATTRIBUTE (BORDER,
  FORM LINE FIRST +1,COMMENT LINE LAST)

     INITIALIZE proyecto.* TO NULL
     
     SELECT * INTO proyecto.* FROM vetb00049
       WHERE @tipo_cliente = xtipo_cliente AND
             @sec_cliente  = xsec_cliente
     
     IF STATUS = NOTFOUND THEN
        LET proyecto.tipo_cliente = xtipo_cliente
        LET proyecto.sec_cliente  = xsec_cliente
     END IF
 
     DISPLAY BY NAME proyecto.*

     LET int_flag = false
     INPUT BY NAME proyecto.nombre_proyecto THRU proyecto.direccion_proyecto WITHOUT DEFAULTS

## Verifica que el codigo no exista en la tabla de datos basicos de clientes.
## Si existe, entonces despliega los datos del registro existente.
     AFTER INPUT 
       IF int_flag THEN
          LET numero_msg = 2 
          CALL msg(numero_msg) 
          LET int_flag = FALSE
          EXIT INPUT
       END IF 

       DELETE FROM vetb00049 WHERE tipo_cliente = xtipo_cliente AND
                                   sec_cliente = xsec_cliente

       INSERT INTO vetb00049 VALUES (proyecto.tipo_cliente,proyecto.sec_cliente,
                                   proyecto.nombre_proyecto,proyecto.direccion_proyecto, 
                                   null,suser_sname(),getdate(), null, null) 

     EXIT INPUT
   END INPUT
   CLOSE WINDOW proyecto
END FUNCTION