371 lines
10 KiB
Plaintext
371 lines
10 KiB
Plaintext
schema smarmotech
|
|
|
|
GLOBALS
|
|
DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
|
|
CHAR(3),
|
|
cmd,copia CHAR(150)
|
|
DEFINE vendedorzp RECORD LIKE vetb00010.*,
|
|
p_compania RECORD LIKE companias.*
|
|
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 deposito RECORD
|
|
num_doc INT,
|
|
cuenta_no CHAR(8),
|
|
cta_banco CHAR(8),
|
|
procedencia INT,
|
|
fecha DATE,
|
|
monto DEC(12,2),
|
|
status_t CHAR(1),
|
|
us_crea CHAR(50),
|
|
fech_crea DATE,
|
|
us_mod CHAR(50),
|
|
fech_mod DATE,
|
|
sucursal INT,
|
|
monto_efectivo,monto_ck,monto_link,monto_tarjeta DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE documentos DYNAMIC ARRAY OF RECORD
|
|
fecha DATE,
|
|
documento INT,
|
|
tipodocumento CHAR(2),
|
|
tipo_cliente INT,
|
|
sec_cliente INT,
|
|
cliente CHAR(200),
|
|
valor DEC(12,2),
|
|
moneda VARCHAR(60),
|
|
ventas CHAR(1)
|
|
END record
|
|
|
|
DEFINE b_procedencias DYNAMIC ARRAY OF RECORD
|
|
procedencia3 INT,
|
|
descripcion3 CHAR(100)
|
|
END record
|
|
DEFINE procedencias RECORD
|
|
procedencia INT,
|
|
descripcion CHAR(100),
|
|
status_t CHAR(1),
|
|
us_crea CHAR(50),
|
|
fech_crea DATE,
|
|
us_mod CHAR(50),
|
|
fech_mod date
|
|
END record
|
|
DEFINE p_tetb03 RECORD LIKE tetb00003.*
|
|
DEFINE p_tetb04 RECORD
|
|
codigo INT ,
|
|
ano INT,
|
|
mes INT,
|
|
valor DECIMAL(14,2),
|
|
status_t CHAR(1),
|
|
us_crea CHAR(50),
|
|
fech_crea DATE,
|
|
us_mod CHAR(50)
|
|
END RECORD
|
|
|
|
DEFINE p_tetb003 dynamic ARRAY OF RECORD
|
|
codigo2 INT,
|
|
descripcion1 CHAR(50),
|
|
ano2 int
|
|
END record
|
|
#DEFINE p_tetb05 RECORD LIKE tetb00005.*
|
|
#DEFINE p_tetb06 RECORD LIKE tetb00006.*
|
|
#DEFINE p_tetb07 RECORD LIKE tetb00007.*
|
|
DEFINE unidades1 ARRAY[19] OF CHAR(10)
|
|
DEFINE decenas ARRAY[81] OF CHAR(20)
|
|
DEFINE centenas ARRAY[10] OF CHAR(20)
|
|
DEFINE miles ARRAY[9] OF CHAR(2)
|
|
DEFINE excede ARRAY[200] OF CHAR(1)
|
|
DEFINE p_bonifica,cant_pend ARRAY[20] OF INTEGER,
|
|
regi INTEGER,
|
|
p_param CHAR(1),
|
|
usuarios,clave CHAR(80)
|
|
|
|
|
|
DEFINE p_fechas DATE
|
|
DEFINE opt4,opt3,impresion,verdad,identifica,existe,tiene_facturas,
|
|
detalle,status_reg CHAR(1),
|
|
criterio CHAR(1000),
|
|
selec CHAR(1000),
|
|
selec2 CHAR(500),
|
|
selec3 CHAR(1000),
|
|
tipo2,opcion CHAR(2),
|
|
valor_letras CHAR(90),
|
|
luz CHAR(5),
|
|
p_act,p_cantidad_1,tipo1,longitud,p_fact_no,bandera,p_existencia
|
|
INTEGER,
|
|
p_cantidad_2,p_cedula,p_serie INTEGER,
|
|
compania CHAR(50),
|
|
parametro1 CHAR(10),
|
|
medida CHAR(3),
|
|
descventa CHAR(11),
|
|
nombre_desc,descrip2,nombre_pt,nom_cliente CHAR(30),
|
|
descrip1 CHAR(46),
|
|
descrip3 CHAR(30),
|
|
descrip4 CHAR(30),
|
|
descrip5 CHAR(65),
|
|
descrip6 CHAR(45),
|
|
zona_p CHAR(30),
|
|
provincia_p CHAR(30),
|
|
tipo_papel,idx, curr2,curr, curr1, fila, scr_l SMALLINT,
|
|
ano1,ano_c CHAR(4),
|
|
desc_valor CHAR(10),
|
|
sub_total CHAR(14),
|
|
itbi CHAR(14),
|
|
total_fact CHAR(14),
|
|
p_fecha_ven DATE,
|
|
p_costos,p_precio DECIMAL (12,2),
|
|
p_costos1 DECIMAL (8,3),
|
|
p_costos2 DECIMAL (12,2),
|
|
p_costos3 DECIMAL (12,2),
|
|
valor_orig DECIMAL (12,2),
|
|
t_costos DECIMAL (12,2),
|
|
p_cantidad INTEGER,
|
|
unidades INTEGER,
|
|
dias_v ,h SMALLINT,
|
|
p_desc DECIMAL(10,3),
|
|
p_user CHAR(9)
|
|
|
|
DEFINE numero_msg LIKE msgtable.cod_msg
|
|
DEFINE zona RECORD LIKE vetb00008.*
|
|
DEFINE datos RECORD LIKE vetb00019.*
|
|
DEFINE zonap RECORD LIKE vetb00009.*
|
|
DEFINE pago RECORD LIKE vetb00012.*
|
|
DEFINE medidas RECORD LIKE vetb00014.*
|
|
DEFINE pterminado RECORD LIKE iptb00002.*
|
|
DEFINE descuento RECORD LIKE vetb00013.*
|
|
DEFINE descuentoh RECORD LIKE vetb00027.*
|
|
DEFINE transportista RECORD LIKE vetb00015.*
|
|
DEFINE comisiones RECORD LIKE cctb00008.*
|
|
DEFINE cliente_bas RECORD LIKE vetb00004.*
|
|
DEFINE cliente_dir RECORD LIKE vetb00005.*
|
|
DEFINE cliente_eco RECORD LIKE vetb00006.*
|
|
DEFINE cliente_des RECORD LIKE vetb00007.*
|
|
# DEFINE presupuesto RECORD LIKE vetb00017.*
|
|
DEFINE controles RECORD LIKE vetb00018.*
|
|
DEFINE paises RECORD LIKE cotb00018.*
|
|
DEFINE tarifa RECORD LIKE vetb00023.*
|
|
DEFINE visitas RECORD LIKE vetb00024.*
|
|
DEFINE pre_pila RECORD LIKE vetb00025.*,
|
|
archivo CHAR(20),
|
|
imprime CHAR(80),
|
|
imprime1 CHAR(80),
|
|
impresor SMALLINT,
|
|
parametro CHAR(2),
|
|
orden CHAR(1),
|
|
destino CHAR(1)
|
|
|
|
DEFINE letras RECORD
|
|
negrillas_on CHAR(6),
|
|
negrillas_off CHAR(6),
|
|
doble_on CHAR(6),
|
|
doble_off CHAR(6),
|
|
comp_on CHAR(6),
|
|
comp_off CHAR(6),
|
|
doce CHAR(6),
|
|
normal CHAR(6)
|
|
END RECORD
|
|
|
|
DEFINE rango RECORD
|
|
fech_in DATE,
|
|
fech_fi DATE
|
|
END RECORD
|
|
|
|
DEFINE datos_empleados RECORD
|
|
cod_emp LIKE adtb00003.num_emp,
|
|
nom_emp LIKE adtb00003.nom1_emp,
|
|
apell_emp LIKE adtb00003.apell1_emp
|
|
END RECORD
|
|
|
|
DEFINE descuenta DYNAMIC ARRAY OF RECORD
|
|
codigo INTEGER,
|
|
porc DECIMAL(10,2),
|
|
valor DECIMAL(10,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_tetb04 DYNAMIC ARRAY OF RECORD
|
|
mes INTEGER,
|
|
descrip CHAR(30),
|
|
valor DECIMAL(10,2)
|
|
END RECORD
|
|
DEFINE arr_tetb05 DYNAMIC ARRAY OF RECORD
|
|
mes INTEGER,
|
|
descrip CHAR(30),
|
|
valor DECIMAL(10,2)
|
|
END RECORD
|
|
DEFINE mes1 DYNAMIC ARRAY OF CHAR (11)
|
|
DEFINE dias DYNAMIC ARRAY OF CHAR(11)
|
|
|
|
DEFINE cli_vend DYNAMIC ARRAY OF RECORD
|
|
cod_vend LIKE adtb00003.num_emp,
|
|
nombre_v CHAR(60)
|
|
END RECORD
|
|
|
|
DEFINE arr_empleados DYNAMIC ARRAY OF RECORD
|
|
cod_emp LIKE adtb00003.num_emp,
|
|
nom_emp LIKE adtb00003.nom1_emp,
|
|
apell_emp LIKE adtb00003.apell1_emp
|
|
END RECORD
|
|
|
|
DEFINE empleados DYNAMIC ARRAY OF RECORD
|
|
cod_emp LIKE adtb00003.num_emp,
|
|
descrip6 CHAR(65)
|
|
END RECORD
|
|
|
|
DEFINE arr_procedencia DYNAMIC ARRAY OF RECORD
|
|
procedencia int,
|
|
descripcion CHAR(100)
|
|
END RECORD
|
|
|
|
DEFINE zonas DYNAMIC ARRAY OF RECORD
|
|
cod_zona LIKE vetb00008.cod_zona,
|
|
descrip LIKE vetb00008.descrip
|
|
END RECORD
|
|
|
|
DEFINE provincias DYNAMIC ARRAY OF RECORD
|
|
cod_provincia LIKE vetb00020.cod_provincia,
|
|
nombre_provincia LIKE vetb00020.nombre_provincia
|
|
END RECORD
|
|
|
|
DEFINE porc_zona DYNAMIC ARRAY OF RECORD
|
|
ventas CHAR(1),
|
|
zona CHAR(3),
|
|
descrip CHAR(30),
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
mes CHAR(4),
|
|
desc_mes CHAR(30),
|
|
porciento DECIMAL(7,3)
|
|
END RECORD
|
|
|
|
DEFINE porc_prov DYNAMIC ARRAY OF RECORD
|
|
ventas CHAR(1),
|
|
zona CHAR(3),
|
|
provincia SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descrip CHAR(30),
|
|
mes CHAR(4),
|
|
desc_mes CHAR(30),
|
|
porciento DECIMAL(7,3)
|
|
END RECORD
|
|
|
|
DEFINE porc_clie DYNAMIC ARRAY OF RECORD
|
|
ventas CHAR(1),
|
|
zona CHAR(3),
|
|
provincia SMALLINT,
|
|
tipo_cliente SMALLINT,
|
|
sec_cliente SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
mes CHAR(4),
|
|
desc_mes CHAR(30),
|
|
porciento DECIMAL(7,3)
|
|
END RECORD
|
|
|
|
DEFINE pres_venta DYNAMIC ARRAY OF RECORD
|
|
ventas CHAR(1),
|
|
descrip1 CHAR(15),
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
mes SMALLINT,
|
|
descrip_mes CHAR(11),
|
|
cantidad INTEGER,
|
|
valor DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE reg_ventas RECORD
|
|
cod_n1 SMALLINT,
|
|
cod_grupo1 SMALLINT,
|
|
cod_tipo1 SMALLINT,
|
|
cod_sec1 SMALLINT,
|
|
descrip1 CHAR(30),
|
|
unidades1 INTEGER,
|
|
valor1 DECIMAL(14,2)
|
|
END RECORD
|
|
|
|
DEFINE reg_ventas2 RECORD
|
|
zona2 CHAR(3),
|
|
cod_n2 SMALLINT,
|
|
cod_grupo2 SMALLINT,
|
|
cod_tipo2 SMALLINT,
|
|
cod_sec2 SMALLINT,
|
|
descrip2 CHAR(30),
|
|
unidades2 INTEGER,
|
|
valor2 DECIMAL(14,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_ventas DYNAMIC ARRAY OF RECORD
|
|
codigo1 CHAR(10),
|
|
descrip1 CHAR(30),
|
|
unidades1 CHAR(14),
|
|
valor1 CHAR(17)
|
|
END RECORD
|
|
|
|
DEFINE reg_clientes RECORD
|
|
tipo1 SMALLINT,
|
|
sec1 SMALLINT,
|
|
descrip1 CHAR(30),
|
|
unidades1 INTEGER
|
|
END RECORD
|
|
|
|
DEFINE arr_cajas DYNAMIC ARRAY OF RECORD
|
|
cod_n1 SMALLINT,
|
|
cod_grupo1 SMALLINT,
|
|
cod_tipo1 SMALLINT,
|
|
cod_sec1 SMALLINT,
|
|
descrip1 CHAR(30),
|
|
cajas1 INTEGER
|
|
END RECORD
|
|
|
|
DEFINE arr_ventas3 DYNAMIC ARRAY OF RECORD
|
|
codigo1 CHAR(7),
|
|
descrip1 CHAR(30),
|
|
unidades1 CHAR(14)
|
|
END RECORD
|
|
|
|
DEFINE arr_clientes DYNAMIC ARRAY OF RECORD
|
|
tipo_cliente LIKE vetb00004.tipo_cliente,
|
|
sec_cliente LIKE vetb00004.sec_cliente,
|
|
nombre LIKE vetb00004.nombre
|
|
END RECORD
|
|
|
|
|
|
DEFINE pais_wd DYNAMIC ARRAY OF RECORD
|
|
cod_pais LIKE cotb00018.cod_pais,
|
|
nom_pais LIKE cotb00018.nom_pais
|
|
END RECORD
|
|
|
|
DEFINE arr_transp DYNAMIC ARRAY OF RECORD
|
|
cod_transp SMALLINT,
|
|
sec_transp SMALLINT,
|
|
nombre CHAR(30)
|
|
END RECORD
|
|
|
|
DEFINE arr_tarifa DYNAMIC ARRAY OF RECORD
|
|
cod_tarifa SMALLINT,
|
|
descrip CHAR(30)
|
|
END RECORD
|
|
|
|
DEFINE arr_condicion DYNAMIC ARRAY OF RECORD
|
|
cond_pago SMALLINT,
|
|
descrip CHAR(30)
|
|
END RECORD
|
|
|
|
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)
|
|
|
|
END GLOBALS
|
|
|