16 lines
897 B
Plaintext
16 lines
897 B
Plaintext
FUNCTION reservas_cotizacion(pcotizacion,parea,pcodn,pcodgrupo,pcodtipo,pcodsec,pcantidad,fecha_ini,fecha_fin)
|
|
DEFINE pcotizacion,parea,pcodn,pcodgrupo,pcodtipo,pcodsec INT,
|
|
pcantidad DEC(12,5),
|
|
fecha_ini,fecha_fin DATE
|
|
|
|
# ACTUALIZA LA TABLA CONTROL RESERVAS COTIZACIONES
|
|
IF pcantidad IS NOT NULL THEN
|
|
INSERT INTO vetb00051(cotizacion_no,area,cod_n,cod_Grupo,cod_tipo,cod_sec,descrip_ing,cantidad,
|
|
fecha_inicio,fecha_final,autorizada)
|
|
VALUES (pcotizacion,parea,pcod_n,pcod_grupo,pcod_tipo,pcod_sec, pnombre_p,
|
|
pcantidad,fecha_ini,fecha_fin,'NO')
|
|
END IF
|
|
#-----------------------------------------------------------------------------------------------------
|
|
|
|
|
|
END FUNCTION |