45 lines
1.6 KiB
Plaintext
45 lines
1.6 KiB
Plaintext
{
|
|
----------------------------------------------------------------------------
|
|
PROGRAMA : VEINFORMACION
|
|
OBJETIVO : Funcion informacion() de la factura (veprmt001): trae el
|
|
transportista del conduce y la direccion/ciudad de la
|
|
cotizacion a fact_gral.
|
|
Copiada de vefumt001_1.4gl (no se puede enlazar ese archivo
|
|
completo porque repite funciones de FUNCIONES_VE/vefumt001).
|
|
----------------------------------------------------------------------------
|
|
}
|
|
GLOBALS
|
|
"veprgb000.4gl"
|
|
|
|
FUNCTION informacion(pconduce,pventas,pbodega,xcotizacion)
|
|
DEFINE pconduce INT,
|
|
pventas SMALLINT,
|
|
pbodega SMALLINT,
|
|
codigo_provincia INT,
|
|
xcotizacion INT
|
|
# TRANSPORTISTA
|
|
|
|
SELECT DISTINCT a.cod_transp,a.sec_transp,a.cod_tarifa,b.nombre,a.placa
|
|
INTO fact_gral.cod_transp,fact_gral.sec_transp,fact_gral.cod_tarifa,fact_gral.nombre_tran,
|
|
fact_gral.placa_transp
|
|
FROM iptb00006 a,vetb00015 b,vetb00060 c,prtb00012 d
|
|
WHERE (a.num_doc = pconduce) AND
|
|
(a.cod_mov = c.cod_mov) AND
|
|
c.ventas = pventas AND
|
|
(a.cod_transp = b.cod_transp AND
|
|
a.sec_transp = b.sec_transp) AND
|
|
(a.bodega = pbodega) AND
|
|
(a.num_oc = d.num_oc) AND
|
|
d.cotizacion_no = xcotizacion
|
|
|
|
|
|
SELECT a.direccion_cliente,a.cod_provincia INTO fact_gral.direccion,codigo_provincia
|
|
FROM vetb00050 a
|
|
WHERE a.cotizacion_no = xcotizacion
|
|
|
|
SELECT d.nombre_provincia INTO fact_gral.ciudad
|
|
FROM vetb00020 d
|
|
WHERE d.cod_provincia = codigo_provincia
|
|
|
|
END FUNCTION
|