32 lines
924 B
Plaintext
32 lines
924 B
Plaintext
{
|
|
------------------------------------------------------------------
|
|
PROGRAMA : VEPRMT103
|
|
OBJETIVO : Capturar, Modificar, Eliminar registros de la
|
|
Tabla de datos Socio - Economicos de Clientes
|
|
PROGRAMADOR : Lic. Abner Montalvo Z.
|
|
FECHA REALIZACION : Enero 7, 1993.
|
|
------------------------------------------------------------------
|
|
}
|
|
GLOBALS "veprgb000.4gl"
|
|
|
|
FUNCTION busca_condicion()
|
|
SELECT descrip, status_t INTO descrip1, status_reg FROM vetb00012
|
|
WHERE cond_pago = cliente_eco.condicion_venta_s
|
|
|
|
IF status != NOTFOUND THEN
|
|
IF status_reg = "E" THEN
|
|
LET numero_msg = 90
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
DISPLAY descrip1 TO descrip1
|
|
ELSE
|
|
LET descrip1 = NULL
|
|
DISPLAY descrip1 TO descrip1
|
|
LET numero_msg = 91
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
END FUNCTION
|
|
|