95 lines
2.9 KiB
Plaintext
95 lines
2.9 KiB
Plaintext
DATABASE marmotech
|
|
|
|
GLOBALS
|
|
|
|
DEFINE p_fechas,comp_fech,comp_fech1,fecha_c DATE,
|
|
opt,impresion,verdad,identifica,existe,status_reg CHAR(1),
|
|
mes_control,opcion CHAR(2),
|
|
localidad,direccion CHAR(80),
|
|
c_ano,a_ano CHAR(4),
|
|
criterio CHAR(1000),
|
|
selec CHAR(500),
|
|
selec2 CHAR(500),
|
|
selec3 CHAR(1000),
|
|
selec4 CHAR(1000),
|
|
descrip1 CHAR(30),
|
|
descrip2 CHAR(30),
|
|
descrip3 CHAR(30),
|
|
descrip4 CHAR(30),
|
|
nombre_tipo,nombre_emp,nom_cli CHAR(60),
|
|
descrip5 CHAR(65),
|
|
descrip6 CHAR(45),
|
|
desc_p,valor_fac,pagada,monto,pendiente,valor1 DECIMAL(12,2),
|
|
k,tipo_papel,idx, curr, curr1, fila,scr_l,bandera,otrab,mes_calc,
|
|
dia SMALLINT
|
|
|
|
DEFINE rango RECORD
|
|
fecha_ini DATE,
|
|
fecha_fin DATE
|
|
END RECORD
|
|
|
|
DEFINE numero_msg LIKE msgtable.cod_msg
|
|
|
|
DEFINE recibo RECORD
|
|
#cuenta_no LIKE cgtb00001.cuenta_no,
|
|
#deposito LIKE cctb00001.banco,
|
|
tipo_doc LIKE cctb00001.tipo_doc,
|
|
num_doc LIKE cctb00001.num_doc,
|
|
tipo_cliente LIKE cctb00001.tipo_cliente,
|
|
sec_cliente LIKE cctb00001.sec_cliente,
|
|
cod_emp_sec LIKE cctb00001.cod_emp_sec,
|
|
fecha_orig LIKE cctb00001.fecha_orig
|
|
END RECORD
|
|
|
|
DEFINE arr_recibo ARRAY [200] OF RECORD
|
|
num_nc INTEGER,
|
|
aplica_a LIKE cctb00001.aplica_a,
|
|
valor_pen DECIMAL(12,2),
|
|
desc_p LIKE cctb00001.monto_desc,
|
|
valor_pag DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_recibo4 ARRAY [200] OF RECORD
|
|
aplica_a LIKE cctb00001.aplica_a,
|
|
valor_pen DECIMAL(12,2),
|
|
desc_p LIKE cctb00001.monto_desc,
|
|
valor_pag DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE cobrar ARRAY [200] OF RECORD
|
|
aplica_a LIKE cctb00001.aplica_a,
|
|
valor LIKE cctb00001.valor
|
|
END RECORD
|
|
|
|
DEFINE aplica_wd ARRAY [200] OF RECORD
|
|
aplica_a LIKE cctb00001.aplica_a,
|
|
pendiente DECIMAL(12,2),
|
|
tipo_doc CHAR(2)
|
|
END RECORD
|
|
|
|
DEFINE arr_clientes ARRAY [700] OF RECORD
|
|
tipo_cliente LIKE vetb00004.tipo_cliente,
|
|
sec_cliente LIKE vetb00004.sec_cliente,
|
|
nombre LIKE vetb00004.nombre
|
|
END RECORD
|
|
|
|
DEFINE arr_empleados ARRAY [200] OF RECORD
|
|
num_emp LIKE adtb00003.num_emp,
|
|
nom1_emp LIKE adtb00003.nom1_emp,
|
|
apell1_emp LIKE adtb00003.apell1_emp
|
|
END RECORD
|
|
|
|
DEFINE empleados ARRAY [200] OF RECORD
|
|
num_emp LIKE adtb00003.num_emp,
|
|
descrip6 CHAR(65)
|
|
END RECORD
|
|
|
|
DEFINE relacion RECORD LIKE cctb00002.*
|
|
DEFINE rec_pago RECORD LIKE cctb00001.*
|
|
DEFINE p_companias RECORD LIKE companias.*
|
|
DEFINE cliente_bas RECORD LIKE vetb00004.*
|
|
DEFINE cliente_dir RECORD LIKE vetb00005.*
|
|
DEFINE transportista RECORD LIKE vetb00015.*
|
|
|
|
END GLOBALS
|