{
------------------------------------------------------------------
 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