SCHEMA smarmotech
DEFINE doce,comp_on,normal,doble,doble_of,negras,negras_off,comp_of CHAR(2),
       imprime,archivo,copia STRING,
       psec_vend INT,
       exito BOOLEAN,
       pexistencia DEC(12,5)

FUNCTION veconduce(factura_general,fact_det,usuario,clave,impresor,localidad,xtelefono,xcodmov,xdetalle)

DEFINE origen_x RECORD
    num_doc       LIKE iptb00006.num_doc,
    cod_cia       LIKE iptb00006.cod_cia,
    cod_mov       LIKE iptb00006.cod_mov,
    fact_no       LIKE iptb00006.fact_no,
    cod_transp    LIKE iptb00006.cod_transp,
    sec_transp    LIKE iptb00006.sec_transp,
    cod_tarifa    LIKE iptb00006.cod_tarifa,
    placa         LIKE iptb00006.placa,
    fecha         LIKE iptb00006.fecha,
    conduce_no    LIKE iptb00006.conduce_no,
    descrip_mov   CHAR(80), 
    bodega        LIKE iptb00006.bodega,
    bodega_destino SMALLINT,
    detalle       VARCHAR(100),
    cod_sp        LIKE iptb00006.cod_sp,
    cod_sp_sec    LIKE iptb00006.cod_sp_sec,
    departamento  SMALLINT,
    nombre_depto    CHAR(30),
    cod_mov1      SMALLINT,
    entrada       INT,
    descrip_mov1  CHAR(40),
    descrip4      CHAR(30),
    factura       INT,
    direccion     VARCHAR(100)
 END RECORD,
     xtelefono VARCHAR(50)

DEFINE origen_z RECORD
    area         SMALLINT,
    cod_n        LIKE intb00003.cod_n,
    cod_grupo    LIKE intb00003.cod_grupo,
    cod_tipo     LIKE intb00003.cod_tipo,
    cod_sec      LIKE intb00003.cod_sec,
    cantidad_1   LIKE iptb00006.cantidad_1,
    cantidad_2   LIKE iptb00006.cantidad_2,
    cantidad_p   DEC(12,5),
    unidad_med   LIKE iptb00002.unidad_med,      
    descrip_esp  CHAR(80),
    existencia   DEC(12,5),
    disponible   DEC(12,5),
    codigo_bloque CHAR(15),
    id_kit        INT
 END RECORD
  DEFINE factura_general RECORD
     cod_cia        LIKE vetb00002.cod_cia,
    ventas         LIKE vetb00002.ventas,
    zona           CHAR(3),
    factura        LIKE vetb00002.factura,
    bodega         SMALLINT,
    conduce        LIKE vetb00002.conduce,
    fecha_conduce  DATE,
    fecha_factura  DATE,
    tipo_cliente   LIKE vetb00002.tipo_cliente,
    sec_cliente    LIKE vetb00002.sec_cliente,
    nombre         CHAR(30),
    direccion      CHAR(80),
    ciudad         CHAR(20),
    prima_us       LIKE vetb00002.prima_us,
    porc_desc      LIKE vetb00002.porc_desc,
    cond_pago      LIKE vetb00002.cond_pago,
    orden          INT,
    fecha_orden    DATE,
    porc_itbi      LIKE vetb00002.porc_itbi,
    sec_vend       LIKE vetb00002.sec_vend,
    nombre_vend    CHAR(60),     
    cod_transp     LIKE iptb00006.cod_transp,
    sec_transp     LIKE iptb00006.sec_transp,
    cod_tarifa     LIKE iptb00006.cod_tarifa,
    nombre_tran    CHAR(30),      
    fecha_embarque DATE,
    placa_transp   LIKE iptb00006.placa,
    sub_total      DECIMAL(12,2),
    desc_valor     DECIMAL(12,2),
    itbi           DECIMAL(12,2),
    total_fact     DECIMAL(12,2) 
 END RECORD,
   usuario,clave VARCHAR(50),
   xdetalle CHAR(180),
   impresor,i,localidad SMALLINT,
   xcodmov INT

 
  DEFINE fact_det DYNAMIC ARRAY OF RECORD
    area      SMALLINT,
    cod_n         INT,
    cod_grupo     INT,
    cod_tipo      INT,
    cod_sec       INT,
    descrip_esp   CHAR(50),
    unidad_med    CHAR(5),
    cantidad      DEC(12,5),
    precio        LIKE vetb00003.precio,
    cantidad_2    LIKE vetb00003.cantidad_2, 
    monto_fact    DECIMAL(18,2),
    cantidad_orden DEC(18,5),
    pendiente      DEC(18,5),
    facturada      DEC(18,5), 
    kit_id        INT
  END RECORD
 
 # BUSCA LA SECUENCIA DEL DOCUMENTO
       SELECT a.num_doc INTO origen_x.num_doc FROM iptb00007 a 
       WHERE a.cod_mov = xcodmov AND a.bodega = factura_general.bodega
       IF STATUS = NOTFOUND THEN
          LET origen_x.num_doc = 0
          INSERT INTO iptb00007(num_doc,cod_mov,bodega,us_crea,fech_crea)
                 VALUES (origen_x.num_doc,xcodmov,factura_general.bodega,usuario,getdate())
                
       END IF
       LET origen_x.num_doc = origen_x.num_doc + 1

       UPDATE iptb00007 SET num_doc = origen_x.num_doc,us_mod = usuario,fech_mod = getdate()
       WHERE cod_mov = xcodmov AND bodega = factura_general.bodega


 #BUSCA DESCRIPCION MOVIMIENTO CONDUCE VENTAS OUTLET

 SELECT a.descrip_mov INTO origen_x.descrip_mov FROM iptb00005 a WHERE a.cod_mov = xcodmov
 
        CALL defecto(usuario,clave,impresor) RETURNING imprime,negras,negras_off,
                                                       doble,doble_of,comp_on,comp_of,
                                                       doce,normal,archivo,copia

        START REPORT formu4 TO archivo
       
           LET origen_x.bodega     = factura_general.bodega
           LET origen_x.cod_cia    = factura_general.cod_cia
           LET origen_x.cod_mov    = xcodmov
           LET origen_x.cod_sp     = factura_general.tipo_cliente
           LET origen_x.cod_sp_Sec = factura_general.sec_cliente
           LET origen_x.cod_transp =factura_general.cod_transp
           LET origen_x.sec_transp = factura_general.sec_transp
           LET origen_x.detalle    = xdetalle CLIPPED
           LET origen_x.factura    = factura_general.factura
           LET origen_x.fecha      = factura_general.fecha_factura
           LET psec_vend           = factura_general.sec_vend
           LET origen_x.descrip4   = factura_general.nombre
           LET origen_x.direccion  = factura_general.direccion
           
       # ADICIONA REGISTRO A LA TABLA DE TRANSACCIONES
        
        FOR i = 1 TO fact_det.getLength()
            IF fact_det[i].cod_sec IS NOT NULL THEN
                LET origen_z.area      = fact_det[i].area
                LET origen_z.cod_n     = fact_det[i].cod_n
                LET origen_z.cod_grupo = fact_det[i].cod_grupo
                LET origen_z.cod_tipo  = fact_det[i].cod_tipo
                LET origen_z.cod_sec   = fact_det[i].cod_sec
                LET origen_z.descrip_esp      = fact_det[i].descrip_esp
                LET origen_z.unidad_med      = fact_det[i].unidad_med
                LET origen_z.cantidad_2      = fact_det[i].cantidad
                CALL existencia(origen_z.cod_n,origen_z.cod_grupo,origen_z.cod_tipo,origen_z.cod_sec,origen_z.cantidad_2,
                                origen_x.bodega)
                     RETURNING exito,pexistencia
                LET fact_det[i].cantidad =fact_det[i].cantidad * -1 
                INSERT INTO iptb00006
                  (cod_cia,num_doc,fecha,fact_no,cod_sp,cod_sp_sec,placa,cod_mov,
                   cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,cantidad_2,bodega,us_crea,fech_crea,factura,
                   num_oc)
         
                   VALUES
                         (origen_x.cod_cia,origen_x.factura,origen_x.fecha,
                          origen_x.factura,origen_x.cod_sp,
                          origen_x.cod_sp_sec,
                          factura_general.placa_transp,
                          origen_x.cod_mov,fact_det[i].cod_n, 
                          fact_det[i].cod_grupo,
                          fact_det[i].cod_tipo,fact_det[i].cod_sec,
                          fact_det[i].cantidad,fact_det[i].cantidad,
                          factura_general.bodega,usuario,getdate(),factura_general.factura,factura_general.orden)

#UBICACION

            INSERT INTO dbo.iptb00062
                       (num_doc
                        ,fecha
                       ,cod_n
                       ,cod_grupo
                       ,cod_tipo
                       ,cod_sec
                       ,cod_mov
                       ,bodega
                       ,cod_seccion
                       ,cod_tramo
                       ,cod_fila
                       ,cod_pos
                       ,cantidad
                       ,cantidad2
                       
                       ,us_crea
                       ,fech_crea)
                 VALUES
                       (origen_x.factura
                       ,origen_x.fecha
                       ,fact_det[i].cod_n, 
                        fact_det[i].cod_grupo,
                        fact_det[i].cod_tipo,fact_det[i].cod_sec
                       ,origen_x.cod_mov
                       ,factura_general.bodega
                       ,0
                       ,0
                       ,0
                       ,0
                       ,fact_det[i].cantidad,fact_det[i].cantidad
                       ,usuario,getdate())

         
               OUTPUT TO REPORT formu4(origen_x.*,origen_z.*,xtelefono)
            END IF
        END FOR
        
        FINISH REPORT formu4
        RUN imprime
        
        RETURN TRUE
        
END FUNCTION
REPORT formu4(x,z,ptelefono)

DEFINE x RECORD
    num_doc       LIKE iptb00006.num_doc,
    cod_cia       LIKE iptb00006.cod_cia,
    cod_mov       LIKE iptb00006.cod_mov,
    fact_no       LIKE iptb00006.fact_no,
    cod_transp    LIKE iptb00006.cod_transp,
    sec_transp    LIKE iptb00006.sec_transp,
    cod_tarifa    LIKE iptb00006.cod_tarifa,
    placa         LIKE iptb00006.placa,
    fecha         LIKE iptb00006.fecha,
    conduce_no    LIKE iptb00006.conduce_no,
    descrip_mov   CHAR(80), 
    bodega        LIKE iptb00006.bodega,
    bodega_destino SMALLINT,
    detalle       VARCHAR(100),
    cod_sp        LIKE iptb00006.cod_sp,
    cod_sp_sec    LIKE iptb00006.cod_sp_sec,
    departamento  SMALLINT,
    nombre_depto    CHAR(30),
    cod_mov1      SMALLINT,
    entrada       INT,
    descrip_mov1  CHAR(40),
    descrip4      CHAR(30),
    factura       INT,
    direccion     VARCHAR(100)
 END RECORD
DEFINE z RECORD
    area         SMALLINT,
    cod_n        LIKE intb00003.cod_n,
    cod_grupo    LIKE intb00003.cod_grupo,
    cod_tipo     LIKE intb00003.cod_tipo,
    cod_sec      LIKE intb00003.cod_sec,
    cantidad_1   LIKE iptb00006.cantidad_1,
    cantidad_2   LIKE iptb00006.cantidad_2,
    cantidad_p   DEC(12,5),
    unidad_med   LIKE iptb00002.unidad_med,      
    descrip_esp  CHAR(80),
    existencia   DEC(12,5),
    disponible   DEC(12,5),
    codigo_bloque CHAR(15),
    id_kit        INT
 END RECORD,
   etiqueta,ptelefono,ptelefono1,pcelular,nombre,apellido CHAR(30),
   plado1,plado2,plado3,pcantidad,pmedida DEC(12,5),
   pprovincia SMALLINT,
   nombre_provincia CHAR(30),
   nombre_p CHAR(70),
   total_unidades INT,
   hora CHAR(5),
   pubica CHAR(60),
   porden_cliente varchar(25)
   

 DEFINE usuario_c CHAR(9)
 DEFINE signo CHAR(1)
 
 DEFINE l,cuenta SMALLINT,
        darea varchar(40),
        almacen_origen,descrip2 VARCHAR(60)

OUTPUT
  LEFT MARGIN 0

ORDER BY x.num_doc,z.area,z.cod_sec
FORMAT 

 BEFORE GROUP OF x.num_doc
  LET doble = ASCII 14
  LET doble_of = ASCII 20
  LET negras = ASCII 27, ASCII 69
  LET negras_off = ASCII 27, ASCII 70
  LET comp_on = ASCII 15
  
  SELECT unique us_crea INTO usuario_c 
  FROM iptb00006 WHERE num_doc = x.num_doc AND
      cod_mov = x.cod_mov AND
      us_crea = user

      LET doce = ASCII 27, ASCII 77
      LET normal = ASCII 27, ASCII 80
      LET hora = time
      PRINT doce
      #PRINT COLUMN 1, negras,doble,p_companias.nombre CLIPPED
      IF x.cod_sp <> 19 AND x.cod_sp <> 18 THEN 
         PRINT COLUMN 1,doble, "M A R M O T E C H, S. A.",doble_of
      END IF
      PRINT COLUMN 71,"No. ",doble,x.num_doc using "<<<<<<"
      #LET l = (80 - LENGTH ("OTROS MOVIMIENTOS")) / 2
      PRINT #COLUMN l, "OTROS MOVIMIENTOS",
            COLUMN 71, x.fecha using "dd/mm/yyyy"
      PRINT COLUMN 71, hora 
       
      LET l = (70 - LENGTH (x.descrip_mov)) / 2

      PRINT COLUMN l-2, doble,negras,"(",x.cod_mov using "&&",") ",x.descrip_mov,doble_of
      PRINT negras_off
 #     IF x.cod_mov = 12 THEN
        PRINT COLUMN 1, "Factura Venta: ",x.factura using "&&&&&&"
 #     END IF

      IF x.detalle is null THEN
         LET x.detalle = "**************************************"
      END IF
   { COMENTARIO DE ESTAS DIRECCIONES PORQUE SOLO SE VA A TOMAR LA DIRECCION DEL PROYECTO
    QUE ASU VEZ VIENE EN EL MENSAJE DE LA REQUISICION
    
      SELECT a.calle,a.casa_num,a.urbanizacion,b.telefono,b.telex,c.nom1_emp,c.apell1_emp,b.cod_provincia
      INTO pcalle,pcasa_num,purbanizacion,ptelefono,pcelular,nombre,apellido,pprovincia
      FROM vetb00005 a,vetb00004 b,vetb00028 d,adtb00003 c
      WHERE a.tipo_cliente = x.cod_sp AND
            a.sec_cliente = x.cod_sp_sec AND
            a.tipo_cliente = d.tipo_cliente AND
            a.sec_cliente = d.sec_cliente AND
            a.tipo_cliente = b.tipo_cliente AND
            a.sec_cliente = b.sec_cliente AND
            d.sec_vend = c.num_emp

      SELECT a.nombre_proyecto,a.direccion_proyecto INTO nombre_p,direccion_p
      FROM vetb00050 a
      WHERE a.tipo_cliente = x.cod_sp AND
            a.sec_cliente = x.cod_sp_Sec AND
            a.cotizacion_no = xcotizacion

}
      LET pcelular = NULL
      LET ptelefono = NULL
      LET ptelefono1 = NULL
      LET nombre_p = null
      
      LET nombre = NULL
      SELECT RTRIM(a.nom1_emp)+' '+a.apell1_emp INTO nombre
      FROM adtb00003 a
      WHERE a.num_emp = psec_vend
      
      LET nombre_provincia = NULL
      IF x.cod_mov = 30 OR x.cod_mov = 31 THEN
        SELECT a.nombre_provincia INTO nombre_provincia
        FROM vetb00020 a
        WHERE a.cod_provincia = pprovincia 
      END IF
      IF x.cod_mov = 55 THEN
         SELECT unique a.nom_pais INTO nombre_provincia FROM cotb00018 a
          WHERE a.cod_pais = pprovincia
      END IF
      

      SELECT a.direccion,a.nombre_file INTO pubica,porden_cliente FROM prtb00012 a
      WHERE a.num_oc = x.conduce_no AND CONVERT (CHAR(10),a.fech_crea,103) > "01/01/2007"

     # SELECT a.observacion INTO pobserva FROM prtb00014 a
     # WHERE a.num_oc = x.conduce_no AND a.fech_crea > datetime (2007-01-01 08:00) year to minute
     # BUSCA BODEGAS
      SELECT a.descripcion INTO almacen_origen FROM intb00009 a
      WHERE a.cod_bodega = x.bodega 

    #  SELECT a.descripcion INTO almacen_destino FROM intb00009 a
    #  WHERE a.cod_bodega = x.bodega_destino 

      PRINT COLUMN 1, "ALMACEN         : ","(",x.bodega USING "<<<",")",almacen_origen
     # PRINT COLUMN 1, "ALMACEN DESTINO : ","(",x.bodega_destino USING "<<<",")",  almacen_destino
      PRINT COLUMN 1, "CLIENTE  : ",negras, x.descrip4," (",
                                    x.cod_sp using "&&","-",
                                    x.cod_sp_sec using "&&&&&&",")",negras_off
      PRINT COLUMN 1, "DIRECCION: ",x.direccion WORDWRAP RIGHT MARGIN 70 ,
                       " TELEFONO: ",ptelefono CLIPPED
    #  PRINT COLUMN 1, "Proyecto : ",nombre_p CLIPPED, " DIRECCION: ",direccion_p CLIPPED
      PRINT COLUMN 1, "TELEFONO1: ",ptelefono #CLIPPED," TELEFONO2 :,",ptelefono1, " CELULAR: ",pcelular
      PRINT COLUMN 1, "Vendedor : ",nombre clipped," ",apellido
      PRINT COLUMN 1, "Entrada  : ",x.entrada USING "<<<<<<"," (",x.cod_mov1 USING "<<<",") ",x.descrip_mov1 CLIPPED
     # PRINT COLUMN 1, "Orden    : ",x.conduce_no,
     #       COLUMN 20,"ORDEN CLIENTE: ",porden_cliente," COTIZACION NO: ",xcotizacion USING "&&&&&&" 
            #,"Observacion Orden: ",pobserva CLIPPED
    #  PRINT COLUMN 1, "Requisicion: ",pnum_req USING "<<<<<<"
      #PRINT COLUMN 1, "Ubicacion: ",pubica CLIPPED
  #    PRINT COLUMN 1, "Otros Documentos : ",otros_mov.fact_no

      IF x.departamento IS NOT NULL THEN
         PRINT COLUMN 1, "DEPARTAMENTO: ",x.departamento USING "<<<<"," ",x.nombre_depto
      END IF

                                    
        PRINT comp_on
        PRINT COLUMN 1,
"-----------------------------------------------------------------------------",
"-------------------------------------------------------------------"

        PRINT COLUMN 2,doble, "PRODUCTO(S)",doble_of CLIPPED
        
        PRINT COLUMN 123, "CANTIDAD"

        PRINT COLUMN 108, "CANTIDAD",
              COLUMN 123, "PENDIENTE"

        PRINT COLUMN 94, "UNIDADES",
              COLUMN 108, "A DESPACHAR",
      #        COLUMN 123, "CON ESTA TRANSACCION",
              2 SPACES, "BLOQUE"
   
        PRINT COLUMN 1,
"-----------------------------------------------------------------------------",
"-------------------------------------------------------------------"
     SKIP 1 LINES
     BEFORE GROUP OF z.area

       SELECT a.nombre_Area INTO darea FROM prtb00016 a
       WHERE a.area_num = z.area

       PRINT COLUMN 2, darea CLIPPED
       
       
     ON EVERY ROW
      IF z.cod_n is not null and z.cod_grupo is not null and
         z.cod_tipo is not null and z.cod_sec is not null THEN
         PRINT COLUMN 2, z.cod_n using "&&&&","-",
                z.cod_grupo using "&&&&","-",
                z.cod_tipo using "&&&&&&","-",
                z.cod_sec using "&&&&&&&"," ",
                z.descrip_esp[1,64] ," ";
                

         IF cuenta = 1 THEN
            LET signo = "+"
         ELSE
            LET signo = "-"
            LET z.cantidad_2 = z.cantidad_2 * -1
         END IF
       IF z.cantidad_2 < 0 THEN
          LET z.cantidad_2 = z.cantidad_2 * -1
       END IF
       PRINT COLUMN 69, z.cantidad_1 USING "###,###.#####", 
             COLUMN 84, z.cantidad_2 using "###,###.#####"," ",z.unidad_med,
             COLUMN 105, z.cantidad_p using "###,###.#####",
             2 SPACES, z.codigo_bloque
       IF  z.descrip_esp[65,80] <> ' ' THEN     
           PRINT COLUMN 22,z.descrip_esp[65,80]
       END IF
       DECLARE busca_d1 CURSOR FOR
          SELECT b.descripcion,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida 
          FROM iptb00025 a,vetb00026 b
          WHERE # a.area = z.area AND 
                a.cod_n = z.cod_n AND
                a.cod_grupo = z.cod_grupo AND
                a.cod_tipo = z.cod_tipo AND
                a.cod_sec = z.cod_sec AND
                a.cod_mov = X.cod_mov AND
                a.num_Doc = x.num_doc AND
                CAST(a.etiqueta  AS SMALLINT)= b.codid
                
       LET total_unidades = 0
       FOREACH busca_d1 INTO etiqueta,plado1,plado2,plado3,pcantidad,pmedida
          PRINT COLUMN 19,pcantidad USING "<,<<<"," ",etiqueta ," DE ",plado1 USING "<<.#####"," X ",
                                   plado2 USING "<<.#####"," X ",plado3 USING "<<.#####"," = ",pmedida USING "<<<.#####"
          LET total_unidades = total_unidades + pcantidad
       END FOREACH
       IF total_unidades > 0 THEN
          
          PRINT COLUMN 19, "TOTAL UNIDADES ",total_unidades USING "<,<<<" 
       END IF  
      END IF

PAGE TRAILER
   SELECT a.nombre INTO descrip2 FROM vetb00015 a
     WHERE a.cod_transp=x.cod_transp and 
           a.sec_transp=x.sec_transp 
          
  SKIP 1 LINE
  PRINT COLUMN 1, "OBSERVACIONES: ", UPSHIFT(x.detalle)
  SKIP 1 LINE

  PRINT COLUMN 1, "TRANSPORTISTA: ",x.cod_transp USING "<<","-",x.sec_transp USING "<<<<"," ",descrip2 CLIPPED
  PRINT COLUMN 1, "PLACA        : ",x.placa
  SKIP 4 LINES
                  
  PRINT COLUMN 1, "---------------------------",
        6 SPACES, "---------------------------",
        6 SPACES, "---------------------------"


  PRINT COLUMN 1, "Entregado Por              ",
        6 SPACES, "Recibido Por               ",
        6 SPACES, "Aprobado Por               "

  SKIP 1 LINE
  PRINT COLUMN  2, 
  "Original: Contabilidad    Copia: Vendedor    Copia: Ventas    Copia: Almacen"
  SKIP 2 LINE
  PRINT normal
END REPORT