jpegueroandClaude Sonnet 5.5
539af7f912
- ccprrp018: agrega MAIN, GROUP BY por nombre, y reemplaza la salida Excel/DDE (G:\ESTADO.XLS, DEL G:\ESTADOS) por un reporte Genero (ccprrp018.4rp); carga con un solo INSERT...SELECT en tabla temporal. - ccprrp003: reemplaza el REPORT de texto con codigos de impresora por ccprrp003.4rp; agrega por cliente en una consulta (DATEDIFF, mismas reglas). - ccprrp001: agrega MAIN, GROUP BY por nombre, reporte Genero (ccprrp001.4rp) y registra el formulario ccfmrp001 en FORMULARIOS_CC (faltaba, -1110). - ccprrp052: la validacion del campo Orden estaba al reves. - ccprmt002: cctb00002.fecha es datetime en SQL Server; el formulario, la variable global relacion (ccprgb000) y el CONSTRUCT la manejan como DATE; corrige que eLiminar mostrara exito sin actualizar filas. - mbsERP.4pw: registra los .4rp, libgre y ccfmrp001 (sin credenciales). Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
212 lines
6.9 KiB
Plaintext
212 lines
6.9 KiB
Plaintext
SCHEMA smarmotech
|
|
|
|
GLOBALS
|
|
|
|
DEFINE comisiones RECORD LIKE cctb00008.*,
|
|
pventas ui.combobox,
|
|
nombre_sucursal CHAR(60),
|
|
codigo_sucursal SMALLINT,
|
|
vendedorEmail,subject CHAR(150),
|
|
cuerpo_correo VARCHAR(1000),
|
|
copiacorreo DYNAMIC ARRAY OF CHAR(80),
|
|
copiaemail VARCHAR(160),
|
|
pperfil SMALLINT,
|
|
acceso,aplicacion_antiguas CHAR(2),
|
|
pflag CHAR(1),
|
|
HANDLER om.SaxDocumentHandler,
|
|
strconect VARCHAR(20),
|
|
r_output VARCHAR(20),
|
|
grafico STRING,numero_ck,numero_cr VARCHAR(50),
|
|
r_filename STRING,
|
|
HANDLER om.SaxDocumentHandler,
|
|
preview BOOLEAN,
|
|
p_nombre_tipo CHAR(30),
|
|
condicionPago STRING,
|
|
xdireccion,xnombre_proyecto,xnombre_provincia CHAR(60),
|
|
afecta_ex VARCHAR(3)
|
|
|
|
|
|
DEFINE p_fechas,comp_fech,comp_fech1,fecha_c,fecha_vencimiento,fecha_proximo DATE,
|
|
respuesta CHAR(3) ,
|
|
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,salida STRING,
|
|
procedimiento STRING,
|
|
selec2 CHAR(500),
|
|
selec3,selec1, selec4 STRING,
|
|
descrip1,descrip2,descrip3,descrip4 CHAR(30),
|
|
nombre_tipo,nombre_emp,nom_cli CHAR(100),
|
|
descrip5 CHAR(65),
|
|
descrip6 CHAR(45),
|
|
desc_p,valor_fac,pagada,monto,pendiente,valor1,monto_efectivo,monto_ck,monto_cr DECIMAL(12,2),
|
|
k,tipo_papel, curr, curr1, fila,scr_l,bandera,otrab,mes_calc,
|
|
dia SMALLINT,
|
|
cmd,imprime,copia CHAR(150),archivo, file CHAR(80),impresor,progreso,p_ano,p_mes SMALLINT
|
|
DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
|
|
CHAR(3),opt,opt1,cero CHAR(10),
|
|
usuarios,clave CHAR(80),tipo_venta CHAR(30),
|
|
chmensaje STRING,
|
|
idx INT
|
|
|
|
|
|
DEFINE rango RECORD
|
|
fecha_ini DATE,
|
|
fecha_fin DATE
|
|
END RECORD
|
|
|
|
DEFINE numero_msg LIKE msgtable.cod_msg
|
|
|
|
DEFINE requisicion RECORD
|
|
num_req INT,
|
|
fecha_requisicion DATE,
|
|
sec_vend SMALLINT,
|
|
nombre_vendedor CHAR(30),
|
|
busca_orden INT,
|
|
sec_vend_a INT,
|
|
nombre_a CHAR(60),
|
|
estado CHAR(20)
|
|
END RECORD
|
|
DEFINE arr_requisicion DYNAMIC ARRAY OF RECORD
|
|
procesa CHAR(3),
|
|
num_oc INT,
|
|
fecha CHAR(10),
|
|
cotizacion_no INT,
|
|
tipo_cliente SMALLINT,
|
|
sec_cliente INT,
|
|
nombre CHAR(30),
|
|
cantidad_1 DEC(12,5),
|
|
cantidad DEC(12,5),
|
|
area SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descripcion CHAR(30),
|
|
unidad_med CHAR(3),
|
|
cantidad_ord1 DEC(12,5),
|
|
cantidad_ord DEC(12,5),
|
|
cantidad_pendiente DEC(12,5),
|
|
precio DEC(12,4),
|
|
descuento DEC(12,2),
|
|
descvalor DEC(12,2),
|
|
valor DEC(12,2),
|
|
kit INT
|
|
END RECORD
|
|
|
|
|
|
DEFINE arr_autoriza DYNAMIC ARRAY OF RECORD
|
|
inserta CHAR(2),
|
|
estado CHAR(20),
|
|
estado_despacho CHAR(20),
|
|
vendedor CHAR(60),
|
|
sec_vend_sp VARCHAR(60),
|
|
num_req INT,
|
|
fecha DATE,
|
|
cotizacion_no INT,
|
|
num_oc INT,
|
|
tipo_venta CHAR(60),
|
|
cliente CHAR(60),
|
|
valor_cotizacion DEC(12,2),
|
|
valor_autorizar DEC(12,2),
|
|
sec_vend SMALLINT,
|
|
{ cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,}
|
|
tipo_cliente INT,
|
|
sec_cliente INT,
|
|
balance DEC(12,2),
|
|
balance_restante DEC(12,2)
|
|
END RECORD
|
|
|
|
|
|
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,
|
|
cuenta_no LIKE cctb00001.cuenta_no,
|
|
fecha_orig LIKE cctb00001.fecha_orig ,
|
|
comentario CHAR(60)
|
|
END RECORD
|
|
|
|
DEFINE arr_recibo DYNAMIC ARRAY OF RECORD
|
|
num_nc INTEGER,
|
|
cotizacion_no INT,
|
|
tipo_doc_aplica CHAR(2),
|
|
aplica_a LIKE cctb00001.aplica_a,
|
|
valor_pen DECIMAL(12,2),
|
|
num_cheque INT,
|
|
tipo_doc_recibo VARCHAR(2),
|
|
valor_cheque DEC(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 DYNAMIC ARRAY OF RECORD
|
|
aplica_a LIKE cctb00001.aplica_a,
|
|
pendiente DECIMAL(12,2),
|
|
fecha CHAR(10),
|
|
cotizacion_no INT,
|
|
num_oc INT,
|
|
factura_e INT,
|
|
tipo_doc CHAR(2)
|
|
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,
|
|
nombre_proyecto CHAR(30)
|
|
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
|
|
|
|
-- G6: cctb00002.fecha es datetime en SQL Server; en el programa se maneja como DATE
|
|
DEFINE relacion RECORD
|
|
fecha DATE,
|
|
cod_vend LIKE cctb00002.cod_vend,
|
|
sec_vend LIKE cctb00002.sec_vend,
|
|
sec_de LIKE cctb00002.sec_de,
|
|
sec_a LIKE cctb00002.sec_a,
|
|
status_t LIKE cctb00002.status_t,
|
|
us_crea LIKE cctb00002.us_crea,
|
|
fech_crea LIKE cctb00002.fech_crea,
|
|
us_mod LIKE cctb00002.us_mod,
|
|
fech_mod LIKE cctb00002.fech_mod
|
|
END RECORD
|
|
DEFINE rec_pago RECORD LIKE cctb00001.*
|
|
DEFINE cliente_bas RECORD LIKE vetb00004.*
|
|
DEFINE p_companias RECORD LIKE companias.*
|
|
DEFINE cliente_dir RECORD LIKE vetb00005.*
|
|
DEFINE transportista RECORD LIKE vetb00015.*
|
|
DEFINE lj INTEGER
|
|
|
|
END GLOBALS
|