{
--------------------------------------------------------------------------
PROGRAMA          : CCPRCS002
OBJETIVO          : Este programa consulta la factura comercial
REALIZADO POR     : JUAN SOTO         
FECHA             : Mayo 27,1997.
DIRECTOR PROYECTO : JOSE ALFREDO PAULINO 
--------------------------------------------------------------------------
}

GLOBALS
 "ccprgb000.4gl"

  DEFINE p_cantidad INTEGER
  DEFINE dias_v SMALLINT
  DEFINE estatus,p_impresion CHAR(1)
  DEFINE estado RECORD
         nula    CHAR(6),
         impresa CHAR(6)
  END RECORD

  DEFINE cons_fact RECORD
        cod_cia         LIKE vetb00002.cod_cia, 
        ventas          LIKE vetb00002.ventas ,
        zona            LIKE vetb00002.zona ,
        factura         LIKE vetb00002.factura, 
        fecha_factura   LIKE vetb00002.fecha_factura, 
        tipo_cliente    LIKE vetb00002.tipo_cliente,
        sec_cliente     LIKE vetb00002.sec_cliente,
        cond_pago       LIKE vetb00002.cond_pago,
        porc_desc       LIKE vetb00002.porc_desc,
        prima_us        LIKE vetb00002.prima_us,
        orden           LIKE vetb00002.orden,
        fecha_orden     LIKE vetb00002.fecha_orden,
        conduce         LIKE vetb00002.conduce,
        fecha_conduce   LIKE vetb00002.fecha_conduce, 
        porc_itbi       LIKE vetb00002.porc_itbi,
        sec_vend        LIKE vetb00002.sec_vend,
        fecha_embarque  LIKE vetb00002.fecha_embarque,
        sub_total       LIKE vetb00002.sub_total,
        desc_valor      LIKE vetb00002.monto_desc,
        itbi            LIKE vetb00002.monto_itbi,
        total_fact      LIKE vetb00002.neto,
        nombre          CHAR(30),
        direccion       CHAR(50),    
        ciudad          CHAR(15),
        nombre_desc     CHAR(25),
        descrip         CHAR(25),
        nombre_vend     CHAR(29),
        cod_transp      LIKE iptb00006.cod_transp,
        sec_transp      LIKE iptb00006.sec_transp,
        nombre_tran     LIKE vetb00015.nombre,
        placa_transp    LIKE iptb00006.placa,
        cod_tarifa      LIKE iptb00006.cod_tarifa,
        descrip5        CHAR(15),
        descrip6        CHAR(15),
        descrip1        CHAR(30),      
        nombre_tipo     CHAR(15),
        compania        CHAR(50)      
   END RECORD

   DEFINE arr_disp ARRAY[200] OF RECORD
     cod_n       LIKE vetb00003.cod_n,
     cod_grupo   LIKE vetb00003.cod_grupo,
     cod_tipo    LIKE vetb00003.cod_tipo,
     cod_sec     LIKE vetb00003.cod_sec,
     descrip_esp CHAR(40),
     unidad_med  CHAR(3),
     cantidad    LIKE vetb00003.cantidad,
     precio      LIKE vetb00003.precio,
     monto_fact  DECIMAl(10,2)
   END RECORD
 DEFINE t_valor,valor_p,balance DECIMAL(12,2)
 DEFINE p_provincia SMALLINT
 DEFINE p_descr1,p_descr2 CHAR(14)
MAIN
 DEFER INTERRUPT
 CALL ARG_VAL(1) RETURNING usuarios
 CALL ARG_VAL(2) RETURNING clave
 CALL ARG_VAL(3) RETURNING impresor
 
 CONNECT to "smarmotech" USER  usuarios USING clave
 SELECT a.* INTO p_companias.* FROM companias a
 CALL ccprcs002()
END MAIN

FUNCTION ccprcs002()

 DEFINE tipo_fact,p_cod,p_bonif,cantidad_total,ano_act,ano_fe,credito,t_bonif,
        provincia,factor INTEGER
 DEFINE hoy DATE
 DEFINE hice,primera,tipo_p,opt2,opt1,opt CHAR(1)
 DEFINE tipo_f,tipo2 CHAR(2)
 DEFINE cod_desc,tipo1 SMALLINT
 DEFINE precio_ant,cantidad_ant,precio DECIMAL(12,3),
        i,longitud SMALLINT
 DEFINE tot_porc1,porc_desc,tot_porc DECIMAL(8,3)            

  OPTIONS
    FORM LINE 3,
    ERROR LINE 24,
    COMMENT LINE 23,
    PROMPT LINE  22

  CLEAR SCREEN
  OPEN FORM ccfmcs002 FROM "ccfmcs002"
  DISPLAY FORM ccfmcs002 
  DISPLAY "ccprcs002" AT 1,1 ATTRIBUTE (blue)
  LET hoy = today

  DISPLAY hoy   using "dd/mm/yy" AT 1,70 ATTRIBUTE (blue)
  DISPLAY "Factura de Ventas" AT 3,30 ATTRIBUTE (blue)
  DISPLAY "<Esc> Busqueda de Registro" AT 3,1 ATTRIBUTE (BOLD)
  DISPLAY "<Delete> Cancela Operacion" AT 3,54 ATTRIBUTE (BOLD)

#  WHENEVER ERROR  CONTINUE        

LABEL vuelve:
    CONSTRUCT criterio ON a.cod_cia,a.ventas,a.zona,a.factura,a.fecha_factura,
                          a.tipo_cliente,a.sec_cliente,a.cond_pago,a.prima_us,
                          a.orden,a.fecha_orden,a.conduce,a.fecha_conduce,
                          a.porc_itbi,a.sec_vend,a.fecha_embarque
                     FROM cod_cia,ventas,zona,factura,fecha_factura,
                          tipo_cliente,sec_cliente,cond_pago,prima_us,orden,
                          fecha_orden,conduce,fecha_conduce,porc_itbi,sec_vend,
                          fecha_embarque

     LET selec = 
     "SELECT a.cod_cia,a.ventas,a.zona,a.factura,a.fecha_factura, ",
     "       a.tipo_cliente,a.sec_cliente,a.cond_pago,a.porc_desc,a.prima_us, ",
     "       a.orden,a.fecha_orden,a.conduce,a.fecha_conduce,a.porc_itbi, ",
     "       a.sec_vend,a.fecha_embarque,a.sub_total,a.monto_desc, ",
     "       a.monto_itbi,a.neto ",
     "FROM vetb00002 a WHERE ",criterio clipped, "Order by 1,4"

   IF int_flag THEN
    LET numero_msg = 2
    CALL msg(numero_msg)
    LET int_flag = FALSE
    RETURN
   END IF

 PREPARE comando FROM selec
 DECLARE buscar SCROLL CURSOR FOR comando
 OPEN buscar

 FETCH FIRST buscar INTO cons_fact.*
    IF status = notfound THEN
       LET numero_msg = 3
       CALL msg(numero_msg)
       GOTO vuelve
    END IF

    IF STATUS < 0 THEN
     CALL integridad()
     IF bandera = 1 THEN
        LET bandera = 0
        RETURN
     END IF
    END IF

   IF int_flag THEN
    LET numero_msg = 2
    CALL msg(numero_msg)
    LET int_flag = FALSE
    RETURN
   END IF
  SELECT UNIQUE status_t,status_impresion   INTO estatus,p_impresion 
  FROM vetb00002 WHERE factura = cons_fact.factura AND status_t IS NULL

  IF estatus     = "E" THEN
     LET estado.nula = "NULA"
  ELSE
     LET estado.nula = "ACTIVA"
  END IF

  IF p_impresion      = "S" THEN
     LET estado.impresa = "Impresa"
  ELSE
     LET estado.impresa = "N Impre"
  END IF
  
  IF cons_fact.cod_cia = 1 THEN
     LET cons_fact.compania = p_companias.nombre CLIPPED
  END IF

  IF cons_fact.ventas = 1 THEN
     LET cons_fact.nombre_tipo = "L O C A L"
  END IF

  IF cons_fact.ventas = 2 THEN
     LET cons_fact.nombre_tipo = "EXPORTACION"
  END IF

  SELECT a.nombre,a.cod_provincia INTO cons_fact.nombre,p_provincia
  FROM vetb00004 a
  WHERE a.tipo_cliente = cons_fact.tipo_cliente and
        a.sec_cliente  = cons_fact.sec_cliente and a.status_t IS NULL

  SELECT b.calle,b.casa_num,b.barrio INTO p_descr1,p_descr2,descrip3
  FROM vetb00005 b 
  WHERE   b.tipo_cliente = cons_fact.tipo_cliente and
          b.sec_cliente = cons_fact.sec_cliente and b.status_t IS NULL 

  SELECT q.nombre_provincia INTO cons_fact.ciudad 
  FROM vetb00020 q
  WHERE q.cod_provincia = p_provincia AND q.status_t IS NULL

  LET cons_fact.direccion =p_descr1 clipped," ",p_descr2 clipped,
                           ", ",descrip3 clipped

  IF cons_fact.ventas = "1" THEN
     SELECT descrip INTO cons_fact.descrip1 FROM vetb00008
     WHERE cod_zona = cons_fact.zona
  END IF

  IF cons_fact.ventas = "2" THEN
     SELECT unique nom_pais INTO cons_fact.descrip1 FROM cotb00018
     WHERE cod_pais = cons_fact.zona
  END IF

  SELECT @descrip,@dias INTO cons_fact.descrip,dias_v             
  FROM vetb00012 WHERE cond_pago = cons_fact.cond_pago

  SELECT UNIQUE nom1_emp,apell1_emp INTO p_descr1,p_descr2 
  FROM adtb00003 WHERE num_emp  = cons_fact.sec_vend

  LET cons_fact.nombre_vend = p_descr1 clipped," ",p_descr2 clipped
  DISPLAY BY NAME cons_fact.nombre_vend
{
  SELECT UNIQUE a.cod_transp,a.sec_transp,a.placa,a.cod_tarifa 
  INTO cons_fact.cod_transp,cons_fact.sec_transp,cons_fact.placa_transp,
       cons_fact.cod_tarifa 
  FROM iptb00006 a 
  WHERE (a.status_t IS NULL) AND (a.num_doc=cons_fact.factura) AND 
        (a.cod_mov IN (30,31)) and fecha_factura > "01/01/2007"
}
  SELECT nombre INTO cons_fact.nombre_tran
  FROM vetb00015
  WHERE cod_transp = cons_fact.cod_transp and
        sec_transp = cons_fact.sec_transp and status_t is null

  SELECT descrip INTO descrip6 FROM vetb00023
  WHERE cod_tarifa = cons_fact.cod_tarifa and status_t is null
       
  LET cons_fact.descrip5 = descrip6[1,15] clipped
  LET cons_fact.descrip6 = descrip6[16,30] clipped

  DISPLAY BY NAME cons_fact.* ATTRIBUTE(blue)

  MENU "Opciones"
       COMMAND "Siguiente" "Ver proximo registro"
       FETCH NEXT buscar INTO cons_fact.*,estado.*

       IF STATUS = NOTFOUND THEN
         LET numero_msg = 4
         CALL msg(numero_msg)
        END IF

        IF cons_fact.cod_cia = 1 THEN
           LET cons_fact.compania = p_companias.nombre CLIPPED
        END IF

           DISPLAY BY NAME cons_fact.compania

              SELECT a.nombre,a.cod_provincia
                INTO cons_fact.nombre,p_provincia
               FROM vetb00004 a
                 WHERE a.tipo_cliente = cons_fact.tipo_cliente and
                       a.sec_cliente  = cons_fact.sec_cliente and
                       a.status_t IS NULL
      DISPLAY BY NAME cons_fact.nombre
      
         SELECT b.calle,b.casa_num,b.barrio INTO descrip1,descrip2,descrip3
         FROM vetb00005 b 
         WHERE   b.tipo_cliente = cons_fact.tipo_cliente and
                 b.sec_cliente = cons_fact.sec_cliente and
                 b.status_t IS NULL 

         SELECT q.nombre_provincia INTO cons_fact.ciudad 
         FROM vetb00020 q
         WHERE q.cod_provincia = p_provincia
         AND q.status_t IS NULL

     LET cons_fact.direccion = descrip1 clipped," ",descrip2 clipped,
                               ", ",descrip3 clipped

     DISPLAY BY NAME cons_fact.direccion,cons_fact.ciudad

          IF cons_fact.ventas = "2" THEN
               SELECT unique nom_pais INTO cons_fact.descrip1 FROM cotb00018
                WHERE cod_pais = cons_fact.zona
          END IF

         DISPLAY BY NAME cons_fact.descrip1

       SELECT @descrip,@dias INTO cons_fact.descrip,dias_v             
       FROM vetb00012
           WHERE cond_pago = cons_fact.cond_pago

       DISPLAY BY NAME cons_fact.descrip
       
         SELECT nom1_emp,apell1_emp INTO p_descr1,p_descr2 
         FROM adtb00003 WHERE num_emp  = cons_fact.sec_vend

     LET cons_fact.nombre_vend = p_descr1 clipped," ",p_descr2 clipped
     DISPLAY BY NAME cons_fact.nombre_vend

     SELECT unique a.cod_transp,a.sec_transp,a.placa,a.cod_tarifa 
       INTO cons_fact.cod_transp,cons_fact.sec_transp,cons_fact.placa_transp,
            cons_fact.cod_tarifa 
     FROM iptb00006 a
     WHERE (a.status_t IS NULL) AND (a.num_doc = cons_fact.factura) AND
           (a.cod_mov IN (30,31))

     DISPLAY BY NAME cons_fact.cod_transp,cons_fact.sec_transp,
                     cons_fact.placa_transp

     SELECT nombre INTO cons_fact.nombre_tran
     FROM vetb00015
     WHERE cod_transp = cons_fact.cod_transp and
           sec_transp = cons_fact.sec_transp and
           status_t is null

      DISPLAY BY NAME cons_fact.nombre_tran

      SELECT descrip INTO descrip6 FROM vetb00023
      WHERE cod_tarifa = cons_fact.cod_tarifa and status_t is null
       
      LET cons_fact.descrip5 = descrip6[1,15] clipped
      LET cons_fact.descrip6 = descrip6[16,30] clipped
      DISPLAY BY NAME cons_fact.descrip5,cons_fact.descrip6

      DISPLAY BY NAME cons_fact.* ATTRIBUTE(blue)

#--------------------------------------------------------------------#
  SELECT status_t,status_impresion INTO estatus,p_impresion FROM vetb00002
  WHERE factura = cons_fact.factura AND status_t IS NULL

  IF estatus     = "E" THEN
     LET estado.nula = "NULA"
  ELSE
     LET estado.nula = "ACTIVA"
  END IF

  IF p_impresion      = "S" THEN
     LET estado.impresa = "Impresa"
  ELSE
     LET estado.impresa = "N Impre"
  END IF
  #DISPLAY BY NAME estado.* ATTRIBUTE(blue)

  COMMAND "Anterior" "Ver registro anterior"
       FETCH PREVIOUS buscar INTO cons_fact.*,estado.*

       IF STATUS = NOTFOUND THEN
          LET numero_msg = 5
          CALL msg(numero_msg)
       END IF

       IF cons_fact.cod_cia = 1 THEN
          LET cons_fact.compania = p_companias.nombre CLIPPED
       END IF

       IF cons_fact.cod_cia = 2 THEN
          LET cons_fact.compania = " "
       END IF
       DISPLAY BY NAME cons_fact.compania

        SELECT a.nombre,a.cod_provincia
                INTO cons_fact.nombre,p_provincia
               FROM vetb00004 a
                 WHERE a.tipo_cliente = cons_fact.tipo_cliente and
                       a.sec_cliente  = cons_fact.sec_cliente and
                       a.status_t IS NULL
      DISPLAY BY NAME cons_fact.nombre
      
         SELECT b.calle,b.casa_num,b.barrio INTO descrip1,descrip2,descrip3
         FROM vetb00005 b 
         WHERE   b.tipo_cliente = cons_fact.tipo_cliente and
                 b.sec_cliente = cons_fact.sec_cliente and
                 b.status_t IS NULL 

         SELECT q.nombre_provincia INTO cons_fact.ciudad 
         FROM vetb00020 q
         WHERE q.cod_provincia = p_provincia
         AND q.status_t IS NULL

     LET cons_fact.direccion = descrip1 clipped," ",descrip2 clipped,
                               ", ",descrip3 clipped

     DISPLAY BY NAME cons_fact.direccion,cons_fact.ciudad

          IF cons_fact.ventas = "2" THEN
               SELECT unique nom_pais INTO cons_fact.descrip1 FROM cotb00018
                WHERE cod_pais = cons_fact.zona
          END IF

         DISPLAY BY NAME cons_fact.descrip1

       SELECT @descrip,@dias INTO cons_fact.descrip,dias_v             
       FROM vetb00012
           WHERE cond_pago = cons_fact.cond_pago

       DISPLAY BY NAME cons_fact.descrip
       
         SELECT nom1_emp,apell1_emp INTO p_descr1,p_descr2 
            FROM adtb00003 
          WHERE num_emp  = cons_fact.sec_vend

     LET cons_fact.nombre_vend = p_descr1 clipped," ",p_descr2 clipped
     DISPLAY BY NAME cons_fact.nombre_vend

     SELECT unique a.cod_transp,a.sec_transp,a.placa,a.cod_tarifa INTO
     cons_fact.cod_transp,cons_fact.sec_transp,cons_fact.placa_transp,
     cons_fact.cod_tarifa 
     FROM iptb00006 a
     WHERE a.status_t IS NULL AND a.num_doc = cons_fact.factura AND
                                  a.cod_mov in (30,31)

     DISPLAY BY NAME cons_fact.cod_transp,cons_fact.sec_transp,
                     cons_fact.placa_transp

          SELECT nombre INTO cons_fact.nombre_tran
          FROM vetb00015
          WHERE cod_transp = cons_fact.cod_transp and
                sec_transp = cons_fact.sec_transp and
                status_t is null

      DISPLAY BY NAME cons_fact.nombre_tran

       SELECT descrip INTO descrip6 FROM vetb00023
        WHERE cod_tarifa = cons_fact.cod_tarifa and
              status_t is null
       
       LET cons_fact.descrip5 = descrip6[1,15] clipped
       LET cons_fact.descrip6 = descrip6[16,30] clipped
         DISPLAY BY NAME cons_fact.descrip5,cons_fact.descrip6

         DISPLAY BY NAME cons_fact.* ATTRIBUTE(blue)

#--------------------------------------------------------------------#
  SELECT status_t,status_impresion   INTO estatus,p_impresion FROM vetb00002
         WHERE factura = cons_fact.factura AND status_t IS NULL

  IF estatus     = "E" THEN
     LET estado.nula = "NULA"
  ELSE
     LET estado.nula = "ACTIVA"
  END IF

  IF p_impresion      = "S" THEN
     LET estado.impresa = "Impresa"
  ELSE
     LET estado.impresa = "N Impre"
  END IF
         #DISPLAY BY NAME estado.* ATTRIBUTE(blue)

       COMMAND "Primero" "Ver primer registro"
       FETCH FIRST buscar INTO cons_fact.*,estado.*

         LET numero_msg = 5
         CALL msg(numero_msg)

             IF cons_fact.cod_cia = 1 THEN
                LET cons_fact.compania = p_companias.nombre CLIPPED
            END IF

            IF cons_fact.cod_cia = 2 THEN
     LET cons_fact.compania = " "   
            END IF
     DISPLAY BY NAME cons_fact.compania

              SELECT a.nombre,a.cod_provincia
                INTO cons_fact.nombre,p_provincia
               FROM vetb00004 a
                 WHERE a.tipo_cliente = cons_fact.tipo_cliente and
                       a.sec_cliente  = cons_fact.sec_cliente and
                       a.status_t IS NULL
      DISPLAY BY NAME cons_fact.nombre
      
      SELECT b.calle,b.casa_num,b.barrio INTO descrip1,descrip2,descrip3
      FROM vetb00005 b 
      WHERE   b.tipo_cliente = cons_fact.tipo_cliente and
              b.sec_cliente = cons_fact.sec_cliente and
              b.status_t IS NULL 

         SELECT q.nombre_provincia INTO cons_fact.ciudad 
         FROM vetb00020 q
         WHERE q.cod_provincia = p_provincia
         AND q.status_t IS NULL

     LET cons_fact.direccion = descrip1 clipped," ",descrip2 clipped,
                               ", ",descrip3 clipped

     DISPLAY BY NAME cons_fact.direccion,cons_fact.ciudad

          IF cons_fact.ventas = "2" THEN
               SELECT unique nom_pais INTO cons_fact.descrip1 FROM cotb00018
                WHERE cod_pais = cons_fact.zona
          END IF

         DISPLAY BY NAME cons_fact.descrip1

       SELECT @descrip,@dias INTO cons_fact.descrip,dias_v             
       FROM vetb00012
           WHERE cond_pago = cons_fact.cond_pago

       DISPLAY BY NAME cons_fact.descrip
       
         SELECT nom1_emp,apell1_emp INTO p_descr1,p_descr2 
            FROM adtb00003 
          WHERE num_emp  = cons_fact.sec_vend

     LET cons_fact.nombre_vend = p_descr1 clipped," ",p_descr2 clipped
     DISPLAY BY NAME cons_fact.nombre_vend

     SELECT unique a.cod_transp,a.sec_transp,a.placa,a.cod_tarifa INTO
     cons_fact.cod_transp,cons_fact.sec_transp,cons_fact.placa_transp,
     cons_fact.cod_tarifa 
     FROM iptb00006 a
     WHERE a.status_t IS NULL AND a.num_doc = cons_fact.factura

     DISPLAY BY NAME cons_fact.cod_transp,cons_fact.sec_transp,
                     cons_fact.placa_transp

          SELECT nombre INTO cons_fact.nombre_tran
          FROM vetb00015
          WHERE cod_transp = cons_fact.cod_transp and
                sec_transp = cons_fact.sec_transp and
                status_t is null

      DISPLAY BY NAME cons_fact.nombre_tran

       SELECT descrip INTO descrip6 FROM vetb00023
        WHERE cod_tarifa = cons_fact.cod_tarifa and
              status_t is null
       
       LET cons_fact.descrip5 = descrip6[1,15] clipped
       LET cons_fact.descrip6 = descrip6[16,30] clipped
         DISPLAY BY NAME cons_fact.descrip5,cons_fact.descrip6

         DISPLAY BY NAME cons_fact.* ATTRIBUTE(blue)

#-----------------------------------------------------------------#

  SELECT status_t,status_impresion   INTO estatus,p_impresion FROM vetb00002
         WHERE factura = cons_fact.factura AND status_t IS NULL

  IF estatus     = "E" THEN
     LET estado.nula = "NULA"
  ELSE
     LET estado.nula = "ACTIVA"
  END IF

  IF p_impresion      = "S" THEN
     LET estado.impresa = "Impresa"
  ELSE
     LET estado.impresa = "N Impre"
  END IF
         #DISPLAY BY NAME estado.* ATTRIBUTE(blue)

       COMMAND "Ultimo" "Ver ultimo registro"
       FETCH LAST buscar INTO cons_fact.*,estado.*

         LET numero_msg = 4
         CALL msg(numero_msg)

         IF cons_fact.cod_cia = 1 THEN
            LET cons_fact.compania = p_companias.nombre CLIPPED
         END IF

         IF cons_fact.cod_cia = 2 THEN
            LET cons_fact.compania = " "   
         END IF
     DISPLAY BY NAME cons_fact.compania

      SELECT a.nombre,a.cod_provincia INTO cons_fact.nombre,p_provincia
      FROM vetb00004 a
      WHERE a.tipo_cliente = cons_fact.tipo_cliente and
            a.sec_cliente  = cons_fact.sec_cliente and a.status_t IS NULL
      DISPLAY BY NAME cons_fact.nombre
      
      SELECT b.calle,b.casa_num,b.barrio INTO descrip1,descrip2,descrip3
      FROM vetb00005 b 
      WHERE   b.tipo_cliente = cons_fact.tipo_cliente and
              b.sec_cliente = cons_fact.sec_cliente and
              b.status_t IS NULL 

      SELECT q.nombre_provincia INTO cons_fact.ciudad FROM vetb00020 q
      WHERE q.cod_provincia = p_provincia AND q.status_t IS NULL

     LET cons_fact.direccion = descrip1 clipped," ",descrip2 clipped,
                               ", ",descrip3 clipped

     DISPLAY BY NAME cons_fact.direccion,cons_fact.ciudad

     IF cons_fact.ventas = "2" THEN
        SELECT unique nom_pais INTO cons_fact.descrip1 FROM cotb00018
        WHERE cod_pais = cons_fact.zona
     END IF

     DISPLAY BY NAME cons_fact.descrip1

     SELECT @descrip,@dias INTO cons_fact.descrip,dias_v FROM vetb00012
     WHERE cond_pago = cons_fact.cond_pago

     DISPLAY BY NAME cons_fact.descrip
       
     SELECT nom1_emp,apell1_emp INTO p_descr1,p_descr2 FROM adtb00003 
     WHERE num_emp  = cons_fact.sec_vend

     LET cons_fact.nombre_vend = p_descr1 clipped," ",p_descr2 clipped
     DISPLAY BY NAME cons_fact.nombre_vend

     SELECT unique a.cod_transp,a.sec_transp,a.placa,a.cod_tarifa INTO
     cons_fact.cod_transp,cons_fact.sec_transp,cons_fact.placa_transp,
     cons_fact.cod_tarifa 
     FROM iptb00006 a
     WHERE a.status_t IS NULL AND a.num_doc = cons_fact.factura

     DISPLAY BY NAME cons_fact.cod_transp,cons_fact.sec_transp,
                     cons_fact.placa_transp

          SELECT nombre INTO cons_fact.nombre_tran
          FROM vetb00015
          WHERE cod_transp = cons_fact.cod_transp and
                sec_transp = cons_fact.sec_transp and
                status_t is null

      DISPLAY BY NAME cons_fact.nombre_tran

       SELECT descrip INTO descrip6 FROM vetb00023
        WHERE cod_tarifa = cons_fact.cod_tarifa and
              status_t is null
       
       LET cons_fact.descrip5 = descrip6[1,15] clipped
       LET cons_fact.descrip6 = descrip6[16,30] clipped
         DISPLAY BY NAME cons_fact.descrip5,cons_fact.descrip6

         DISPLAY BY NAME cons_fact.* ATTRIBUTE(blue)

#--------------------------------------------------------------------#

  SELECT status_t,status_impresion   INTO estatus,p_impresion FROM vetb00002
         WHERE factura = cons_fact.factura AND status_t IS NULL

  IF estatus     = "E" THEN
     LET estado.nula = "NULA"
  ELSE
     LET estado.nula = "ACTIVA"
  END IF

  IF p_impresion      = "S" THEN
     LET estado.impresa = "Impresa"
  ELSE
     LET estado.impresa = "N Impre"
  END IF
         #DISPLAY BY NAME estado.* ATTRIBUTE(blue)

       COMMAND "Ver" "Ver datos generales de la Factura"
           CALL visualizar()
           CLEAR FORM
       COMMAND "Retornar" 
         CLEAR FORM
         EXIT MENU
        END MENU
        GOTO vuelve
    END FUNCTION

   FUNCTION visualizar()
       LET int_flag = FALSE

       DECLARE buscar1 CURSOR FOR 
       SELECT m.cod_n,m.cod_grupo,m.cod_tipo,m.cod_sec,a.descrip_esp,
              a.unidad_med,m.cantidad,m.precio,m.cantidad*m.precio
       FROM vetb00003 m, iptb00002 a
       WHERE m.cod_n = a.cod_n AND m.cod_grupo = a.cod_grupo AND 
             m.cod_tipo = a.cod_tipo AND m.cod_sec = a.cod_sec AND
             m.factura = cons_fact.factura 

       LET curr = 1
       FOREACH buscar1 INTO arr_disp[curr].*
         LET curr = curr + 1
       END FOREACH

       CALL SET_COUNT(curr - 1)

       DISPLAY ARRAY arr_disp TO s_fact.*

       IF int_flag THEN
          LET numero_msg = 12
          CALL msg(numero_msg) 
          LET int_flag = false
          RETURN
       END IF

 END FUNCTION