primer commit subida

PROYECTO/cpdir/cpprgb000.4gl

@@ -0,0 +1,108 @@
+SCHEMA decomarmol    
+
+GLOBALS
+DEFINE handler om.SaxDocumentHandler,   -- return value from fgl_report_commitCurrentSettings()
+         r_filename STRING,              -- filename of Report Design Document including .4rp extension
+          r_output   STRING,             -- output format option
+          preview    INTEGER            -- TRUE/FALSE, to set preview option
+  DEFINE opt,impresion,verdad,identifica,existe CHAR(1), 
+         status_reg CHAR(1), 
+         criterio CHAR(1000), 
+         selec CHAR(1000), 
+         selec2 CHAR(500), 
+         selec3 CHAR(1000), 
+         selec4 CHAR(1000), 
+         opcion CHAR(2),
+         descrip1 CHAR(30),
+         descrip2 CHAR(30),
+         descrip3 CHAR(30),
+         descrip4 CHAR(30),
+         nom_sp_tipo,nombre_emp,nom_sup CHAR(60), 
+         descrip5 CHAR(65), 
+         descrip6 CHAR(45),
+         nom_cuenta CHAR(15),
+         desc_p,valor_fac,pagada,monto,pendiente,valor1 DECIMAL(12,2), 
+         lj,k,tipo_papel,idx, curr, curr1, fila, scr_l INTEGER,
+         usuarios,clave CHAR(80),
+         impresor SMALLINT,
+         HANDLER om.SaxDocumentHandler,
+         tipo_ncf,conteo SMALLINT,
+         ncf    CHAR(19),
+         descripcion_ncf char(50)
+
+  DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
+         CHAR(3),
+         cmd,imprime,copia CHAR(150),archivo CHAR(80)
+
+  DEFINE rango RECORD
+         fecha_ini  DATE,
+         fecha_fin  DATE
+  END RECORD
+
+  DEFINE numero_msg LIKE msgtable.cod_msg
+
+  DEFINE factura RECORD
+    cod_sp      SMALLINT,
+    cod_sp_sec  SMALLINT,
+    num_doc     CHAR(13),
+    fecha_orig  DATE,
+    fecha_proc  DATE,
+    valor_fac   DECIMAL(12,2),
+    tipo_oc     CHAR(2),
+    orden_no    INTEGER,
+    detalle     CHAR(30)
+  END RECORD
+  DEFINE recibo RECORD
+     tipo_doc     LIKE cptb00001.tipo_doc,
+     num_doc      LIKE cptb00001.num_doc,
+     cta_ctble    LIKE cptb00001.cta_ctble,
+     cod_sp       LIKE cptb00001.cod_sp,      
+     cod_sp_sec   LIKE cptb00001.cod_sp_sec,      
+     fecha_orig   DATE,
+     detalle      LIKE cptb00001.detalle    ,
+     monto        DECIMAL(12,2)
+  END RECORD
+
+  DEFINE arr_recibo DYNAMIC ARRAY  OF RECORD
+       aplica_a    VARCHAR(15),
+       valor_pen   DECIMAL(12,2),
+       valor_pag   DECIMAL(12,2)
+  END RECORD
+
+  DEFINE pagar ARRAY [200] OF RECORD
+     aplica_a     LIKE cptb00001.aplica_a,
+     valor        LIKE cptb00001.valor
+  END RECORD
+
+  DEFINE aplica_wd ARRAY [100] OF RECORD
+       aplica_a   VARCHAR(11),
+       pendiente   DECIMAL(12,2)
+  END RECORD
+
+  DEFINE arr_suplid ARRAY [200] OF RECORD 
+         cod_sp      LIKE cotb00001.cod_sp,
+         cod_sp_sec  LIKE cotb00001.cod_sp_sec, 
+         nom_sp      LIKE cotb00001.nom_sp  
+  END RECORD 
+
+  DEFINE relacion RECORD LIKE cptb00002.*
+  DEFINE rec_pago RECORD LIKE cptb00001.*
+  DEFINE suplid_bas RECORD LIKE cotb00001.*
+  DEFINE suplid_dir RECORD LIKE cotb00001.*
+  DEFINE p_companias RECORD LIKE companias.*
+
+DEFINE bandera SMALLINT
+DEFINE otrab   SMALLINT
+DEFINE p_fechas DATE    
+DEFINE comp_fech,comp_fech1 DATE
+DEFINE mes_control CHAR(2)
+DEFINE mes_calc,dia SMALLINT
+DEFINE fecha_c DATE    
+DEFINE c_ano,a_ano CHAR(4)
+
+DEFINE cuentas1 ARRAY[300] OF RECORD 
+   cuenta_no   LIKE cgtb00001.cuenta_no,
+   descripcion LIKE cgtb00001.descripcion,
+   nivel       LIKE cgtb00001.nivel
+END RECORD
+END GLOBALS