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