Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,849 @@
|
||||
{
|
||||
-------------------------------------------------------------------------------
|
||||
PROGRAMA : INPRRP042
|
||||
OBJETIVO : REPORTE DIAS DE PRODUCCION CON ORDENES
|
||||
PROGRAMADOR : Ing. Juan Francisco Soto
|
||||
FECHA REALIZACION : Febrero 11, 1997
|
||||
-------------------------------------------------------------------------------
|
||||
}
|
||||
GLOBALS "inprgb000.4gl"
|
||||
|
||||
DEFINE sale CHAR(1)
|
||||
DEFINE p_ano CHAR(4)
|
||||
DEFINE codigo_act CHAR(10)
|
||||
DEFINE cons_prom_k,cons_prom,costo_e DECIMAL(12,4)
|
||||
|
||||
|
||||
# Variable que se incrementa para imprimir el arreglo
|
||||
DEFINE i SMALLINT
|
||||
|
||||
# Arreglo Para los equivalentes
|
||||
DEFINE equivalentes ARRAY[1000] OF RECORD
|
||||
codigo_p CHAR(10),
|
||||
descrip_p CHAR(30),
|
||||
unidad_p CHAR(3),
|
||||
existe_p DECIMAL(12,2),
|
||||
consumo_p DECIMAL(12,2),
|
||||
dia_llegada_p SMALLINT,
|
||||
fecha_p DATE,
|
||||
num_oc_p INTEGER,
|
||||
cantidad_p DECIMAL(12,2),
|
||||
costo_p DECIMAL(12,4),
|
||||
codigo_e CHAR(10),
|
||||
descrip_e CHAR(30),
|
||||
unidad_e CHAR(4),
|
||||
existe_e DECIMAL(12,2),
|
||||
consumo_e DECIMAL(12,2),
|
||||
dia_llegada_e SMALLINT,
|
||||
costo_e DECIMAL(12,4),
|
||||
fecha_e DATE,
|
||||
num_oc_e INTEGER,
|
||||
cantidad_e DECIMAL(12,2)
|
||||
END RECORD
|
||||
|
||||
DEFINE valor1 DECIMAL(12,2)
|
||||
|
||||
FUNCTION inprrp042()
|
||||
|
||||
# Variable que toma el valor de los dias que se va a valorar el reporte
|
||||
|
||||
# Variables varias para el control de busqueda de las informaciones
|
||||
DEFINE selec1,selec2,selec3,select_bal CHAR(1000)
|
||||
DEFINE mes CHAR(2)
|
||||
DEFINE tiene,salir,primera CHAR(1)
|
||||
DEFINE idx_3,idx_1,idx_b SMALLINT
|
||||
DEFINE dias1 SMALLINT
|
||||
|
||||
# Record para la validacion de los equivalente
|
||||
DEFINE equivale RECORD
|
||||
cod_n LIKE intb00001.cod_n,
|
||||
cod_grupo LIKE intb00001.cod_grupo,
|
||||
cod_tipo LIKE intb00001.cod_tipo,
|
||||
cod_sec LIKE intb00001.cod_sec,
|
||||
cod_n_e LIKE intb00001.cod_n,
|
||||
cod_grupo_e LIKE intb00001.cod_grupo,
|
||||
cod_tipo_e LIKE intb00001.cod_tipo,
|
||||
cod_sec_e LIKE intb00001.cod_sec,
|
||||
descrip_e LIKE intb00001.descrip_esp,
|
||||
unidad_e CHAR(34),
|
||||
existe_e DECIMAL(12,2),
|
||||
consumo_e DECIMAL(12,2),
|
||||
dia_llegada_e INTEGER
|
||||
END RECORD
|
||||
|
||||
# Record para la validacion de los costos del material
|
||||
DEFINE costo RECORD
|
||||
mes1 CHAR(2),
|
||||
mes2 CHAR(2),
|
||||
cod_n LIKE intb00001.cod_n,
|
||||
cod_grupo LIKE intb00001.cod_grupo,
|
||||
cod_tipo LIKE intb00001.cod_tipo,
|
||||
cod_sec LIKE intb00001.cod_sec,
|
||||
costo_st LIKE intb00013.costo_st
|
||||
END RECORD
|
||||
|
||||
# Record para el consumo de los materiales
|
||||
DEFINE consume RECORD
|
||||
cod_n LIKE intb00001.cod_n,
|
||||
cod_grupo LIKE intb00001.cod_grupo,
|
||||
cod_tipo LIKE intb00001.cod_tipo,
|
||||
cod_sec LIKE intb00001.cod_sec,
|
||||
consumo DECIMAL(14,2)
|
||||
END RECORD
|
||||
|
||||
# Record para la impresion del reporte, estas variables se validan con el
|
||||
# select que esta en la variable selec
|
||||
DEFINE estadis RECORD
|
||||
cod_n LIKE intb00001.cod_n,
|
||||
cod_grupo LIKE intb00001.cod_grupo,
|
||||
cod_tipo LIKE intb00001.cod_tipo,
|
||||
cod_sec LIKE intb00001.cod_sec,
|
||||
descrip_esp LIKE intb00001.descrip_esp,
|
||||
unidad_med LIKE intb00001.unidad_med,
|
||||
dia_llegada LIKE intb00002.dia_llegada,
|
||||
consumo LIKE intb00006.cantidad_1,
|
||||
existe LIKE intb00002.existencia,
|
||||
valor DECIMAL(12,4),
|
||||
costo DECIMAL(12,4),
|
||||
dias INTEGER ,
|
||||
fecha_llegada DATE,
|
||||
cantidad DECIMAL(12,2),
|
||||
num_oc INTEGER,
|
||||
p_cons_prom DECIMAL(12,2)
|
||||
END RECORD
|
||||
|
||||
# Record para las existencia de la materia prima
|
||||
DEFINE balances RECORD
|
||||
cod_n SMALLINT,
|
||||
cod_grupo SMALLINT,
|
||||
cod_tipo SMALLINT,
|
||||
cod_sec SMALLINT,
|
||||
balance LIKE intb00006.cantidad_2
|
||||
END RECORD
|
||||
|
||||
# WHENEVER ERROR CONTINUE
|
||||
|
||||
OPTIONS
|
||||
FORM LINE 8,
|
||||
ERROR LINE 23,
|
||||
COMMENT LINE 21
|
||||
|
||||
OPEN FORM infmrp042 FROM "infmrp004"
|
||||
DISPLAY FORM infmrp042
|
||||
|
||||
CALL pantalla()
|
||||
DISPLAY "inprrp042" AT 4,3
|
||||
DISPLAY "Dias de Produccion " AT 6,30
|
||||
LET tipo_papel = 1
|
||||
CALL msgrp000(tipo_papel)
|
||||
|
||||
INPUT BY NAME datos_cons.fech_in,datos_cons.fech_fi
|
||||
|
||||
AFTER FIELD fech_in
|
||||
IF datos_cons.fech_in IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fech_in
|
||||
END IF
|
||||
|
||||
AFTER FIELD fech_fi
|
||||
IF datos_cons.fech_fi IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fech_fi
|
||||
END IF
|
||||
END INPUT
|
||||
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
LET dias1 = datos_cons.fech_fi - datos_cons.fech_in
|
||||
LET dias1 = dias1 + 1
|
||||
LET p_ano = year(datos_cons.fech_fi)
|
||||
|
||||
CONSTRUCT criterio ON b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec
|
||||
FROM cod_n,cod_grupo,cod_tipo,cod_sec
|
||||
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
# Busqueda de los equivalentes
|
||||
LET selec2 =
|
||||
"SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,b.cod_n_e,b.cod_grupo_e,",
|
||||
" b.cod_tipo_e,b.cod_sec_e ",
|
||||
"FROM intb00004 b ",
|
||||
"WHERE b.status_t is null and ",criterio clipped,
|
||||
"UNION ",
|
||||
"SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,b.cod_n_s,b.cod_grupo_s,",
|
||||
" b.cod_tipo_s,b.cod_sec_s ",
|
||||
"FROM intb00003 b ",
|
||||
"WHERE b.status_t is null and ",criterio clipped," ORDER BY 1,2,3,4 "
|
||||
|
||||
DISPLAY "<< Estoy Buscando Equivalentes... Espere>>" AT 19,14
|
||||
|
||||
PREPARE comando1 FROM selec2
|
||||
DECLARE busca1 SCROLL CURSOR FOR comando1
|
||||
OPEN busca1
|
||||
|
||||
# Busqueda de los costos de los materiales
|
||||
LET selec1 =
|
||||
"SELECT b.mes_ini,max(b.mes_fin),b.cod_n,b.cod_grupo,b.cod_tipo, ",
|
||||
" b.cod_sec,b.costo_st ",
|
||||
"FROM intb00013 b ",
|
||||
"WHERE ",criterio clipped," and ano = ? ",
|
||||
"GROUP BY 1,3,4,5,6,7 ORDER BY 3,4,5,6"
|
||||
|
||||
DISPLAY "<< Estoy Buscando Costos... Espere >>" AT 19,14
|
||||
|
||||
PREPARE comando FROM selec1
|
||||
DECLARE busca3 SCROLL CURSOR FOR comando
|
||||
OPEN busca3 USING p_ano
|
||||
|
||||
LET select_bal =
|
||||
"SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,sum(b.cantidad_2) ",
|
||||
"FROM intb00006 b ",
|
||||
"WHERE ", criterio clipped," and b.status_t is null and b.fecha <= ? ",
|
||||
"GROUP BY 1,2,3,4 ORDER BY 1,2,3,4"
|
||||
|
||||
DISPLAY "<< Estoy Buscando Balances Iniciales >>" AT 19,14
|
||||
|
||||
PREPARE busca_balan FROM select_bal
|
||||
DECLARE material_bal SCROLL CURSOR FOR busca_balan
|
||||
OPEN material_bal USING datos_cons.fech_fi
|
||||
|
||||
LET SELEC =
|
||||
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
|
||||
" a.unidad_med,b.dia_llegada ",
|
||||
"FROM intb00001 a,intb00002 b ",
|
||||
"WHERE ",criterio clipped," AND a.cod_n = b.cod_n AND ",
|
||||
" a.cod_grupo = b.cod_grupo AND a.cod_tipo = b.cod_tipo AND ",
|
||||
" a.cod_sec = b.cod_sec AND a.status_t is null ",
|
||||
"GROUP BY 1,2,3,4,5,6,7 ORDER BY 1,2,3,4"
|
||||
|
||||
PREPARE busca FROM selec
|
||||
DECLARE accion CURSOR FOR busca
|
||||
OPEN accion
|
||||
|
||||
LET selec3 =
|
||||
"SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,sum(b.cantidad_2) ",
|
||||
"FROM intb00006 b ",
|
||||
"WHERE ",criterio clipped," AND b.status_t is null AND ",
|
||||
" b.fecha between ? AND ? AND b.cod_mov = 36 ",
|
||||
"GROUP BY 1,2,3,4 ORDER BY 1,2,3,4"
|
||||
|
||||
DISPLAY "<< Buscando Consumo Material... Por Favor Espere >>"
|
||||
AT 19,14 ATTRIBUTE (REVERSE)
|
||||
|
||||
PREPARE comando2 FROM selec3
|
||||
DECLARE consu SCROLL CURSOR FOR comando2
|
||||
OPEN consu USING datos_cons.fech_in,datos_cons.fech_fi
|
||||
|
||||
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
|
||||
AT 19,14 ATTRIBUTE (REVERSE)
|
||||
|
||||
START REPORT estadis_oc TO "C:\\archivo"
|
||||
|
||||
# Loop principal para la busqueda de la materia prima y el consumo
|
||||
LET idx = 1
|
||||
LET salir = "N"
|
||||
WHILE salir != "S"
|
||||
FETCH accion INTO estadis.*
|
||||
IF status = notfound THEN
|
||||
LET salir = "S"
|
||||
EXIT WHILE
|
||||
END IF
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
LET estadis.consumo = 0
|
||||
LET estadis.existe = 0
|
||||
LET estadis.valor = 0
|
||||
LET estadis.costo = 0
|
||||
|
||||
# Busca el primer registro del record consume
|
||||
#FETCH FIRST consu INTO consume.*
|
||||
|
||||
LET idx_b = 1
|
||||
LET sale = "N"
|
||||
WHILE sale != "S"
|
||||
FETCH ABSOLUTE idx_b consu INTO consume.*
|
||||
IF status = notfound THEN
|
||||
LET sale = "S"
|
||||
EXIT WHILE
|
||||
END IF
|
||||
LET idx_b = idx_b + 1
|
||||
IF consume.cod_n = estadis.cod_n AND
|
||||
consume.cod_grupo = estadis.cod_grupo AND
|
||||
consume.cod_Tipo = estadis.cod_tipo AND
|
||||
consume.cod_sec = estadis.cod_sec THEN
|
||||
|
||||
LET estadis.consumo = consume.consumo
|
||||
LET sale = "S"
|
||||
LET idx_b = 1
|
||||
EXIT WHILE
|
||||
END IF
|
||||
END WHILE
|
||||
|
||||
# Chequea que el codigo buscado no este como equivalente en el arreglo
|
||||
LET codigo_act = estadis.cod_n using "&","-",
|
||||
estadis.cod_grupo using "&","-",
|
||||
estadis.cod_tipo using "&&","-",
|
||||
estadis.cod_sec using "&&&"
|
||||
|
||||
IF estadis.consumo IS NULL THEN
|
||||
LET estadis.consumo = 0
|
||||
END IF
|
||||
LET tiene = "N"
|
||||
FOR i = 1 TO idx
|
||||
|
||||
IF codigo_act = equivalentes[i].codigo_e THEN
|
||||
LET tiene = "N"
|
||||
CONTINUE WHILE
|
||||
END IF
|
||||
END FOR
|
||||
|
||||
# Loop para busqueda del balance de la materia prima
|
||||
LET salir = "N"
|
||||
LET Idx_b = 1
|
||||
WHILE salir != "S"
|
||||
FETCH ABSOLUTE idx_b material_bal INTO balances.*
|
||||
IF status = notfound THEN
|
||||
LET idx_b = 1
|
||||
LET salir = "S"
|
||||
EXIT WHILE
|
||||
END IF
|
||||
|
||||
LET idx_b = idx_b + 1
|
||||
IF balances.cod_n = estadis.cod_n AND
|
||||
balances.cod_grupo = estadis.cod_grupo AND
|
||||
balances.cod_tipo = estadis.cod_tipo AND
|
||||
balances.cod_sec = estadis.cod_sec THEN
|
||||
|
||||
IF balances.balance IS NULL THEN
|
||||
LET balances.balance = 0
|
||||
END IF
|
||||
|
||||
LET estadis.existe = balances.balance
|
||||
LET salir = "S"
|
||||
LET idx_b = 1
|
||||
EXIT WHILE
|
||||
END IF
|
||||
END WHILE
|
||||
|
||||
# Busqueda del costo del material
|
||||
LET salir = "N"
|
||||
LET idx_1 = 1
|
||||
WHILE salir != "S"
|
||||
FETCH ABSOLUTE idx_1 busca3 INTO costo.*
|
||||
IF status = notfound THEN
|
||||
LET idx_1 = 1
|
||||
LET salir = "S"
|
||||
EXIT WHILE
|
||||
END IF
|
||||
LET idx_1 = idx_1 + 1
|
||||
|
||||
IF costo.cod_n = estadis.cod_n AND
|
||||
costo.cod_grupo = estadis.cod_grupo AND
|
||||
costo.cod_tipo = estadis.cod_tipo AND
|
||||
costo.cod_sec = estadis.cod_sec THEN
|
||||
|
||||
LET estadis.costo = costo.costo_st
|
||||
LET idx_1 = 1
|
||||
LET salir = "S"
|
||||
EXIT WHILE
|
||||
END IF
|
||||
END WHILE
|
||||
|
||||
# Busqueda de los equivalentes
|
||||
LET salir = "N"
|
||||
LET idx_3 = 1
|
||||
WHILE salir != "S"
|
||||
FETCH ABSOLUTE idx_3 busca1 INTO equivale.*
|
||||
|
||||
IF status = notfound THEN
|
||||
LET idx_3 = 1
|
||||
LET salir = "S"
|
||||
EXIT WHILE
|
||||
END IF
|
||||
|
||||
LET idx_3 = idx_3 + 1
|
||||
|
||||
LET equivale.descrip_e = null
|
||||
LET equivale.unidad_e = null
|
||||
LET equivale.consumo_e = 0
|
||||
LET equivale.existe_e = 0
|
||||
LET costo_e = 0
|
||||
|
||||
DISPLAY estadis.cod_grupo at 20,20
|
||||
DISPLAY estadis.cod_tipo at 20,30
|
||||
DISPLAY estadis.cod_sec at 20,40
|
||||
|
||||
DISPLAY equivale.cod_grupo at 21,20
|
||||
DISPLAY equivale.cod_tipo at 21,30
|
||||
DISPLAY equivale.cod_sec at 21,40
|
||||
#sleep 4
|
||||
IF equivale.cod_n = estadis.cod_n AND
|
||||
equivale.cod_grupo = estadis.cod_grupo AND
|
||||
equivale.cod_tipo = estadis.cod_tipo AND
|
||||
equivale.cod_sec = estadis.cod_sec THEN
|
||||
|
||||
SELECT a.descrip_esp,a.unidad_med,b.dia_llegada
|
||||
INTO equivale.descrip_e,equivale.unidad_e,equivale.dia_llegada_e
|
||||
FROM intb00001 a,intb00002 b
|
||||
WHERE a.cod_n=equivale.cod_n_e and a.cod_grupo=equivale.cod_grupo_e and
|
||||
a.cod_tipo=equivale.cod_tipo_e and a.cod_sec=equivale.cod_sec_e and
|
||||
b.cod_n=equivale.cod_n_e and b.cod_grupo=equivale.cod_grupo_e and
|
||||
b.cod_tipo=equivale.cod_tipo_e and b.cod_sec=equivale.cod_sec_e and
|
||||
b.status_t is null
|
||||
SELECT SUM(cantidad_2) INTO equivale.consumo_e FROM intb00006
|
||||
WHERE cod_n = equivale.cod_n_e and cod_grupo = equivale.cod_grupo_e and
|
||||
cod_tipo=equivale.cod_tipo_e and cod_sec=equivale.cod_sec_e and
|
||||
status_t is null and cod_mov = 36 and
|
||||
fecha between datos_cons.fech_in and datos_cons.fech_fi
|
||||
|
||||
SELECT SUM(cantidad_2) INTO equivale.existe_e FROM intb00006
|
||||
WHERE cod_n=equivale.cod_n_e and cod_grupo=equivale.cod_grupo_e and
|
||||
cod_tipo=equivale.cod_tipo_e and cod_sec=equivale.cod_sec_e and
|
||||
status_t is null and fecha <= datos_cons.fech_fi
|
||||
|
||||
# Busca el costo del equivalente
|
||||
SELECT costo_st INTO costo_e FROM intb00013
|
||||
WHERE cod_n = equivale.cod_n_e and cod_grupo = equivale.cod_grupo_e and
|
||||
cod_tipo=equivale.cod_tipo_e and cod_sec=equivale.cod_sec_e and
|
||||
status_t is null and ano = p_ano
|
||||
|
||||
IF status = notfound THEN
|
||||
LET status = 0
|
||||
END IF
|
||||
|
||||
LET equivalentes[idx].codigo_p = estadis.cod_n using "&","-",
|
||||
estadis.cod_grupo using "&","-",
|
||||
estadis.cod_tipo using "&&","-",
|
||||
estadis.cod_sec using "&&&"
|
||||
|
||||
LET equivalentes[idx].codigo_e = equivale.cod_n_e using "&","-",
|
||||
equivale.cod_grupo_e using "&","-",
|
||||
equivale.cod_tipo_e using "&&","-",
|
||||
equivale.cod_sec_e using "&&&"
|
||||
|
||||
LET estadis.fecha_llegada = null
|
||||
LET estadis.num_oc = null
|
||||
LET estadis.cantidad = null
|
||||
|
||||
SELECT MIN(a.fech_ent)
|
||||
INTO estadis.fecha_llegada
|
||||
FROM cotb00025 a,cotb00014 b
|
||||
WHERE a.cod_n = equivale.cod_n_e AND
|
||||
a.cod_grupo = equivale.cod_grupo_e AND
|
||||
a.cod_tipo = equivale.cod_tipo_e AND
|
||||
a.cod_sec = equivale.cod_sec_e AND
|
||||
a.fech_ent >= TODAY and a.status_t is null AND
|
||||
a.num_oc = b.num_oc AND b.cierre = "N"
|
||||
|
||||
SELECT MIN(a.num_oc)
|
||||
INTO estadis.num_oc
|
||||
FROM cotb00025 a,cotb00014 b
|
||||
WHERE a.cod_n = equivale.cod_n_e AND
|
||||
a.cod_grupo = equivale.cod_grupo_e AND
|
||||
a.cod_tipo = equivale.cod_tipo_e AND
|
||||
a.cod_sec = equivale.cod_sec_e AND
|
||||
a.fech_ent = estadis.fecha_llegada and a.status_t is null AND
|
||||
a.num_oc = b.num_oc AND b.cierre = "N"
|
||||
|
||||
LET estadis.cantidad = 0
|
||||
SELECT AVG(a.cantidad)
|
||||
INTO estadis.cantidad
|
||||
FROM cotb00025 a
|
||||
WHERE a.cod_n = equivale.cod_n_e AND
|
||||
a.cod_grupo = equivale.cod_grupo_e AND
|
||||
a.cod_tipo = equivale.cod_tipo_e AND
|
||||
a.cod_sec = equivale.cod_sec_e AND
|
||||
a.fech_ent = estadis.fecha_llegada AND
|
||||
a.num_oc = estadis.num_oc and a.status_t is null
|
||||
|
||||
|
||||
IF estadis.cantidad = 0 THEN
|
||||
LET estadis.num_oc = null
|
||||
LET estadis.fecha_llegada = null
|
||||
END IF
|
||||
LET equivalentes[idx].fecha_e = estadis.fecha_llegada
|
||||
LET equivalentes[idx].num_oc_e = estadis.num_oc
|
||||
LET equivalentes[idx].cantidad_e = estadis.cantidad
|
||||
LET estadis.fecha_llegada = null
|
||||
LET estadis.num_oc = null
|
||||
LET estadis.cantidad = null
|
||||
|
||||
SELECT MIN(a.fech_ent)
|
||||
INTO estadis.fecha_llegada
|
||||
FROM cotb00025 a,cotb00014 b
|
||||
WHERE a.cod_n = estadis.cod_n AND
|
||||
a.cod_grupo = estadis.cod_grupo AND
|
||||
a.cod_tipo = estadis.cod_tipo AND
|
||||
a.cod_sec = estadis.cod_sec AND
|
||||
a.fech_ent >= TODAY and a.status_t is null AND
|
||||
a.num_oc = b.num_oc AND b.cierre = "N"
|
||||
|
||||
SELECT MIN(a.num_oc)
|
||||
INTO estadis.num_oc
|
||||
FROM cotb00025 a,cotb00014 b
|
||||
WHERE a.cod_n = estadis.cod_n AND
|
||||
a.cod_grupo = estadis.cod_grupo AND
|
||||
a.cod_tipo = estadis.cod_tipo AND
|
||||
a.cod_sec = estadis.cod_sec AND
|
||||
a.fech_ent = estadis.fecha_llegada and a.status_t is null AND
|
||||
a.num_oc = b.num_oc AND b.cierre = "N"
|
||||
|
||||
LET estadis.cantidad = 0
|
||||
|
||||
SELECT AVG(a.cantidad)
|
||||
INTO estadis.cantidad
|
||||
FROM cotb00025 a
|
||||
WHERE a.cod_n = estadis.cod_n AND
|
||||
a.cod_grupo = estadis.cod_grupo AND
|
||||
a.cod_tipo = estadis.cod_tipo AND
|
||||
a.cod_sec = estadis.cod_sec AND
|
||||
a.fech_ent = estadis.fecha_llegada AND
|
||||
a.num_oc = estadis.num_oc and a.status_t is null
|
||||
|
||||
IF estadis.cantidad = 0 THEN
|
||||
LET estadis.num_oc = null
|
||||
LET estadis.fecha_llegada = null
|
||||
END IF
|
||||
|
||||
LET equivalentes[idx].fecha_p = estadis.fecha_llegada
|
||||
LET equivalentes[idx].num_oc_p = estadis.num_oc
|
||||
LET equivalentes[idx].cantidad_p = estadis.cantidad
|
||||
|
||||
LET equivalentes[idx].descrip_p = estadis.descrip_esp
|
||||
LET equivalentes[idx].unidad_p = estadis.unidad_med
|
||||
LET equivalentes[idx].existe_p = estadis.existe
|
||||
LET equivalentes[idx].consumo_p = estadis.consumo
|
||||
LET equivalentes[idx].dia_llegada_p = estadis.dia_llegada
|
||||
LET equivalentes[idx].costo_p = estadis.costo
|
||||
|
||||
LET equivalentes[idx].descrip_e = equivale.descrip_e
|
||||
LET equivalentes[idx].unidad_e = equivale.unidad_e
|
||||
LET equivalentes[idx].existe_e = equivale.existe_e
|
||||
LET equivalentes[idx].consumo_e = equivale.consumo_e
|
||||
LET equivalentes[idx].dia_llegada_e = equivale.dia_llegada_e
|
||||
LET equivalentes[idx].costo_e = costo_e
|
||||
|
||||
|
||||
LET tiene = "S"
|
||||
LET idx = idx + 1
|
||||
#EXIT WHILE
|
||||
END IF
|
||||
END WHILE
|
||||
|
||||
# Se multiplica por -1 por que el movimiento 36 es negativo
|
||||
IF estadis.consumo IS NULL THEN
|
||||
LET estadis.consumo = 0
|
||||
END IF
|
||||
LET estadis.consumo = estadis.consumo * -1
|
||||
|
||||
# Calculo para los dias de produccion
|
||||
LET cons_prom = 0
|
||||
IF estadis.consumo > 0 THEN
|
||||
LET cons_prom = estadis.consumo / dias1
|
||||
LET estadis.dias = (estadis.existe / estadis.consumo) * dias1
|
||||
END IF
|
||||
|
||||
# Calculo para el exedente de la existencia apartir de los dias de exeso
|
||||
# especificado
|
||||
|
||||
|
||||
# Control para salir el material, si: tiene = "S" es equivalente
|
||||
# tiene = "N" es principal
|
||||
|
||||
LET estadis.fecha_llegada = null
|
||||
LET estadis.num_oc = null
|
||||
LET estadis.cantidad = null
|
||||
|
||||
IF tiene = "N" THEN
|
||||
SELECT MIN(a.fech_ent)
|
||||
INTO estadis.fecha_llegada
|
||||
FROM cotb00025 a,cotb00014 b
|
||||
WHERE a.cod_n = estadis.cod_n AND
|
||||
a.cod_grupo = estadis.cod_grupo AND
|
||||
a.cod_tipo = estadis.cod_tipo AND
|
||||
a.cod_sec = estadis.cod_sec AND
|
||||
a.fech_ent >= TODAY and
|
||||
a.status_t is null AND
|
||||
a.num_oc = b.num_oc AND b.cierre = "N"
|
||||
|
||||
SELECT MIN(a.num_oc)
|
||||
INTO estadis.num_oc
|
||||
FROM cotb00025 a,cotb00014 b
|
||||
WHERE a.cod_n = estadis.cod_n AND
|
||||
a.cod_grupo = estadis.cod_grupo AND
|
||||
a.cod_tipo = estadis.cod_tipo AND
|
||||
a.cod_sec = estadis.cod_sec AND
|
||||
a.fech_ent = estadis.fecha_llegada and
|
||||
a.status_t is null AND
|
||||
a.num_oc = b.num_oc AND b.cierre = "N"
|
||||
|
||||
SELECT AVG(a.cantidad)
|
||||
INTO estadis.cantidad
|
||||
FROM cotb00025 a
|
||||
WHERE a.cod_n = estadis.cod_n AND
|
||||
a.cod_grupo = estadis.cod_grupo AND
|
||||
a.cod_tipo = estadis.cod_tipo AND
|
||||
a.cod_sec = estadis.cod_sec AND
|
||||
a.fech_ent= estadis.fecha_llegada AND
|
||||
a.num_oc = estadis.num_oc and
|
||||
a.status_t is null
|
||||
|
||||
IF estadis.cantidad = 0 THEN
|
||||
LET estadis.num_oc = null
|
||||
LET estadis.fecha_llegada = null
|
||||
END IF
|
||||
|
||||
LET estadis.p_cons_prom = cons_prom * 30
|
||||
OUTPUT TO REPORT estadis_oc(estadis.*,dias1)
|
||||
LET estadis.p_cons_prom = 0
|
||||
END IF
|
||||
LET tiene = "N"
|
||||
LET salir = "N"
|
||||
END WHILE
|
||||
|
||||
FINISH REPORT estadis_oc
|
||||
CLEAR SCREEN
|
||||
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
|
||||
|
||||
REPORT estadis_oc(x,dias2)
|
||||
DEFINE x RECORD
|
||||
cod_n LIKE intb00001.cod_n,
|
||||
cod_grupo LIKE intb00001.cod_grupo,
|
||||
cod_tipo LIKE intb00001.cod_tipo,
|
||||
cod_sec LIKE intb00001.cod_sec,
|
||||
descrip_esp LIKE intb00001.descrip_esp,
|
||||
unidad_med LIKE intb00001.unidad_med,
|
||||
dia_llegada LIKE intb00002.dia_llegada,
|
||||
consumo LIKE intb00006.cantidad_1,
|
||||
existe LIKE intb00002.existencia,
|
||||
valor DECIMAL(12,3),
|
||||
costo DECIMAL(12,4),
|
||||
dias INTEGER ,
|
||||
fecha_llegada DATE,
|
||||
cantidad DECIMAL(12,2),
|
||||
num_oc INTEGER,
|
||||
p_cons_prom DECIMAL(12,2)
|
||||
END RECORD
|
||||
|
||||
DEFINE primera CHAR(1)
|
||||
DEFINE codigo_ant CHAR(10)
|
||||
DEFINE consume DECIMAL (12,2)
|
||||
DEFINE normal,dsiete,negra,doble,doble_off,borra,comp_off CHAR(2)
|
||||
DEFINE promedio DECIMAL(10,2)
|
||||
DEFINE doce,comp CHAR(3)
|
||||
DEFINE dias,no_r SMALLINT
|
||||
DEFINE dias4,dias5,dias3,dias2 SMALLINT
|
||||
DEFINE hora CHAR(5)
|
||||
DEFINE t_valor,existe_p,consumo_p DECIMAL(12,2)
|
||||
|
||||
OUTPUT
|
||||
LEFT MARGIN 1
|
||||
|
||||
FORMAT
|
||||
PAGE HEADER
|
||||
IF no_r is null THEN
|
||||
LET no_r = 0
|
||||
END IF
|
||||
|
||||
LET doble = ASCII 14
|
||||
LET doble_off = ASCII 20
|
||||
LET negra = ASCII 27, ASCII 69
|
||||
LET borra = ASCII 27, ASCII 70
|
||||
LET comp = ASCII 15
|
||||
LET dsiete = ASCII 17
|
||||
LET comp_off = ASCII 18
|
||||
LET doce = ASCII 030
|
||||
LET normal = ASCII 27, ASCII 80
|
||||
LET hora = time
|
||||
|
||||
LET lj = (126 - LENGTH(p_companias.nombre CLIPPED))/2
|
||||
PRINT COLUMN 1, comp
|
||||
PRINT COLUMN 1, "inprrp042",
|
||||
COLUMN lj, p_companias.nombre CLIPPED,
|
||||
COLUMN 119, "Pag. ", pageno USING "###"
|
||||
PRINT COLUMN 40, " Sistema de Inventario de Materia Prima",
|
||||
COLUMN 119, today using "dd/mm/yyyy"
|
||||
PRINT COLUMN 40, " Dias De Produccion",
|
||||
COLUMN 122, hora
|
||||
|
||||
SKIP 1 LINES
|
||||
PRINT COLUMN 1, "Desde ",datos_cons.fech_in using "dd/mm/yyyy",
|
||||
COLUMN 20, "Hasta ", datos_cons.fech_fi using "dd/mm/yyyy"
|
||||
|
||||
PRINT COLUMN 1, "--------------------------------------------------",
|
||||
"--------------------------------------------------",
|
||||
"-------------------------------------------"
|
||||
PRINT COLUMN 50, "Consumo",
|
||||
COLUMN 64, "Consumo",
|
||||
COLUMN 90, "Dias de" ,
|
||||
COLUMN 107, "Dias de",
|
||||
COLUMN 115, "Fecha",
|
||||
COLUMN 138, "Numero"
|
||||
|
||||
PRINT COLUMN 1, "Codigo",
|
||||
COLUMN 14, "Descripcion",
|
||||
COLUMN 50, "Del Periodo",
|
||||
COLUMN 64, "De 30 Dias",
|
||||
COLUMN 79, "Existencia",
|
||||
COLUMN 90, "Inventario",
|
||||
COLUMN 107, "Llegada",
|
||||
COLUMN 115, "Llegada",
|
||||
COLUMN 128, "Cantidad",
|
||||
COLUMN 138, "Orden"
|
||||
|
||||
PRINT COLUMN 1, "--------------------------------------------------",
|
||||
"--------------------------------------------------",
|
||||
"-------------------------------------------"
|
||||
|
||||
skip 1 line
|
||||
|
||||
ON EVERY ROW
|
||||
LET dias3 = x.fecha_llegada - TODAY
|
||||
IF x.consumo = 0 THEN
|
||||
LET x.dias = 0
|
||||
END IF
|
||||
|
||||
IF x.cantidad = 0 OR
|
||||
x.cantidad IS NULL THEN
|
||||
LET x.fecha_llegada = null
|
||||
LET x.num_oc = null
|
||||
LET dias3 = 0
|
||||
END IF
|
||||
|
||||
PRINT COLUMN 1, x.cod_n USING "&","-",x.cod_grupo USING "&","-",
|
||||
x.cod_tipo USING "&&","-",x.cod_sec USING "&&&",
|
||||
COLUMN 14, x.descrip_esp,
|
||||
COLUMN 45, x.unidad_med,
|
||||
COLUMN 48, x.consumo USING "##,###,###.##",
|
||||
COLUMN 62, x.p_cons_prom USING "#,###,###.##",
|
||||
COLUMN 75, x.existe USING "---,---,---.##",
|
||||
COLUMN 90, x.dias USING "######" ,
|
||||
COLUMN 107, dias3 using "###",
|
||||
COLUMN 114, x.fecha_llegada USING "DD/MM/YY",
|
||||
COLUMN 124, x.cantidad USING "##,###,###.##",
|
||||
COLUMN 138, x.num_oc USING "&&&&&&"
|
||||
|
||||
|
||||
LET no_r = no_r + 1
|
||||
LET consumo_p = 0
|
||||
LET existe_p = 0
|
||||
ON LAST ROW
|
||||
SKIP 2 LINES
|
||||
PRINT COLUMN 1, "==================================================",
|
||||
"==================================================",
|
||||
"======================================"
|
||||
PRINT COLUMN 50, "EQUIVALENTES / SUSTITUTOS"
|
||||
|
||||
SKIP 1 LINE
|
||||
LET x.dias = 0
|
||||
LET existe_p = 0
|
||||
LET consumo_p = 0
|
||||
FOR i = 1 TO idx
|
||||
IF equivalentes[i].codigo_p is not null THEN
|
||||
IF codigo_ant != equivalentes[i].codigo_p THEN
|
||||
LET codigo_ant = equivalentes[i].codigo_p
|
||||
LET primera = "S"
|
||||
END IF
|
||||
|
||||
IF equivalentes[i].consumo_p is null THEN
|
||||
LET equivalentes[i].consumo_p = 0
|
||||
END IF
|
||||
|
||||
IF equivalentes[i].consumo_e is null THEN
|
||||
LET equivalentes[i].consumo_e = 0
|
||||
END IF
|
||||
|
||||
IF equivalentes[i].existe_p is null THEN
|
||||
LET equivalentes[i].existe_p = 0
|
||||
END IF
|
||||
|
||||
IF equivalentes[i].existe_e is null THEN
|
||||
LET equivalentes[i].existe_e = 0
|
||||
END IF
|
||||
|
||||
LET existe_p = equivalentes[i].existe_p +
|
||||
equivalentes[i].existe_e
|
||||
|
||||
LET consumo_p = equivalentes[i].consumo_p +
|
||||
equivalentes[i].consumo_e
|
||||
|
||||
# Calculo para los dias de produccion
|
||||
IF consumo_p < 0 THEN
|
||||
LET consumo_p = consumo_p * -1
|
||||
END IF
|
||||
LET cons_prom_k = 0
|
||||
IF consumo_p > 0 THEN
|
||||
LET cons_prom = consumo_p / dias2
|
||||
LET x.dias = (existe_p /
|
||||
consumo_p) * dias2
|
||||
LET cons_prom_k = cons_prom * 30
|
||||
END IF
|
||||
# Calculo para el exedente de la existencia apartir de los dias de exeso
|
||||
# especificado
|
||||
LET dias4 = equivalentes[i].fecha_p - TODAY
|
||||
LET dias5 = equivalentes[i].fecha_e - TODAY
|
||||
|
||||
IF equivalentes[i].cantidad_p IS NULL OR
|
||||
equivalentes[i].cantidad_p = 0 THEN
|
||||
LET equivalentes[i].num_oc_p = null
|
||||
LET equivalentes[i].fecha_p = null
|
||||
LET dias4 = 0
|
||||
END IF
|
||||
PRINT COLUMN 1, equivalentes[i].codigo_p,
|
||||
COLUMN 14, equivalentes[i].descrip_p,
|
||||
COLUMN 45, equivalentes[i].unidad_p,
|
||||
COLUMN 48, equivalentes[i].consumo_p using "##,###,###.##",
|
||||
COLUMN 75, equivalentes[i].existe_p using "--,---,---.##",
|
||||
COLUMN 107, dias4 using "####",
|
||||
COLUMN 114, equivalentes[i].fecha_p USING "DD/MM/YY",
|
||||
COLUMN 124, equivalentes[i].cantidad_p USING "##,###,###.##",
|
||||
COLUMN 138, equivalentes[i].num_oc_p USING "&&&&&&"
|
||||
|
||||
IF equivalentes[i].cantidad_e IS NULL OR
|
||||
equivalentes[i].cantidad_e = 0 THEN
|
||||
LET equivalentes[i].num_oc_e = null
|
||||
LET equivalentes[i].fecha_e = null
|
||||
LET dias5 = 0
|
||||
END IF
|
||||
PRINT COLUMN 1, equivalentes[i].codigo_e,
|
||||
COLUMN 14, equivalentes[i].descrip_e,
|
||||
COLUMN 45, equivalentes[i].unidad_e,
|
||||
COLUMN 48, equivalentes[i].consumo_e using "##,###,###.##",
|
||||
COLUMN 75, equivalentes[i].existe_e using "--,---,---.##",
|
||||
COLUMN 107, dias5 using "####",
|
||||
COLUMN 114, equivalentes[i].fecha_e USING "DD/MM/YY",
|
||||
COLUMN 124, equivalentes[i].cantidad_e USING "##,###,###.##",
|
||||
COLUMN 138, equivalentes[i].num_oc_e USING "&&&&&&"
|
||||
|
||||
PRINT COLUMN 48, "--------------",
|
||||
COLUMN 64, "--------------"
|
||||
PRINT COLUMN 48, consumo_p using "##,###,###.##",
|
||||
COLUMN 64, cons_prom_k USING "#,###,###.##",
|
||||
COLUMN 75, existe_p using "--,---,---.##",
|
||||
COLUMN 90, x.dias using "####"
|
||||
SKIP 1 LINE
|
||||
LET no_r = no_r + 2
|
||||
END IF
|
||||
END FOR
|
||||
|
||||
PRINT COLUMN 4, "Total Registros Impresos =", no_r USING "<<<<"
|
||||
PRINT COLUMN 1, normal
|
||||
LET t_valor = 0
|
||||
LET no_r = 0
|
||||
END REPORT
|
||||
@@ -0,0 +1,30 @@
|
||||
FUNCTION bodegas(cb2)
|
||||
|
||||
DEFINE ketiquetas SMALLINT, detiquetas CHAR(30),
|
||||
cbodegas ui.ComboBox,
|
||||
cb2 CHAR(2)
|
||||
|
||||
LET cbodegas = ui.combobox.forname("formonly.bodega")
|
||||
DECLARE bbodegas CURSOR FOR
|
||||
SELECT a.cod_bodega,a.descripcion FROM intb00009 a
|
||||
ORDER BY a.cod_bodega
|
||||
CALL cbodegas.clear()
|
||||
|
||||
FOREACH bbodegas INTO ketiquetas,detiquetas
|
||||
CALL cbodegas.additem(ketiquetas,detiquetas)
|
||||
END FOREACH
|
||||
|
||||
IF cb2 ='2' THEN
|
||||
LET cbodegas = ui.combobox.forname("formonly.bodega_destino")
|
||||
DECLARE bbodegas2 CURSOR FOR
|
||||
SELECT a.cod_bodega,a.descripcion FROM intb00009 a
|
||||
ORDER BY a.descripcion
|
||||
CALL cbodegas.clear()
|
||||
|
||||
FOREACH bbodegas2 INTO ketiquetas,detiquetas
|
||||
CALL cbodegas.additem(ketiquetas,detiquetas)
|
||||
END FOREACH
|
||||
|
||||
END IF
|
||||
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,19 @@
|
||||
FUNCTION cincodmov()
|
||||
|
||||
DEFINE ketiquetas SMALLINT, detiquetas CHAR(30),
|
||||
cbcategoria ui.ComboBox,
|
||||
cb2 CHAR(2)
|
||||
|
||||
LET cbcategoria = ui.combobox.forname("formonly.cod_mov")
|
||||
DECLARE bcategoria CURSOR FOR
|
||||
SELECT a.cod_mov,a.descrip_mov FROM intb00005 a
|
||||
ORDER BY a.descrip_mov
|
||||
CALL cbcategoria.clear()
|
||||
|
||||
FOREACH bcategoria INTO ketiquetas,detiquetas
|
||||
LET detiquetas = "(",ketiquetas USING "<<<",")",detiquetas CLIPPED
|
||||
CALL cbcategoria.additem(ketiquetas,detiquetas)
|
||||
END FOREACH
|
||||
|
||||
END FUNCTION
|
||||
|
||||
@@ -0,0 +1,577 @@
|
||||
{
|
||||
-------------------------------------------------------------------------------
|
||||
PROGRAMA : EDPRRP001
|
||||
OBJETIVO : Listar las Entrada de Diario MAT. PRIMA
|
||||
PROGRAMADOR : JUAN F. SOTO
|
||||
FECHA REALIZACION : FEBRERO 20, 1998.
|
||||
-------------------------------------------------------------------------------
|
||||
}
|
||||
DATABASE exteriro
|
||||
GLOBALS
|
||||
|
||||
DEFINE salir CHAR(1)
|
||||
DEFINE select_ac,select_ant,select_p CHAR(1000)
|
||||
DEFINE l,idx_ac,ano,idx_a,idx_c SMALLINT
|
||||
DEFINE ano_act,c_ano CHAR(4)
|
||||
DEFINE fecha_2 CHAR(8)
|
||||
DEFINE fecha_ini_per CHAR(8),
|
||||
p_compania RECORD LIKE companias.*,
|
||||
criterio CHAR(100)
|
||||
|
||||
###### Variables para busqueda de rango de fecha
|
||||
|
||||
DEFINE detalle CHAR(30)
|
||||
DEFINE mes SMALLINT
|
||||
DEFINE tasa DECIMAL(5,2)
|
||||
DEFINE p_fecha,fecha1, fecha2 DATE
|
||||
DEFINE nominas CHAR(1)
|
||||
DEFINE entra CHAR(14)
|
||||
DEFINE entra1 CHAR(9)
|
||||
DEFINE tipo_papel SMALLINT
|
||||
DEFINE afecta CHAR(1)
|
||||
DEFINE mano_ob,costo_st,costo_st6,gastos DECIMAL(12,2)
|
||||
|
||||
###### Variables para almacenar los datos selecionados
|
||||
DEFINE selec5, selec6 CHAR(1500)
|
||||
|
||||
###### Variables que la almacenan la informacion enviada al reporte
|
||||
|
||||
DEFINE acumulado RECORD
|
||||
cod_mov LIKE intb00006.cod_mov,
|
||||
#cod_cia LIKE intb00006.cod_cia,
|
||||
cod_n LIKE intb00002.cod_n,
|
||||
cod_grupo LIKE intb00002.cod_grupo,
|
||||
cod_tipo LIKE intb00002.cod_tipo,
|
||||
cod_sec LIKE intb00002.cod_sec,
|
||||
descrip_esp LIKE intb00001.descrip_esp,
|
||||
unidad_med LIKE intb00001.unidad_med,
|
||||
descrip_mov LIKE intb00005.descrip_mov,
|
||||
consumo LIKE intb00006.cantidad_2,
|
||||
costo_st LIKE intb00013.costo_st,
|
||||
ccosto_st LIKE intb00005.cuenta_1,
|
||||
cuenta_cia LIKE iptb00022.cuenta_no
|
||||
END RECORD
|
||||
|
||||
DEFINE diario2 RECORD
|
||||
cod_n SMALLINT,
|
||||
cod_grupo SMALLINT,
|
||||
cod_tipo SMALLINT,
|
||||
cod_sec SMALLINT,
|
||||
costo DECIMAL(12,2)
|
||||
END RECORD
|
||||
DEFINE salir1 CHAR(1)
|
||||
DEFINE idx INTEGER
|
||||
END GLOBALS
|
||||
|
||||
MAIN
|
||||
DEFER INTERRUPT
|
||||
CALL edprrp506()
|
||||
END MAIN
|
||||
|
||||
FUNCTION edprrp506()
|
||||
|
||||
OPTIONS
|
||||
FORM LINE 8,
|
||||
ERROR LINE 23,
|
||||
COMMENT LINE 21
|
||||
|
||||
##### Abriendo y desplegando el formulario de captura de datos
|
||||
|
||||
OPEN FORM edfmrp001 FROM "edfmrp001"
|
||||
DISPLAY FORM edfmrp001
|
||||
CALL pantalla()
|
||||
DISPLAY "edprrp001" AT 4,3
|
||||
DISPLAY "Entrada de Diario de MAT. PRIMA" AT 6,22
|
||||
|
||||
LET tipo_papel = 1
|
||||
CALL msgrp000(tipo_papel)
|
||||
|
||||
###### Aceptando los valores para el rango de fecha
|
||||
|
||||
INPUT BY NAME entra,fecha1,fecha2,afecta,detalle
|
||||
|
||||
AFTER FIELD entra
|
||||
SELECT unique ref FROM cgtb00004
|
||||
WHERE ref = entra
|
||||
|
||||
IF STATUS != NOTFOUND THEN
|
||||
ERROR "(12) REGISTRO EXISTE"
|
||||
NEXT FIELD entra
|
||||
END IF
|
||||
|
||||
LET entra1 = entra
|
||||
|
||||
BEFORE FIELD fecha1
|
||||
SELECT MAX(fecha) INTO p_fecha FROM cgtb00004
|
||||
WHERE ref = entra1
|
||||
LET fecha1 = p_fecha + 1
|
||||
|
||||
DISPLAY BY NAME fecha1
|
||||
|
||||
AFTER FIELD fecha1
|
||||
IF fecha1 IS NULL THEN
|
||||
ERROR "(16) CAMPO EN BLANCO"
|
||||
NEXT FIELD fecha1
|
||||
END IF
|
||||
|
||||
IF fecha1 <= p_fecha THEN
|
||||
ERROR "(179) EXISTE ENTRADA DE DIARIO CON ESA FECHA"
|
||||
NEXT FIELD fecha1
|
||||
END IF
|
||||
|
||||
AFTER FIELD fecha2
|
||||
IF fecha2 is null THEN
|
||||
ERROR "(16) CAMPO EN BLANCO"
|
||||
NEXT FIELD fecha2
|
||||
END IF
|
||||
|
||||
IF fecha1 > fecha2 THEN
|
||||
ERROR "(149) FECHA NO PUEDE SER MAYOR QUE LA ANTERIOR"
|
||||
NEXT FIELD fecha1
|
||||
END IF
|
||||
|
||||
###### Selecionando en rango de fecha de la tabla de periodo para el fecha2
|
||||
|
||||
SELECT UNIQUE ref FROM cgtb00004 where ref = entra
|
||||
|
||||
IF STATUS != NOTFOUND THEN
|
||||
ERROR "(12) REGISTRO EXISTE"
|
||||
NEXT FIELD fecha2
|
||||
END IF
|
||||
|
||||
END INPUT
|
||||
##### Creando la facilidad para cancelar proceso con DELETE O SUPR
|
||||
|
||||
IF int_flag THEN
|
||||
ERROR "(2) OPERACION CANCELADA"
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
CONSTRUCT BY NAME criterio ON a.cod_mov
|
||||
IF int_flag THEN
|
||||
ERROR "(2) OPERACION CANCELADA"
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
# Busca la informacion requerida
|
||||
|
||||
DISPLAY "<< Buscando Informacion ... Espere Por Favor. >>" AT 19,14
|
||||
ATTRIBUTE (REVERSE,BOLD)
|
||||
|
||||
LET select_ac =
|
||||
"SELECT a.cod_mov,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
|
||||
" e.descrip_esp,e.unidad_med,d.descrip_mov,SUM(a.cantidad_2), ",
|
||||
" MAX(b.costo_st),d.cuenta_1, ",
|
||||
" d.cuenta_2 ",
|
||||
"FROM intb00006 a,intb00002 c,intb00005 d,intb00001 e, OUTER intb00013 b ",
|
||||
"WHERE a.fecha between ? and ? and a.status_t is NULL AND ",
|
||||
" b.ano = YEAR(?) AND ",
|
||||
" b.mes_fin = 12 AND ",
|
||||
" a.cod_n = b.cod_n AND a.cod_grupo = b.cod_grupo AND ",
|
||||
" a.cod_tipo=b.cod_tipo AND a.cod_sec = b.cod_sec AND ",
|
||||
" a.cod_n = c.cod_n AND a.cod_grupo = c.cod_grupo AND ",
|
||||
" a.cod_tipo=c.cod_tipo AND a.cod_sec = c.cod_sec AND ",
|
||||
" a.cod_n = e.cod_n AND a.cod_grupo = e.cod_grupo AND ",
|
||||
" a.cod_tipo=e.cod_tipo AND a.cod_sec = e.cod_sec AND ",
|
||||
" a.cod_mov = d.cod_mov ",
|
||||
" AND ",criterio CLIPPED,
|
||||
"GROUP BY 1,2,3,4,5,6,7,8,11,12 "
|
||||
|
||||
PREPARE busca_ant FROM select_ac
|
||||
DECLARE actual SCROLL CURSOR FOR busca_ant
|
||||
OPEN actual USING fecha1,fecha2,fecha2
|
||||
|
||||
DISPLAY " "
|
||||
AT 19,14
|
||||
|
||||
##### Envia la Informacion al printer de contabilidad
|
||||
|
||||
##### Loop para enviar informacion al reporte
|
||||
|
||||
START REPORT opera TO "C:\\archivo"
|
||||
START REPORT xentrada TO "C:\\archivo1"
|
||||
|
||||
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
|
||||
AT 19,14 ATTRIBUTE (REVERSE)
|
||||
|
||||
WHILE status != notfound
|
||||
FETCH actual INTO acumulado.*
|
||||
IF STATUS = NOTFOUND THEN
|
||||
EXIT WHILE
|
||||
END IF
|
||||
|
||||
IF int_flag THEN
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
OUTPUT TO REPORT opera(acumulado.*,fecha1,fecha2,entra,detalle)
|
||||
OUTPUT TO REPORT xentrada(acumulado.*,fecha1,fecha2,entra,detalle)
|
||||
END WHILE
|
||||
FINISH REPORT opera
|
||||
FINISH REPORT xentrada
|
||||
|
||||
RUN "type C:\\archivo > %USPRINT%"
|
||||
RUN "type C:\\archivo1 > %USPRINT%"
|
||||
END FUNCTION
|
||||
|
||||
#### Funcion para dar salida ordenada a la informacion requerida de
|
||||
#### una entrada de diario de nominas local
|
||||
|
||||
{
|
||||
Esta funcion se utiliza para desplegar mensajes de los reportes de
|
||||
los sistemas de Ray-O-Vac Dominicana.
|
||||
|
||||
Realizada por Lic. Abner Montalvo y Johnny Soto Agosto 21, 1992
|
||||
}
|
||||
FUNCTION msgrp000(tipo_papel)
|
||||
DEFINE tipo_papel SMALLINT,
|
||||
longitud CHAR(11),
|
||||
linea_papel CHAR(50)
|
||||
|
||||
CASE
|
||||
WHEN tipo_papel = 1
|
||||
LET longitud = " 9 1/2 x 11"
|
||||
WHEN tipo_papel = 2
|
||||
LET longitud = "14 7/8 x 11"
|
||||
END CASE
|
||||
|
||||
LET linea_papel = "Coloque papel ",longitud," en la impresora."
|
||||
DISPLAY linea_papel
|
||||
AT 15,14
|
||||
DISPLAY "Asegurese de que la impresora este encendida."
|
||||
AT 16,14
|
||||
DISPLAY "<Esc> Ejecuta impresion <Supr> Cancela impresion"
|
||||
AT 18,14
|
||||
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION pantalla()
|
||||
DEFINE fecha CHAR(8),
|
||||
hora char(5)
|
||||
SELECT * INTO p_compania.*
|
||||
FROM companias
|
||||
LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
|
||||
LET fecha = today USING "dd/mm/yy"
|
||||
LET hora = time
|
||||
DISPLAY p_compania.nombre CLIPPED AT 4,l
|
||||
ATTRIBUTE (REVERSE,YELLOW)
|
||||
DISPLAY fecha AT 4,70 ATTRIBUTE (YELLOW)
|
||||
DISPLAY "Sistema de Contabilidad General" AT 5,24
|
||||
DISPLAY hora AT 6,73 ATTRIBUTE(YELLOW)
|
||||
|
||||
CALL fgl_drawbox(5,79,3,1)
|
||||
CALL fgl_drawbox(1,79,22,1)
|
||||
END FUNCTION
|
||||
|
||||
REPORT opera(x,fecha1,fecha2,entrada,detalle1)
|
||||
DEFINE x RECORD
|
||||
cod_mov LIKE intb00006.cod_mov,
|
||||
#cod_cia LIKE intb00006.cod_cia,
|
||||
cod_n LIKE intb00002.cod_n,
|
||||
cod_grupo LIKE intb00002.cod_grupo,
|
||||
cod_tipo LIKE intb00002.cod_tipo,
|
||||
cod_sec LIKE intb00002.cod_sec,
|
||||
descrip_esp LIKE intb00001.descrip_esp,
|
||||
unidad_med LIKE intb00001.unidad_med,
|
||||
descrip_mov LIKE intb00005.descrip_mov,
|
||||
consumo LIKE intb00006.cantidad_2,
|
||||
costo_st LIKE intb00013.costo_st,
|
||||
ccosto_st LIKE intb00005.cuenta_1,
|
||||
cuenta_cia LIKE iptb00022.cuenta_no
|
||||
END RECORD
|
||||
|
||||
DEFINE fecha1,fecha2 DATE
|
||||
DEFINE l SMALLINT
|
||||
DEFINE c_ano1 char(4)
|
||||
DEFINE doble_on CHAR(3)
|
||||
DEFINE doble_off CHAR(3)
|
||||
DEFINE negrillas_on CHAR(6)
|
||||
DEFINE negrillas_off CHAR(6)
|
||||
DEFINE comp_on CHAR(3)
|
||||
DEFINE comp_off CHAR(3)
|
||||
DEFINE doce CHAR(3)
|
||||
DEFINE normal CHAR(2)
|
||||
DEFINE hora CHAR(5)
|
||||
DEFINE total_p DECIMAL(12,3)
|
||||
|
||||
DEFINE total_costo_st,t_t_total,t_t_t_total,
|
||||
t_total_costo_st,t_cantidad
|
||||
DECIMAL (12,2)
|
||||
|
||||
DEFINE ttotal_costo_st,tt_t_total,tt_t_t_total,
|
||||
tt_total_costo_st,tt_cantidad
|
||||
DECIMAL (12,2)
|
||||
DEFINE total1,costo_st2,costo_st1,mano_ob1,gasto1,mano_ob2,gasto2
|
||||
DECIMAL(12,2)
|
||||
DEFINE entrada CHAR(14)
|
||||
DEFINE detalle1 CHAR(30)
|
||||
|
||||
OUTPUT
|
||||
TOP MARGIN 0
|
||||
LEFT MARGIN 0
|
||||
BOTTOM MARGIN 2
|
||||
|
||||
ORDER BY x.cod_mov,x.cod_n,x.cod_grupo,x.cod_tipo,x.cod_sec
|
||||
|
||||
FORMAT
|
||||
|
||||
PAGE HEADER
|
||||
|
||||
LET doble_on = ASCII 14
|
||||
LET doble_off = ASCII 20
|
||||
LET negrillas_on = ASCII 27, ASCII 69
|
||||
LET negrillas_off = ASCII 27, ASCII 70
|
||||
LET comp_on = ASCII 15
|
||||
LET comp_off = ASCII 18
|
||||
LET hora = time
|
||||
LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
|
||||
PRINT COLUMN 1, comp_off,"edprrp001",
|
||||
COLUMN l, p_compania.nombre CLIPPED,
|
||||
COLUMN 75, "Pag. ",pageno using "###"
|
||||
LET l = (80 - LENGTH("Sistema de Entradas Al Diario")) / 2
|
||||
PRINT COLUMN l, "Sistema de Entradas Al Diario",
|
||||
COLUMN 75, today using "dd/mm/yy"
|
||||
|
||||
{
|
||||
LET l = (80 - LENGTH(x.descrip_mov CLIPPED)) / 2
|
||||
PRINT COLUMN l, x.descrip_mov CLIPPED,}
|
||||
PRINT COLUMN 78, hora
|
||||
|
||||
PRINT COLUMN 28, "Del ",fecha1 USING "dd/mm/yy", " Al ",fecha2
|
||||
USING "dd/mm/yy"
|
||||
PRINT comp_on
|
||||
SKIP 1 LINES
|
||||
|
||||
PRINT COLUMN 1, "--------------------------------------------------",
|
||||
"--------------------------------------------------",
|
||||
"----------------------------------------"
|
||||
|
||||
PRINT COLUMN 73, "Costo"
|
||||
|
||||
PRINT COLUMN 4, "Movimiento",
|
||||
COLUMN 49, "Cantidad",
|
||||
COLUMN 73, "Material",
|
||||
COLUMN 90 , "Total"
|
||||
|
||||
PRINT COLUMN 1, "--------------------------------------------------",
|
||||
"--------------------------------------------------",
|
||||
"----------------------------------------"
|
||||
BEFORE GROUP OF x.cod_mov
|
||||
|
||||
PRINT COLUMN 1, x.cod_mov using "&&",
|
||||
COLUMN 7, x.descrip_mov
|
||||
SKIP 1 LINE
|
||||
|
||||
ON EVERY ROW
|
||||
|
||||
IF x.consumo IS NOT NULL THEN
|
||||
PRINT COLUMN 1, x.cod_n USING "&","-",
|
||||
COLUMN 3, x.cod_grupo USING "&","-",
|
||||
COLUMN 5, x.cod_tipo USING "&&","-",
|
||||
COLUMN 8, x.cod_sec USING "&&&",
|
||||
COLUMN 13, x.descrip_esp," ", 2 spaces,
|
||||
COLUMN 42, x.consumo USING "###,###.###",
|
||||
COLUMN 70, x.costo_st USING "##,###.#####",
|
||||
COLUMN 90, x.consumo * x.costo_st using "##,###,###.##"
|
||||
END IF
|
||||
|
||||
AFTER GROUP OF x.cod_mov
|
||||
LET ttotal_costo_st = GROUP SUM(x.costo_st*x.consumo)
|
||||
|
||||
PRINT COLUMN 42, "--------------",
|
||||
COLUMN 90, "--------------"
|
||||
|
||||
PRINT negrillas_on
|
||||
PRINT COLUMN 3, "Total ---->",
|
||||
COLUMN 42, GROUP SUM(x.consumo) using "###,###,###.###",
|
||||
COLUMN 90, ttotal_costo_st USING "##,###,###.###"
|
||||
PRINT negrillas_off
|
||||
|
||||
AFTER GROUP OF x.cod_n
|
||||
LET ttotal_costo_st = GROUP SUM(x.costo_st*x.consumo)
|
||||
|
||||
PRINT COLUMN 42, "--------------",
|
||||
COLUMN 90, "--------------"
|
||||
|
||||
PRINT negrillas_on
|
||||
PRINT COLUMN 3, "Total ---->",
|
||||
COLUMN 42, GROUP SUM(x.consumo) using "###,###,###.###",
|
||||
COLUMN 90, ttotal_costo_st USING "##,###,###.###"
|
||||
PRINT negrillas_off
|
||||
END REPORT
|
||||
|
||||
REPORT xentrada(x,fecha1,fecha2,entrada,detalle1)
|
||||
DEFINE x RECORD
|
||||
cod_mov LIKE intb00006.cod_mov,
|
||||
#cod_cia LIKE intb00006.cod_cia,
|
||||
cod_n LIKE intb00002.cod_n,
|
||||
cod_grupo LIKE intb00002.cod_grupo,
|
||||
cod_tipo LIKE intb00002.cod_tipo,
|
||||
cod_sec LIKE intb00002.cod_sec,
|
||||
descrip_esp LIKE intb00001.descrip_esp,
|
||||
unidad_med LIKE intb00001.unidad_med,
|
||||
descrip_mov LIKE intb00005.descrip_mov,
|
||||
consumo LIKE intb00006.cantidad_2,
|
||||
costo_st LIKE intb00013.costo_st,
|
||||
ccosto_st LIKE intb00005.cuenta_1,
|
||||
cuenta_cia LIKE iptb00022.cuenta_no
|
||||
END RECORD,
|
||||
fecha1,fecha2 DATE,
|
||||
nombre_cta CHAR(30)
|
||||
|
||||
DEFINE doble_on CHAR(3)
|
||||
DEFINE doble_off CHAR(3)
|
||||
DEFINE negrillas_on CHAR(6)
|
||||
DEFINE negrillas_off CHAR(6)
|
||||
DEFINE comp_on CHAR(3)
|
||||
DEFINE comp_off CHAR(3)
|
||||
DEFINE doce CHAR(3),
|
||||
total_m,total_l,total_g,credito,debito,total_cia DECIMAL(12,4),
|
||||
p_cuenta CHAR(8),
|
||||
hora CHAR(5),
|
||||
entrada CHAR(14),
|
||||
detalle1 CHAR(50)
|
||||
|
||||
OUTPUT
|
||||
TOP MARGIN 0
|
||||
LEFT MARGIN 0
|
||||
BOTTOM MARGIN 2
|
||||
ORDER BY x.cod_mov
|
||||
|
||||
FORMAT
|
||||
PAGE HEADER
|
||||
LET doble_on = ASCII 14
|
||||
LET doble_off = ASCII 20
|
||||
LET negrillas_on = ASCII 27, ASCII 69
|
||||
LET negrillas_off = ASCII 27, ASCII 70
|
||||
LET comp_on = ASCII 15
|
||||
LET comp_off = ASCII 18
|
||||
LET hora = time
|
||||
LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
|
||||
PRINT COLUMN 1, comp_off,"edprrp000",
|
||||
COLUMN l, p_compania.nombre CLIPPED,
|
||||
COLUMN 75, "Pag. ",pageno using "###"
|
||||
LET l = (80 - LENGTH("Sistema de Entradas Al Diario")) / 2
|
||||
PRINT COLUMN l, "Sistema de Entradas Al Diario",
|
||||
COLUMN 75, today using "dd/mm/yy"
|
||||
|
||||
LET l = (80 - LENGTH(x.descrip_mov CLIPPED)) / 2
|
||||
PRINT COLUMN l, x.descrip_mov CLIPPED,
|
||||
COLUMN 78, hora
|
||||
|
||||
PRINT COLUMN 28, "Del ",fecha1 USING "dd/mm/yy", " Al ",fecha2
|
||||
PRINT comp_off
|
||||
|
||||
PRINT COLUMN 01,"Entrada de Diario No.",
|
||||
doble_on,entrada,doble_off
|
||||
|
||||
PRINT COLUMN 1,"Observaciones: _____________________________________"
|
||||
PRINT COLUMN 1," _____________________________________"
|
||||
|
||||
PRINT COLUMN 1,
|
||||
"--------------------------------------------------",
|
||||
"----------------------------------------",
|
||||
negrillas_on
|
||||
|
||||
PRINT COLUMN 2, "Cuenta ",
|
||||
COLUMN 11, "Dpto",
|
||||
COLUMN 18, "Concepto",
|
||||
COLUMN 50, "Debe",
|
||||
COLUMN 71, "Haber",negrillas_off
|
||||
|
||||
PRINT COLUMN 1,
|
||||
"--------------------------------------------------",
|
||||
"----------------------------------------"
|
||||
|
||||
AFTER GROUP OF x.cod_mov
|
||||
IF credito IS NULL THEN
|
||||
LET credito = 0
|
||||
END IF
|
||||
IF debito IS NULL THEN
|
||||
LET debito = 0
|
||||
END IF
|
||||
LET total_cia = GROUP SUM (x.costo_st*x.consumo)
|
||||
LET debito = debito + total_cia
|
||||
SELECT a.descripcion INTO nombre_cta
|
||||
FROM cgtb00001 a
|
||||
WHERE a.cuenta_no = x.cuenta_cia
|
||||
LET p_cuenta = x.cuenta_cia
|
||||
PRINT COLUMN 2, p_cuenta,
|
||||
#COLUMN 10, x.departamento USING "<<<<",
|
||||
COLUMN 18, nombre_cta CLIPPED;
|
||||
IF total_cia < 0 THEN
|
||||
PRINT COLUMN 65, total_cia using "###,###,##&.&&"
|
||||
ELSE
|
||||
PRINT COLUMN 50, total_cia using "###,###,##&.&&"
|
||||
END IF
|
||||
IF afecta = "S" THEN
|
||||
IF total_cia < 0 THEN
|
||||
LET total_cia = total_cia * - 1
|
||||
INSERT INTO cgtb00004 VALUES
|
||||
(fecha2,1,entrada,p_cuenta,null,null,null,
|
||||
null,null,detalle1,null,0,total_cia,null,user,
|
||||
current,null,null)
|
||||
ELSE
|
||||
INSERT INTO cgtb00004 VALUES
|
||||
(fecha2,1,entrada,p_cuenta,null,null,null,
|
||||
null,null,detalle1,null,total_cia,0,null,user,
|
||||
current,null,null)
|
||||
END IF
|
||||
END IF
|
||||
#------------------------------------------------------------------------
|
||||
# MOVIMIENTOS CON CUENTAS QUE SU VALOR VAN DEL LADO DEBITO
|
||||
#------------------------------------------------------------------------
|
||||
IF x.ccosto_st IS NOT NULL THEN
|
||||
LET total_m = GROUP SUM (x.costo_st*x.consumo)
|
||||
LET credito = total_m + credito
|
||||
IF total_m != 0 THEN
|
||||
SELECT a.descripcion INTO nombre_cta
|
||||
FROM cgtb00001 a
|
||||
WHERE a.cuenta_no = x.ccosto_st
|
||||
LET p_cuenta = x.ccosto_st
|
||||
PRINT COLUMN 2, p_cuenta,
|
||||
#COLUMN 10, x.departamento USING "<<<<",
|
||||
COLUMN 18, nombre_cta CLIPPED;
|
||||
IF total_m < 0 THEN
|
||||
PRINT COLUMN 50, total_m using "###,###,##&.&&"
|
||||
ELSE
|
||||
PRINT COLUMN 65, total_m using "###,###,##&.&&"
|
||||
END IF
|
||||
IF afecta = "S" THEN
|
||||
IF total_m < 0 THEN
|
||||
LET total_m = total_m * -1
|
||||
INSERT INTO cgtb00004 VALUES
|
||||
(fecha2,1,entrada,p_cuenta,null,null,null,
|
||||
null,null,detalle1,null,total_m,0,null,user,
|
||||
current,null,null)
|
||||
ELSE
|
||||
INSERT INTO cgtb00004 VALUES
|
||||
(fecha2,1,entrada,p_cuenta,null,null,null,
|
||||
null,null,detalle1,null,0,total_m,null,user,
|
||||
current,null,null)
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
ON LAST ROW
|
||||
SKIP 1 LINE
|
||||
PRINT COLUMN 1,negrillas_on
|
||||
PRINT COLUMN 50,"--------------",
|
||||
COLUMN 65,"--------------"
|
||||
PRINT COLUMN 35,"Totales-->",
|
||||
COLUMN 50,debito USING "###,###,##&.&&",
|
||||
COLUMN 65,credito USING "###,###,##&.&&",negrillas_off
|
||||
|
||||
SKIP 2 LINE
|
||||
PRINT COLUMN 1, detalle1
|
||||
SKIP 8 LINE
|
||||
PRINT COLUMN 10,"--------------",
|
||||
COLUMN 35,"--------------",
|
||||
COLUMN 60,"--------------"
|
||||
PRINT COLUMN 10,"PREPARADO POR ",
|
||||
COLUMN 35," REVISADO POR ",
|
||||
COLUMN 60,"AUTORIZADO POR"
|
||||
PRINT COLUMN 1,comp_off,negrillas_off
|
||||
|
||||
END REPORT
|
||||
@@ -0,0 +1,165 @@
|
||||
GLOBALS "inprgb000.4gl"
|
||||
DEFINE xcodigo VARCHAR(50)
|
||||
DEFINE despiece1 DYNAMIC ARRAY OF RECORD
|
||||
id_etiqueta SMALLINT,
|
||||
cod_n SMALLINT,
|
||||
cod_grupo SMALLINT,
|
||||
cod_tipo SMALLINT,
|
||||
cod_sec SMALLINT,
|
||||
lado_1 DEC(12,5),
|
||||
lado_2 DEC(12,5),
|
||||
lado_3 DEC(12,5),
|
||||
cantidad DEC(12,5),
|
||||
medida DEC(12,5),
|
||||
secuencia,id_despiece INT,
|
||||
bodega SMALLINT
|
||||
|
||||
END RECORD
|
||||
DEFINE vendedor VARCHAR(100)
|
||||
|
||||
FUNCTION impdocumentos_prima(numeroid,codmov)
|
||||
DEFINE numeroid,codmov INT
|
||||
|
||||
CALL buscadoc(numeroid,codmov)
|
||||
|
||||
LET r_filename = "inprmt020.4rp"
|
||||
iF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
|
||||
|
||||
LET r_output="PDF"
|
||||
LET preview=1
|
||||
CALL fgl_report_selectDevice(r_output) -- changing default
|
||||
CALL fgl_report_selectPreview(preview) -- changing default
|
||||
LET handler = fgl_report_commitCurrentSettings() -- commit changes
|
||||
ELSE
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
START REPORT requiere TO XML HANDLER HANDLER
|
||||
|
||||
FOR idx = 1 TO arr_intb58.getLength()
|
||||
IF arr_intb58[idx].cod_Sec IS NOT NULL THEN
|
||||
LET xcodigo =arr_intb58[idx].cod_n USING '&&&&&','-',
|
||||
arr_intb58[idx].cod_grupo USING '&&&&&','-',
|
||||
arr_intb58[idx].cod_tipo USING '&&&&&&','-',
|
||||
arr_intb58[idx].cod_sec USING '&&&&&&&'
|
||||
|
||||
DISPLAY arr_intb58[idx].*
|
||||
DISPLAY xcodigo
|
||||
|
||||
OUTPUT TO REPORT requiere(arr_intb58[idx].*,despiece[idx].*, xcodigo)
|
||||
|
||||
END IF
|
||||
|
||||
END FOR
|
||||
FINISH REPORT requiere
|
||||
LET tienedespiece = FALSE
|
||||
END FUNCTION
|
||||
|
||||
REPORT requiere(detalle,xdespiece,codigo)
|
||||
DEFINE hora STRING,
|
||||
detalle RECORD
|
||||
area INT,
|
||||
cod_n,cod_grupo,cod_tipo,cod_sec INT,
|
||||
descripcion VARCHAR(100),
|
||||
unidad_med VARCHAR(4),
|
||||
cantidad_1,cantidad,cantidad_o1,cantidad1,factor_conv DEC(12,5)
|
||||
END RECORD,
|
||||
xdespiece RECORD
|
||||
id_etiqueta SMALLINT,
|
||||
cod_n SMALLINT,
|
||||
cod_grupo SMALLINT,
|
||||
cod_tipo SMALLINT,
|
||||
cod_sec SMALLINT,
|
||||
lado_1 DEC(12,5),
|
||||
lado_2 DEC(12,5),
|
||||
lado_3 DEC(12,5),
|
||||
cantidad DEC(12,5),
|
||||
medida DEC(12,5),
|
||||
secuencia,id_despiece INT,
|
||||
bodega SMALLINT
|
||||
|
||||
END RECORD,
|
||||
codigo VARCHAR(50),
|
||||
|
||||
x INT,
|
||||
etiqueta VARCHAR(100)
|
||||
|
||||
ORDER BY codigo
|
||||
FORMAT
|
||||
FIRST PAGE HEADER
|
||||
SELECT a.nombre INTO p_companias.nombre FROM companias a
|
||||
LET hora = CURRENT
|
||||
PRINTX hora,p_companias.nombre
|
||||
BEFORE GROUP OF codigo
|
||||
PRINTX detalle.*,p_intb57.*,
|
||||
nombreMov,nombreBodega,nombreBodegaDestino,nombreUsuario
|
||||
|
||||
ON EVERY ROW
|
||||
SELECT a.descripcion INTO etiqueta FROM vetb00026 a
|
||||
WHERE a.codid = xdespiece.id_etiqueta
|
||||
|
||||
|
||||
LET total_cantidad = total_cantidad + xdespiece.cantidad
|
||||
|
||||
PRINTX codigo,xdespiece.*,tienedespiece,etiqueta,total_cantidad,total_medida
|
||||
END REPORT
|
||||
|
||||
FUNCTION buscadoc(numid,codmov)
|
||||
DEFINE numid,codmov INT
|
||||
|
||||
LET vendedor = null
|
||||
SELECT a.numero_Doc,a.cod_mov,a.fecha,a.num_oc,a.tipo_cliente,a.sec_cliente,a.nombre,a.bodega,a.bodega_destino,
|
||||
a.estado,a.url_destino,a.observacion,b.descrip_mov,c.descripcion,
|
||||
'('||ISNULL(CAST(f.num_emp AS VARCHAR(10)),' ')||')'||ISNULL(rtrim(f.nom1_emp),' ')||' '||ISNULL(f.apell1_emp,' ')
|
||||
|
||||
INTO p_intb57.numero_doc,p_intb57.cod_mov,p_intb57.fecha,p_intb57.num_oc,p_intb57.tipo_cliente,p_intb57.sec_cliente,
|
||||
p_intb57.cliente,p_intb57.bodega,p_intb57.bodega_destino,p_intb57.estado,
|
||||
p_intb57.url_file,p_intb57.observacion,nombreMov,nombreBodega,vendedor
|
||||
FROM intb00057 a INNER JOIN intb00005 b ON b.cod_mov = a.cod_mov
|
||||
INNER JOIN intb00009 c ON c.cod_bodega = a.bodega
|
||||
LEFT OUTER JOIN prtb00012 d ON d.num_oc = a.num_oc
|
||||
LEFT OUTER JOIN adtb00003 f ON f.num_emp = d.sec_vend
|
||||
WHERE a.numero_doc = numid AND a.cod_mov = codmov
|
||||
#BODEGA DESTINO
|
||||
IF p_intb57.bodega_destino IS NOT NULL THEN
|
||||
SELECT a.descripcion INTO nombreBodegaDestino FROM intb00009 a WHERE a.cod_bodega = p_intb57.bodega_destino
|
||||
END IF
|
||||
DECLARE buscardetalle CURSOR FOR
|
||||
SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,a.unidad_med,
|
||||
a.cantidad_1,a.cantidad_2,
|
||||
c.id_etiqueta,
|
||||
c.lado_1,c.lado_2,c.lado_3,c.cantidad,c.medida
|
||||
FROM intb00058 a
|
||||
LEFT OUTER JOIN intb00060 c ON c.cod_n =a.cod_n AND c.cod_grupo = a.cod_grupo AND
|
||||
c.cod_tipo = a.cod_tipo AND c.cod_sec = a.cod_Sec AND
|
||||
c.id_despiece = a.numero_Doc
|
||||
WHERE a.numero_Doc = numid AND a.cod_mov = codmov
|
||||
|
||||
LET idx = 1
|
||||
CALL arr_intb58.clear()
|
||||
LET tienedespiece = FALSE
|
||||
FOREACH buscardetalle INTO arr_intb58[idx].area,
|
||||
arr_intb58[idx].cod_n,
|
||||
arr_intb58[idx].cod_grupo,
|
||||
arr_intb58[idx].cod_tipo,
|
||||
arr_intb58[idx].cod_sec,
|
||||
arr_intb58[idx].descripcion,
|
||||
arr_intb58[idx].unidad_med,
|
||||
arr_intb58[idx].cantidad_1,
|
||||
arr_intb58[idx].cantidad,
|
||||
#arr_intb58[idx].factor_conv,
|
||||
despiece1[idx].id_etiqueta,
|
||||
despiece1[idx].lado_1,
|
||||
despiece1[idx].lado_2,
|
||||
despiece1[idx].lado_3,
|
||||
despiece1[idx].cantidad,
|
||||
despiece1[idx].medida
|
||||
IF despiece1[idx].cantidad > 0 THEN
|
||||
LET tienedespiece = TRUE
|
||||
ELSE
|
||||
LET tienedespiece = FALSE
|
||||
END IF
|
||||
|
||||
LET idx = idx + 1
|
||||
END FOREACH
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,23 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
num_doc [f000 ]
|
||||
cod_mov [f001 ]
|
||||
status_t [a]
|
||||
us_crea [f002 ]
|
||||
fech_crea [f003 ]
|
||||
us_mod [f004 ]
|
||||
fech_mod [f005 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00023
|
||||
attributes
|
||||
f000 = intb00023.num_doc;
|
||||
f001 = intb00023.cod_mov;
|
||||
a = intb00023.status_t;
|
||||
f002 = intb00023.us_crea;
|
||||
f003 = intb00023.fech_crea;
|
||||
f004 = intb00023.us_mod;
|
||||
f005 = intb00023.fech_mod;
|
||||
end
|
||||
@@ -0,0 +1,63 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Tipo Movimiento:[t ][t1 ]Doc. No. [f00 ]
|
||||
\gp-------------------------------------------------------------------------q\g
|
||||
\g|\gSuplidor:[p1]-[f01 ][a ] Orden de Compra:[f02 ] \g|\g
|
||||
\gp-------------------------------------------------------------------------q\g
|
||||
\g|\gConduce:[f03 ] Factura No.[f04 ] Fecha:[f05 ] Bodega [d ]\g|\g
|
||||
\gb-------------------------------------------------------------------------d\g
|
||||
C A N T I D A D Exceso o
|
||||
Codigo Ordenada Recibida Diferencia
|
||||
\gp---------------------------------------------------------------------------q\g
|
||||
[b ] [f06 ][f07 ][c ]
|
||||
Descripcion: [g ] Unidad: [f08]
|
||||
[b ] [f06 ][f07 ][c ]
|
||||
Descripcion: [g ] Unidad: [f08]
|
||||
[b ] [f06 ][f07 ][c ]
|
||||
Descripcion: [g ] Unidad: [f08]
|
||||
\gb---------------------------------------------------------------------------d\g
|
||||
}
|
||||
end
|
||||
tables
|
||||
|
||||
intb00006,
|
||||
cotb00001,
|
||||
intb00001,
|
||||
intb00005
|
||||
attributes
|
||||
f00 = intb00006.num_doc,
|
||||
comments =
|
||||
"Digite el Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos";
|
||||
p1 = intb00006.cod_sp,picture = "##",autonext,
|
||||
comments = "Digite el Codigo del Suplidor";
|
||||
f01 = intb00006.cod_sp_sec,picture = "####",
|
||||
comments = "Digite el Codigo del Suplidor";
|
||||
f02 = intb00006.orden_compra,
|
||||
comments = "Digite el Numero de la Orden de Compras";
|
||||
f03 = intb00006.conduce_no,
|
||||
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
|
||||
f04 = intb00006.fact_no,
|
||||
comments = "Digite el Numero de la Factura del Suplidor";
|
||||
f05 = formonly.fecha type date,format = "dd/mm/yy",
|
||||
comments = "Digite la Fecha Correspondiente al Documento";
|
||||
f06 = intb00006.cantidad_1,
|
||||
comments = "Digite la Cantidad Pedida ";
|
||||
f07 = intb00006.cantidad_2,
|
||||
comments = "Digite la Cantidad Llegada desde el Suplidor";
|
||||
f08 = intb00001.unidad_med,noentry;
|
||||
a = cotb00001.nom_sp,noentry;
|
||||
b = formonly.codigo,noentry;
|
||||
c = formonly.diferencia, noentry;
|
||||
g = intb00001.descrip_esp,noentry;
|
||||
d = intb00006.bodega,noentry;
|
||||
t = intb00006.cod_mov,autonext,
|
||||
comments =
|
||||
"Digite Codigo Movimiento de Entrada (34 - Exterior 35 - Local )",
|
||||
include = (34 to 35);
|
||||
t1 = intb00005.descrip_mov,noentry;
|
||||
INSTRUCTIONS
|
||||
screen record s_movi1[3] (codigo,cantidad_1,cantidad_2,diferencia,
|
||||
descrip_esp,unidad_med)
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,52 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
Codigo: [e]-[f]-[g ]-[h ] [k ]
|
||||
\g------------------------------------------------------------------------------
|
||||
Punto Dia de Costo
|
||||
C o d i g o Existencia Reorden Llegada Promedio Valor
|
||||
\g-------------------------------------------------------------------------------\g
|
||||
[a]-[b]-[c ]-[d ][a4 ][f001 ][m ] [a5 ] [a6 ]
|
||||
Descripcion: [a2 ] Unidad: [a3 ] Bodega: [l ]
|
||||
[a]-[b]-[c ]-[d ][a4 ][f001 ][m ] [a5 ] [a6 ]
|
||||
Descripcion: [a2 ] Unidad: [a3 ] Bodega: [l ]
|
||||
[a]-[b]-[c ]-[d ][a4 ][f001 ][m ] [a5 ] [a6 ]
|
||||
Descripcion: [a2 ] Unidad: [a3 ] Bodega: [l ]
|
||||
[a]-[b]-[c ]-[d ][a4 ][f001 ][m ] [a5 ] [a6 ]
|
||||
Descripcion: [a2 ] Unidad: [a3 ] Bodega: [l ]
|
||||
}
|
||||
tables
|
||||
intb00001,
|
||||
intb00002,
|
||||
cotb00015
|
||||
|
||||
attributes
|
||||
e = intb00001.cod_n,autonext,
|
||||
comments = "Digite el NIVEL";
|
||||
f = intb00001.cod_grupo,autonext,
|
||||
comments = "Digite el GRUPO";
|
||||
g = intb00001.cod_tipo,autonext,
|
||||
comments = "Digite el TIPO";
|
||||
h = intb00001.cod_sec,autonext,
|
||||
comments = "Digite la SECUENCIA";
|
||||
k = intb00001.descrip_esp,noentry;
|
||||
a = formonly.cod_n1,noentry;
|
||||
b = formonly.cod_grupo1,noentry;
|
||||
c = formonly.cod_tipo1,noentry;
|
||||
d = formonly.cod_sec1,noentry;
|
||||
a2 = formonly.descrip_esp1,noentry;
|
||||
a3 = intb00001.unidad_med,noentry;
|
||||
l = intb00002.bodega,noentry;
|
||||
a4 = intb00002.existencia,noentry;
|
||||
f001 = intb00002.pto_reorden,noentry;
|
||||
m = intb00002.dia_llegada,noentry;
|
||||
a5 = cotb00015.precio,noentry;
|
||||
a6 = formonly.valor,noentry;
|
||||
instructions
|
||||
delimiters " "
|
||||
screen record consart[4] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,
|
||||
descrip_esp1,unidad_med,bodega,existencia,pto_reorden,
|
||||
dia_llegada,precio,valor)
|
||||
end
|
||||
|
||||
@@ -0,0 +1,61 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{c9096dd3-97a7-4b37-8de3-e61d68cb9c20}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="record1" uid="{4afe6ba7-55ba-45a3-9342-c14ebbac0e8d}">
|
||||
<RecordField colName="cod_n" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00001.cod_n" sqlTabName="intb00001" uid="{d4ebad7e-0043-4472-802b-a925a8fdead0}"/>
|
||||
<RecordField colName="cod_grupo" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00001.cod_grupo" sqlTabName="intb00001" uid="{d0b59e2e-a4c0-49dd-8df1-a6ccbac0cee7}"/>
|
||||
<RecordField colName="cod_tipo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00001.cod_tipo" sqlTabName="intb00001" uid="{80358c01-e500-46a4-b02a-5f620e9960f2}"/>
|
||||
<RecordField colName="cod_sec" fieldIdRef="3" fieldType="TABLE_COLUMN" name="intb00001.cod_sec" sqlTabName="intb00001" uid="{ac046b3a-39e6-4095-8594-d22bb3deca3c}"/>
|
||||
<RecordField colName="descrip_esp" fieldIdRef="4" fieldType="TABLE_COLUMN" name="intb00001.descrip_esp" sqlTabName="intb00001" uid="{da82727a-fe9d-454e-b592-cd20be4751ba}"/>
|
||||
<RecordField colName="unidad_med" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{720c8ace-b521-4ab2-93a4-5aaebd3c052d}"/>
|
||||
<RecordField colName="fech_in" fieldIdRef="7" name="fech_in" sqlTabName="formonly" sqlType="DATE" uid="{f7cdd239-7791-4788-9c92-1e29d181a356}"/>
|
||||
<RecordField colName="fech_fi" fieldIdRef="8" name="fech_fi" sqlTabName="formonly" sqlType="DATE" uid="{ef37027a-09ec-4b91-8016-58321fe9523c}"/>
|
||||
<RecordField fieldIdRef="6" name="bodega" uid="{900b8556-f902-4c08-b7f1-a2de9d054534}"/>
|
||||
<RecordField fieldIdRef="9" name="mensaje_ini" uid="{5fcab4dd-77dd-4cc5-8641-848be157b658}"/>
|
||||
</Record>
|
||||
<Record name="s_csmov" uid="{d4ca2e1f-7d30-4026-84bc-8e7b2b0ae0cb}">
|
||||
<RecordField fieldIdRef="18" name="num_doc" uid="{15a69691-abe4-4c90-bb06-486540da34b4}"/>
|
||||
<RecordField fieldIdRef="14" name="fecha" uid="{d0bfd6fc-c128-4f1b-a868-f074ed538867}"/>
|
||||
<RecordField fieldIdRef="15" name="entrada" uid="{d7859615-8cc5-4f90-890a-38d2997f0e3e}"/>
|
||||
<RecordField fieldIdRef="16" name="salida" uid="{b21f2323-d936-4680-887b-6ab7eced3793}"/>
|
||||
<RecordField fieldIdRef="10" name="bodega1" uid="{5c8be2bb-0311-4058-b8a3-c5b753b4f223}"/>
|
||||
<RecordField fieldIdRef="17" name="balance" uid="{e678742a-9471-49e8-a2db-e38fbb2ef269}"/>
|
||||
<RecordField fieldIdRef="13" name="parent_id" uid="{4a028887-b5ed-4b25-9eb1-702752bee614}"/>
|
||||
<RecordField fieldIdRef="19" name="chield_id" uid="{a972d067-b0bc-478a-add7-995fd25b5c9c}"/>
|
||||
</Record>
|
||||
<Form gridHeight="24" gridWidth="80" name="infmcs006">
|
||||
<Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
|
||||
<Label gridHeight="1" gridWidth="22" justify="right" name="label1" posX="1" posY="1" text="Codigo Materia Prima :"/>
|
||||
<Edit autoNext="true" colName="cod_n" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_n" posX="24" posY="1" sqlTabName="intb00001" tabIndex="1" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_grupo" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_grupo" posX="28" posY="1" sqlTabName="intb00001" tabIndex="2" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_tipo" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00001.cod_tipo" posX="32" posY="1" sqlTabName="intb00001" tabIndex="3" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_sec" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_sec" posX="37" posY="1" sqlTabName="intb00001" tabIndex="4" widget="Edit"/>
|
||||
<Edit colName="descrip_esp" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="30" name="intb00001.descrip_esp" noEntry="true" posX="41" posY="1" sqlTabName="intb00001" tabIndex="5" widget="Edit"/>
|
||||
<Edit colName="unidad_med" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="73" posY="1" sqlTabName="intb00001" tabIndex="6" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="14" justify="right" name="label6" posX="9" posY="2" text="Fecha Inicial:"/>
|
||||
<DateEdit colName="fech_in" fieldId="7" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_in" posX="24" posY="2" sqlTabName="formonly" sqlType="DATE" tabIndex="7" widget="DateEdit"/>
|
||||
<Label gridHeight="1" gridWidth="14" justify="right" name="label7" posX="9" posY="3" text="Fecha Final:"/>
|
||||
<DateEdit colName="fech_fi" fieldId="8" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="24" posY="3" sqlTabName="formonly" sqlType="DATE" tabIndex="8" widget="DateEdit"/>
|
||||
<Label gridHeight="1" gridWidth="7" justify="right" name="label5" posX="16" posY="4" text="Bodega:"/>
|
||||
<ComboBox fieldId="6" gridHeight="1" gridWidth="48" items="" name="bodega" posX="24" posY="4" tabIndex="-1" title="combobox1" widget="ComboBox"/>
|
||||
<Edit fieldId="9" gridHeight="1" gridWidth="53" name="mensaje_ini" posX="2" posY="7" scroll="true" style="encabezado name" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Group gridHeight="9" gridWidth="76" name="group1" posX="2" posY="8">
|
||||
<Tree gridHeight="6" gridWidth="73" idColumn="chield_id" name="table1" parentIdColumn="parent_id" posX="2" posY="1" style="Table.detalle" totalRows="5">
|
||||
<Edit fieldId="18" gridHeight="1" gridWidth="8" name="num_doc" posX="0" posY="0" tabIndex="-1" title="Documento" widget="Edit"/>
|
||||
<Edit fieldId="14" gridHeight="1" gridWidth="8" name="fecha" posX="8" posY="0" tabIndex="-1" title="Fecha" widget="Edit"/>
|
||||
<Edit fieldId="15" gridHeight="1" gridWidth="8" name="entrada" posX="16" posY="0" tabIndex="-1" title="Entrada" widget="Edit"/>
|
||||
<Edit fieldId="16" gridHeight="1" gridWidth="8" name="salida" posX="24" posY="0" tabIndex="-1" title="Salida" widget="Edit"/>
|
||||
<Edit fieldId="10" gridHeight="1" gridWidth="8" name="bodega1" posX="32" posY="0" scroll="true" tabIndex="-1" title="Bodega" widget="Edit"/>
|
||||
<Edit fieldId="17" gridHeight="1" gridWidth="8" name="balance" posX="40" posY="0" tabIndex="-1" title="Balance" widget="Edit"/>
|
||||
<Edit fieldId="13" gridHeight="1" gridWidth="8" hidden="true" name="parent_id" posX="48" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Edit fieldId="19" gridHeight="1" gridWidth="8" hidden="true" name="chield_id" posX="56" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
</Tree>
|
||||
</Group>
|
||||
</Grid>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewA0AGEAZgBlADYAYgBhADcALQA1ADUAYgBhAC0ANAA1AGEAMwAtADkAMwA0ADIALQBjADEANABlAGIAYgBhAGMAMABlADgAZAB9wHRmZn/mZnRAWzMzVTMzRD9wYk3S8an8AQAAAEwAewBkADQAYwBhADIAZQAxAGYALQA3AGQAMwAwAC0ANAAwADIANgAtADgANABiAGMALQA4AGUANwBiADIAYgAwAGEAZQAwAGMAYgB9QHWZmbSZmadAQZmZr5mZpj9gYk3S8an8AQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,47 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
Codigo Materia Prima :[a]-[b]-[c ]-[d ] [a1 ] [a2 ]
|
||||
Bodega: [h ]
|
||||
Fecha Inicial:[f1 ] Fecha Final:[f2 ]
|
||||
\g---------------------------------------------------------------------------\g
|
||||
C a n t i d a d
|
||||
Fecha Documento Entrada Salida Balance
|
||||
\g----------------------------------------------------------------------------\g
|
||||
|
||||
|
||||
[d2 ][d1 ][d4 ] [d5 ] [d6 ]
|
||||
[d2 ][d1 ][d4 ] [d5 ] [d6 ]
|
||||
[d2 ][d1 ][d4 ] [d5 ] [d6 ]
|
||||
[d2 ][d1 ][d4 ] [d5 ] [d6 ]
|
||||
[d2 ][d1 ][d4 ] [d5 ] [d6 ]
|
||||
[d2 ][d1 ][d4 ] [d5 ] [d6 ]
|
||||
[d2 ][d1 ][d4 ] [d5 ] [d6 ]
|
||||
[d2 ][d1 ][d4 ] [d5 ] [d6 ]
|
||||
}
|
||||
tables
|
||||
intb00001,
|
||||
intb00002,
|
||||
intb00006
|
||||
attributes
|
||||
a = intb00001.cod_n,autonext;
|
||||
b = intb00001.cod_grupo,autonext;
|
||||
c = intb00001.cod_tipo,autonext;
|
||||
d = intb00001.cod_sec,autonext;
|
||||
a1 = intb00001.descrip_esp,noentry;
|
||||
a2 = intb00001.unidad_med,noentry;
|
||||
h = intb00006.bodega,autonext;
|
||||
f1 = formonly.fech_in type date,format = "dd/mm/yyyy";
|
||||
f2 = formonly.fech_fi type date,format = "dd/mm/yyyy";
|
||||
d1 = intb00006.num_doc;
|
||||
d2 = formonly.fecha ;
|
||||
d4 = formonly.entrada;
|
||||
d5 = formonly.salida;
|
||||
d6 = formonly.balance;
|
||||
|
||||
instructions
|
||||
screen record s_csmov[8] (num_doc,fecha,entrada,salida,balance)
|
||||
delimiters " "
|
||||
end
|
||||
|
||||
@@ -0,0 +1,57 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{c9096dd3-97a7-4b37-8de3-e61d68cb9c20}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="record1" uid="{4afe6ba7-55ba-45a3-9342-c14ebbac0e8d}">
|
||||
<RecordField colName="cod_n" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00001.cod_n" sqlTabName="intb00001" uid="{d4ebad7e-0043-4472-802b-a925a8fdead0}"/>
|
||||
<RecordField colName="cod_grupo" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00001.cod_grupo" sqlTabName="intb00001" uid="{d0b59e2e-a4c0-49dd-8df1-a6ccbac0cee7}"/>
|
||||
<RecordField colName="cod_tipo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00001.cod_tipo" sqlTabName="intb00001" uid="{80358c01-e500-46a4-b02a-5f620e9960f2}"/>
|
||||
<RecordField colName="cod_sec" fieldIdRef="3" fieldType="TABLE_COLUMN" name="intb00001.cod_sec" sqlTabName="intb00001" uid="{ac046b3a-39e6-4095-8594-d22bb3deca3c}"/>
|
||||
<RecordField colName="descrip_esp" fieldIdRef="4" fieldType="TABLE_COLUMN" name="intb00001.descrip_esp" sqlTabName="intb00001" uid="{da82727a-fe9d-454e-b592-cd20be4751ba}"/>
|
||||
<RecordField colName="unidad_med" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{720c8ace-b521-4ab2-93a4-5aaebd3c052d}"/>
|
||||
<RecordField colName="fech_in" fieldIdRef="7" name="fech_in" sqlTabName="formonly" sqlType="DATE" uid="{f7cdd239-7791-4788-9c92-1e29d181a356}"/>
|
||||
<RecordField colName="fech_fi" fieldIdRef="8" name="fech_fi" sqlTabName="formonly" sqlType="DATE" uid="{ef37027a-09ec-4b91-8016-58321fe9523c}"/>
|
||||
<RecordField fieldIdRef="6" name="bodega" uid="{900b8556-f902-4c08-b7f1-a2de9d054534}"/>
|
||||
<RecordField fieldIdRef="9" name="mensaje_ini" uid="{5fcab4dd-77dd-4cc5-8641-848be157b658}"/>
|
||||
</Record>
|
||||
<Record name="s_csmov" uid="{d4ca2e1f-7d30-4026-84bc-8e7b2b0ae0cb}">
|
||||
<RecordField fieldIdRef="18" name="num_doc" uid="{15a69691-abe4-4c90-bb06-486540da34b4}"/>
|
||||
<RecordField fieldIdRef="14" name="fecha" uid="{d0bfd6fc-c128-4f1b-a868-f074ed538867}"/>
|
||||
<RecordField fieldIdRef="15" name="entrada" uid="{d7859615-8cc5-4f90-890a-38d2997f0e3e}"/>
|
||||
<RecordField fieldIdRef="16" name="salida" uid="{b21f2323-d936-4680-887b-6ab7eced3793}"/>
|
||||
<RecordField fieldIdRef="10" name="bodega1" uid="{5c8be2bb-0311-4058-b8a3-c5b753b4f223}"/>
|
||||
<RecordField fieldIdRef="17" name="balance" uid="{e678742a-9471-49e8-a2db-e38fbb2ef269}"/>
|
||||
</Record>
|
||||
<Form gridHeight="24" gridWidth="80" name="infmcs006">
|
||||
<Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
|
||||
<Label gridHeight="1" gridWidth="22" justify="right" name="label1" posX="1" posY="1" text="Codigo Materia Prima :"/>
|
||||
<Edit autoNext="true" colName="cod_n" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_n" posX="24" posY="1" sqlTabName="intb00001" tabIndex="1" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_grupo" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_grupo" posX="28" posY="1" sqlTabName="intb00001" tabIndex="2" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_tipo" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00001.cod_tipo" posX="32" posY="1" sqlTabName="intb00001" tabIndex="3" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_sec" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_sec" posX="37" posY="1" sqlTabName="intb00001" tabIndex="4" widget="Edit"/>
|
||||
<Edit colName="descrip_esp" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="30" name="intb00001.descrip_esp" noEntry="true" posX="41" posY="1" sqlTabName="intb00001" tabIndex="5" widget="Edit"/>
|
||||
<Edit colName="unidad_med" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="73" posY="1" sqlTabName="intb00001" tabIndex="6" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="14" justify="right" name="label6" posX="9" posY="2" text="Fecha Inicial:"/>
|
||||
<DateEdit colName="fech_in" fieldId="7" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_in" posX="24" posY="2" sqlTabName="formonly" sqlType="DATE" tabIndex="7" widget="DateEdit"/>
|
||||
<Label gridHeight="1" gridWidth="14" justify="right" name="label7" posX="9" posY="3" text="Fecha Final:"/>
|
||||
<DateEdit colName="fech_fi" fieldId="8" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="24" posY="3" sqlTabName="formonly" sqlType="DATE" tabIndex="8" widget="DateEdit"/>
|
||||
<Label gridHeight="1" gridWidth="7" justify="right" name="label5" posX="16" posY="4" text="Bodega:"/>
|
||||
<ComboBox fieldId="6" gridHeight="1" gridWidth="48" items="" name="bodega" posX="24" posY="4" tabIndex="-1" title="combobox1" widget="ComboBox"/>
|
||||
<Edit fieldId="9" gridHeight="1" gridWidth="53" name="mensaje_ini" posX="2" posY="7" scroll="true" style="encabezado name" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Group gridHeight="9" gridWidth="75" name="group1" posX="2" posY="8">
|
||||
<Table gridHeight="6" gridWidth="55" name="table1" posX="2" posY="1" totalRows="5">
|
||||
<Edit fieldId="18" gridHeight="1" gridWidth="8" name="num_doc" posX="0" posY="0" tabIndex="-1" title="Documento" widget="Edit"/>
|
||||
<Edit fieldId="14" gridHeight="1" gridWidth="8" name="fecha" posX="8" posY="0" tabIndex="-1" title="Fecha" widget="Edit"/>
|
||||
<Edit fieldId="15" gridHeight="1" gridWidth="8" name="entrada" posX="16" posY="0" tabIndex="-1" title="Entrada" widget="Edit"/>
|
||||
<Edit fieldId="16" gridHeight="1" gridWidth="8" name="salida" posX="24" posY="0" tabIndex="-1" title="Salida" widget="Edit"/>
|
||||
<Edit fieldId="10" gridHeight="1" gridWidth="8" name="bodega1" posX="32" posY="0" scroll="true" tabIndex="-1" title="Bodega" widget="Edit"/>
|
||||
<Edit fieldId="17" gridHeight="1" gridWidth="8" name="balance" posX="40" posY="0" tabIndex="-1" title="Balance" widget="Edit"/>
|
||||
</Table>
|
||||
</Group>
|
||||
</Grid>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewA0AGEAZgBlADYAYgBhADcALQA1ADUAYgBhAC0ANAA1AGEAMwAtADkAMwA0ADIALQBjADEANABlAGIAYgBhAGMAMABlADgAZAB9wHRmZnCZmZtAWzMzQMzMzj9wYk3S8an8AQAAAEwAewBkADQAYwBhADIAZQAxAGYALQA3AGQAMwAwAC0ANAAwADIANgAtADgANABiAGMALQA4AGUANwBiADIAYgAwAGEAZQAwAGMAYgB9QHWZmaRmZmhAQZmZomZmaD9gYk3S8an8AQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,55 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
PERIODO BASE DESDE [f3 ] AL [f4 ]
|
||||
<Esc> Continua Consultando <Ctrl-C> Cancela Operacion
|
||||
\g----------------------------------------------------------------------------\g
|
||||
CONSUMO D I A S DIAS PROD.
|
||||
MATERIAL DEL PERIODO EXISTENCIA PRODUCCION LLEGADA C/ORDEN
|
||||
\g----------------------------------------------------------------------------\g
|
||||
[a]-[b]-[c ]-[d ][f5 ][f7 ][f8 ] [f9 ] [f20 ]
|
||||
[f1 ][f2 ]
|
||||
\g-------------------------------------------------------------------------\g
|
||||
\g---------------- O R D E N E S P E N D I E N T E S --------------------\g
|
||||
ORDEN CANT. ORDENADA CANT. RECIBIDA BALANCE ENTREGA
|
||||
\g-------------------------------------------------------------------------\g
|
||||
[f10 ] [f11 ][f14 ] [f12 ] [f13 ]
|
||||
[f10 ] [f11 ][f14 ] [f12 ] [f13 ]
|
||||
[f10 ] [f11 ][f14 ] [f12 ] [f13 ]
|
||||
[f10 ] [f11 ][f14 ] [f12 ] [f13 ]
|
||||
[f15 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001,
|
||||
cotb00001
|
||||
attributes
|
||||
a = intb00001.cod_n,autonext,
|
||||
comments = "Digite el NIVEL o <Esc> Para Todos";
|
||||
b = intb00001.cod_grupo,autonext,
|
||||
comments = "Digite el GRUPO o <Esc> Para Todos";
|
||||
c = intb00001.cod_tipo,autonext,
|
||||
comments = "Digite el TIPO o <Esc> Para Todos";
|
||||
d = intb00001.cod_sec,autonext,
|
||||
comments = "Digite la SECUENCIA o <Esc> Para Todos";
|
||||
f1 = formonly.descrip_esp,noentry;
|
||||
f2 = formonly.unidad_med,noentry;
|
||||
f3 = formonly.fech_in type date,format = "dd/mm/yy", autonext,
|
||||
comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
|
||||
f4 = formonly.fech_fi type date,format = "dd/mm/yy", autonext,
|
||||
comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
|
||||
f5 = formonly.consumo1,noentry;
|
||||
f7 = formonly.existe1,noentry;
|
||||
f8 = formonly.dias2,noentry;
|
||||
f20 = formonly.dias_orden;
|
||||
f9 = formonly.dia_llegada,noentry;
|
||||
f10 = formonly.num_oc,noentry;
|
||||
f11 = formonly.ordenada,noentry,right;
|
||||
f12 = formonly.cantidad,noentry,right;
|
||||
f13 = formonly.fecha_llegada type date,noentry,format = "dd/mm/yy";
|
||||
f14 = formonly.recibida,noentry,right;
|
||||
f15 = formonly.remanente,noentry,right;
|
||||
instructions
|
||||
delimiters " "
|
||||
screen record sp1[4](num_oc,ordenada,recibida,cantidad,fecha_llegada)
|
||||
end
|
||||
@@ -0,0 +1,6 @@
|
||||
schema smarmotech
|
||||
{
|
||||
}
|
||||
INSTRUCTIONS;
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,68 @@
|
||||
{
|
||||
-------------------------------------------------------------------------
|
||||
FORMULARIO : INFMCS011
|
||||
OBJETIVO : Pantalla para Consulta Movimientos Materia Prima:
|
||||
Materiales Devueltos al Suplidor (INPRCS011).
|
||||
PROGRAMADOR : Juan Fco. Soto (Johnny)
|
||||
FECHA REALIZACION : Agosto 14,1992.
|
||||
-------------------------------------------------------------------------
|
||||
}
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
\gp---------------------------------------------------------------------------q\g
|
||||
\g|\gDocumento Numero [f000 ] Orden de Compras [l ] \g|\g
|
||||
\g|\gFecha [f001 ] \g|\g
|
||||
\g|\gSuplidor [p1][f013] [a1 ] Bodega: [p2] \g|\g
|
||||
\gb---------------------------------------------------------------------------d\g
|
||||
C A N T I D A D
|
||||
Codigo Devuelta Recibida Unidad D e s c r i p c i o n
|
||||
\g------------------------------------------------------------------------------\g
|
||||
[a][b][c ][d ][f02 ][f03 ][p ] [k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ] [k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ] [k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ] [k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ] [k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ] [k ]
|
||||
\g------------------------------------------------------------------------------\g
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006,
|
||||
intb00001,
|
||||
cotb00001
|
||||
attributes
|
||||
f000 = intb00006.num_doc,autonext,
|
||||
comments =
|
||||
"Digite Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos ";
|
||||
l = intb00006.orden_compra,autonext,
|
||||
comments = "Digite Numero de la Orden de Compras";
|
||||
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
|
||||
comments = "Digite Fecha Documento";
|
||||
p1 = intb00006.cod_sp,autonext,
|
||||
comments = "Digite Codigo Suplidor";
|
||||
f013 = intb00006.cod_sp_sec,autonext,picture = "####",
|
||||
comments = "Digite Codigo Suplidor";
|
||||
a = intb00006.cod_n,autonext,
|
||||
comments = "Digite el NIVEL";
|
||||
b = intb00006.cod_grupo,autonext,
|
||||
comments = "Digite el GRUPO";
|
||||
c = intb00006.cod_tipo,autonext,
|
||||
comments = "Digite el TIPO";
|
||||
d = intb00006.cod_sec,autonext,
|
||||
comments = "Digite la SECUENCIA";
|
||||
f02 = intb00006.cantidad_1,autonext,
|
||||
comments = "Digite La Cantidad Ordenada";
|
||||
f03 = intb00006.cantidad_2,autonext,
|
||||
comments = "Digite La Cantidad Entregada";
|
||||
k = intb00001.descrip_esp,noentry,autonext;
|
||||
p = intb00001.unidad_med,noentry,autonext;
|
||||
a1 = cotb00001.nom_sp,noentry,autonext;
|
||||
p2 = intb00006.bodega,autonext;
|
||||
INSTRUCTIONS
|
||||
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
||||
cantidad_2,unidad_med,descrip_esp)
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,17 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Periodo Base : Desde [f3 ] Al [f4 ]
|
||||
Numeros de Dias [k1 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001,
|
||||
cotb00001
|
||||
attributes
|
||||
f3 = formonly.fech_in type date,format = "dd/mm/yy", autonext,
|
||||
comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
|
||||
f4 = formonly.fech_fi type date,format = "dd/mm/yy", autonext,
|
||||
comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
|
||||
k1 = formonly.dias1,noentry;
|
||||
end
|
||||
@@ -0,0 +1,67 @@
|
||||
{
|
||||
--------------------------------------------------------------------------
|
||||
FORMULARIO : INFMCS021
|
||||
OBJETIVO : Pantalla para Consulta Movimientos Materia Prima:
|
||||
Materiales Devueltos Desde Produccion (INPRCS021).
|
||||
PROGRAMADOR : Juan Fco. Soto (Johnny)
|
||||
FECHA REALIZACION : Agosto 14,1992.
|
||||
--------------------------------------------------------------------------
|
||||
}
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
\gp---------------------------------------------------------------------------q\g
|
||||
\g|\gDocumento Numero [f000 ] \g|\g
|
||||
\g|\gfecha [f001 ] \g|\g
|
||||
\g|\gDel Depto.: [f1 ] [a1 ] \g|\g
|
||||
\g|\gAl Depto.: [f2 ] [b1 ] Bodega :[h ] \g|\g
|
||||
\gb---------------------------------------------------------------------------d\g
|
||||
C A N T I D A D
|
||||
Codigo Devuelta Recibida Unidad D e s c r i p c i o n
|
||||
\g------------------------------------------------------------------------------\g
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
\g------------------------------------------------------------------------------\g
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006,
|
||||
intb00001,
|
||||
cotb00001,
|
||||
adtb00001
|
||||
attributes
|
||||
f000 = intb00006.num_doc,autonext,
|
||||
comments =
|
||||
"Digite Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos";
|
||||
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
|
||||
comments = "Digite Fecha Documento";
|
||||
f1 = intb00006.depto_de,autonext,
|
||||
comments = "Digite Codigo Departamento";
|
||||
f2 = intb00006.depto_a,autonext,
|
||||
comments = "Digite Codigo Departamento";
|
||||
a1 = adtb00001.nom_dpto,noentry,autonext;
|
||||
b1 = formonly.nom_dpto1,noentry;
|
||||
a = intb00006.cod_n,autonext,
|
||||
comments = "Digite el NIVEL";
|
||||
b = intb00006.cod_grupo,autonext,
|
||||
comments = "Digite el GRUPO";
|
||||
c = intb00006.cod_tipo,autonext,
|
||||
comments = "Digite el TIPO ";
|
||||
d = intb00006.cod_sec,autonext,
|
||||
comments = "Digite la SECUENCIA";
|
||||
f02 = intb00006.cantidad_1,autonext,
|
||||
comments = "Digite La Cantidad Ordenada";
|
||||
f03 = intb00006.cantidad_2,autonext,
|
||||
comments = "Digite La Cantidad Entregada";
|
||||
k = intb00001.descrip_esp,noentry,autonext;
|
||||
p = intb00001.unidad_med,noentry;
|
||||
h = intb00006.bodega,autonext;
|
||||
INSTRUCTIONS
|
||||
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
||||
cantidad_2,unidad_med,descrip_esp)
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,65 @@
|
||||
{
|
||||
-------------------------------------------------------------------------
|
||||
FORMULARIO : INFMCS031
|
||||
OBJETIVO : Pantalla para Consulta Movimientos Materia Prima:
|
||||
Requisicion de Materiales (INPRCS031).
|
||||
PROGRAMADOR : Juan Fco. Soto (Johnny)
|
||||
FECHA REALIZACION : Agosto 14,1992.
|
||||
-------------------------------------------------------------------------
|
||||
}
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
\gp---------------------------------------------------------------------------q\g
|
||||
\g|\g Documento Numero [f000 ] Fecha [f001 ] \g|\g
|
||||
\g|\g Codigo de Dpto. [f3 ] [a1 ] \g|\g
|
||||
\g|\g Bodega :[a7] \g|\g
|
||||
\gb---------------------------------------------------------------------------d\g
|
||||
C A N T I D A D
|
||||
Codigo Ordenada Entregada Unidad D e s c r i p c i o n
|
||||
\g-----------------------------------------------------------------------------\g
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
\g-----------------------------------------------------------------------------\g
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001,
|
||||
intb00002,
|
||||
intb00006,
|
||||
adtb00001
|
||||
attributes
|
||||
f000 = intb00006.num_doc,autonext,
|
||||
comments =
|
||||
"Digite Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos ";
|
||||
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
|
||||
comments = "Digite Fecha Documento";
|
||||
f3 = intb00006.depto_a,autonext,
|
||||
comments = "Digite Codigo Departamento";
|
||||
a1 = adtb00001.nom_dpto, noentry;
|
||||
a = intb00006.cod_n,autonext,
|
||||
comments = "Digite Codigo Articulo";
|
||||
b = intb00006.cod_grupo,autonext,
|
||||
comments = "Digite Codigo Articulo";
|
||||
c = intb00006.cod_tipo,autonext,
|
||||
comments = "Digite Codigo Articulo";
|
||||
d = intb00006.cod_sec,
|
||||
comments = "Digite Codigo Articulo";
|
||||
f02 = intb00006.cantidad_1,autonext,
|
||||
comments = "Digite La Cantidad Ordenada";
|
||||
f03 = intb00006.cantidad_2,autonext,
|
||||
comments = "Digite La Cantidad Entregada";
|
||||
a7 = intb00006.bodega,autonext,
|
||||
comments = "Digite el codigo de la bodega de almacenamiento";
|
||||
k = intb00001.descrip_esp,noentry,autonext;
|
||||
p = intb00001.unidad_med,noentry;
|
||||
|
||||
INSTRUCTIONS
|
||||
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
||||
cantidad_2,unidad_med,descrip_esp)
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,51 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
\gp---------------------------------------------------------------------------q\g
|
||||
\g|\gDocumento Numero [f000 ] \g|\g
|
||||
\g|\gCodigo Movimiento [m ] [m1 ] \g|\g
|
||||
\g|\gfecha [f001 ] Bodega :[p1 ] \g|\g
|
||||
\gb---------------------------------------------------------------------------d\g
|
||||
Codigo Cantidad Unidad D e s c r i p c i o n
|
||||
\g-----------------------------------------------------------------------------\g
|
||||
[a][b][c ][d ][f02 ] [p ] [k ]
|
||||
[a][b][c ][d ][f02 ] [p ] [k ]
|
||||
[a][b][c ][d ][f02 ] [p ] [k ]
|
||||
[a][b][c ][d ][f02 ] [p ] [k ]
|
||||
[a][b][c ][d ][f02 ] [p ] [k ]
|
||||
[a][b][c ][d ][f02 ] [p ] [k ]
|
||||
\g-----------------------------------------------------------------------------\g
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006,
|
||||
intb00001,
|
||||
cotb00001
|
||||
attributes
|
||||
f000 = intb00006.num_doc,autonext,
|
||||
comments =
|
||||
"Digite Numero Documento O Presione <Esc> Para Buscar Todos Los Documentos";
|
||||
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
|
||||
comments = "Digite Fecha Documento";
|
||||
a = intb00006.cod_n,autonext,
|
||||
comments = "Digite el NIVEL";
|
||||
b = intb00006.cod_grupo,autonext,
|
||||
comments = "Digite el GRUPO";
|
||||
c = intb00006.cod_tipo,autonext,
|
||||
comments = "Digite el TIPO";
|
||||
d = intb00006.cod_sec,autonext,
|
||||
comments = "Digite la SECUENCIA ";
|
||||
f02 = intb00006.cantidad_2,autonext,
|
||||
comments = "Digite La Cantidad Ordenada";
|
||||
k = intb00001.descrip_esp,noentry;
|
||||
p = intb00001.unidad_med,noentry;
|
||||
p1 = intb00006.bodega,autonext;
|
||||
m = intb00006.cod_mov,autonext,autonext,
|
||||
comments = "Digite codigo del movimiento";
|
||||
m1 = formonly.descrip_mov, noentry;
|
||||
INSTRUCTIONS
|
||||
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,
|
||||
cantidad_2,unidad_med,descrip_esp)
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,40 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo [b]-[c]-[d1]-[e01]
|
||||
Descripcion Espanol [f004 ]
|
||||
Descripcion Ingles [f005 ]
|
||||
Unidad de Medida [a0 ]
|
||||
[j]
|
||||
|
||||
|
||||
Usuario Creador [f006 ] Usuario Modificador [f008 ]
|
||||
Fecha Creacion [f007 ] Fecha Modificacion [f009 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
b = intb00001.cod_n, autonext,
|
||||
comments = "Digite el NIVEL del bien o Servicio";
|
||||
c = intb00001.cod_grupo, autonext,
|
||||
comments = "Digite el GRUPO del bien o Servicio";
|
||||
d1 = intb00001.cod_tipo, autonext,
|
||||
comments = "Digite el TIPO del bien o Servicio";
|
||||
e01 = intb00001.cod_sec, autonext,
|
||||
comments = "Digite el SECUENCIA del bien o Servicio";
|
||||
f004 = intb00001.descrip_esp, upshift, required,
|
||||
comments = "Digite el nombre del Articulo en ESPANOL";
|
||||
f005 = intb00001.descrip_ing, upshift,
|
||||
comments = "Digite el nombre del Articulo en INGLES";
|
||||
a0 = intb00001.unidad_med, upshift, required,
|
||||
comments = "Digite la unidad de medida del articulo";
|
||||
f006 = intb00001.us_crea, noentry;
|
||||
f007 = intb00001.fech_crea, noentry;
|
||||
f008 = intb00001.us_mod, noentry;
|
||||
f009 = intb00001.fech_mod, noentry;
|
||||
j = intb00001.status_t, noentry;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
|
||||
@@ -0,0 +1,107 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{15c5b6e0-d5ec-4028-b525-3df0155a4a8d}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="sarticulo" uid="{a33d7bec-0b21-4f26-8c69-fcf4aea69841}">
|
||||
<RecordField colName="codigo" fieldIdRef="21" name="codigo" sqlTabName="formonly" uid="{97bfcb61-9e78-4014-a140-c983673f702e}"/>
|
||||
<RecordField colName="descripcion" fieldIdRef="22" name="descripcion" sqlTabName="formonly" uid="{2bec1ccf-8dd1-4f09-ba43-d3ce812cf4c0}"/>
|
||||
<RecordField colName="unidad1" fieldIdRef="23" name="unidad1" sqlTabName="formonly" uid="{1d824d6f-5846-406b-8e7d-e305d171220e}"/>
|
||||
</Record>
|
||||
<Record name="record1" uid="{1bd81d6a-fa48-4368-a1a8-7f14d0022a17}">
|
||||
<RecordField colName="cod_n" fieldIdRef="1" name="cod_n" sqlTabName="formonly" uid="{4e2333c0-df45-4b1c-bd7b-a9fe36fa4ef4}"/>
|
||||
<RecordField colName="cod_grupo" fieldIdRef="2" name="cod_grupo" sqlTabName="formonly" uid="{62345f46-ca0a-4fb8-96bc-c9d78ff818a5}"/>
|
||||
<RecordField colName="cod_tipo" fieldIdRef="3" name="cod_tipo" sqlTabName="formonly" uid="{8955b036-d5e1-4b82-9307-a61c23a681fb}"/>
|
||||
<RecordField colName="cod_sec" fieldIdRef="4" name="cod_sec" sqlTabName="formonly" uid="{53a707c3-f1a5-4246-97c9-7883ed777602}"/>
|
||||
<RecordField colName="descrip1" fieldIdRef="16" name="descrip1" sqlTabName="formonly" uid="{1778b937-6e24-48c6-9756-8ccc8a9e5a24}"/>
|
||||
<RecordField colName="descrip2" fieldIdRef="17" name="descrip2" sqlTabName="formonly" uid="{82e92e60-d460-431b-8426-0ce5bbde6a64}"/>
|
||||
<RecordField colName="medida" fieldIdRef="18" name="medida" sqlTabName="formonly" uid="{d700d2aa-0d1a-4d64-a16a-470c1998432a}"/>
|
||||
<RecordField colName="pto_reorden" fieldIdRef="5" name="pto_reorden" sqlTabName="formonly" uid="{1b8da143-d100-4918-b6ba-9850b9d325b8}"/>
|
||||
<RecordField colName="existencia" fieldIdRef="6" name="existencia" sqlTabName="formonly" uid="{26b8a2f9-9f55-4a27-bb9b-367ce718da03}"/>
|
||||
<RecordField colName="cod_nab" fieldIdRef="7" name="cod_nab" sqlTabName="formonly" uid="{9fe9f476-650e-4f91-8b79-368838de29f9}"/>
|
||||
<RecordField colName="base" fieldIdRef="20" name="base" sqlTabName="formonly" uid="{c3d06135-8ad4-459d-ac72-fc52c33cd451}"/>
|
||||
<RecordField colName="bodega" fieldIdRef="8" name="bodega" sqlTabName="formonly" uid="{e8541996-fba0-4f17-8e49-d5f887e72790}"/>
|
||||
<RecordField colName="categoria" fieldIdRef="9" name="categoria" sqlTabName="formonly" uid="{cfdb389d-46e6-4a60-896d-20d016ab0471}"/>
|
||||
<RecordField colName="codid" fieldIdRef="0" name="codid" sqlTabName="formonly" uid="{6eebcc38-61d9-4802-9877-7cc5b838a362}"/>
|
||||
<RecordField colName="dia_llegada" fieldIdRef="10" name="dia_llegada" sqlTabName="formonly" uid="{93fa959a-f85e-4994-a74b-c10edea75603}"/>
|
||||
<RecordField colName="gravamen" fieldIdRef="11" name="gravamen" sqlTabName="formonly" uid="{8a06f2a1-d243-4a7f-ab93-1be1bc60dea1}"/>
|
||||
<RecordField colName="status_t" fieldIdRef="19" name="status_t" sqlTabName="formonly" uid="{03adb6ee-e371-473a-9c78-862c3a354422}"/>
|
||||
<RecordField colName="us_crea" fieldIdRef="12" name="us_crea" sqlTabName="formonly" uid="{e60c1a2b-5c2d-4b33-9bf6-d051882c5929}"/>
|
||||
<RecordField colName="us_mod" fieldIdRef="14" name="us_mod" sqlTabName="formonly" uid="{28fc0022-cdb9-4451-8ef5-56f8aaf224e6}"/>
|
||||
<RecordField colName="fech_crea" fieldIdRef="13" name="fech_crea" sqlTabName="formonly" uid="{856e2d32-a959-4bc6-a592-8846fce277d4}"/>
|
||||
<RecordField colName="fech_mod" fieldIdRef="15" name="fech_mod" sqlTabName="formonly" uid="{ea5f156c-f61f-4206-bf70-7b3af276cd39}"/>
|
||||
<RecordField defaultValue="NO" fieldIdRef="24" name="desglose" uid="{5d74619d-3ce5-43f9-8f5f-3edc3e146f1d}"/>
|
||||
</Record>
|
||||
<Form gridHeight="15" gridWidth="77" name="infmmt002" style="basic" text="CATALOGO MATERIA PRIMA">
|
||||
<ToolBar name="toolbar1">
|
||||
<ToolBarItem comment="Nueva Cotizacion" image="new" name="nuevo" text="Materia Prima"/>
|
||||
<ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Articulos"/>
|
||||
<ToolBarItem image="quit" name="salir" text="Salir"/>
|
||||
<ToolBarSeparator name="toolbarseparator1"/>
|
||||
<ToolBarItem comment="Salva informacion en tabla" image="filesave" name="guardar" text="Guardar"/>
|
||||
<ToolBarItem comment="Cancela Operation" image="cancel" name="cancelar" text="Cancelar"/>
|
||||
</ToolBar>
|
||||
<Folder gridHeight="15" gridWidth="77" name="folder1" posX="0" posY="0">
|
||||
<Page name="p1" text="Lista Articulos">
|
||||
<Grid gridHeight="10" gridWidth="67" name="grid1" posX="0" posY="0">
|
||||
<Table gridHeight="10" gridWidth="65" name="table1" posX="2" posY="0" totalRows="9" unitWidth="characters" width="65">
|
||||
<Edit colName="codigo" fieldId="21" gridHeight="1" gridWidth="17" name="codigo" posX="0" posY="0" sqlTabName="formonly" tabIndex="1" title="CODIGOS" widget="Edit"/>
|
||||
<Edit colName="descripcion" fieldId="22" gridHeight="1" gridWidth="34" name="descripcion" posX="17" posY="0" sqlTabName="formonly" tabIndex="2" title="DESCRIPCION" widget="Edit"/>
|
||||
<Edit colName="unidad1" fieldId="23" gridHeight="1" gridWidth="3" name="unidad1" posX="51" posY="0" sqlTabName="formonly" tabIndex="3" title="UNIDAD MEDIDA" widget="Edit"/>
|
||||
</Table>
|
||||
</Grid>
|
||||
</Page>
|
||||
<Page name="p2" text="Datos Articulos">
|
||||
<Grid gridHeight="14" gridWidth="77" name="grid2" posX="0" posY="0">
|
||||
<Label gridHeight="1" gridWidth="6" name="label1" posX="4" posY="0" text="Codigo"/>
|
||||
<Edit autoNext="true" colName="cod_n" comment="Digite el codigo de la materia prima" fieldId="1" gridHeight="1" gridWidth="3" name="cod_n" posX="16" posY="0" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_grupo" comment="Digite el codigo de la materia prima" fieldId="2" gridHeight="1" gridWidth="3" name="cod_grupo" posX="21" posY="0" sqlTabName="formonly" tabIndex="5" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_tipo" comment="Digite el codigo de la materia prima" fieldId="3" gridHeight="1" gridWidth="4" name="cod_tipo" posX="26" posY="0" sqlTabName="formonly" tabIndex="6" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_sec" comment="Digite el codigo de la materia prima" fieldId="4" gridHeight="1" gridWidth="5" name="cod_sec" posX="32" posY="0" sqlTabName="formonly" tabIndex="7" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="20" name="label2" posX="1" posY="2" text="Descripcion Espanol"/>
|
||||
<Edit case="upper" colName="descrip1" fieldId="16" gridHeight="1" gridWidth="46" name="descrip1" posX="22" posY="2" scroll="true" sqlTabName="formonly" tabIndex="8" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="18" name="label3" posX="1" posY="3" text="Descripcion Ingles"/>
|
||||
<Edit case="upper" colName="descrip2" fieldId="17" gridHeight="1" gridWidth="46" name="descrip2" posX="22" posY="3" scroll="true" sqlTabName="formonly" tabIndex="9" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="13" name="label4" posX="1" posY="4" text="Unidad Medida"/>
|
||||
<Edit case="upper" colName="medida" fieldId="18" gridHeight="1" gridWidth="3" name="medida" posX="22" posY="4" sqlTabName="formonly" tabIndex="10" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="11" name="label19" posX="48" posY="4" text="Desglose"/>
|
||||
<RadioGroup defaultValue="NO" fieldId="24" gridHeight="2" gridWidth="10" items="SI, NO" name="desglose" posX="48" posY="5" tabIndex="-1" title="radiogroup1" widget="RadioGroup">
|
||||
<Item lstrtext="false" name="SI" text="SI"/>
|
||||
<Item lstrtext="false" name="NO" text="NO"/>
|
||||
</RadioGroup>
|
||||
<Label gridHeight="1" gridWidth="16" name="label5" posX="1" posY="6" text="Punto de reorden"/>
|
||||
<Edit colName="pto_reorden" comment="Digite el punto de reorden" fieldId="5" gridHeight="1" gridWidth="12" name="pto_reorden" posX="28" posY="6" sqlTabName="formonly" tabIndex="11" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label6" posX="1" posY="7" text="Existencia"/>
|
||||
<Edit colName="existencia" fieldId="6" gridHeight="1" gridWidth="12" name="existencia" noEntry="true" posX="28" posY="7" sqlTabName="formonly" tabIndex="12" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="24" name="label7" posX="1" posY="8" text="Nomenclatura Arancelaria"/>
|
||||
<Edit colName="cod_nab" comment="Digite el codigo arancelario" fieldId="7" gridHeight="1" gridWidth="11" name="cod_nab" picture="##.##.##.##" posX="28" posY="8" sqlTabName="formonly" tabIndex="13" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="17" name="label8" posX="41" posY="8" text="Base Para Precio"/>
|
||||
<Edit autoNext="true" colName="base" comment="Digite La Cantidad de la base para calculo de su precio" fieldId="20" gridHeight="1" gridWidth="13" name="base" posX="59" posY="8" sqlTabName="formonly" tabIndex="14" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="6" name="label9" posX="1" posY="9" text="Bodega"/>
|
||||
<Edit colName="bodega" comment="Digite la bodega" fieldId="8" gridHeight="1" gridWidth="2" name="bodega" posX="28" posY="9" sqlTabName="formonly" tabIndex="15" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label10" posX="32" posY="9" text="Categoria"/>
|
||||
<Edit case="upper" colName="categoria" comment="Digite A,B,C" fieldId="9" gridHeight="1" gridWidth="1" name="categoria" posX="43" posY="9" sqlTabName="formonly" tabIndex="16" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="8" name="label11" posX="47" posY="9" text="Codigo B"/>
|
||||
<FFLabel colName="codid" fieldId="0" gridHeight="1" gridWidth="7" name="codid" posX="56" posY="9" sqlTabName="formonly" widget="FFLabel"/>
|
||||
<Label gridHeight="1" gridWidth="14" name="label12" posX="1" posY="10" text="Dia de Llegada"/>
|
||||
<Edit colName="dia_llegada" comment="Digite el dia de llegada de la materia prima" fieldId="10" gridHeight="1" gridWidth="3" name="dia_llegada" posX="28" posY="10" sqlTabName="formonly" tabIndex="18" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="9" name="label13" posX="33" posY="10" text="Gravamen"/>
|
||||
<Edit autoNext="true" colName="gravamen" comment="Digite El Porcentaje de Gravamen" fieldId="11" gridHeight="1" gridWidth="6" name="gravamen" posX="43" posY="10" sqlTabName="formonly" tabIndex="19" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="1" name="label14" posX="50" posY="10" text="%"/>
|
||||
<Edit colName="status_t" fieldId="19" gridHeight="1" gridWidth="1" name="status_t" noEntry="true" posX="2" posY="11" sqlTabName="formonly" tabIndex="20" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="15" name="label15" posX="1" posY="12" text="Usuario creador"/>
|
||||
<Edit colName="us_crea" fieldId="12" gridHeight="1" gridWidth="16" name="us_crea" noEntry="true" posX="19" posY="12" sqlTabName="formonly" tabIndex="21" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="19" name="label16" posX="38" posY="12" text="Usuario modificador"/>
|
||||
<Edit colName="us_mod" fieldId="14" gridHeight="1" gridWidth="16" name="us_mod" noEntry="true" posX="60" posY="12" sqlTabName="formonly" tabIndex="22" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="14" name="label17" posX="1" posY="13" text="Fecha Creacion"/>
|
||||
<Edit colName="fech_crea" fieldId="13" gridHeight="1" gridWidth="16" name="fech_crea" noEntry="true" posX="19" posY="13" sqlTabName="formonly" tabIndex="23" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="18" name="label18" posX="38" posY="13" text="Fecha Modificacion"/>
|
||||
<Edit colName="fech_mod" fieldId="15" gridHeight="1" gridWidth="16" name="fech_mod" noEntry="true" posX="60" posY="13" sqlTabName="formonly" tabIndex="24" widget="Edit"/>
|
||||
</Grid>
|
||||
</Page>
|
||||
</Folder>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewAxAGIAZAA4ADEAZAA2AGEALQBmAGEANAA4AC0ANAAzADYAOAAtAGEAMQBhADgALQA3AGYAMQA0AGQAMAAwADIAMgBhADEANwB9QCAAAAgAAAFAIAAACAAAAQAAAAAAAAAAAQAAAEwAewBhADMAMwBkADcAYgBlAGMALQAwAGIAMgAxAC0ANABmADIANgAtADgAYwA2ADkALQBmAGMAZgA0AGEAZQBhADYAOQA4ADQAMQB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,91 @@
|
||||
SCHEMA smarmotech
|
||||
TOOLBAR
|
||||
ITEM nuevo (TEXT="Materia Prima", IMAGE="new", COMMENT="Nueva Cotizacion")
|
||||
ITEM buscar (TEXT="Buscar Articulos", IMAGE="find", COMMENT="Criterio de busqueda")
|
||||
ITEM salir (TEXT="Salir", IMAGE="quit")
|
||||
SEPARATOR
|
||||
ITEM guardar (TEXT="Guardar", IMAGE="save", COMMENT="Salva informacion en tabla" )
|
||||
ITEM cancelar (TEXT="Cancelar", IMAGE="cancel", COMMENT="Cancela Operation")
|
||||
END
|
||||
LAYOUT (TEXT="CATALOGO MATERIA PRIMA", STYLE="basic")
|
||||
FOLDER
|
||||
PAGE p1 (TEXT="Lista Articulos")
|
||||
GRID
|
||||
{<G Lista >
|
||||
<t t1 >
|
||||
[ar1 ][desc1 ][und]
|
||||
[ar1 ][desc1 ][und]
|
||||
[ar1 ][desc1 ][und]
|
||||
[ar1 ][desc1 ][und]
|
||||
[ar1 ][desc1 ][und]
|
||||
[ar1 ][desc1 ][und]
|
||||
[ar1 ][desc1 ][und]
|
||||
[ar1 ][desc1 ][und]
|
||||
[ar1 ][desc1 ][und]
|
||||
}
|
||||
END
|
||||
END
|
||||
PAGE p2 (TEXT="Datos Articulos")
|
||||
GRID
|
||||
|
||||
{
|
||||
Codigo [a ][b ][c ][e ]
|
||||
|
||||
Descripcion Espanol [d ]
|
||||
Descripcion Ingles [f ]
|
||||
Unidad Medida [k ]
|
||||
|
||||
Punto de reorden [f004 ]
|
||||
Existencia [f005 ]
|
||||
Nomenclatura Arancelaria [f006 ] Base Para Precio [k1 ]
|
||||
Bodega [l ] Categoria [r] Codigo B[kk ]
|
||||
Dia de Llegada [m ] Gravamen [mn ]%
|
||||
[q]
|
||||
Usuario creador [f007 ] Usuario modificador [f009 ]
|
||||
Fecha Creacion [f008 ] Fecha Modificacion [f010 ]
|
||||
}
|
||||
end
|
||||
END
|
||||
END
|
||||
tables
|
||||
intb00002
|
||||
attributes
|
||||
LABEL kk = formonly.codid;
|
||||
a = formonly.cod_n, autonext,
|
||||
comments = "Digite el codigo de la materia prima";
|
||||
b = formonly.cod_grupo, autonext,
|
||||
comments = "Digite el codigo de la materia prima";
|
||||
c = formonly.cod_tipo, autonext,
|
||||
comments = "Digite el codigo de la materia prima";
|
||||
e = formonly.cod_sec,autonext,
|
||||
comments = "Digite el codigo de la materia prima";
|
||||
f004 = formonly.pto_reorden,
|
||||
comments = "Digite el punto de reorden";
|
||||
f005 = formonly.existencia,noentry;
|
||||
f006 = formonly.cod_nab, picture = "##.##.##.##",
|
||||
comments = "Digite el codigo arancelario";
|
||||
l = formonly.bodega,
|
||||
comments ="Digite la bodega";
|
||||
r = formonly.categoria,comments = "Digite A,B,C",
|
||||
upshift;
|
||||
m = formonly.dia_llegada,
|
||||
comments = "Digite el dia de llegada de la materia prima";
|
||||
mn = formonly.gravamen,autonext,
|
||||
comments = "Digite El Porcentaje de Gravamen";
|
||||
f007 = formonly.us_crea, noentry;
|
||||
f008 = formonly.fech_crea, noentry;
|
||||
f009 = formonly.us_mod, noentry;
|
||||
f010 = formonly.fech_mod, noentry;
|
||||
d = formonly.descrip1,upshift,scroll;
|
||||
f = formonly.descrip2,upshift,scroll;
|
||||
k = formonly.medida,upshift;
|
||||
q = formonly.status_t,noentry;
|
||||
k1 = formonly.base,autonext,comments =
|
||||
"Digite La Cantidad de la base para calculo de su precio";
|
||||
ar1 = formonly.codigo, TITLE="CODIGOS";
|
||||
desc1 = formonly.descripcion,TITLE="DESCRIPCION";
|
||||
und = formonly.unidad1,TITLE="UNIDAD MEDIDA";
|
||||
instructions
|
||||
delimiters " "
|
||||
screen record sarticulo (codigo,descripcion,unidad1)
|
||||
end
|
||||
@@ -0,0 +1,63 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" gstVersion="22800" name="ManagedForm" uid="{1b5b2e40-63f2-461d-9eda-449c41319990}">
|
||||
<AGSettings/>
|
||||
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{ce24efa2-4561-4fe9-97bf-b84e6191c837}" where="">
|
||||
<RecordField colName="cod_n" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00003.cod_n" sqlTabName="intb00003" sqlType="SMALLINT" table_alias_name="" uid="{7a86adf5-96f7-4132-958f-0413cf8d31a2}"/>
|
||||
<RecordField colName="cod_grupo" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00003.cod_grupo" sqlTabName="intb00003" sqlType="SMALLINT" table_alias_name="" uid="{49bf3063-9401-4c4a-bdc3-ea91ad26dfb9}"/>
|
||||
<RecordField colName="cod_tipo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00003.cod_tipo" sqlTabName="intb00003" sqlType="SMALLINT" table_alias_name="" uid="{88570ece-a93a-4f66-b401-5032b0240895}"/>
|
||||
<RecordField colName="cod_sec" fieldIdRef="3" fieldType="TABLE_COLUMN" name="intb00003.cod_sec" sqlTabName="intb00003" sqlType="SMALLINT" table_alias_name="" uid="{77adb094-1919-44ce-92d8-b4cc9e239a1e}"/>
|
||||
<RecordField colName="cod_n_s" fieldIdRef="4" fieldType="TABLE_COLUMN" name="intb00003.cod_n_s" sqlTabName="intb00003" sqlType="SMALLINT" table_alias_name="" uid="{d9da2d43-cb1f-427d-ade6-4e36dfff932c}"/>
|
||||
<RecordField colName="cod_grupo_s" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00003.cod_grupo_s" sqlTabName="intb00003" sqlType="SMALLINT" table_alias_name="" uid="{033a6f77-c2af-4e75-afb2-45faa92deca5}"/>
|
||||
<RecordField colName="cod_tipo_s" fieldIdRef="6" fieldType="TABLE_COLUMN" name="intb00003.cod_tipo_s" sqlTabName="intb00003" sqlType="SMALLINT" table_alias_name="" uid="{f8f1c9d1-d6c7-4257-bfab-743241242598}"/>
|
||||
<RecordField colName="cod_sec_s" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00003.cod_sec_s" sqlTabName="intb00003" sqlType="SMALLINT" table_alias_name="" uid="{1505d9cc-d9b8-4de7-9d01-320f48f4606f}"/>
|
||||
<RecordField colName="descrip1" fieldIdRef="14" name="descrip1" sqlTabName="formonly" table_alias_name="" uid="{9cd38d98-14a2-4d4e-b6fe-afb00db341fb}"/>
|
||||
<RecordField colName="descrip3" fieldIdRef="16" name="descrip3" sqlTabName="formonly" table_alias_name="" uid="{bb9b5afc-c578-45b0-97b6-3d15f579f635}"/>
|
||||
<RecordField colName="descrip2" fieldIdRef="15" name="descrip2" sqlTabName="formonly" table_alias_name="" uid="{41ffddab-fa8a-483b-809e-e2c8708a9701}"/>
|
||||
<RecordField colName="descrip4" fieldIdRef="17" name="descrip4" sqlTabName="formonly" table_alias_name="" uid="{27484896-7658-4dc6-9e0b-50bc6edec2af}"/>
|
||||
<RecordField colName="cod_uso_s" defaultValue="1" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00003.cod_uso_s" sqlTabName="intb00003" sqlType="VARCHAR" table_alias_name="" uid="{51ddd073-ecd0-4868-9bbf-23109ecb60cd}"/>
|
||||
<RecordField colName="status_t" fieldIdRef="13" fieldType="TABLE_COLUMN" name="intb00003.status_t" sqlTabName="intb00003" sqlType="VARCHAR" table_alias_name="" uid="{4f9c86e8-c3b4-4b67-9137-b9ebc5055755}"/>
|
||||
<RecordField colName="us_crea" fieldIdRef="9" fieldType="TABLE_COLUMN" name="intb00003.us_crea" sqlTabName="intb00003" sqlType="VARCHAR" table_alias_name="" uid="{d23834f8-4bcf-4439-a107-af351489ff97}"/>
|
||||
<RecordField colName="us_mod" fieldIdRef="11" fieldType="TABLE_COLUMN" name="intb00003.us_mod" sqlTabName="intb00003" sqlType="VARCHAR" table_alias_name="" uid="{7c0885cb-63a1-4600-9637-b96a849ae4f3}"/>
|
||||
<RecordField colName="fech_crea" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00003.fech_crea" qual1="YEAR" qualFraction="FRACTION(3)" sqlTabName="intb00003" sqlType="DATETIME" table_alias_name="" uid="{a5642d21-45de-40d9-a1fa-35896acaf9b5}"/>
|
||||
<RecordField colName="fech_mod" fieldIdRef="12" fieldType="TABLE_COLUMN" name="intb00003.fech_mod" qual1="YEAR" qualFraction="FRACTION(3)" sqlTabName="intb00003" sqlType="DATETIME" table_alias_name="" uid="{bc9a1c73-d478-4957-9bb9-0ea49a07dfcb}"/>
|
||||
</Record>
|
||||
<Form gridHeight="26" gridWidth="134" name="infmmt003">
|
||||
<Grid gridHeight="23" gridWidth="125" name="Grid1" posX="6" posY="1">
|
||||
<Label gridHeight="1" gridWidth="6" name="Label2" posX="2" posY="5" text="Codigo"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_n" columnCount="" comment="Digite NIVEL del articulo" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00003.cod_n" notNull="true" posX="9" posY="5" required="true" rowCount="" sqlTabName="intb00003" sqlType="SMALLINT" stepX="" stepY="" tabIndex="1" table_alias_name="" widget="Edit"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" columnCount="" comment="Digite GRUPO del articulo" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00003.cod_grupo" notNull="true" posX="16" posY="5" required="true" rowCount="" sqlTabName="intb00003" sqlType="SMALLINT" stepX="" stepY="" tabIndex="2" table_alias_name="" widget="Edit"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" columnCount="" comment="Digite TIPO del articulo" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00003.cod_tipo" notNull="true" posX="23" posY="5" required="true" rowCount="" sqlTabName="intb00003" sqlType="SMALLINT" stepX="" stepY="" tabIndex="3" table_alias_name="" widget="Edit"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" columnCount="" comment="Digite SECUENCIA del articulo" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="intb00003.cod_sec" notNull="true" posX="31" posY="5" required="true" rowCount="" sqlTabName="intb00003" sqlType="SMALLINT" stepX="" stepY="" tabIndex="4" table_alias_name="" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="13" name="Label1" posX="40" posY="5" text="Codigo Sustituto"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_n_s" columnCount="" comment="Digite NIVEL del articulo" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00003.cod_n_s" posX="56" posY="5" required="true" rowCount="" sqlTabName="intb00003" sqlType="SMALLINT" stepX="" stepY="" tabIndex="5" table_alias_name="" widget="Edit"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo_s" columnCount="" comment="Digite GRUPO del articulo" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00003.cod_grupo_s" posX="64" posY="5" required="true" rowCount="" sqlTabName="intb00003" sqlType="SMALLINT" stepX="" stepY="" tabIndex="6" table_alias_name="" widget="Edit"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo_s" columnCount="" comment="Digite TIPO del articulo" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00003.cod_tipo_s" posX="72" posY="5" required="true" rowCount="" sqlTabName="intb00003" sqlType="SMALLINT" stepX="" stepY="" tabIndex="7" table_alias_name="" widget="Edit"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec_s" columnCount="" comment="Digite SECUENCIA del articulo" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="intb00003.cod_sec_s" posX="79" posY="5" required="true" rowCount="" sqlTabName="intb00003" sqlType="SMALLINT" stepX="" stepY="" tabIndex="8" table_alias_name="" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="16" name="Label5" posX="1" posY="8" text="Descripcion Espanol"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip1" columnCount="" fieldId="14" gridHeight="1" gridWidth="64" name="descrip1" noEntry="true" posX="22" posY="8" rowCount="" scroll="true" sqlTabName="formonly" stepX="" stepY="" tabIndex="9" table_alias_name="" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="15" name="Label4" posX="1" posY="10" text="Descripcion Ingles"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip3" columnCount="" fieldId="16" gridHeight="1" gridWidth="64" name="descrip3" noEntry="true" posX="23" posY="10" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="10" table_alias_name="" widget="Edit"/>
|
||||
<Label posX="1" posY="12" text="Descripcion Espanol"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip2" columnCount="" fieldId="15" gridHeight="1" gridWidth="63" name="descrip2" noEntry="true" posX="23" posY="12" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="11" table_alias_name="" widget="Edit"/>
|
||||
<Label posX="1" posY="14" text="Descripcion Ingles"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip4" columnCount="" fieldId="17" gridHeight="1" gridWidth="62" name="descrip4" noEntry="true" posX="23" posY="14" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="12" table_alias_name="" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="7" name="Label3" posX="1" posY="16" text="En uso?"/>
|
||||
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_uso_s" columnCount="" comment="0 = Esta en uso, 1 = No esta en uso" defaultValue="1" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="10" items="SI, NO" name="intb00003.cod_uso_s" posX="11" posY="16" rowCount="" sqlTabName="intb00003" sqlType="VARCHAR" stepX="" stepY="" tabIndex="13" table_alias_name="" widget="ComboBox">
|
||||
<Item lstrtext="false" name="1" text="SI"/>
|
||||
<Item lstrtext="false" name="0" text="NO"/>
|
||||
</ComboBox>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" columnCount="" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00003.status_t" noEntry="true" posX="1" posY="17" rowCount="" sqlTabName="intb00003" sqlType="VARCHAR" stepX="" stepY="" tabIndex="14" table_alias_name="" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="15" name="Label6" posX="1" posY="19" text="Usuario Creador"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" columnCount="" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="intb00003.us_crea" noEntry="true" posX="18" posY="19" rowCount="" sqlTabName="intb00003" sqlType="VARCHAR" stepX="" stepY="" tabIndex="15" table_alias_name="" widget="Edit"/>
|
||||
<Label posX="37" posY="19" text="Usuario Modificador"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" columnCount="" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="intb00003.us_mod" noEntry="true" posX="58" posY="19" rowCount="" sqlTabName="intb00003" sqlType="VARCHAR" stepX="" stepY="" tabIndex="16" table_alias_name="" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="13" name="Label7" posX="1" posY="20" text="Fecha Creador"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" columnCount="" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="intb00003.fech_crea" noEntry="true" posX="18" posY="20" qual1="YEAR" qualFraction="FRACTION(3)" rowCount="" sqlTabName="intb00003" sqlType="DATETIME" stepX="" stepY="" tabIndex="17" table_alias_name="" widget="Edit"/>
|
||||
<Label posX="37" posY="20" text="Fecha Modificador"/>
|
||||
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" columnCount="" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="intb00003.fech_mod" noEntry="true" posX="58" posY="20" qual1="YEAR" qualFraction="FRACTION(3)" rowCount="" sqlTabName="intb00003" sqlType="DATETIME" stepX="" stepY="" tabIndex="18" table_alias_name="" widget="Edit"/>
|
||||
</Grid>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewA4ADgANQA3ADAAZQBjAGUALQBhADkAMwBhAC0ANABmADYANgAtAGIANAAwADEALQA1ADAAMwAyAGIAMAAyADQAMAA4ADkANQB9QCAAAAQAAABAUDMzN0AAAAAAAAAAAAAAAQAAAEwAewBkADkAZABhADIAZAA0ADMALQBjAGIAMQBmAC0ANAAyADcAZAAtAGEAZABlADYALQA0AGUAMwA2AGQAZgBmAGYAOQAzADIAYwB9QCAAAAQAAABAWQAABkAAAAAAAAAAAAAAAQAAAEwAewBhADUANgA0ADIAZAAyADEALQA0ADUAZABlAC0ANAAwAGQAOQAtAGEAMQBmAGEALQAzADUAOAA5ADYAYQBjAGEAZgA5AGIANQB9QCAAAAQAAABAc3MzOBAAAAAAAAAAAAAAAQAAAEwAewBmADgAZgAxAGMAOQBkADEALQBkADYAYwA3AC0ANAAyADUANwAtAGIAZgBhAGIALQA3ADQAMwAyADQAMQAyADQAMgA1ADkAOAB9QCAAAAQAAABAYOZmaqAAAAAAAAAAAAAAAQAAAEwAewA1ADEAZABkAGQAMAA3ADMALQBlAGMAZAAwAC0ANAA4ADYAOAAtADkAYgBiAGYALQAyADMAMQAwADkAZQBjAGIANgAwAGMAZAB9QCAAAAQAAABAbhmZoSAAAAAAAAAAAAAAAQAAAEwAewA0AGYAOQBjADgANgBlADgALQBjADMAYgA0AC0ANABiADYANwAtADkAMQAzADcALQBiADkAZQBiAGMANQAwADUANQA3ADUANQB9QCAAAAQAAABAcCZmanAAAAAAAAAAAAAAAQAAAEwAewBiAGIAOQBiADUAYQBmAGMALQBjADUANwA4AC0ANAA1AGIAMAAtADkANwBiADYALQAzAGQAMQA1AGYANQA3ADkAZgA2ADMANQB9QCAAAAQAAABAZ4AABeAAAAAAAAAAAAAAAQAAAEwAewA0ADEAZgBmAGQAZABhAGIALQBmAGEAOABhAC0ANAA4ADMAYgAtADgAMAA5AGUALQBlADIAYwA4ADcAMAA4AGEAOQA3ADAAMQB9QCAAAAQAAABAabMzOaAAAAAAAAAAAAAAAQAAAEwAewBjAGUAMgA0AGUAZgBhADIALQA0ADUANgAxAC0ANABmAGUAOQAtADkANwBiAGYALQBiADgANABlADYAMQA5ADEAYwA4ADMANwB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewA3AGMAMAA4ADgANQBjAGIALQA2ADMAYQAxAC0ANAA2ADAAMAAtADkANgAzADcALQBiADkANgBhADgANAA5AGEAZQA0AGYAMwB9QCAAAAQAAABAclmZnjAAAAAAAAAAAAAAAQAAAEwAewAxADUAMAA1AGQAOQBjAGMALQBkADkAYgA4AC0ANABkAGUANwAtADkAZAAwADEALQAzADIAMABmADQAOABmADQANgAwADYAZgB9QCAAAAQAAABAYxmZnmAAAAAAAAAAAAAAAQAAAEwAewA3ADcAYQBkAGIAMAA5ADQALQAxADkAMQA5AC0ANAA0AGMAZQAtADkAMgBkADgALQBiADQAYwBjADkAZQAyADMAOQBhADEAZQB9QCAAAAQAAABAVJmZnsAAAAAAAAAAAAAAAQAAAEwAewA0ADkAYgBmADMAMAA2ADMALQA5ADQAMAAxAC0ANABjADQAYQAtAGIAZABjADMALQBlAGEAOQAxAGEAZAAyADYAZABmAGIAOQB9QCAAAAQAAABAR5mZn4AAAAAAAAAAAAAAAQAAAEwAewAyADcANAA4ADQAOAA5ADYALQA3ADYANQA4AC0ANABkAGMANgAtADkAZQAwAGIALQA1ADAAYgBjADYAZQBkAGUAYwAyAGEAZgB9QCAAAAQAAABAa+ZmbWAAAAAAAAAAAAAAAQAAAEwAewA5AGMAZAAzADgAZAA5ADgALQAxADQAYQAyAC0ANABkADQAZQAtAGIANgBmAGUALQBhAGYAYgAwADAAZABiADMANAAxAGYAYgB9QCAAAAQAAABAZUzM0iAAAAAAAAAAAAAAAQAAAEwAewA3AGEAOAA2AGEAZABmADUALQA5ADYAZgA3AC0ANAAxADMAMgAtADkANQA4AGYALQAwADQAMQAzAGMAZgA4AGQAMwAxAGEAMgB9QCAAAAQAAABAPZmZoQAAAAAAAAAAAAAAAQAAAEwAewAwADMAMwBhADYAZgA3ADcALQBjADIAYQBmAC0ANABlADcANQAtAGEAZgBiADIALQA0ADUAZgBhAGEAOQAyAGQAZQBjAGEANQB9QCAAAAQAAABAXWZmbcAAAAAAAAAAAAAAAQAAAEwAewBiAGMAOQBhADEAYwA3ADMALQBkADQANwA4AC0ANAA5ADUANwAtADkAYgBiADkALQAwAGUAYQA0ADkAYQAwADcAZABmAGMAYgB9QCAAAAQAAABAdIzM0fAAAAAAAAAAAAAAAQAAAEwAewBkADIAMwA4ADMANABmADgALQA0AGIAYwBmAC0ANAA0ADMAOQAtAGEAMQAwADcALQBhAGYAMwA1ADEANAA4ADkAZgBmADkANwB9QCAAAAQAAABAcUAABFAAAAAAAAAAAAAAAQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,50 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo [a]-[b]-[c ]-[d ] Codigo Sustituto [e]-[f]-[g ]-[h ]
|
||||
|
||||
Descripcion Espanol [a1 ]
|
||||
Descripcion Ingles [a2 ]
|
||||
|
||||
Descripcion Espanol [b1 ]
|
||||
Descripcion Ingles [b2 ]
|
||||
|
||||
En uso? [i]
|
||||
[j]
|
||||
Usuario Creador [f008 ] Usuario Modificador [f010 ]
|
||||
Fecha Creador [f009 ] Fecha Modificador [f011 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00003
|
||||
attributes
|
||||
a = intb00003.cod_n,autonext,required,
|
||||
comments = "Digite NIVEL del articulo";
|
||||
b = intb00003.cod_grupo,autonext,required,
|
||||
comments = "Digite GRUPO del articulo";
|
||||
c = intb00003.cod_tipo,autonext,required,
|
||||
comments = "Digite TIPO del articulo";
|
||||
d = intb00003.cod_sec,autonext,required,
|
||||
comments = "Digite SECUENCIA del articulo";
|
||||
e = intb00003.cod_n_s,autonext,required,
|
||||
comments = "Digite NIVEL del articulo";
|
||||
f = intb00003.cod_grupo_s,autonext,required,
|
||||
comments = "Digite GRUPO del articulo";
|
||||
g = intb00003.cod_tipo_s,autonext,required,autonext,
|
||||
comments = "Digite TIPO del articulo";
|
||||
h = intb00003.cod_sec_s,required,autonext,
|
||||
comments = "Digite SECUENCIA del articulo";
|
||||
i = intb00003.cod_uso_s,
|
||||
comments = "0 = Esta en uso, 1 = No esta en uso";
|
||||
f008 = intb00003.us_crea,noentry;
|
||||
f009 = intb00003.fech_crea,noentry;
|
||||
f010 = intb00003.us_mod,noentry;
|
||||
f011 = intb00003.fech_mod,noentry;
|
||||
j = intb00003.status_t,noentry;
|
||||
a1 = formonly.descrip1,noentry;
|
||||
b1 = formonly.descrip2,noentry;
|
||||
a2 = formonly.descrip3,noentry;
|
||||
b2 = formonly.descrip4,noentry;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,50 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo [a]-[b]-[c ]-[d ] Codigo Equivalente [e]-[f]-[g ]-[h ]
|
||||
|
||||
Descripcion Espanol [a1 ]
|
||||
Descripicion Ingles [a2 ]
|
||||
|
||||
Descripcion Espanol [b1 ]
|
||||
Descripcion Ingles [b2 ]
|
||||
|
||||
En uso? [i]
|
||||
[j]
|
||||
Usuario Credor [f008 ] Usuario Modificador [f010 ]
|
||||
Fecha Credor [f009 ] Fecha Modificador [f011 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00004
|
||||
attributes
|
||||
a = intb00004.cod_n,autonext,required,
|
||||
comments = "Digite NIVEL del articulo";
|
||||
b = intb00004.cod_grupo,autonext,required,
|
||||
comments = "Digite GRUPO del articulo";
|
||||
c = intb00004.cod_tipo,autonext,required,
|
||||
comments = "Digite TIPO del articulo";
|
||||
d = intb00004.cod_sec,autonext,required,
|
||||
comments = "Digite SECUENCIA del articulo";
|
||||
e = intb00004.cod_n_e,autonext,required,
|
||||
comments = "Digite NIVEL del articulo";
|
||||
f = intb00004.cod_grupo_e,autonext,required,
|
||||
comments = "Digite GRUPO del articulo";
|
||||
g = intb00004.cod_tipo_e,autonext,required,
|
||||
comments = "Digite TIPO del articulo";
|
||||
h = intb00004.cod_sec_e,required,autonext,
|
||||
comments = "Digite SECUENCIA del articulo";
|
||||
i = intb00004.cod_uso_e,
|
||||
comments = "0 = Esta en uso, 1 = No esta en uso";
|
||||
f008 = intb00004.us_crea,noentry;
|
||||
f009 = intb00004.fech_crea,noentry;
|
||||
f010 = intb00004.us_mod,noentry;
|
||||
f011 = intb00004.fech_mod,noentry;
|
||||
j = intb00004.status_t,noentry;
|
||||
a1 = formonly.descrip1,noentry;
|
||||
b1 = formonly.descrip2,noentry;
|
||||
a2 = formonly.descrip3,noentry;
|
||||
b2 = formonly.descrip4,noentry;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,53 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{c52bdd25-7743-4bdf-8d89-b538f1e6b13a}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="record1" uid="{44aea868-e361-4fe6-8a32-5fb8cb6221b2}">
|
||||
<RecordField colName="cod_mov" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00005.cod_mov" sqlTabName="intb00005" uid="{e6d42750-4ca1-4cbf-82df-5ac7a79f3c18}"/>
|
||||
<RecordField colName="cuenta_1" fieldIdRef="3" fieldType="TABLE_COLUMN" name="intb00005.cuenta_1" sqlTabName="intb00005" uid="{9009579b-8937-4724-8043-10cec5476be8}"/>
|
||||
<RecordField colName="descrip_mov" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00005.descrip_mov" sqlTabName="intb00005" uid="{5173816b-e5cd-4b31-bee5-eaebc72d0e84}"/>
|
||||
<RecordField colName="cuenta_2" fieldIdRef="4" fieldType="TABLE_COLUMN" name="intb00005.cuenta_2" sqlTabName="intb00005" uid="{d5c7ca94-4511-409d-bca5-2a083a014f26}"/>
|
||||
<RecordField colName="status_mov" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00005.status_mov" sqlTabName="intb00005" uid="{b9207909-f26c-48c8-afdf-90f75982a30a}"/>
|
||||
<RecordField colName="cuenta_3" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00005.cuenta_3" sqlTabName="intb00005" uid="{cb993a28-a0d0-45e0-83d5-fa4d17cc49da}"/>
|
||||
<RecordField colName="status_t" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00005.status_t" sqlTabName="intb00005" uid="{b870a687-520d-4ffb-8bde-b1c1913c97fe}"/>
|
||||
<RecordField colName="us_crea" fieldIdRef="6" fieldType="TABLE_COLUMN" name="intb00005.us_crea" sqlTabName="intb00005" uid="{b65a973a-6339-4ea0-b2d9-e82340e87288}"/>
|
||||
<RecordField colName="us_mod" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00005.us_mod" sqlTabName="intb00005" uid="{e9e15cc8-344e-4296-998a-4f097dc70842}"/>
|
||||
<RecordField colName="fech_crea" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00005.fech_crea" sqlTabName="intb00005" uid="{96723829-fa9d-4ecd-bd0b-cafbe585078b}"/>
|
||||
<RecordField colName="fech_mod" fieldIdRef="9" fieldType="TABLE_COLUMN" name="intb00005.fech_mod" sqlTabName="intb00005" uid="{f8db3eb5-3713-49e3-99de-2e6856bac20f}"/>
|
||||
<RecordField fieldIdRef="11" name="consumo" uid="{4917ee79-bed0-485e-8343-a820a7609afa}"/>
|
||||
</Record>
|
||||
<Form gridHeight="24" gridWidth="80" name="infmmt005">
|
||||
<Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
|
||||
<Label gridHeight="1" gridWidth="21" name="label1" posX="1" posY="0" text="Codigo del movimiento"/>
|
||||
<Edit autoNext="true" colName="cod_mov" comment="Digite el codigo del movimiento" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00005.cod_mov" posX="30" posY="0" sqlTabName="intb00005" tabIndex="1" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="6" name="label2" posX="58" posY="0" text="Afecta"/>
|
||||
<Edit autoNext="true" colName="cuenta_1" comment="Digite el numero de la cuenta" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="intb00005.cuenta_1" posX="70" posY="0" required="true" sqlTabName="intb00005" tabIndex="2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="11" name="label3" posX="1" posY="1" text="Descripcion"/>
|
||||
<Edit autoNext="true" case="upper" colName="descrip_mov" comment="Digite la descripcion del movimiento" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="40" name="intb00005.descrip_mov" posX="15" posY="1" sqlTabName="intb00005" tabIndex="3" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="8" name="label4" posX="58" posY="1" text="Cuenta_2"/>
|
||||
<Edit autoNext="true" colName="cuenta_2" comment="Digite el numero de la cuenta" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="intb00005.cuenta_2" posX="70" posY="1" required="true" sqlTabName="intb00005" tabIndex="4" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="21" name="label5" posX="1" posY="2" text="Status del movimiento"/>
|
||||
<Edit autoNext="true" colName="status_mov" comment="1.- Entradas 2.- Salidas" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" include="1|2" name="intb00005.status_mov" posX="30" posY="2" required="true" sqlTabName="intb00005" tabIndex="5" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="8" name="label6" posX="58" posY="2" text="Cuenta_3"/>
|
||||
<Edit colName="cuenta_3" comment="Digite el numero de la cuenta" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="intb00005.cuenta_3" posX="70" posY="2" sqlTabName="intb00005" tabIndex="6" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="12" name="label11" posX="1" posY="3" text="Consumo"/>
|
||||
<ComboBox fieldId="11" gridHeight="1" gridWidth="17" items="SI, NO" name="consumo" posX="15" posY="3" tabIndex="-1" title="combobox1" widget="ComboBox">
|
||||
<Item lstrtext="false" name="SI" text="SI"/>
|
||||
<Item lstrtext="false" name="NO" text="NO"/>
|
||||
</ComboBox>
|
||||
<Edit colName="status_t" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="intb00005.status_t" noEntry="true" posX="2" posY="4" sqlTabName="intb00005" tabIndex="7" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="15" name="label7" posX="1" posY="6" text="Usuario creador"/>
|
||||
<Edit colName="us_crea" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="intb00005.us_crea" noEntry="true" posX="20" posY="6" sqlTabName="intb00005" tabIndex="8" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="19" name="label8" posX="43" posY="6" text="Usuario modificador"/>
|
||||
<Edit colName="us_mod" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="14" name="intb00005.us_mod" noEntry="true" posX="65" posY="6" sqlTabName="intb00005" tabIndex="9" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="14" name="label9" posX="1" posY="7" text="Fecha creacion"/>
|
||||
<Edit colName="fech_crea" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="intb00005.fech_crea" noEntry="true" posX="20" posY="7" sqlTabName="intb00005" tabIndex="10" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="19" name="label10" posX="43" posY="7" text="Fecha modificacion"/>
|
||||
<Edit colName="fech_mod" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="intb00005.fech_mod" noEntry="true" posX="63" posY="7" sqlTabName="intb00005" tabIndex="11" widget="Edit"/>
|
||||
</Grid>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewA0ADQAYQBlAGEAOAA2ADgALQBlADMANgAxAC0ANABmAGUANgAtADgAYQAzADIALQA1AGYAYgA4AGMAYgA2ADIAMgAxAGIAMgB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,35 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo del movimiento [f0] Afecta [f002 ]
|
||||
Descripcion [f001 ] Cuenta_2 [f003 ]
|
||||
Status del movimiento [a] Cuenta_3 [f004 ]
|
||||
[j]
|
||||
|
||||
|
||||
Usuario creador [f005 ] Usuario modificador [f007 ]
|
||||
Fecha creacion [f006 ] Fecha modificacion [f008 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00005
|
||||
attributes
|
||||
f0 = intb00005.cod_mov, autonext, required,
|
||||
comments = "Digite el codigo del movimiento";
|
||||
f001 = intb00005.descrip_mov, autonext, upshift,
|
||||
comments = "Digite la descripcion del movimiento";
|
||||
a = intb00005.status_mov, required, autonext, include = ("1","2"),
|
||||
comments = "1.- Entradas 2.- Salidas" ;
|
||||
f002 = intb00005.cuenta_1, autonext, required,
|
||||
comments = "Digite el numero de la cuenta";
|
||||
f003 = intb00005.cuenta_2, autonext,required,
|
||||
comments = "Digite el numero de la cuenta";
|
||||
f004 = intb00005.cuenta_3, comments = "Digite el numero de la cuenta";
|
||||
f005 = intb00005.us_crea, noentry;
|
||||
f006 = intb00005.fech_crea, noentry;
|
||||
f007 = intb00005.us_mod, noentry;
|
||||
f008 = intb00005.fech_mod, noentry;
|
||||
j = intb00005.status_t, noentry;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,79 @@
|
||||
{
|
||||
----------------------------------------------------------------------------
|
||||
FORMULARIO : INFMMT006
|
||||
OBJETIVO : Pantalla para la captura de reporte de entrada
|
||||
inventario materia prima.
|
||||
MODULOS Q. UTILIZAN : inprmt006
|
||||
PROGRAMADOR : Juan F. Soto
|
||||
FECHA REALIZACION : Agosto 6, 1992.
|
||||
MODIFICADO POR : Juan F. Soto
|
||||
DESCRIPCION : Agregar el tipo de la orden a la captura de datos
|
||||
FECHA : Agosto 24, 1993.
|
||||
----------------------------------------------------------------------------
|
||||
}
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Movimiento:[t ][t1 ] Doc. No. [f00 ]
|
||||
\gp---------------------------------------------------------------------------q\g
|
||||
\g|\gOrden Compra:[ti][f02 ]Suplidor:[p1]-[f01 ][a ]\g|\g
|
||||
\gp---------------------------------------------------------------------------q\g
|
||||
\g|\gConduce:[f03 ] Factura No.[f04 ] Fecha:[f05 ] Bodega:[k ] \g|\g
|
||||
\gb---------------------------------------------------------------------------d\g
|
||||
C A N T I D A D
|
||||
Codigo Ordenada Recibida Unidad D e s c r i p c i o n
|
||||
\g------------------------------------------------------------------------------\g
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
\g------------------------------------------------------------------------------\g
|
||||
Para Uso de Compra Exterior
|
||||
Condicion de Recepcion: [h] Uso Inmediato en Produccion: [i]
|
||||
}
|
||||
end
|
||||
tables
|
||||
|
||||
intb00006,
|
||||
cotb00001,
|
||||
intb00001,
|
||||
intb00005
|
||||
attributes
|
||||
t = intb00006.cod_mov,autonext,include = (34),default=34,
|
||||
comments= "Digite Codigo Movimiento de Entrada (34 - Exterior)";
|
||||
f00 = intb00006.num_doc,
|
||||
comments = "Digite el Numero Documento";
|
||||
ti = intb00006.tipo,autonext,include = ("01","02","03","04"),comments=
|
||||
"Digite Tipo de Orden 01-Generales 02-Rov-Ltd. 03-Locales 04-Micelaneas";
|
||||
f02 = intb00006.orden_compra, autonext,
|
||||
comments = "Digite el Numero de la Orden de Compras";
|
||||
p1 = intb00006.cod_sp,picture = "##",autonext,noentry;
|
||||
f01 = intb00006.cod_sp_sec,picture = "####",autonext,noentry;
|
||||
f03 = intb00006.conduce_no, autonext,
|
||||
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
|
||||
f04 = intb00006.fact_no, autonext,
|
||||
comments = "Digite el Numero de la Factura del Suplidor";
|
||||
f05 = formonly.fecha type date,format = "dd/mm/yy",
|
||||
comments = "Digite la Fecha Correspondiente al Documento";
|
||||
f06 = intb00006.cantidad_1,noentry;
|
||||
f07 = intb00006.cantidad_2,
|
||||
comments = "Digite la Cantidad Llegada desde el Suplidor";
|
||||
f08 = intb00001.unidad_med,noentry;
|
||||
a = cotb00001.nom_sp,noentry;
|
||||
b = intb00006.cod_n,autonext,noentry;
|
||||
c = intb00006.cod_grupo,autonext,noentry;
|
||||
d = intb00006.cod_tipo,autonext,noentry;
|
||||
f = intb00006.cod_sec,autonext,noentry;
|
||||
g = intb00001.descrip_esp,noentry;
|
||||
h = intb00006.cond_recep,autonext,
|
||||
comments = "Digite Condicion";
|
||||
i = intb00006.uso_tiempo,autonext,
|
||||
comments = "Digite el Tiempo";
|
||||
t1 = intb00005.descrip_mov,noentry;
|
||||
k = intb00006.bodega,autonext;
|
||||
INSTRUCTIONS
|
||||
screen record s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
||||
cantidad_2,unidad_med,descrip_esp)
|
||||
end
|
||||
@@ -0,0 +1,28 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo de la Unidad [a0 ]
|
||||
Descripcion [f000 ]
|
||||
[j]
|
||||
|
||||
|
||||
Usuario Creador [f001 ] Usuario Modificador [f003 ]
|
||||
Fecha Creacion [f002 ] Fecha Modificacion [f004 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00007
|
||||
attributes
|
||||
a0 = intb00007.codigo_unidad, upshift, autonext,
|
||||
comments="Digite el codigo de la unidad de medida";
|
||||
f000 = intb00007.descripcion, upshift,
|
||||
comments="Digite el nombre de la unidad de medida";
|
||||
f001 = intb00007.us_crea, noentry;
|
||||
f002 = intb00007.fech_crea, noentry;
|
||||
f003 = intb00007.us_mod, noentry;
|
||||
f004 = intb00007.fech_mod, noentry;
|
||||
j = intb00007.status_t, noentry;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
|
||||
@@ -0,0 +1,48 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Del Conteo [f1 ]
|
||||
|
||||
Bodega [b1]
|
||||
|
||||
Codigo Mat Prima [a]-[b]-[c ]-[d ]
|
||||
[k1 ][k2 ]
|
||||
Conteo [f3 ] Existencia S/Movimientos [f4 ]
|
||||
\g-------------------------------------------------------------
|
||||
Diferencia [p1 ]
|
||||
Movimiento [b2][b3 ]
|
||||
Documento [k20 ]
|
||||
|
||||
}
|
||||
tables
|
||||
intb00001,
|
||||
intb00006
|
||||
intb00002
|
||||
attributes
|
||||
f1 = formonly.fecha type date,reverse,format = "dd/mm/yy",
|
||||
comments = "Digite Fecha Del Conteo Fisico";
|
||||
a = intb00001.cod_n,reverse,autonext,required,
|
||||
comments = "Digite NIVEL Codificacion";
|
||||
b = intb00001.cod_grupo,reverse,autonext,required,
|
||||
comments = "Digite GRUPO Codificacion";
|
||||
c = intb00001.cod_tipo,reverse,autonext,required,
|
||||
comments = "Digite TIPO Codificacion";
|
||||
d = intb00001.cod_sec,reverse,autonext,required,
|
||||
comments = "Digite SECUENCIA Codificacion";
|
||||
k1 = formonly.descrip_esp,noentry;
|
||||
k2 = formonly.unidad_med,noentry;
|
||||
b1 = intb00002.bodega,reverse,autonext,required,
|
||||
comments = "Digite BODEGA Materia Prima";
|
||||
f3 = formonly.cantidad,reverse,required,
|
||||
comments = "Digite Cantidad Del Conteo Fisico";
|
||||
f4 = formonly.ex_mov,noentry;
|
||||
b2 = formonly.cod_mov,noentry;
|
||||
b3 = formonly.descrip_mov,noentry;
|
||||
p1 = formonly.diferencia,noentry;
|
||||
k20 = formonly.num_doc;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,58 @@
|
||||
|
||||
{
|
||||
------------------------------------------------------------------
|
||||
Formulario : infmmt023
|
||||
OBJETIVO : Capturar, Modificar, Eliminar registros de la
|
||||
Tabla de la maestra de FIANZAS, aceptando el
|
||||
numero de factura como numero de fianza.
|
||||
Modulos q. lo usan: inprmt023
|
||||
PROGRAMADOR : Tadeo A. Ferreas
|
||||
FECHA REALIZACION : Julio 22, 1993.
|
||||
------------------------------------------------------------------
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
Numero de Documento [nf ] Numero de Resolucion [nr ] Fecha [ff ]
|
||||
Suplidor[cs]-[cs1 ] [nomb ]
|
||||
Orden Numero[numo ]-[e] Valor Merc.[merc ]
|
||||
\g-----------------------------------------------------------------------------\g
|
||||
Material Cant. Internar Cant. Cancelar
|
||||
\g-----------------------------------------------------------------------------\g
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00020
|
||||
attributes
|
||||
nf = intb00020.num_fianza,comments = "Digite el numero de solicitud";
|
||||
nr = intb00020.num_res,comments =
|
||||
"En caso de estar atada una resolucion, digite el numero de la misma";
|
||||
ff = intb00020.fecha,format = "dd/mm/yy",comments =
|
||||
"Digite fecha de solicitud";
|
||||
cs = intb00020.cod_sp,autonext,
|
||||
comments="Presione CTRL-W Para Buscar Codigo del Suplidor";
|
||||
cs1 = intb00020.cod_sp_sec,autonext,comments="Digite el codigo del suplidor";
|
||||
nomb = formonly.nombre type char,noentry,color=yellow;
|
||||
numo = intb00020.num_oc,comments = "Digite el numero de la orden de compra";
|
||||
e = intb00020.num_emb,comments=
|
||||
"Digite el numero del embarque para la orden";
|
||||
merc = intb00020.valor_merc,comments = "Digite valor de la mercancia en US$";
|
||||
n = intb00020.cod_n,autonext,comments = "Digite el codigo del material";
|
||||
g = intb00020.cod_grupo,autonext,comments = "Digite el codigo del material";
|
||||
t = intb00020.cod_tipo,autonext,comments = "Digite el codigo del material";
|
||||
s = intb00020.cod_sec,autonext,comments = "Digite el codigo del material";
|
||||
nomb4 = formonly.descrip type char,noentry,color=yellow;
|
||||
uni = formonly.unidad type char,noentry,color=yellow;
|
||||
cant = intb00020.cantidad,
|
||||
comments="Digite la cantidad de material a internar";
|
||||
cant1 = intb00020.cantidad_c,comments =
|
||||
"Digite la cantidad de material con que se cancelara la orden ";
|
||||
instructions delimiters " "
|
||||
screen record fact2[4](cod_n,cod_grupo,cod_tipo,cod_sec,unidad,descrip,
|
||||
cantidad,cantidad_c)
|
||||
end
|
||||
|
||||
@@ -0,0 +1,41 @@
|
||||
|
||||
{
|
||||
===========================================================================
|
||||
Formulario : infmmt018
|
||||
Sistema : Inventario de Material
|
||||
Objetivo : Formulario a usar para captura de informacion en el modulo
|
||||
inprmt018 (datos referentes a maestra de solicitud)
|
||||
Autor : Tadeo A. Ferreras
|
||||
Fecha : Julio 22,1993
|
||||
===========================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
|
||||
Numero de Solicitud [a ]
|
||||
Fecha de Solicitud [b ]
|
||||
|
||||
\g----------------------------------------------------------------------------\g
|
||||
Pila Cantidad
|
||||
\g----------------------------------------------------------------------------\g
|
||||
[c]-[d] [desc1 ] [cant ]
|
||||
[c]-[d] [desc1 ] [cant ]
|
||||
[c]-[d] [desc1 ] [cant ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00017
|
||||
attributes
|
||||
a = intb00017.num_sol,comments = "Digite el numero de solicitud";
|
||||
b = intb00017.fecha,format = "dd/mm/yy",comments =
|
||||
"Digite fecha de solicitud";
|
||||
c = intb00017.cod_n_p,autonext,comments =
|
||||
"Digite el nivel de la pila";
|
||||
d = intb00017.cod_grupo_p,autonext,comments =
|
||||
"1 = Pila tipo D 2 = Pila tipo C 3 = Pila tipo AA";
|
||||
desc1 = formonly.descrip1 type char,color = yellow,noentry;
|
||||
cant = intb00017.cantidad,comments = "Digite la cantidad de pila a Solicitar";
|
||||
instructions delimiters " "
|
||||
screen record arr_form3[3](cod_n_p,cod_grupo_p,descrip1,cantidad)
|
||||
end
|
||||
@@ -0,0 +1,52 @@
|
||||
|
||||
|
||||
{
|
||||
===========================================================================
|
||||
Formulario : infmmt019
|
||||
Sistema : Inventario de Material
|
||||
Objetivo : Formulario a usar para captura de informacion en el modulo
|
||||
inprmt019 (datos referentes a maestra de resoluciones)
|
||||
Autor : Tadeo A. Ferreras
|
||||
Fecha : Julio 22,1993
|
||||
===========================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
|
||||
Numero de Resolucion [z ]
|
||||
Numero de Solicitud [a ]
|
||||
Fecha de Resolucion [b ]
|
||||
\g----------------------------------------------------------------------------\g
|
||||
Material Cantidad
|
||||
\g----------------------------------------------------------------------------\g
|
||||
[c]-[d]-[e ]-[f ][desc1 ] [uni] [cant ]
|
||||
[c]-[d]-[e ]-[f ][desc1 ] [uni] [cant ]
|
||||
[c]-[d]-[e ]-[f ][desc1 ] [uni] [cant ]
|
||||
[c]-[d]-[e ]-[f ][desc1 ] [uni] [cant ]
|
||||
[c]-[d]-[e ]-[f ][desc1 ] [uni] [cant ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00019
|
||||
attributes
|
||||
z = intb00019.num_res,comments = "Digite el numero de resolucion";
|
||||
a = intb00019.num_sol,comments = "Digite el numero de solicitud";
|
||||
b = intb00019.fecha,format = "dd/mm/yy",comments =
|
||||
"Digite fecha de solicitud";
|
||||
c = intb00019.cod_n,autonext,comments =
|
||||
"Digite el codigo de del material";
|
||||
d = intb00019.cod_grupo,autonext,comments =
|
||||
"Digite el codigo de del material";
|
||||
e = intb00019.cod_tipo,autonext,comments =
|
||||
"Digite el codigo de del material";
|
||||
f = intb00019.cod_sec,autonext,comments =
|
||||
"Digite el codigo de del material";
|
||||
desc1 = formonly.descrip1 type char,color=yellow,noentry;
|
||||
uni = formonly.unidad1 type char,color=yellow,noentry;
|
||||
cant = intb00019.cantidad,comments=
|
||||
"Digite la cantidad de material a internar en esta resolucion";
|
||||
instructions delimiters " "
|
||||
screen record arr_form5[5](cod_n,cod_grupo,cod_tipo,cod_sec,descrip1,
|
||||
unidad1,cantidad)
|
||||
end
|
||||
@@ -0,0 +1,39 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Mes Inicial [f1] [g4 ]
|
||||
Mes Final [f2] [g5 ]
|
||||
Ano [f002]
|
||||
Codigo [a]-[b]-[c ]-[d ][e ] [g ]
|
||||
Costo Estandar [f005 ]
|
||||
[j]
|
||||
|
||||
Usuario Creador [f006 ] Usuario Modificador [f008 ]
|
||||
Fecha Creacion [f007 ] Fecha Modificacion [f009 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00013,intb00001
|
||||
attributes
|
||||
f1 = intb00013.mes_ini,autonext,
|
||||
comments = "Digite el mes inicial";
|
||||
g4 = formonly.descrip1;
|
||||
f2 = intb00013.mes_fin,autonext,
|
||||
comments = "Digite el mes final";
|
||||
g5 = formonly.descrip2;
|
||||
f002 = intb00013.ano,autonext,comments = "Digite el ano";
|
||||
a = intb00013.cod_n,autonext,comments = "Digite el NIVEL";
|
||||
b = intb00013.cod_grupo,autonext,comments = "Digite el GRUPO";
|
||||
c = intb00013.cod_tipo,autonext,comments = "Digite el TIPO";
|
||||
d = intb00013.cod_sec,autonext,comments = "Digite la SECUENCIA";
|
||||
e = intb00001.descrip_esp,noentry;
|
||||
g = intb00001.unidad_med,noentry;
|
||||
f005 = intb00013.costo_st,comments = "Digite el costo";
|
||||
j = intb00013.status_t,noentry;
|
||||
f006 = intb00013.us_crea,noentry;
|
||||
f007 = intb00013.fech_crea,noentry;
|
||||
f008 = intb00013.us_mod,noentry;
|
||||
f009 = intb00013.fech_mod,noentry;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,76 @@
|
||||
|
||||
{
|
||||
------------------------------------------------------------------
|
||||
Formulario : infmmt020
|
||||
OBJETIVO : Capturar, Modificar, Eliminar registros de la
|
||||
Tabla de la maestra de FIANZAS.
|
||||
Modulos q. lo usan: inprmt020
|
||||
PROGRAMADOR : Tadeo A. Ferreas
|
||||
FECHA REALIZACION : Julio 22, 1993.
|
||||
------------------------------------------------------------------
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
No. de Fianza [nf ] No. de Resolucion [nr ] Fecha Fianza [ff ]
|
||||
Nombre Buque [nb ] Fecha Entrada[fen ]
|
||||
Suplidor[cs][cs1 ][nomb ]Pais[cp ][nomb1 ]
|
||||
Cantidad Bulto[cb ]Orden Numero[numo ]-[e]Valor Merc.[merc ]
|
||||
Aseguradora[cas ][nomb3 ]Poliza[poli ]Prima [prima ]
|
||||
Porc.%[porc ][prim1 ]Desmonte [vd ]Valor Garantizado [gar ]
|
||||
\g-----------------------------------------------------------------------------\g
|
||||
Material Cant. Internar Cant. Cancelar
|
||||
\g-------------------------------------------------------------------------------\g
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00020
|
||||
attributes
|
||||
nf = intb00020.num_fianza,comments = "Digite el numero de solicitud";
|
||||
nr = intb00020.num_res,comments = "Digite el numero de resolucion";
|
||||
ff = intb00020.fecha,format = "dd/mm/yy",comments =
|
||||
"Digite fecha de solicitud";
|
||||
nb = intb00020.nom_buque,upshift,
|
||||
comments="Digite el nombre del buque transportista";
|
||||
fen = intb00020.fecha_ent,format = "dd/mm/yy",comments =
|
||||
"Digite fecha de entrada de material";
|
||||
cs = intb00020.cod_sp,autonext,
|
||||
comments="Presione CTRL-W Para Buscar Codigo del Suplidor";
|
||||
cs1 = intb00020.cod_sp_sec,autonext,comments="Digite el codigo del suplidor";
|
||||
nomb = formonly.nombre type char,noentry,color=yellow;
|
||||
cp = intb00020.cod_pais,autonext,comments =
|
||||
"Presione CTRL-W Para Buscar Codigo del Pais Exportador";
|
||||
nomb1 = formonly.nombre1 type char,noentry,color=yellow;
|
||||
cb = intb00020.cant_bulto,upshift,comments=
|
||||
"Digite la cantidad y tipo de bulto";
|
||||
numo = intb00020.num_oc,comments = "Digite el numero de la orden de compra";
|
||||
e = intb00020.num_emb,comments=
|
||||
"Digite el numero del embarque para la orden";
|
||||
merc = intb00020.valor_merc,comments = "Digite valor de la mercancia en US$";
|
||||
cas = intb00020.cod_ca,autonext,
|
||||
comments="Presione CTRL-W Para Buscar Codigo de Compania Aseguradora";
|
||||
nomb3 = formonly.nombre3 type char,noentry,color=yellow;
|
||||
poli = intb00020.poliza,comments="Digite el numero de poliza de seguro";
|
||||
prima = intb00020.prima,comments = "Digite valor de la prima en RD$";
|
||||
porc = intb00020.porc_prima,comments="Digite el porciento de la prima";
|
||||
prim1 = formonly.total_prima,noentry;
|
||||
vd = intb00020.valor_desm,comments = "Digite el valor del desmonte";
|
||||
gar = intb00020.valor_gar,noentry;
|
||||
n = intb00020.cod_n,autonext,comments = "Digite el codigo del material";
|
||||
g = intb00020.cod_grupo,autonext,comments = "Digite el codigo del material";
|
||||
t = intb00020.cod_tipo,autonext,comments = "Digite el codigo del material";
|
||||
s = intb00020.cod_sec,autonext,comments = "Digite el codigo del material";
|
||||
nomb4 = formonly.descrip type char,noentry,color=yellow;
|
||||
uni = formonly.unidad type char,noentry,color=yellow;
|
||||
cant = intb00020.cantidad,
|
||||
comments="Digite la cantidad de material a internar";
|
||||
cant1 = intb00020.cantidad_c,comments =
|
||||
"Digite la cantidad de material con que se cancelara la orden ";
|
||||
instructions delimiters " "
|
||||
screen record fianza2[3](cod_n,cod_grupo,cod_tipo,cod_sec,unidad,descrip,
|
||||
cantidad,cantidad_c)
|
||||
end
|
||||
|
||||
@@ -0,0 +1,36 @@
|
||||
{
|
||||
===========================================================================
|
||||
Formulario : infmmt021
|
||||
Sistema : Inventario de Material
|
||||
Objetivo : Formulario a usar para captura de informacion en el Prog.
|
||||
inprmt021 (datos referentes a maestra de Exsportacion)
|
||||
Autor : Tadeo A. Ferreras
|
||||
Fecha : Julio 22,1993
|
||||
===========================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
|
||||
Fecha de Exportacion [z ]
|
||||
Numero de Factura [a ]
|
||||
[g]
|
||||
|
||||
Usuario Creador [us1 ] Usuario Modificador [us2 ]
|
||||
Fecha de Creacion [fec1 ] Fecha de Modificacion [fec2 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00021
|
||||
intb00001
|
||||
attributes
|
||||
z = intb00021.fecha,format = "dd/mm/yy",
|
||||
comments = "Digite la fecha de la Exportacion";
|
||||
a = intb00021.factura,comments = "Digite el numero de la factura";
|
||||
g = intb00021.status_t,noentry;
|
||||
us1 = intb00021.us_crea,noentry;
|
||||
fec1 = intb00021.fech_crea,noentry;
|
||||
us2 = intb00021.us_mod,noentry;
|
||||
fec2 = intb00021.fech_mod,noentry;
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,53 @@
|
||||
database smarmotech
|
||||
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
\gp--------------------------------------------------------------------------q\g
|
||||
\g|\gDocumento Numero [f000 ] Orden de Compras [ti][l ] \g|\g
|
||||
\g|\gFecha [f001 ] \g|\g
|
||||
\g|\gSuplidor [p1][f013] [a1 ] Bodega: [p2] \g|\g
|
||||
\gb--------------------------------------------------------------------------d\g
|
||||
C A N T I D A D
|
||||
Codigo Devuelta Ordenada Unidad D e s c r i p c i o n
|
||||
\g------------------------------------------------------------------------------\g
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
\g------------------------------------------------------------------------------\g
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006,
|
||||
intb00001,
|
||||
cotb00001
|
||||
attributes
|
||||
f000 = intb00006.num_doc,autonext,
|
||||
comments = "Digite Numero Documento";
|
||||
l = intb00006.orden_compra,autonext,
|
||||
comments = "Digite El Numero De La Orden de Compras";
|
||||
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
|
||||
comments = "Digite Fecha Documento";
|
||||
p2 = intb00006.bodega,autonext;
|
||||
p1 = intb00006.cod_sp,noentry;
|
||||
f013 = intb00006.cod_sp_sec,noentry;
|
||||
ti = intb00006.tipo,autonext,include = ("01","02","03","04"),comments =
|
||||
"Digite tipo 01-Generales 02-Rov-Ltd. 03-Locales 04-Miscelanas";
|
||||
a = intb00006.cod_n,noentry;
|
||||
b = intb00006.cod_grupo,noentry;
|
||||
c = intb00006.cod_tipo,noentry;
|
||||
d = intb00006.cod_sec,noentry;
|
||||
f02 = intb00006.cantidad_1,autonext,
|
||||
comments = "Digite La Cantidad Ordenada";
|
||||
f03 = intb00006.cantidad_2,noentry;
|
||||
k = intb00001.descrip_esp,noentry,autonext;
|
||||
p = intb00001.unidad_med,noentry,autonext;
|
||||
a1 = cotb00001.nom_sp,noentry;
|
||||
INSTRUCTIONS
|
||||
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
||||
cantidad_2,unidad_med,descrip_esp)
|
||||
end
|
||||
@@ -0,0 +1,51 @@
|
||||
{
|
||||
===========================================================================
|
||||
Formulario : infmmt017
|
||||
Sistema : Inventario de Material
|
||||
Objetivo : Formulario a usar para captura de informacion en el modulo
|
||||
inprmt017 (datos referentes a maestra de formulas)
|
||||
Autor : Tadeo A. Ferreras
|
||||
Fecha : Julio 22,1993
|
||||
===========================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
|
||||
Codigo [a][b] [desc ]
|
||||
|
||||
\g----------------------------------------------------------------------------\g
|
||||
Material Unidad Cantidad
|
||||
\g----------------------------------------------------------------------------\g
|
||||
[c]-[d]-[g ]-[f ] [desc1 ] [und] [cant ]
|
||||
[c]-[d]-[g ]-[f ] [desc1 ] [und] [cant ]
|
||||
[c]-[d]-[g ]-[f ] [desc1 ] [und] [cant ]
|
||||
[c]-[d]-[g ]-[f ] [desc1 ] [und] [cant ]
|
||||
[c]-[d]-[g ]-[f ] [desc1 ] [und] [cant ]
|
||||
[c]-[d]-[g ]-[f ] [desc1 ] [und] [cant ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00016
|
||||
intb00022
|
||||
attributes
|
||||
a = intb00016.cod_n_p,autonext,include = (3),default = 3,comments =
|
||||
"Digite codigo del tipo de pila";
|
||||
b = intb00016.cod_grupo_p,autonext,include = (1,2,3),comments =
|
||||
"1 = Pila tipo D 2 = Pila tipo C 3 = Pila tipo AA";
|
||||
desc = formonly.descrip type char,color = yellow, noentry;
|
||||
c = intb00016.cod_n,autonext,comments =
|
||||
"Digite codigo del material";
|
||||
d = intb00016.cod_grupo,autonext,comments =
|
||||
"Digite codigo del material";
|
||||
g = intb00016.cod_tipo,autonext,comments =
|
||||
"Digite codigo del material";
|
||||
f = intb00016.cod_sec,autonext,comments =
|
||||
"Digite codigo del material";
|
||||
desc1 = formonly.descrip1 type char,color = yellow,noentry;
|
||||
und = formonly.unidad type char,color = yellow,noentry;
|
||||
cant = intb00016.cantidad,comments = "Digite la cantidad Expresada en Millar";
|
||||
instructions delimiters " "
|
||||
screen record arr_form1[6](cod_n,cod_grupo,cod_tipo,cod_sec,descrip1,unidad,
|
||||
cantidad)
|
||||
end
|
||||
@@ -0,0 +1,57 @@
|
||||
{
|
||||
=========================================================================
|
||||
FORMULARIO : INFMMT022
|
||||
OBJETIVO : Crear,modificar y eliminar logicamente registro de
|
||||
la maestra de materiales de la ley 69
|
||||
PROGRAMA Q. LO USA : INPRMT022
|
||||
PROGRAMADOR : Tadeo A. Ferreras
|
||||
FECHA : Agosto 31, 1993
|
||||
=========================================================================
|
||||
}
|
||||
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo [b]-[c]-[d1 ]-[e1 ]
|
||||
Descripcion Espanol [f004 ]
|
||||
Descripcion Ingles [f005 ]
|
||||
Unidad de Medida [a0 ] Costo Real
|
||||
C/I S/I
|
||||
[ctt ][ct1 ]
|
||||
[j]
|
||||
|
||||
|
||||
Usuario Creador [f006 ] Usuario Modificador [f008 ]
|
||||
Fecha Creacion [f007 ] Fecha Modificacion [f009 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00022
|
||||
attributes
|
||||
b = intb00022.cod_n, autonext,
|
||||
comments = "Digite el NIVEL del bien o Servicio";
|
||||
c = intb00022.cod_grupo, autonext,
|
||||
comments = "Digite el GRUPO del bien o Servicio";
|
||||
d1 = intb00022.cod_tipo, autonext,
|
||||
comments = "Digite primera SECUENCIA del bien o Servicio";
|
||||
e1 = intb00022.cod_sec, autonext,
|
||||
comments = "Digite segunda SECUENCIA del bien o Servicio";
|
||||
f004 = intb00022.descrip_esp, upshift, required,
|
||||
comments = "Digite el nombre del Articulo en ESPANOL";
|
||||
f005 = intb00022.descrip_ing, upshift,
|
||||
comments = "Digite el nombre del Articulo en INGLES";
|
||||
a0 = intb00022.unidad_med, upshift, required,
|
||||
comments = "Digite la unidad de medida del articulo";
|
||||
ctt = intb00022.costo_real_ci,comments =
|
||||
"Digite el costo Real con Impuesto del material";
|
||||
ct1 = intb00022.costo_real_si,comments =
|
||||
"Digite el costo Real sin Impuesto del material";
|
||||
f006 = intb00022.us_crea, noentry;
|
||||
f007 = intb00022.fech_crea, noentry;
|
||||
f008 = intb00022.us_mod, noentry;
|
||||
f009 = intb00022.fech_mod, noentry;
|
||||
j = intb00022.status_t, noentry;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
|
||||
@@ -0,0 +1,48 @@
|
||||
{
|
||||
========================================================================
|
||||
FORMULARIO : INFMMT019
|
||||
SISTEMA : Inventario Cierre Anual
|
||||
OBJETIVO : Pantalla para digitar los resultados del inventario
|
||||
fisico de Cierre Anual
|
||||
PROGRAMA Q. USA : INPRMT019
|
||||
PROGRAMADOR : Tadeo A. Ferreras
|
||||
FECHA : Diciembre 13, 1995
|
||||
=========================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
|
||||
Grupo [g]
|
||||
Fecha [c ]
|
||||
Codigo [a]-[b]-[b1]-[b2 ]
|
||||
[b4 ] [b3 ]
|
||||
Cantidad [d ]
|
||||
[j]
|
||||
|
||||
Usuario Creador [usu ] Usuario Modificador [usm ]
|
||||
Fecha de Creacion[fech ] Fecha de Modificacion[fec1 ]
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
intb00026
|
||||
attributes
|
||||
g = formonly.grupo type char,upshift,include = ("A","B"), comments =
|
||||
"Digite el Grupo a que Pertenece el Conteo (A/B)";
|
||||
c = intb00026.fecha,autonext,format = "dd/mm/yy";
|
||||
a = intb00026.cod_n,autonext,color = yellow,include = (1,3,6,9),default = 1;
|
||||
b = intb00026.cod_grupo,autonext;
|
||||
b1 = intb00026.cod_tipo,autonext;
|
||||
b2 = intb00026.cod_sec,autonext;
|
||||
b3 = intb00001.unidad_med,noentry;
|
||||
b4 = intb00001.descrip_esp,noentry;
|
||||
d = formonly.cantidad1,comments = "Digite Cantidad Contada";
|
||||
j = intb00026.status_t,noentry;
|
||||
usu = intb00026.us_crea,noentry;
|
||||
fech = intb00026.fech_crea,noentry;
|
||||
usm = intb00026.us_mod,noentry;
|
||||
fec1 = intb00026.fech_mod,noentry;
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,128 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="managedform" uid="{badb9c4b-e871-4b1c-8417-60cbbc020477}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="record1" uid="{b00fd119-b065-4717-8b79-3423175c51e9}">
|
||||
<RecordField fieldIdRef="1" name="numero_doc" uid="{eaa7f67e-2f78-4834-b8ad-f14be3febbd5}"/>
|
||||
<RecordField fieldIdRef="2" name="fecha" uid="{36a9b843-a9a5-48e8-b708-7a37fa211910}"/>
|
||||
<RecordField fieldIdRef="3" name="nombreUsuario" uid="{70496c7b-0fb7-4223-b77e-1c586ded8259}"/>
|
||||
<RecordField fieldIdRef="4" name="email" uid="{428fc4f8-11fd-4bcb-a264-27d3a33149a7}"/>
|
||||
<RecordField fieldIdRef="5" name="num_oc" uid="{6f889b23-5120-4d4e-8671-74634e76d3ca}"/>
|
||||
<RecordField fieldIdRef="40" name="orden_trabajo" uid="{7d91381a-0546-4e8f-9d12-6503ea94bebe}"/>
|
||||
<RecordField fieldIdRef="6" name="cliente" uid="{5c79dfec-1aaa-410c-b6a4-a29013f94b3a}"/>
|
||||
<RecordField fieldIdRef="7" name="bodega" uid="{6680e9b9-1e52-4fa2-b01f-9ada9873b7fc}"/>
|
||||
<RecordField fieldIdRef="16" name="bodega_destino" uid="{65a13c2b-c67a-437c-8935-a8d31bb25e68}"/>
|
||||
<RecordField fieldIdRef="21" name="tipo_cliente" uid="{82cc74ed-a84f-4fc1-99e4-329e6493f2d2}"/>
|
||||
<RecordField fieldIdRef="22" name="sec_cliente" uid="{7bebbe71-76e3-4ad4-8206-7d1b04908dcc}"/>
|
||||
<RecordField fieldIdRef="24" name="estado" uid="{0bb6854e-4d3b-44a7-bda4-f3eff5358c5e}"/>
|
||||
<RecordField fieldIdRef="15" name="cod_mov" uid="{792f75f2-05cc-4a80-b33a-960a5a7e1b1c}"/>
|
||||
<RecordField fieldIdRef="32" name="observacion" uid="{8d49204b-4b05-489a-91a0-12c56538f49d}"/>
|
||||
<RecordField fieldIdRef="35" name="url_file" uid="{5b17e78b-6cf6-4233-9867-c8244bd78aaf}"/>
|
||||
<RecordField fieldIdRef="36" name="estado_proceso" uid="{5ea7d045-d40c-470d-98ca-4589e7a89c33}"/>
|
||||
</Record>
|
||||
<Record name="sdetalle" uid="{c2538d05-dba8-4d07-846a-4a21d5982959}">
|
||||
<RecordField fieldIdRef="23" name="area" uid="{ffbb45e2-2d02-4ad8-ae53-e1b6bfa4fa59}"/>
|
||||
<RecordField fieldIdRef="8" name="cod_n" uid="{92a0675a-25c1-4745-be7b-665cd0af0aa8}"/>
|
||||
<RecordField fieldIdRef="9" name="cod_grupo" uid="{36167830-7d99-42ee-b0b1-a45a8d415086}"/>
|
||||
<RecordField fieldIdRef="10" name="cod_tipo" uid="{3ce38a71-7140-4a2a-bf7b-edb037c79d09}"/>
|
||||
<RecordField fieldIdRef="11" name="cod_sec" uid="{cc429c14-dc69-4218-90f2-964bc7a250f3}"/>
|
||||
<RecordField fieldIdRef="12" name="descripcion" uid="{3a121d14-7c13-4e5b-94e8-4d6c88d2183b}"/>
|
||||
<RecordField fieldIdRef="13" name="unidad_med" uid="{a87db087-ea33-4058-9b69-a6840e980c60}"/>
|
||||
<RecordField fieldIdRef="14" name="cantidad_1" uid="{db3234ee-579e-4967-93d0-ba30d6cee501}"/>
|
||||
<RecordField fieldIdRef="19" name="cantidad" uid="{32f10087-7851-42f2-b767-7e43a2b4e27c}"/>
|
||||
<RecordField fieldIdRef="17" name="cantidad_o1" uid="{d06d1953-7cc0-4a31-a173-4d429a2a0c61}"/>
|
||||
<RecordField fieldIdRef="18" name="cantidad1" uid="{8b2dd901-147e-4cd3-bd9c-7b0b7f871e55}"/>
|
||||
<RecordField fieldIdRef="20" name="factor_conv" uid="{440baef4-fe66-40db-a954-4dc0d2807466}"/>
|
||||
</Record>
|
||||
<Record name="busqueda" uid="{36e01065-1f79-4410-af47-9740966ca97e}">
|
||||
<RecordField fieldIdRef="29" name="estado1" uid="{c5077cdd-2acd-42b6-8f7b-e17c4e5a8ef9}"/>
|
||||
<RecordField fieldIdRef="37" name="estado_proceso1" uid="{b78666c6-92e4-443d-814f-32d569ca4cbf}"/>
|
||||
<RecordField fieldIdRef="25" name="tipo_documento" uid="{5e1ded01-49da-48f5-9b7d-774197eb6ac9}"/>
|
||||
<RecordField fieldIdRef="26" name="numeroid" uid="{a797005b-74d3-4c68-b518-71e10f888fc2}"/>
|
||||
<RecordField fieldIdRef="27" name="fechadoc" uid="{cffee896-52db-45db-9d9b-30f207e1b6bc}"/>
|
||||
<RecordField fieldIdRef="28" name="nombre" uid="{e04ea53e-fb57-41f4-b158-d95f631081e3}"/>
|
||||
<RecordField fieldIdRef="31" name="observacion1" uid="{7ec63531-db16-459a-b40e-31a784b7a6fb}"/>
|
||||
<RecordField fieldIdRef="34" name="bodega_origen" uid="{ea512b5b-81d3-4680-8ad5-7072f924ed7a}"/>
|
||||
<RecordField fieldIdRef="38" name="bodega_destino1" uid="{21ef1fc4-b84f-4225-8281-8bff165758d1}"/>
|
||||
<RecordField fieldIdRef="30" name="cod_mov1" uid="{1f3cc51d-70d8-4e72-9bf4-8c8965db47ac}"/>
|
||||
<RecordField fieldIdRef="33" name="bodega1" uid="{7a23f987-88c2-43b3-9d85-987cff8d8170}"/>
|
||||
<RecordField fieldIdRef="39" name="bodega2" uid="{0f7b5d80-052f-4105-8704-9d449851f579}"/>
|
||||
</Record>
|
||||
<Form gridHeight="26" gridWidth="142" name="form" text="Requisiciones Productos Almacenes">
|
||||
<Folder gridHeight="24" gridWidth="137" name="folder1" posX="5" posY="2">
|
||||
<Page name="page1" text="Requisiciones">
|
||||
<Grid gridHeight="10" gridWidth="114" name="grid2" posX="3" posY="2">
|
||||
<Table gridHeight="6" gridWidth="112" name="table2" posX="2" posY="2" totalRows="5">
|
||||
<Edit fieldId="29" gridHeight="1" gridWidth="8" name="estado1" posX="0" posY="0" scroll="true" tabIndex="-1" title="Estado" widget="Edit"/>
|
||||
<Edit fieldId="37" gridHeight="1" gridWidth="8" name="estado_proceso1" posX="8" posY="0" scroll="true" tabIndex="-1" title="Estado Proceso" widget="Edit"/>
|
||||
<Edit fieldId="25" gridHeight="1" gridWidth="8" name="tipo_documento" posX="16" posY="0" tabIndex="-1" title="Tipo Documento" widget="Edit"/>
|
||||
<Edit fieldId="26" gridHeight="1" gridWidth="8" name="numeroid" posX="24" posY="0" tabIndex="-1" title="Numero Documento" widget="Edit"/>
|
||||
<Edit fieldId="27" gridHeight="1" gridWidth="8" name="fechadoc" posX="32" posY="0" tabIndex="-1" title="Fecha" widget="Edit"/>
|
||||
<Edit fieldId="28" gridHeight="1" gridWidth="8" name="nombre" posX="40" posY="0" scroll="true" tabIndex="-1" title="Cliente" widget="Edit"/>
|
||||
<Edit fieldId="31" gridHeight="1" gridWidth="8" name="observacion1" posX="48" posY="0" scroll="true" tabIndex="-1" title="Observacion" widget="Edit"/>
|
||||
<Edit fieldId="34" gridHeight="1" gridWidth="8" name="bodega_origen" posX="56" posY="0" scroll="true" tabIndex="-1" title="Bodega Origen" widget="Edit"/>
|
||||
<Edit fieldId="38" gridHeight="1" gridWidth="11" name="bodega_destino1" posX="64" posY="0" scroll="true" tabIndex="-1" title="Bodega Destino" widget="Edit"/>
|
||||
<Edit fieldId="30" gridHeight="1" gridWidth="8" hidden="true" name="cod_mov1" posX="75" posY="0" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Edit fieldId="33" gridHeight="1" gridWidth="8" hidden="true" name="bodega1" posX="83" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Edit fieldId="39" gridHeight="1" gridWidth="8" hidden="true" name="bodega2" posX="91" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
</Table>
|
||||
</Grid>
|
||||
</Page>
|
||||
<Page name="page2" text="Administracion">
|
||||
<Grid gridHeight="22" gridWidth="134" name="grid1" posX="3" posY="1">
|
||||
<Group gridHeight="8" gridWidth="131" name="group1" posX="2" posY="2" text="Encabezado">
|
||||
<Label gridHeight="1" gridWidth="10" name="label3" posX="1" posY="1" text="Usuario"/>
|
||||
<Edit fieldId="3" gridHeight="1" gridWidth="27" name="nombreUsuario" noEntry="true" posX="12" posY="1" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Edit fieldId="4" gridHeight="1" gridWidth="21" name="email" noEntry="true" posX="42" posY="1" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Edit fieldId="24" gridHeight="1" gridWidth="23" justify="center" name="estado" noEntry="true" posX="65" posY="1" reverse="true" scroll="true" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label7" posX="1" posY="2" text="Codigo Mov"/>
|
||||
<ComboBox fieldId="15" gridHeight="1" gridWidth="27" items="" name="cod_mov" posX="12" posY="2" tabIndex="-1" title="combobox1" widget="ComboBox"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label4" posX="42" posY="2" text="Orden Compra"/>
|
||||
<Edit fieldId="5" gridHeight="1" gridWidth="10" name="num_oc" posX="53" posY="2" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label1" posX="1" posY="3" text="Numero Doc."/>
|
||||
<Edit fieldId="1" gridHeight="1" gridWidth="12" name="numero_doc" noEntry="true" posX="12" posY="3" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label11" posX="42" posY="3" text="Orden Trabajo"/>
|
||||
<Edit fieldId="40" gridHeight="1" gridWidth="19" name="orden_trabajo" posX="53" posY="3" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label2" posX="1" posY="4" text="Fecha"/>
|
||||
<Edit fieldId="2" gridHeight="1" gridWidth="11" name="fecha" noEntry="true" posX="12" posY="4" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label5" posX="42" posY="4" text="Proveedor"/>
|
||||
<Edit fieldId="21" gridHeight="1" gridWidth="4" name="tipo_cliente" noEntry="true" posX="53" posY="4" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Edit fieldId="22" gridHeight="1" gridWidth="10" name="sec_cliente" noEntry="true" posX="59" posY="4" tabIndex="-1" title="edit3" widget="Edit"/>
|
||||
<Edit fieldId="6" gridHeight="1" gridWidth="29" name="cliente" noEntry="true" posX="71" posY="4" scroll="true" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Button gridHeight="1" gridWidth="10" image="fa-paperclip" name="atardocumento" posX="111" posY="4" tabIndex="-1"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label6" posX="1" posY="5" text="Bodega"/>
|
||||
<ComboBox fieldId="7" gridHeight="1" gridWidth="27" items="" name="bodega" posX="12" posY="5" tabIndex="-1" title="edit2" widget="ComboBox"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label9" posX="42" posY="5" text="Observacion"/>
|
||||
<Edit fieldId="32" gridHeight="1" gridWidth="46" name="observacion" posX="53" posY="5" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Button gridHeight="1" gridWidth="10" image="open2" name="abrirdocumento" posX="111" posY="5" tabIndex="-1"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label10" posX="1" posY="6" text="Estado Proceso"/>
|
||||
<Edit fieldId="36" gridHeight="1" gridWidth="27" name="estado_proceso" noEntry="true" posX="12" posY="6" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label8" posX="42" posY="6" text="Bodega Destino"/>
|
||||
<ComboBox fieldId="16" gridHeight="1" gridWidth="18" items="" name="bodega_destino" noEntry="true" posX="53" posY="6" tabIndex="-1" title="combobox1" widget="ComboBox"/>
|
||||
<Edit fieldId="35" gridHeight="1" gridWidth="31" name="url_file" noEntry="true" posX="72" posY="6" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
</Group>
|
||||
<Group gridHeight="10" gridWidth="132" name="group2" posX="2" posY="10" text="Detalle">
|
||||
<Table gridHeight="6" gridWidth="129" name="table1" posX="2" posY="2" totalRows="5">
|
||||
<Phantom fieldId="23" name="area" widget="Phantom"/>
|
||||
<ButtonEdit action="buscar" fieldId="8" gridHeight="1" gridWidth="8" name="cod_n" posX="0" posY="0" tabIndex="-1" title="Clase" widget="ButtonEdit"/>
|
||||
<ButtonEdit action="buscar" fieldId="9" gridHeight="1" gridWidth="8" name="cod_grupo" posX="8" posY="0" tabIndex="-1" title="Grupo" widget="ButtonEdit"/>
|
||||
<ButtonEdit action="buscar" fieldId="10" gridHeight="1" gridWidth="8" name="cod_tipo" posX="16" posY="0" tabIndex="-1" title="Tipo" widget="ButtonEdit"/>
|
||||
<ButtonEdit action="buscar" fieldId="11" gridHeight="1" gridWidth="8" name="cod_sec" noEntry="false" posX="24" posY="0" tabIndex="-1" title="Medida" widget="ButtonEdit"/>
|
||||
<Edit fieldId="12" gridHeight="1" gridWidth="20" name="descripcion" noEntry="true" posX="32" posY="0" scroll="true" tabIndex="-1" title="Descripcion" widget="Edit"/>
|
||||
<Edit fieldId="13" gridHeight="1" gridWidth="8" name="unidad_med" noEntry="true" posX="52" posY="0" tabIndex="-1" title="Unidad Med" widget="Edit"/>
|
||||
<Edit fieldId="14" gridHeight="1" gridWidth="12" name="cantidad_1" posX="60" posY="0" tabIndex="-1" title="Cantidad" widget="Edit"/>
|
||||
<Edit fieldId="19" gridHeight="1" gridWidth="12" name="cantidad" noEntry="true" posX="72" posY="0" tabIndex="-1" title="Cantidad Afectar" widget="Edit"/>
|
||||
<Edit fieldId="17" gridHeight="1" gridWidth="8" hidden="true" name="cantidad_o1" posX="84" posY="0" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Edit fieldId="18" gridHeight="1" gridWidth="8" hidden="true" name="cantidad1" posX="92" posY="0" tabIndex="-1" title="edit3" widget="Edit"/>
|
||||
<Edit fieldId="20" gridHeight="1" gridWidth="8" hidden="true" name="factor_conv" posX="100" posY="0" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
</Table>
|
||||
</Group>
|
||||
</Grid>
|
||||
</Page>
|
||||
</Folder>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewBiADAAMABmAGQAMQAxADkALQBiADAANgA1AC0ANAA3ADEANwAtADgAYgA3ADkALQAzADQAMgAzADEANwA1AGMANQAxAGUAOQB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewAzADYAZQAwADEAMAA2ADUALQAxAGYANwA5AC0ANAA0ADEAMAAtAGEAZgA0ADcALQA5ADcANAAwADkANgA2AGMAYQA5ADcAZQB9QEMzM6szNJZAOMzNZ8zOlz9wYk3S8an8AQAAAEwAewBjADIANQAzADgAZAAwADUALQBkAGIAYQA4AC0ANABkADAANwAtADgANAA2AGEALQA0AGEAMgAxAGQANQA5ADgAMgA5ADUAOQB9QHWzM7XGZ9e/+ZmZ0zMyiT9gYk3S8an8AQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,12 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Ano Proceso [f000]
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
iptb00002
|
||||
attributes
|
||||
f000 = formonly.p_ano,comments = "Digite Ano a Cerrar";
|
||||
end
|
||||
@@ -0,0 +1,36 @@
|
||||
{
|
||||
===========================================================================
|
||||
Formulario : infmmt021
|
||||
Sistema : Inventario de Material
|
||||
Objetivo : Formulario a usar para captura de informacion en el Prog.
|
||||
inprmt021 (datos referentes a maestra de Exsportacion)
|
||||
Autor : Tadeo A. Ferreras
|
||||
Fecha : Julio 22,1993
|
||||
===========================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
|
||||
Fecha de Exportacion [z ]
|
||||
Numero de Factura [a ]
|
||||
[g]
|
||||
|
||||
Usuario Creador [us1 ] Usuario Modificador [us2 ]
|
||||
Fecha de Creacion [fec1 ] Fecha de Modificacion [fec2 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00021
|
||||
intb00001
|
||||
attributes
|
||||
z = intb00021.fecha,format = "dd/mm/yy",
|
||||
comments = "Digite la fecha de la Exportacion";
|
||||
a = intb00021.factura,comments = "Digite el numero de la factura";
|
||||
g = intb00021.status_t,noentry;
|
||||
us1 = intb00021.us_crea,noentry;
|
||||
fec1 = intb00021.fech_crea,noentry;
|
||||
us2 = intb00021.us_mod,noentry;
|
||||
fec2 = intb00021.fech_mod,noentry;
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,57 @@
|
||||
{
|
||||
=========================================================================
|
||||
FORMULARIO : INFMMT022
|
||||
OBJETIVO : Crear,modificar y eliminar logicamente registro de
|
||||
la maestra de materiales de la ley 69
|
||||
PROGRAMA Q. LO USA : INPRMT022
|
||||
PROGRAMADOR : Tadeo A. Ferreras
|
||||
FECHA : Agosto 31, 1993
|
||||
=========================================================================
|
||||
}
|
||||
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo [b]-[c]-[d1 ]-[e1 ]
|
||||
Descripcion Espanol [f004 ]
|
||||
Descripcion Ingles [f005 ]
|
||||
Unidad de Medida [a0 ] Costo Real
|
||||
C/I S/I
|
||||
[ctt ][ct1 ]
|
||||
[j]
|
||||
|
||||
|
||||
Usuario Creador [f006 ] Usuario Modificador [f008 ]
|
||||
Fecha Creacion [f007 ] Fecha Modificacion [f009 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00022
|
||||
attributes
|
||||
b = intb00022.cod_n, autonext,
|
||||
comments = "Digite el NIVEL del bien o Servicio";
|
||||
c = intb00022.cod_grupo, autonext,
|
||||
comments = "Digite el GRUPO del bien o Servicio";
|
||||
d1 = intb00022.cod_tipo, autonext,
|
||||
comments = "Digite primera SECUENCIA del bien o Servicio";
|
||||
e1 = intb00022.cod_sec, autonext,
|
||||
comments = "Digite segunda SECUENCIA del bien o Servicio";
|
||||
f004 = intb00022.descrip_esp, upshift, required,
|
||||
comments = "Digite el nombre del Articulo en ESPANOL";
|
||||
f005 = intb00022.descrip_ing, upshift,
|
||||
comments = "Digite el nombre del Articulo en INGLES";
|
||||
a0 = intb00022.unidad_med, upshift, required,
|
||||
comments = "Digite la unidad de medida del articulo";
|
||||
ctt = intb00022.costo_real_ci,comments =
|
||||
"Digite el costo Real con Impuesto del material";
|
||||
ct1 = intb00022.costo_real_si,comments =
|
||||
"Digite el costo Real sin Impuesto del material";
|
||||
f006 = intb00022.us_crea, noentry;
|
||||
f007 = intb00022.fech_crea, noentry;
|
||||
f008 = intb00022.us_mod, noentry;
|
||||
f009 = intb00022.fech_mod, noentry;
|
||||
j = intb00022.status_t, noentry;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
|
||||
@@ -0,0 +1,58 @@
|
||||
|
||||
{
|
||||
------------------------------------------------------------------
|
||||
Formulario : infmmt023
|
||||
OBJETIVO : Capturar, Modificar, Eliminar registros de la
|
||||
Tabla de la maestra de FIANZAS, aceptando el
|
||||
numero de factura como numero de fianza.
|
||||
Modulos q. lo usan: inprmt023
|
||||
PROGRAMADOR : Tadeo A. Ferreas
|
||||
FECHA REALIZACION : Julio 22, 1993.
|
||||
------------------------------------------------------------------
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
Numero de Documento [nf ] Numero de Resolucion [nr ] Fecha [ff ]
|
||||
Suplidor[cs]-[cs1 ] [nomb ]
|
||||
Orden Numero[numo ]-[e] Valor Merc.[merc ]
|
||||
\g-----------------------------------------------------------------------------\g
|
||||
Material Cant. Internar Cant. Cancelar
|
||||
\g-----------------------------------------------------------------------------\g
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00020
|
||||
attributes
|
||||
nf = intb00020.num_fianza,comments = "Digite el numero de solicitud";
|
||||
nr = intb00020.num_res,comments =
|
||||
"En caso de estar atada una resolucion, digite el numero de la misma";
|
||||
ff = intb00020.fecha,format = "dd/mm/yy",comments =
|
||||
"Digite fecha de solicitud";
|
||||
cs = intb00020.cod_sp,autonext,
|
||||
comments="Presione CTRL-W Para Buscar Codigo del Suplidor";
|
||||
cs1 = intb00020.cod_sp_sec,autonext,comments="Digite el codigo del suplidor";
|
||||
nomb = formonly.nombre type char,noentry,color=yellow;
|
||||
numo = intb00020.num_oc,comments = "Digite el numero de la orden de compra";
|
||||
e = intb00020.num_emb,comments=
|
||||
"Digite el numero del embarque para la orden";
|
||||
merc = intb00020.valor_merc,comments = "Digite valor de la mercancia en US$";
|
||||
n = intb00020.cod_n,autonext,comments = "Digite el codigo del material";
|
||||
g = intb00020.cod_grupo,autonext,comments = "Digite el codigo del material";
|
||||
t = intb00020.cod_tipo,autonext,comments = "Digite el codigo del material";
|
||||
s = intb00020.cod_sec,autonext,comments = "Digite el codigo del material";
|
||||
nomb4 = formonly.descrip type char,noentry,color=yellow;
|
||||
uni = formonly.unidad type char,noentry,color=yellow;
|
||||
cant = intb00020.cantidad,
|
||||
comments="Digite la cantidad de material a internar";
|
||||
cant1 = intb00020.cantidad_c,comments =
|
||||
"Digite la cantidad de material con que se cancelara la orden ";
|
||||
instructions delimiters " "
|
||||
screen record fact2[4](cod_n,cod_grupo,cod_tipo,cod_sec,unidad,descrip,
|
||||
cantidad,cantidad_c)
|
||||
end
|
||||
|
||||
@@ -0,0 +1,36 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
\g----------------------------------------------------------------------\g
|
||||
DATOS ADICIONALES DE LA FIANZA
|
||||
\g----------------------------------------------------------------------\g
|
||||
|
||||
Numero Fianzas [f000 ]
|
||||
No. Planilla-Liq. [f001 ]
|
||||
No Resolucion Canc.[f1 ]
|
||||
No. Oficio [f2 ]
|
||||
Numero From.311 [f002 ]
|
||||
[a]
|
||||
Usuario Creador [f003 ]Fecha Creacion [f004 ]
|
||||
Usuario Modificador[f005 ]Fecha Modificacion [f006 ]
|
||||
|
||||
|
||||
<Esc> Actualiza y/o Agrega Registro <Ctrl-C> Cancela Operacion
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00027,
|
||||
intb00020
|
||||
attributes
|
||||
f000 = intb00027.num_fianza = *intb00020.num_fianza;
|
||||
f001 = intb00027.no_pla_liq;
|
||||
f002 = intb00027.num_form;
|
||||
f1 = intb00027.num_res_canc;
|
||||
f2 = intb00027.num_oficio;
|
||||
a = intb00027.status_t,noentry;
|
||||
f003 = intb00027.us_crea,default = "usama01",noentry;
|
||||
f004 = intb00027.fech_crea,noentry;
|
||||
f005 = intb00027.us_mod,noentry;
|
||||
f006 = intb00027.fech_mod,noentry;
|
||||
end
|
||||
@@ -0,0 +1,65 @@
|
||||
{
|
||||
------------------------------------------------------------------------------
|
||||
FORMULARIO : INFMMT026
|
||||
OBJETIVO : Captura Documento Movimiento: MATERIALES DEVUELTO DE
|
||||
PRODUCCION de Inventario de Materia Prima (INPRMT026).
|
||||
PROGRAMADOR : Juan Fco. Soto (Johnny)
|
||||
FECHA REALIZACION : Agosto 07, 1992.
|
||||
------------------------------------------------------------------------------
|
||||
}
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
\gp-------------------------------------------------------------------------q\g
|
||||
\g|\gDocumento Numero [f000 ] \g|\g
|
||||
\g|\gFecha [f001 ] \g|\g
|
||||
\g|\gDel Depto.: [f1 ] [a1 ] \g|\g
|
||||
\g|\gAl Depto.: [f2 ] [b1 ] Bodega :[h ] \g|\g
|
||||
\gb-------------------------------------------------------------------------d\g
|
||||
C A N T I D A D
|
||||
Codigo Devuelta Recibida Unidad D e s c r i p c i o n
|
||||
\g------------------------------------------------------------------------------\g
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
||||
\g------------------------------------------------------------------------------\g
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006,
|
||||
intb00001,
|
||||
cotb00001,
|
||||
adtb00001
|
||||
attributes
|
||||
f000 = intb00006.num_doc,autonext,
|
||||
comments = "Digite Numero Documento";
|
||||
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
|
||||
comments = "Digite Fecha Documento";
|
||||
f1 = intb00006.depto_de,autonext,
|
||||
comments = "Digite Codigo Departamento";
|
||||
f2 = intb00006.depto_a,autonext,
|
||||
comments = "Digite Codigo Departamento";
|
||||
a1 = adtb00001.nom_dpto,noentry;
|
||||
b1 = formonly.nom_dpto1,noentry;
|
||||
a = intb00006.cod_n,autonext,
|
||||
comments = "Digite el NIVEL";
|
||||
b = intb00006.cod_grupo,autonext,
|
||||
comments = "Digite el GRUPO";
|
||||
c = intb00006.cod_tipo,autonext,
|
||||
comments = "Digite el TIPO ";
|
||||
d = intb00006.cod_sec,autonext,
|
||||
comments = "Digite la SECUENCIA";
|
||||
f02 = intb00006.cantidad_1,autonext,
|
||||
comments = "Digite La Cantidad Ordenada";
|
||||
f03 = intb00006.cantidad_2,autonext,
|
||||
comments = "Digite La Cantidad Entregada";
|
||||
k = intb00001.descrip_esp,noentry,autonext;
|
||||
p = intb00001.unidad_med,noentry;
|
||||
h = intb00006.bodega,autonext;
|
||||
INSTRUCTIONS
|
||||
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
||||
cantidad_2,unidad_med,descrip_esp)
|
||||
end
|
||||
@@ -0,0 +1,28 @@
|
||||
{
|
||||
---------------------------------------------------------------------------
|
||||
FORMULARIO : INFMRP029
|
||||
OBJETIVO : CAPTURAR LA FECHA DE CORTE DEL INVENTARIO FISICO
|
||||
PROGRAMADOR : Juan F. Soto
|
||||
FECHA : Septiembre 29, 1994
|
||||
---------------------------------------------------------------------------
|
||||
}
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
Fecha de Corte [a1 ]
|
||||
Codigo Items [a][b][c ][d ]
|
||||
|
||||
}
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
a1 = formonly.fecha type date,format= "dd/mm/yy";
|
||||
a = intb00001.cod_n;
|
||||
b = intb00001.cod_grupo;
|
||||
c = intb00001.cod_tipo;
|
||||
d = intb00001.cod_sec;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
|
||||
@@ -0,0 +1,39 @@
|
||||
schema smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo [a]-[b ]-[c ]-[d ] [e ][z ]
|
||||
Suplidor [f ]-[g ] [h ]
|
||||
Unidad de Medida [q ] [m ]
|
||||
conversion [n ] Precio Madison [p ]
|
||||
Precio Suplidor [ps ]
|
||||
[x]
|
||||
Usuario Creador [f001 ] Usuario Modificador [f003 ]
|
||||
Fecha Creacion [f002 ] Fecha Modificacion [f004 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00019
|
||||
attributes
|
||||
a = intb00019.cod_n, autonext;
|
||||
b = intb00019.cod_grupo;
|
||||
c = intb00019.cod_tipo;
|
||||
d = intb00019.cod_sec;
|
||||
e = formonly.descrip1,upshift,noentry;
|
||||
z = formonly.medida,upshift,noentry;
|
||||
f = intb00019.cod_sp;
|
||||
g = intb00019.cod_sp_sec;
|
||||
h = formonly.m_nom_sp,upshift,noentry;
|
||||
q = intb00019.unidad_med,upshift;
|
||||
m = formonly.descrip,upshift,noentry;
|
||||
n = intb00019.conversion,required;
|
||||
p = intb00019.precio,required;
|
||||
x = intb00019.status_t, noentry;
|
||||
f001 = intb00019.us_crea, noentry;
|
||||
f002 = intb00019.fech_crea, noentry;
|
||||
f003 = intb00019.us_mod, noentry;
|
||||
f004 = intb00019.fech_mod, noentry;
|
||||
ps = intb00019.precio_s,required;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
|
||||
@@ -0,0 +1,75 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{e7174189-8870-4ba4-8809-0d7723748408}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="record1" uid="{5f98391b-bea0-4211-a080-65f585d7f377}">
|
||||
<RecordField colName="num_doc" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{d2a35378-2bc5-4c14-a5b2-d9d31602318b}"/>
|
||||
<RecordField colName="fecha" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{b2c2e592-dc75-4e19-a9ff-93cc5b1f77c2}"/>
|
||||
<RecordField colName="depto_a" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.depto_a" sqlTabName="intb00006" uid="{acbbeead-342c-4c6f-a091-347f83c07636}"/>
|
||||
<RecordField colName="nom_dpto" fieldIdRef="3" fieldType="NON_DATABASE" name="nombre_d" sqlTabName="adtb00001" uid="{0dac7bb5-0381-4afe-8c40-96b4b36dd9cd}"/>
|
||||
<RecordField colName="bodega" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00006.bodega" sqlTabName="intb00006" uid="{cadd22d3-f600-4af7-9fc9-696c6e7f1bbb}"/>
|
||||
<RecordField fieldIdRef="4" name="cod_mov" uid="{fc7dc520-056a-4e29-9fd9-06882be58fd6}"/>
|
||||
<RecordField fieldIdRef="5" name="descrip_mov" uid="{db6f3fa0-9339-4078-8c1f-c07b259095f4}"/>
|
||||
<RecordField fieldIdRef="6" name="nombre" uid="{9601d4ae-5d55-452b-9426-6235f628d523}"/>
|
||||
<RecordField fieldIdRef="7" name="apellido" uid="{7ab2f8e2-4efd-4810-aac8-f702974f3d82}"/>
|
||||
<RecordField fieldIdRef="9" name="impresion" uid="{77ff2cb8-ae51-4e61-9880-5bedaf2864ef}"/>
|
||||
</Record>
|
||||
<Record name="s_movi1" uid="{f4a6ba20-de96-44b0-846f-190d18414d47}">
|
||||
<RecordField fieldIdRef="13" name="cod_n" uid="{db75acf0-1055-476c-8243-3de0be0ff959}"/>
|
||||
<RecordField fieldIdRef="14" name="cod_grupo" uid="{5f8f596e-eac0-4b35-b7c4-b1a8a3c6ef0d}"/>
|
||||
<RecordField fieldIdRef="15" name="cod_tipo" uid="{1ccef9ef-ed49-42c7-a21d-0057636e5c93}"/>
|
||||
<RecordField fieldIdRef="16" name="cod_Sec" uid="{39fdf508-1f80-4033-8ef6-5cccac37de36}"/>
|
||||
<RecordField fieldIdRef="17" name="cantidad_1" uid="{7d6c051e-7772-4f29-bc49-2db9b7f3317f}"/>
|
||||
<RecordField fieldIdRef="18" name="cantidad_2" uid="{228f3fb6-d439-4bdb-8304-2ea2a813db1c}"/>
|
||||
<RecordField fieldIdRef="19" name="unidad_med" uid="{5776cd4e-a3f2-4ff0-b540-a00b6e0fdf5e}"/>
|
||||
<RecordField fieldIdRef="20" name="descrip_esp" uid="{73bfd3ea-3edd-4965-a5e8-cdc35e4a16f8}"/>
|
||||
<RecordField fieldIdRef="8" name="existencia" uid="{b583914e-c5af-4370-80a5-ba66b7779a23}"/>
|
||||
</Record>
|
||||
<Form gridHeight="22" gridWidth="92" name="infmmt036" text="REQUISICION MATERIALES">
|
||||
<ToolBar name="toolbar1">
|
||||
<ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/>
|
||||
<ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documentos"/>
|
||||
<ToolBarSeparator name="toolbarseparator1"/>
|
||||
<ToolBarItem image="quit" name="salir" text="Salir"/>
|
||||
</ToolBar>
|
||||
<Grid gridHeight="22" gridWidth="92" name="grid1" posX="0" posY="0">
|
||||
<Group gridHeight="7" gridWidth="83" name="group1" posX="1" posY="1">
|
||||
<Label gridHeight="1" gridWidth="9" name="label1" posX="1" posY="1" text="Documento"/>
|
||||
<Edit colName="num_doc" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" noEntry="true" posX="17" posY="1" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="6" name="label2" posX="28" posY="1" text="Fecha"/>
|
||||
<Edit autoNext="true" colName="fecha" comment="Digite Fecha Documento" fieldId="1" fieldType="TABLE_COLUMN" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="intb00006.fecha" posX="35" posY="1" sqlTabName="intb00006" tabIndex="2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="15" name="label3" posX="1" posY="2" text="Codigo de Dpto"/>
|
||||
<Edit autoNext="true" colName="depto_a" comment="Digite Codigo Departamento" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00006.depto_a" posX="17" posY="2" sqlTabName="intb00006" tabIndex="3" widget="Edit"/>
|
||||
<Edit colName="nom_dpto" fieldId="3" fieldType="NON_DATABASE" gridHeight="1" gridWidth="30" length="30" name="nombre_d" noEntry="true" posX="24" posY="2" sqlTabName="adtb00001" sqlType="CHAR" tabIndex="4" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="8" name="label4" posX="1" posY="3" text="Bodega :"/>
|
||||
<Edit autoNext="true" colName="bodega" comment="Digite el codigo de la bodega de almacenamiento" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00006.bodega" posX="17" posY="3" sqlTabName="intb00006" tabIndex="5" widget="Edit"/>
|
||||
<RadioGroup fieldId="9" gridHeight="1" gridWidth="10" items="PDF, MATRICIAL" name="impresion" posX="27" posY="3" tabIndex="-1" title="radiogroup1" widget="RadioGroup">
|
||||
<Item lstrtext="false" name="PDF" text="PDF"/>
|
||||
<Item lstrtext="false" name="MATRICIAL" text="MATRICIAL"/>
|
||||
</RadioGroup>
|
||||
<Label gridHeight="1" gridWidth="10" name="label5" posX="1" posY="4" text="Codigo Mov"/>
|
||||
<Edit fieldId="4" gridHeight="1" gridWidth="5" name="cod_mov" posX="17" posY="4" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Edit fieldId="5" gridHeight="1" gridWidth="30" name="descrip_mov" posX="24" posY="4" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Edit fieldId="6" gridHeight="1" gridWidth="10" name="nombre" posX="24" posY="5" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Edit fieldId="7" gridHeight="1" gridWidth="10" name="apellido" posX="36" posY="5" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
</Group>
|
||||
<Group gridHeight="11" gridWidth="90" name="group2" posX="2" posY="9" text="Detalle">
|
||||
<Table gridHeight="8" gridWidth="82" name="table1" posX="7" posY="2" totalRows="5">
|
||||
<Edit fieldId="13" gridHeight="1" gridWidth="8" name="cod_n" posX="0" posY="0" tabIndex="-1" title="Codigo" widget="Edit"/>
|
||||
<Edit fieldId="14" gridHeight="1" gridWidth="8" name="cod_grupo" posX="8" posY="0" tabIndex="-1" widget="Edit"/>
|
||||
<Edit fieldId="15" gridHeight="1" gridWidth="8" name="cod_tipo" posX="16" posY="0" tabIndex="-1" widget="Edit"/>
|
||||
<Edit fieldId="16" gridHeight="1" gridWidth="8" name="cod_Sec" posX="24" posY="0" tabIndex="-1" widget="Edit"/>
|
||||
<Edit fieldId="17" gridHeight="1" gridWidth="8" name="cantidad_1" posX="32" posY="0" tabIndex="-1" title="Ordenada" widget="Edit"/>
|
||||
<Edit fieldId="18" gridHeight="1" gridWidth="8" name="cantidad_2" posX="40" posY="0" tabIndex="-1" title="Entregada" widget="Edit"/>
|
||||
<Edit fieldId="19" gridHeight="1" gridWidth="8" name="unidad_med" posX="48" posY="0" tabIndex="-1" title="Unidad Med" widget="Edit"/>
|
||||
<Edit fieldId="20" gridHeight="1" gridWidth="8" name="descrip_esp" posX="56" posY="0" scroll="true" tabIndex="-1" title="Descripcion" widget="Edit"/>
|
||||
<Edit fieldId="8" gridHeight="1" gridWidth="8" name="existencia" posX="64" posY="0" tabIndex="-1" title="Existencia" widget="Edit"/>
|
||||
</Table>
|
||||
</Group>
|
||||
</Grid>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewA1AGYAOQA4ADMAOQAxAGIALQBiAGUAYQAwAC0ANAAyADEAMQAtAGEAMAA4ADAALQA2ADUAZgA1ADgANQBkADcAZgAzADcANwB9QGqZmcGAABhAIAAAGAAADz9gYk3S8an8AQAAAEwAewBmADQAYQA2AGIAYQAyADAALQBkAGUAOQA2AC0ANAA0AGIAMAAtADgANAA2AGYALQAxADkAMABkADEAOAA0ADEANABkADQANwB9QICszOXQABBANMzM7AAAEz9wYk3S8an8AQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,73 @@
|
||||
{
|
||||
----------------------------------------------------------------------
|
||||
FORMULARIO : INFMMT036
|
||||
OBJETIVO : Captura Documento Movimiento: REQUISICION DE MATERIALES
|
||||
de Inventario de Materia Prima (INPRMT036).
|
||||
PROGRAMADOR : Ing. Juan Fco. Soto
|
||||
FECHA REALIZACION : Agosto 10, 1992.
|
||||
----------------------------------------------------------------------
|
||||
}
|
||||
SCHEMA smarmotech
|
||||
|
||||
TOOLBAR
|
||||
ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Documento")
|
||||
ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
|
||||
SEPARATOR
|
||||
ITEM salir (TEXT="Salir", IMAGE="quit")
|
||||
END
|
||||
LAYOUT (TEXT="REQUISICION MATERIALES")
|
||||
GRID
|
||||
{
|
||||
|
||||
<g >
|
||||
Documento [f000 ] Fecha [f001 ]
|
||||
Codigo de Dpto [f4 ] [a1 ]
|
||||
Bodega : [a7]
|
||||
|
||||
<g >
|
||||
C A N T I D A D
|
||||
Codigo Ordenada Entregada Unidad D e s c r i p c i o n
|
||||
|
||||
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
||||
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001,
|
||||
intb00002,
|
||||
intb00006,
|
||||
adtb00001
|
||||
attributes
|
||||
f000 = intb00006.num_doc,noentry;
|
||||
f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
|
||||
comments = "Digite Fecha Documento";
|
||||
f4 = intb00006.depto_a,autonext,
|
||||
comments = "Digite Codigo Departamento";
|
||||
|
||||
a1 = adtb00001.nom_dpto,noentry;
|
||||
a = intb00006.cod_n,autonext,
|
||||
comments = "Digite Codigo Articulo";
|
||||
b = intb00006.cod_grupo,autonext,
|
||||
comments = "Digite Codigo Articulo";
|
||||
c = intb00006.cod_tipo,autonext,
|
||||
comments = "Digite Codigo Articulo";
|
||||
d = intb00006.cod_sec,autonext,
|
||||
comments = "Digite Codigo Articulo";
|
||||
f02 = intb00006.cantidad_1,autonext,
|
||||
comments = "Digite La Cantidad Ordenada";
|
||||
f03 = intb00006.cantidad_2,autonext,
|
||||
comments = "Digite La Cantidad Entregada";
|
||||
a7 = intb00006.bodega,autonext,
|
||||
comments = "Digite el codigo de la bodega de almacenamiento";
|
||||
k = intb00001.descrip_esp,noentry,autonext;
|
||||
p = intb00001.unidad_med,noentry;
|
||||
|
||||
INSTRUCTIONS
|
||||
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
||||
cantidad_2,unidad_med,descrip_esp)
|
||||
end
|
||||
@@ -0,0 +1,88 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{cc7f1c9d-4e7c-4722-a7b5-5f87b59f9444}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="s_movi1" uid="{302ef385-ace6-4683-9543-151e0aa5f0d6}">
|
||||
<RecordField colName="cod_n" fieldIdRef="9" fieldType="TABLE_COLUMN" name="intb00006.cod_n" sqlTabName="intb00006" uid="{e722f194-3698-42f0-8166-310141aaaa06}"/>
|
||||
<RecordField colName="cod_grupo" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00006.cod_grupo" sqlTabName="intb00006" uid="{88daffe7-2364-4752-b95a-847372dc5ecb}"/>
|
||||
<RecordField colName="cod_tipo" fieldIdRef="11" fieldType="TABLE_COLUMN" name="intb00006.cod_tipo" sqlTabName="intb00006" uid="{2264d934-c44b-4932-a2a3-e2b216176162}"/>
|
||||
<RecordField colName="cod_sec" fieldIdRef="12" fieldType="TABLE_COLUMN" name="intb00006.cod_sec" sqlTabName="intb00006" uid="{98c8ad5c-21fe-4ae6-b22c-bab32b9081e9}"/>
|
||||
<RecordField colName="cantidad_2" fieldIdRef="13" fieldType="TABLE_COLUMN" name="intb00006.cantidad_2" sqlTabName="intb00006" uid="{4417b2b2-1843-48d9-b652-2d0045d852ce}"/>
|
||||
<RecordField colName="unidad_med" fieldIdRef="15" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{6a0fc654-f81c-4153-8e72-705136648802}"/>
|
||||
<RecordField colName="descrip_esp" fieldIdRef="14" fieldType="TABLE_COLUMN" name="intb00001.descrip_esp" sqlTabName="intb00001" uid="{b838a9a2-4469-4175-ba63-4278169a88ea}"/>
|
||||
<RecordField colName="existencia" fieldIdRef="0" name="existencia" sqlTabName="formonly" uid="{7e57e9e4-e688-4921-88b5-5683ebd6f798}"/>
|
||||
<RecordField fieldIdRef="23" name="codigo" uid="{a6df3034-94f4-49fb-81da-63bf7093096f}"/>
|
||||
<RecordField fieldIdRef="24" name="clasf_bloque" uid="{04d86204-760b-41ed-b034-d32b4ddc0ead}"/>
|
||||
</Record>
|
||||
<Record name="record1" uid="{3d6552ff-f61d-44ee-b01c-e204f9b6dc4a}">
|
||||
<RecordField colName="num_doc" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{0a19a7ea-055a-47b6-ae11-89368c78f8f9}"/>
|
||||
<RecordField colName="orden_compra" fieldIdRef="1" name="orden_compra" sqlTabName="formonly" uid="{a6d1441b-0c15-431a-8977-f5c354ef3adf}"/>
|
||||
<RecordField fieldIdRef="17" fieldType="NON_DATABASE" name="cod_mov" sqlType="SMALLINT" uid="{c2994936-142d-4c99-b06a-3d48e4f364b4}"/>
|
||||
<RecordField colName="fecha" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{69c0b846-d860-4f48-9a4c-2a475f894bf0}"/>
|
||||
<RecordField fieldIdRef="16" fieldType="NON_DATABASE" name="bodega" sqlType="SMALLINT" uid="{941e9762-a4e7-48f6-86eb-b7c5281aea0c}"/>
|
||||
<RecordField colName="depto_a" fieldIdRef="2" name="departamento" sqlTabName="formonly" uid="{6b92f27f-7346-426c-a73a-80d353548aac}"/>
|
||||
<RecordField colName="pnum_emp" fieldIdRef="4" name="pnum_emp" sqlTabName="formonly" uid="{5cbc6242-3228-4029-a48b-ddafb1ef0d64}"/>
|
||||
<RecordField colName="nombre" fieldIdRef="5" name="nombre" sqlTabName="formonly" uid="{8f93837d-2b15-479f-8591-37ccb438c102}"/>
|
||||
<RecordField colName="apellido" fieldIdRef="6" name="apellido" sqlTabName="formonly" uid="{753124d9-707b-423f-a38a-ff6cf590e20e}"/>
|
||||
<RecordField fieldIdRef="3" name="conduce" uid="{dda5a86b-6f41-4291-9817-3213315a4c75}"/>
|
||||
<RecordField fieldIdRef="18" name="cod_transp" uid="{0cd5a802-b26c-41d0-a20b-9306bc38ecf3}"/>
|
||||
<RecordField fieldIdRef="19" name="nombre_transp" uid="{884df1de-09b8-4882-9fbd-85196c8ba3de}"/>
|
||||
<RecordField fieldIdRef="20" name="ficha_vehiculo" uid="{5658b08a-33ce-4ba2-ab8e-4d954fae9b7b}"/>
|
||||
<RecordField fieldIdRef="21" name="placa" uid="{a35738e3-43bc-4e31-ba6f-680b6ddc8884}"/>
|
||||
<RecordField fieldIdRef="22" name="sec_transp" uid="{04e67d7e-54b1-4637-b8e8-f8d8ed576c33}"/>
|
||||
</Record>
|
||||
<Form gridHeight="20" gridWidth="107" name="infmmt046" text="TRANSACCIONES INVENTARIOS">
|
||||
<ToolBar name="toolbar1">
|
||||
<ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/>
|
||||
<ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documento"/>
|
||||
<ToolBarSeparator name="toolbarseparator1"/>
|
||||
<ToolBarItem image="quit" name="salir" text="Salir"/>
|
||||
</ToolBar>
|
||||
<Grid gridHeight="20" gridWidth="107" name="grid1" posX="0" posY="0">
|
||||
<Group gridHeight="9" gridWidth="83" name="group1" posX="1" posY="1">
|
||||
<Label gridHeight="1" gridWidth="17" name="label1" posX="2" posY="1" text="Documento Numero"/>
|
||||
<Edit autoNext="true" colName="num_doc" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" noEntry="true" posX="20" posY="1" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="13" name="label2" posX="32" posY="1" text="Orden Compra"/>
|
||||
<Edit colName="orden_compra" fieldId="1" gridHeight="1" gridWidth="7" name="orden_compra" posX="46" posY="1" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="17" name="label3" posX="2" posY="2" text="Codigo Movimiento"/>
|
||||
<ComboBox comment="Digite codigo del movimiento" fieldId="17" fieldType="NON_DATABASE" gridHeight="1" gridWidth="25" items="" length="1" name="cod_mov" posX="20" posY="2" sqlType="SMALLINT" tabIndex="3" widget="ComboBox"/>
|
||||
<Label gridHeight="1" gridWidth="7" name="label6" posX="46" posY="2" text="Conduce"/>
|
||||
<Edit fieldId="3" gridHeight="1" gridWidth="10" name="conduce" posX="55" posY="2" tabIndex="-1" title="edit1" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="5" name="label4" posX="2" posY="3" text="Fecha"/>
|
||||
<Edit autoNext="true" colName="fecha" comment="Digite Fecha Documento" fieldId="8" fieldType="TABLE_COLUMN" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="intb00006.fecha" posX="20" posY="3" sqlTabName="intb00006" tabIndex="4" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="13" name="label5" posX="32" posY="3" text="Bodega :"/>
|
||||
<ComboBox fieldId="16" fieldType="NON_DATABASE" gridHeight="1" gridWidth="29" items="" length="1" name="bodega" posX="46" posY="3" scroll="true" sqlType="SMALLINT" tabIndex="5" widget="ComboBox"/>
|
||||
<Label gridHeight="1" gridWidth="12" name="label7" posX="2" posY="4" text="DEPARTAMENTO"/>
|
||||
<ComboBox colName="depto_a" fieldId="2" gridHeight="1" gridWidth="32" items="" name="departamento" posX="20" posY="4" sqlTabName="formonly" tabIndex="6" widget="ComboBox"/>
|
||||
<Label gridHeight="1" gridWidth="13" name="label8" posX="2" posY="5" text="Operador Grua"/>
|
||||
<ButtonEdit action="operador" colName="pnum_emp" fieldId="4" gridHeight="1" gridWidth="6" name="pnum_emp" posX="20" posY="5" sqlTabName="formonly" tabIndex="7" widget="ButtonEdit"/>
|
||||
<Edit colName="nombre" fieldId="5" gridHeight="1" gridWidth="17" name="nombre" noEntry="true" posX="27" posY="5" sqlTabName="formonly" tabIndex="8" widget="Edit"/>
|
||||
<Edit colName="apellido" fieldId="6" gridHeight="1" gridWidth="23" name="apellido" noEntry="true" posX="45" posY="5" sqlTabName="formonly" tabIndex="9" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="13" name="label9" posX="2" posY="6" text="Transportista"/>
|
||||
<ButtonEdit action="transporte" fieldId="18" gridHeight="1" gridWidth="5" name="cod_transp" posX="20" posY="6" tabIndex="-1" title="edit1" widget="ButtonEdit"/>
|
||||
<ButtonEdit action="transporte" fieldId="22" gridHeight="1" gridWidth="7" name="sec_transp" posX="26" posY="6" tabIndex="-1" title="edit1" widget="ButtonEdit"/>
|
||||
<Edit fieldId="19" gridHeight="1" gridWidth="34" name="nombre_transp" posX="34" posY="6" scroll="true" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="13" name="label10" posX="2" posY="7" text="Ficha Vehiculo"/>
|
||||
<Edit fieldId="20" gridHeight="1" gridWidth="24" name="ficha_vehiculo" posX="20" posY="7" scroll="true" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label11" posX="45" posY="7" text="Placa"/>
|
||||
<Edit fieldId="21" gridHeight="1" gridWidth="12" name="placa" posX="56" posY="7" scroll="true" tabIndex="-1" title="edit2" widget="Edit"/>
|
||||
</Group>
|
||||
<Table gridHeight="7" gridWidth="106" name="table1" posX="1" posY="11" totalRows="6" unitWidth="characters" width="86">
|
||||
<ButtonEdit action="buscar" colName="cod_n" comment="Digite el NIVEL" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" image="find" name="intb00006.cod_n" posX="0" posY="0" sqlTabName="intb00006" tabIndex="10" title="CODIGO" widget="ButtonEdit"/>
|
||||
<ButtonEdit action="buscar" autoNext="true" colName="cod_grupo" comment="Digite el GRUPO" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" image="find" name="intb00006.cod_grupo" posX="6" posY="0" sqlTabName="intb00006" tabIndex="11" widget="ButtonEdit"/>
|
||||
<ButtonEdit action="buscar" autoNext="true" colName="cod_tipo" comment="Digite el TIPO" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" image="find" name="intb00006.cod_tipo" posX="12" posY="0" sqlTabName="intb00006" tabIndex="12" widget="ButtonEdit"/>
|
||||
<ButtonEdit action="buscar" autoNext="true" colName="cod_sec" comment="Digite la SECUENCIA " fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" image="find" name="intb00006.cod_sec" posX="18" posY="0" sqlTabName="intb00006" tabIndex="13" widget="ButtonEdit"/>
|
||||
<Edit colName="cantidad_2" comment="Digite La Cantidad Ordenada" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="intb00006.cantidad_2" posX="24" posY="0" sqlTabName="intb00006" tabIndex="14" title="CANTIDAD" widget="Edit"/>
|
||||
<Edit colName="unidad_med" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="36" posY="0" sqlTabName="intb00001" tabIndex="15" widget="Edit"/>
|
||||
<Edit colName="descrip_esp" fieldId="14" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="30" name="intb00001.descrip_esp" noEntry="true" posX="39" posY="0" scroll="true" sqlTabName="intb00001" tabIndex="16" title="DESCRIPCION" widget="Edit"/>
|
||||
<Edit colName="existencia" fieldId="0" gridHeight="1" gridWidth="8" name="existencia" noEntry="true" posX="69" posY="0" sqlTabName="formonly" tabIndex="17" title="EXISTENCIA" unhidable="true" unmovable="true" unsortable="true" widget="Edit"/>
|
||||
<ComboBox fieldId="23" gridHeight="1" gridWidth="8" items="" name="codigo" posX="77" posY="0" scroll="true" tabIndex="-1" title="MAQUINA" widget="ComboBox"/>
|
||||
<ComboBox fieldId="24" gridHeight="1" gridWidth="10" items="" name="clasf_bloque" posX="85" posY="0" scroll="true" tabIndex="-1" title="CLASF. BLOQUE" widget="ComboBox"/>
|
||||
</Table>
|
||||
</Grid>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewAzAGQANgA1ADUAMgBmAGYALQBmADYAMQBkAC0ANAA0AGUAZQAtAGIAMAAxAGMALQBlADIAMAA0AGYAOQBiADYAZABjADQAYQB9QCAAACQAACNAIAAAJAAAIwAAAAAAAAAAAQAAAEwAewAzADAAMgBlAGYAMwA4ADUALQBhAGMAZQA2AC0ANAA2ADgAMwAtADkANQA0ADMALQAxADUAMQBlADAAYQBhADUAZgAwAGQANgB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,65 @@
|
||||
schema smarmotech
|
||||
|
||||
TOOLBAR
|
||||
ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Documento")
|
||||
ITEM buscar (TEXT="Buscar Documento", IMAGE="find", COMMENT="Criterio de busqueda")
|
||||
SEPARATOR
|
||||
ITEM salir (TEXT="Salir", IMAGE="quit")
|
||||
END
|
||||
LAYOUT (TEXT="TRANSACCIONES INVENTARIOS")
|
||||
GRID
|
||||
{
|
||||
|
||||
<G >
|
||||
Documento Numero [f000 ] Orden Compra [ord ]
|
||||
Codigo Movimiento[m ] [m1 ]
|
||||
Fecha [f001 ] Bodega :[p1 ]Conduce
|
||||
DEPARTAMENTO [f1 ][d1 ]
|
||||
Operador Grua [op ][nomop ][ap ]
|
||||
|
||||
<t >
|
||||
[a ][b ][c ][d ][f02 ] [p ][k ] [ex1 ]
|
||||
[a ][b ][c ][d ][f02 ] [p ][k ] [ex1 ]
|
||||
[a ][b ][c ][d ][f02 ] [p ][k ] [ex1 ]
|
||||
[a ][b ][c ][d ][f02 ] [p ][k ] [ex1 ]
|
||||
[a ][b ][c ][d ][f02 ] [p ][k ] [ex1 ]
|
||||
[a ][b ][c ][d ][f02 ] [p ][k ] [ex1 ]
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006,
|
||||
intb00001,
|
||||
cotb00001
|
||||
ATTRIBUTES
|
||||
ex1 = formonly.existencia, TITLE="EXISTENCIA";
|
||||
ord = formonly.orden_compra;
|
||||
f1 = formonly.depto_a;
|
||||
d1 = formonly.nombre_d,noentry;
|
||||
op = formonly.pnum_emp;
|
||||
nomop = formonly.nombre,noentry;
|
||||
ap = formonly.apellido,noentry;
|
||||
f000 = intb00006.num_doc,autonext,noentry;
|
||||
f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
|
||||
comments = "Digite Fecha Documento";
|
||||
|
||||
a = intb00006.cod_n,TITLE="CODIGO",
|
||||
comments = "Digite el NIVEL";
|
||||
b = intb00006.cod_grupo,autonext,
|
||||
comments = "Digite el GRUPO";
|
||||
c = intb00006.cod_tipo,autonext,
|
||||
comments = "Digite el TIPO";
|
||||
d = intb00006.cod_sec,autonext,
|
||||
comments = "Digite la SECUENCIA ";
|
||||
f02 = intb00006.cantidad_2,TITLE="CANTIDAD",
|
||||
comments = "Digite La Cantidad Ordenada";
|
||||
k = intb00001.descrip_esp,TITLE="DESCRIPCION";
|
||||
p = intb00001.unidad_med,noentry;
|
||||
p1 = intb00006.bodega,autonext;
|
||||
m = intb00006.cod_mov,autonext,autonext,
|
||||
comments = "Digite codigo del movimiento";
|
||||
m1 = formonly.descrip_mov, noentry;
|
||||
INSTRUCTIONS
|
||||
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,
|
||||
cantidad_2,unidad_med,descrip_esp,existencia)
|
||||
end
|
||||
@@ -0,0 +1,78 @@
|
||||
{
|
||||
----------------------------------------------------------------------------
|
||||
FORMULARIO : INFMMT056
|
||||
OBJETIVO : Capturar registros de los Movimientos de Materia Prima
|
||||
(INPRMT056).
|
||||
PROGRAMADOR : Ing. Juan Soto(Johnny)
|
||||
FECHA REALIZACION : Septiembre 4, 1992.
|
||||
----------------------------------------------------------------------------
|
||||
}
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Movimiento:[t ][t1 ] Doc. No. [f00 ]
|
||||
\gp-------------------------------------------------------------------------q\g
|
||||
\g|\gFecha [f05 ] Conduce no.[f03 ] \g|\g
|
||||
\g|\gFactura No.[f04 ] Orden Compra:[ti][f02 ] \g|\g
|
||||
\g|\gSuplidor:[p1]-[f01 ][a ] \g|\g
|
||||
\g|\gDepartamento De[f8 ] [p5 ] \g|\g
|
||||
\g|\gDepartamento a [f9 ] [p2 ] \g|\g
|
||||
\g|\gBodega:[k ] \g|\g
|
||||
\gb-------------------------------------------------------------------------d\g
|
||||
C A N T I D A D
|
||||
Codigo Ordenada Recibida/ Unidad D e s c r i p c i o n
|
||||
Ordenada
|
||||
\g------------------------------------------------------------------------------\g
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
||||
\g------------------------------------------------------------------------------\g
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006,
|
||||
cotb00001,
|
||||
intb00001,
|
||||
intb00005
|
||||
attributes
|
||||
f00 = intb00006.num_doc,
|
||||
comments = "Digite el Numero Documento";
|
||||
p1 = intb00006.cod_sp,noentry;
|
||||
f01 = intb00006.cod_sp_sec,noentry;
|
||||
f02 = intb00006.orden_compra,noentry;
|
||||
f03 = intb00006.conduce_no,autonext,
|
||||
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
|
||||
f04 = intb00006.fact_no,autonext,
|
||||
comments = "Digite el Numero de la Factura del Suplidor";
|
||||
f8 = intb00006.depto_de,autonext;
|
||||
f9 = intb00006.depto_a,autonext;
|
||||
p5 = formonly.nom_dpto,noentry;
|
||||
p2 = formonly.nom_dpto1,noentry;
|
||||
f05 = formonly.fecha type date,format = "dd/mm/yyyy",
|
||||
comments = "Digite la Fecha Correspondiente al Documento";
|
||||
f06 = intb00006.cantidad_1,
|
||||
comments = "Digite la Cantidad Pedida ";
|
||||
f07 = intb00006.cantidad_2,
|
||||
comments = "Digite la Cantidad Llegada desde el Suplidor";
|
||||
f08 = intb00001.unidad_med,noentry;
|
||||
a = cotb00001.nom_sp,noentry;
|
||||
b = intb00006.cod_n,autonext,comments =
|
||||
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
|
||||
|
||||
ti = intb00006.tipo,
|
||||
comments = "Digite 01-Generales 02-Rov-Ltd 03-Locales 04-Micelaneas";
|
||||
c = intb00006.cod_grupo,autonext,comments =
|
||||
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
|
||||
d = intb00006.cod_tipo,autonext,comments =
|
||||
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
|
||||
f = intb00006.cod_sec,autonext,comments =
|
||||
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
|
||||
g = intb00001.descrip_esp,noentry;
|
||||
t = intb00006.cod_mov,autonext;
|
||||
t1 = intb00005.descrip_mov,noentry;
|
||||
k = intb00006.bodega,autonext;
|
||||
INSTRUCTIONS
|
||||
screen record s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
||||
cantidad_2,unidad_med,descrip_esp)
|
||||
end
|
||||
@@ -0,0 +1,50 @@
|
||||
{
|
||||
========================================================================
|
||||
FORMULARIO : INFMMT057
|
||||
SISTEMA : Inventario Materia Prima (Inventario Perpetuo)
|
||||
OBJETIVO : Pantalla para digitar los resultados del inventario
|
||||
fisico perpetuo realizado en determinada semana del
|
||||
mes
|
||||
PROGRAMA Q. USA : INPRMT057
|
||||
PROGRAMADOR : Tadeo A. Ferreras
|
||||
FECHA : Mayo 9, 1993
|
||||
=========================================================================
|
||||
}
|
||||
database smarmotech
|
||||
screen
|
||||
{
|
||||
|
||||
Codigo [a]-[b]-[b1]-[b2 ]
|
||||
[b3 ] [b4 ] Categoria [e]
|
||||
Semana Del [c ] Al [c1 ]
|
||||
Existencia Actual [d ] Fisica [d1 ]
|
||||
[j]
|
||||
|
||||
Usuario Creador [usu ] Usuario Modificador [usm ]
|
||||
Fecha de Creacion[fech ] Fecha de Modificacion[fec1 ]
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
intb00014
|
||||
intb00015
|
||||
attributes
|
||||
a = intb00015.cod_n,autonext,color = yellow,include = (1),default = 1;
|
||||
b = intb00015.cod_grupo,autonext,color = yellow;
|
||||
b1 = intb00015.cod_tipo,autonext,color = yellow;
|
||||
b2 = intb00015.cod_sec,autonext,color = yellow;
|
||||
b3 = intb00001.unidad_med,color = yellow,noentry;
|
||||
b4 = intb00001.descrip_esp,color = yellow,noentry;
|
||||
e = intb00014.categoria,color = yellow,noentry;
|
||||
c = intb00015.semana_del,autonext,color = yellow,format = "dd-mm-yy";
|
||||
c1 = intb00015.semana_al,autonext,color=yellow,format="dd-mm-yy";
|
||||
d = intb00015.exis_act,color = yellow,noentry;
|
||||
d1 = intb00015.exis_fisica,color = yellow;
|
||||
j = intb00015.status_t,noentry;
|
||||
usu = intb00015.us_crea,noentry;
|
||||
fech = intb00015.fech_crea,noentry;
|
||||
usm = intb00015.us_mod,noentry;
|
||||
fec1 = intb00015.fech_mod,noentry;
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,24 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
A V I S O
|
||||
|
||||
Este proceso hace todo lo contrario al proceso de CIERRE ANUAL.
|
||||
Al finalizar es proceso todo quedara como estaba antes de ejecutar el
|
||||
proceso de cierre anual.
|
||||
|
||||
NADIE DEBE TRABAJAR EN ESTE SISTEMA MIENTRAS SE EJECUTA ESTE PROCESO.
|
||||
|
||||
Fecha de Corte [a ]
|
||||
|
||||
}
|
||||
end
|
||||
|
||||
tables
|
||||
intb00006
|
||||
|
||||
attributes
|
||||
a = formonly.fecha_cierre type date, format = "dd/mm/yy",
|
||||
comments = "Digite la Fecha de Corte para el Cierre Anual";
|
||||
end
|
||||
|
||||
@@ -0,0 +1,27 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
A V I S O
|
||||
|
||||
Este proceso pasa al historico todos los movimientos cuyas fechas sean
|
||||
no mayor a la ultima fecha de corte del ano 9999.
|
||||
Los movimientos 34 y 35 se pasaran al historico solamente si la orden
|
||||
de compra, a la que hacen referencia, esta cerrada.
|
||||
Antes de realizar este proceso, verifique con la Gerencia de Compras,
|
||||
que las ordenes que deben cerrarse manualmente, esten cerradas.
|
||||
|
||||
NADIE DEBE TRABAJAR EN ESTE SISTEMA MIENTRAS SE EJECUTA ESTE PROCESO.
|
||||
|
||||
Fecha de Corte [a ]
|
||||
|
||||
}
|
||||
end
|
||||
|
||||
tables
|
||||
intb00006
|
||||
|
||||
attributes
|
||||
a = formonly.fecha_cierre type date, format = "dd/mm/yy",
|
||||
comments = "Digite la Fecha de Corte para el Cierre Anual";
|
||||
end
|
||||
|
||||
@@ -0,0 +1,17 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo [a][b][c ][d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
a = intb00001.cod_n,
|
||||
comments = "Digite el NIVEL";
|
||||
b = intb00001.cod_grupo,
|
||||
comments = "Digite el GRUPO";
|
||||
c = intb00001.cod_tipo,
|
||||
comments = "Digite el TIPO ";
|
||||
d = intb00001.cod_sec,
|
||||
comments = "Digite el SECUENCIA";
|
||||
@@ -0,0 +1,19 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
Ordenamiento [k]
|
||||
Codigo [a][b][c ][d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
a = intb00001.cod_n;
|
||||
b = intb00001.cod_grupo;
|
||||
c = intb00001.cod_tipo;
|
||||
d = intb00001.cod_sec;
|
||||
k = formonly.decide type char,required,autonext,
|
||||
comments = "Digite A - Alfabetico N - Numerico",
|
||||
include = ("A","N"),upshift;
|
||||
end
|
||||
@@ -0,0 +1,30 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
Codigo [a ]-[b ]-[c ]-[d ]
|
||||
Codigo Mov [mo ]
|
||||
Bodega [bo ]
|
||||
0 50 100
|
||||
[p000 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006
|
||||
attributes
|
||||
PROGRESSBAR p000 = formonly.progreso,VALUEMIN=0,VALUEMAX=100,COLOR=GREEN;
|
||||
mo = formonly.cod_mov;
|
||||
k = formonly.fech_in type date,format = "dd/mm/yyyy",
|
||||
comments = "Introduzca Fecha Inicial ";
|
||||
p = formonly.fech_fi type date,format = "dd/mm/yyyy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
a = intb00006.cod_n,autonext;
|
||||
b = intb00006.cod_grupo,autonext;
|
||||
c = intb00006.cod_tipo,autonext;
|
||||
d = intb00006.cod_sec,AUTONEXT;
|
||||
COMBOBOX bo = formonly.bodega;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,24 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Inicial [k1 ]
|
||||
Fecha Final [k2 ]
|
||||
Dias Exceso [k3 ]
|
||||
Codigo de la Materia Prima [a]-[b]-[c ]-[d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
k1 = formonly.fech_in type date,format = "dd/mm/yy", autonext,
|
||||
comments = "Digite la fecha inicial. Utilice el formato 'DDMMAA'";
|
||||
k2 = formonly.fech_fi type date,format = "dd/mm/yy", autonext,
|
||||
comments = "Digite la fecha final. Utilice el formato 'DDMMAA'";
|
||||
k3 = formonly.c_dias;
|
||||
a = intb00001.cod_n, comments = "Digite el NIVEL";
|
||||
b = intb00001.cod_grupo,comments = "Digite el GRUPO";
|
||||
c = intb00001.cod_tipo, comments = "Digite el TIPO";
|
||||
d = intb00001.cod_sec,
|
||||
comments = "Digite la SECUENCIA";
|
||||
end
|
||||
|
||||
@@ -0,0 +1,17 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
FECHA DEL DIA : [k ]
|
||||
TIPO MOVIMIENTO : [k1]
|
||||
NUMERO DOCUMENTO : [p ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006
|
||||
attributes
|
||||
k = intb00006.fecha,format = "dd/mm/yy";
|
||||
k1 = intb00006.cod_mov;
|
||||
p = intb00006.num_doc;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,27 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo Materia Prima [a][b][c ][d ]
|
||||
Codigo Materia Prima Equivalente [g][h][i ][j ]
|
||||
Status Materia Prima Equivalente [k]
|
||||
}
|
||||
end
|
||||
|
||||
tables
|
||||
intb00004
|
||||
attributes
|
||||
a = intb00004.cod_n,autonext,comments = "Digite el NIVEL";
|
||||
b = intb00004.cod_grupo,autonext,comments = "Digite el GRUPO";
|
||||
c = intb00004.cod_tipo,autonext,comments = "Digite el TIPO";
|
||||
d = intb00004.cod_sec,autonext,comments = "Digite la SECUENCIA";
|
||||
g = intb00004.cod_n_e,autonext,
|
||||
comments = "Digite el NIVEL del Equivalente";
|
||||
h = intb00004.cod_grupo_e,autonext,
|
||||
comments = "Digite el GRUPO del Equivalente";
|
||||
i = intb00004.cod_tipo_e,autonext,
|
||||
comments = "Digite el TIPO del Equivalente";
|
||||
j = intb00004.cod_sec_e,autonext,
|
||||
comments = "Digite la SECUENCIA del Equivalente";
|
||||
k = intb00004.cod_uso_e, autonext,
|
||||
comments="0 = Equivalente esta en uso, 1 = Equivalente no esta en uso";
|
||||
end
|
||||
@@ -0,0 +1,27 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo Materia Prima [a][b][c ][d ]
|
||||
Codigo Materia Prima Sustituta [g][h][i ][j ]
|
||||
Status Materia Prima Sustituta [k]
|
||||
}
|
||||
end
|
||||
|
||||
tables
|
||||
intb00003
|
||||
attributes
|
||||
a = intb00003.cod_n,autonext,comments = "Digite el NIVEL";
|
||||
b = intb00003.cod_grupo,autonext,comments = "Digite el GRUPO";
|
||||
c = intb00003.cod_tipo,autonext,comments = "Digite el TIPO";
|
||||
d = intb00003.cod_sec,autonext,comments = "Digite la SECUENCIA";
|
||||
g = intb00003.cod_n_s,autonext,
|
||||
comments = "Digite el NIVEL del Sustituto";
|
||||
h = intb00003.cod_grupo_s,autonext,
|
||||
comments = "Digite el GRUPO del Sustituto";
|
||||
i = intb00003.cod_tipo_s,autonext,
|
||||
comments = "Digite el TIPO del Sustituto";
|
||||
j = intb00003.cod_sec_s,autonext,
|
||||
comments = "Digite la SECUENCIA del Sustituto";
|
||||
k = intb00003.cod_uso_s,autonext,
|
||||
comments="0 = Sustituto esta en uso, 1 = Sustituto no esta en uso";
|
||||
end
|
||||
@@ -0,0 +1,16 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
Ordenamiento [k]
|
||||
Codigo Movimiento [a ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00005
|
||||
attributes
|
||||
a = intb00005.cod_mov;
|
||||
k = formonly.decide type char,required,autonext,
|
||||
comments = "Digite A - Alfabetico N - Numerico",
|
||||
include = ("A","N"),upshift;
|
||||
end
|
||||
@@ -0,0 +1,47 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{cb60532b-adf7-4bfb-bd96-a1d1e42abe35}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="record1" uid="{d636bfed-9cbd-4441-ad6b-a81e722a79af}">
|
||||
<RecordField colName="fech_fi" fieldIdRef="4" name="fech_fi" sqlTabName="formonly" sqlType="DATE" uid="{8ec78c55-e0a5-44c5-9745-84ee517f17aa}"/>
|
||||
<RecordField colName="ptotal_c" fieldIdRef="1" name="ptotal_c" sqlTabName="formonly" uid="{ddcb39ab-ceb6-4173-9881-71e66addc32f}"/>
|
||||
<RecordField colName="total_p" fieldIdRef="2" name="total_p" sqlTabName="formonly" uid="{1fa01722-1227-4677-a650-e208656588a0}"/>
|
||||
<RecordField colName="cod_n" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00001.cod_n" sqlTabName="intb00001" uid="{e25cb1fa-039b-490f-b452-a14424beb0b9}"/>
|
||||
<RecordField colName="cod_grupo" fieldIdRef="6" fieldType="TABLE_COLUMN" name="intb00001.cod_grupo" sqlTabName="intb00001" uid="{f54dafeb-3aee-4946-ba20-feec09d067ef}"/>
|
||||
<RecordField colName="cod_tipo" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00001.cod_tipo" sqlTabName="intb00001" uid="{ca5a3f16-cb23-476f-a2eb-d3f6e9784fcc}"/>
|
||||
<RecordField colName="cod_sec" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00001.cod_sec" sqlTabName="intb00001" uid="{b0552a58-720d-471d-87f6-dff4e782d9ef}"/>
|
||||
<RecordField colName="progreso" fieldIdRef="0" name="progreso" sqlTabName="formonly" uid="{d317fc77-9dec-4a01-a63b-bbd7d04ef6d4}"/>
|
||||
<RecordField fieldIdRef="9" name="bodega" uid="{29e8d1d3-d3fb-4bb5-9a5e-5870d09c4012}"/>
|
||||
<RecordField fieldIdRef="3" name="tipoReporte" uid="{af73cc7b-ed97-4526-9306-7ceb3e14bb9d}"/>
|
||||
</Record>
|
||||
<Form gridHeight="24" gridWidth="80" name="infmrp009">
|
||||
<Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
|
||||
<Label gridHeight="1" gridWidth="11" name="label2" posX="9" posY="1" text="Fecha Final"/>
|
||||
<Edit colName="fech_fi" comment="Introduzca Fecha Final" fieldId="4" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="24" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="17" name="label3" posX="38" posY="1" text="Total Existencia"/>
|
||||
<Edit colName="ptotal_c" fieldId="1" gridHeight="1" gridWidth="10" name="ptotal_c" posX="56" posY="1" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="5" name="label4" posX="38" posY="2" text="Total"/>
|
||||
<Edit colName="total_p" fieldId="2" gridHeight="1" gridWidth="10" name="total_p" posX="56" posY="2" sqlTabName="formonly" tabIndex="3" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label1" posX="10" posY="4" text="Tipo Reporte"/>
|
||||
<ComboBox fieldId="3" gridHeight="1" gridWidth="26" items="DESGLOSE, SIN DESGLOSE" name="tipoReporte" posX="25" posY="4" required="true" tabIndex="-1" title="combobox1" widget="ComboBox">
|
||||
<Item lstrtext="false" name="DES" text="DESGLOSE"/>
|
||||
<Item lstrtext="false" name="SDE" text="SIN DESGLOSE"/>
|
||||
</ComboBox>
|
||||
<Label gridHeight="1" gridWidth="6" name="label5" posX="10" posY="5" text="Codigo"/>
|
||||
<Edit colName="cod_n" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_n" posX="25" posY="5" sqlTabName="intb00001" tabIndex="4" widget="Edit"/>
|
||||
<Edit colName="cod_grupo" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_grupo" posX="32" posY="5" sqlTabName="intb00001" tabIndex="5" widget="Edit"/>
|
||||
<Edit colName="cod_tipo" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_tipo" posX="39" posY="5" sqlTabName="intb00001" tabIndex="6" widget="Edit"/>
|
||||
<Edit colName="cod_sec" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_sec" posX="46" posY="5" sqlTabName="intb00001" tabIndex="7" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label12" posX="10" posY="6" text="Bodega"/>
|
||||
<ComboBox fieldId="9" gridHeight="1" gridWidth="31" items="" name="bodega" posX="25" posY="6" tabIndex="-1" title="combobox1" widget="ComboBox"/>
|
||||
<Label gridHeight="1" gridWidth="1" name="label9" posX="10" posY="8" text="0"/>
|
||||
<Label gridHeight="1" gridWidth="2" name="label10" posX="21" posY="8" text="50"/>
|
||||
<Label gridHeight="1" gridWidth="3" name="label11" posX="35" posY="8" text="100"/>
|
||||
<ProgressBar colName="progreso" color="green" fieldId="0" gridHeight="1" gridWidth="28" name="progreso" posX="10" posY="9" sqlTabName="formonly" valueMax="100" valueMin="0" widget="ProgressBar"/>
|
||||
</Grid>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewBkADYAMwA2AGIAZgBlAGQALQA5AGMAYgBkAC0ANAA0ADQAMQAtAGEAZAA2AGIALQBhADgAMQBlADcAMgAyAGEANwA5AGEAZgB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,29 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ] Total Existencia [ex ]
|
||||
Total [tot ]
|
||||
Codigo [a]-[b]-[c ]-[d ]
|
||||
0 50 100
|
||||
[p000 ]
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
PROGRESSBAR p000 = formonly.progreso,VALUEMIN=0,VALUEMAX=100,COLOR=GREEN;
|
||||
ex = formonly.ptotal_c;
|
||||
tot = formonly.total_p;
|
||||
k = formonly.fech_in type date,format = "dd/mm/yyyy",
|
||||
comments = "Introduzca Fecha Inicial ";
|
||||
p = formonly.fech_fi type date,format = "dd/mm/yyyy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
a = intb00001.cod_n;
|
||||
b = intb00001.cod_grupo;
|
||||
c = intb00001.cod_tipo;
|
||||
d = intb00001.cod_sec;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,25 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
Codigo Movimiento [g ]
|
||||
Codigo [a]-[b]-[c ]-[d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006
|
||||
attributes
|
||||
k = formonly.fech_in type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial ";
|
||||
p = formonly.fech_fi type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
g = intb00006.cod_mov;
|
||||
a = intb00006.cod_n;
|
||||
b = intb00006.cod_grupo;
|
||||
c = intb00006.cod_tipo;
|
||||
d = intb00006.cod_sec;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,27 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
Codigo Movimiento [g ]
|
||||
Codigo [a ]-[b ]-[c ]-[d ]
|
||||
Bodega [bo ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006
|
||||
attributes
|
||||
k = formonly.fech_in type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial ";
|
||||
p = formonly.fech_fi type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
g = intb00006.cod_mov;
|
||||
a = intb00006.cod_n;
|
||||
b = intb00006.cod_grupo;
|
||||
c = intb00006.cod_tipo;
|
||||
d = intb00006.cod_sec;
|
||||
COMBOBOX bo = formonly.bodega;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,23 @@
|
||||
{
|
||||
==========================================================================
|
||||
FORMULARIO : INFMRP012
|
||||
OBJETIVO : CAPTURAR FECHAS PARA EL REPORTE (INPRRP012)
|
||||
DISENO : JUAN F. SOTO
|
||||
FECHA : FEBRERO 9, 1995.
|
||||
==========================================================================
|
||||
}
|
||||
DATABASE smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
Ano Inicial [f1 ]
|
||||
Ano Final [f2 ]
|
||||
}
|
||||
tables
|
||||
intb00001
|
||||
|
||||
attributes
|
||||
f1 = formonly.p_ano,required;
|
||||
f2 = formonly.p_ano_act,required;
|
||||
end
|
||||
|
||||
@@ -0,0 +1,23 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
Codigo [a]-[b]-[c ]-[d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006
|
||||
attributes
|
||||
k = formonly.fech_in type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial ";
|
||||
p = formonly.fech_fi type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
a = intb00006.cod_n,autonext;
|
||||
b = intb00006.cod_grupo,autonext;
|
||||
c = intb00006.cod_tipo,autonext;
|
||||
d = intb00006.cod_sec,autonext;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,19 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
Fecha [f1 ]
|
||||
Codigo [a]-[b]-[c ]-[d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006
|
||||
attributes
|
||||
f1 = formonly.fech_fi type date,format = "dd/mm/yy";
|
||||
a = intb00006.cod_n;
|
||||
b = intb00006.cod_grupo;
|
||||
c = intb00006.cod_tipo;
|
||||
d = intb00006.cod_sec;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,15 @@
|
||||
database smarmotech
|
||||
screen
|
||||
{
|
||||
|
||||
Semana Inicial [b3 ]
|
||||
Semana Final [b4 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00015
|
||||
attributes
|
||||
b3 = formonly.semana_ini type date,color = yellow,format = "dd/mm/yy";
|
||||
b4 = formonly.semana_fin type date,color = yellow,format = "dd/mm/yy";
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,12 @@
|
||||
database smarmotech
|
||||
screen
|
||||
{
|
||||
Semana Inicial [b3 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00015
|
||||
attributes
|
||||
b3 = formonly.semana_ini type date,color = yellow,format = "dd/mm/yy";
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,28 @@
|
||||
{
|
||||
============================================================================
|
||||
FORMULARIO : INFMRP017
|
||||
OBJETIVO : Pantalla para la captura de valores para fines de im-
|
||||
presion de la fecha de los movimientois de las reso-
|
||||
luciones.
|
||||
PROGRAMA Q. UTILIZAN: inprrp017
|
||||
PROGRAMADOR : Tadeo A. Ferreras
|
||||
FECHA REALIZACION : Julio 24, 1993
|
||||
============================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00020
|
||||
attributes
|
||||
k = formonly.fecha1 type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial *Dia/Mes/ANO* ";
|
||||
p = formonly.fecha2 type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final *Dia/Mes/ANO*";
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,34 @@
|
||||
{
|
||||
============================================================================
|
||||
FORMULARIO : INFMRP017
|
||||
OBJETIVO : Pantalla para la captura de valores para fines de im-
|
||||
presion de la fecha de los movimientois de las reso-
|
||||
luciones.
|
||||
PROGRAMA Q. UTILIZAN: inprrp017
|
||||
PROGRAMADOR : Tadeo A. Ferreras
|
||||
FECHA REALIZACION : Julio 24, 1993
|
||||
============================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
Codigo del Material [a][b][c ][d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00020
|
||||
attributes
|
||||
a = intb00020.cod_n;
|
||||
b = intb00020.cod_grupo;
|
||||
c = intb00020.cod_tipo;
|
||||
d = intb00020.cod_sec;
|
||||
k = formonly.fecha1 type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial *Dia/Mes/ANO* ";
|
||||
p = formonly.fecha2 type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final *Dia/Mes/ANO*";
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,28 @@
|
||||
{
|
||||
============================================================================
|
||||
FORMULARIO : INFMRP019
|
||||
OBJETIVO : Pantalla para la captura de valores para fines de im-
|
||||
presion de un rango de fecha de la maestra de fianzas
|
||||
y resoluciones.
|
||||
PROGRAMA Q. UTILIZAN: inprrp019,inprrp020
|
||||
PROGRAMADOR : Tadeo A. Ferreras
|
||||
FECHA REALIZACION : Julio 24, 1993
|
||||
============================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00020
|
||||
attributes
|
||||
k = formonly.fecha1 type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial *Dia/Mes/ANO* ";
|
||||
p = formonly.fecha2 type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final *Dia/Mes/ANO*";
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,24 @@
|
||||
{
|
||||
============================================================================
|
||||
FORMULARIO : INFMRP022
|
||||
OBJETIVO : Pantalla para la captura del valor del numero de
|
||||
solicitud para fines de impresion de la misma.
|
||||
PROGRAMA Q. UTILIZAN: inprrp022
|
||||
PROGRAMADOR : Tadeo A. Ferreras
|
||||
FECHA REALIZACION : Julio 24, 1993
|
||||
============================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
Numero de Solicitud [k ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00020
|
||||
attributes
|
||||
k = formonly.solicitud type integer,
|
||||
comments = "Introduzca el numero de solicitud a imprimir";
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,27 @@
|
||||
{
|
||||
=============================================================================
|
||||
Formulario : infmrp023
|
||||
Sistema : Inventario de Material (Ley 69)
|
||||
Objetivo : Formulario a usar para Impresion de reporte referente
|
||||
a la formula de produccion segun CEDOPEX
|
||||
PROGRAMA Q. LO USA : INFMRP023
|
||||
Autor : Tadeo A. Ferreras
|
||||
Fecha : Julio 22,1993
|
||||
=============================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
|
||||
Codigo [a]-[b]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00016
|
||||
attributes
|
||||
a = intb00016.cod_n_p,autonext,include = (3),default = 3,comments =
|
||||
"Digite codigo del tipo de pila";
|
||||
b = intb00016.cod_grupo_p,autonext,include = (1,2,3),comments =
|
||||
"1 = Pila tipo D 2 = Pila tipo C 3 = Pila tipo AA";
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,29 @@
|
||||
{
|
||||
============================================================================
|
||||
FORMULARIO : INFMRP024
|
||||
OBJETIVO : Impresion de materiales con su categoria,
|
||||
Es usado por INPRRP024.
|
||||
PROGRAMADOR: Tadeo A. Ferreras
|
||||
FECHA : Oct. 26, 1993
|
||||
============================================================================
|
||||
}
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo [a][b][c ][d ]
|
||||
Categoria [e]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
a = intb00001.cod_n,autonext,
|
||||
comments = "Digite el NIVEL";
|
||||
b = intb00001.cod_grupo,autonext,
|
||||
comments = "Digite el GRUPO";
|
||||
c = intb00001.cod_tipo,autonext,
|
||||
comments = "Digite el TIPO ";
|
||||
d = intb00001.cod_sec,autonext,
|
||||
comments = "Digite el SECUENCIA";
|
||||
e = formonly.categoria,upshift,
|
||||
comments = "Digite la CATEGORIA";
|
||||
@@ -0,0 +1,30 @@
|
||||
{
|
||||
============================================================================
|
||||
FORMULARIO : INFMRP025
|
||||
OBJETIVO : Impresion de la diferencia entre el inventario real y ley 69
|
||||
Es usado por INPRRP024.
|
||||
PROGRAMADOR: Tadeo A. Ferreras
|
||||
FECHA : Oct. 26, 1993
|
||||
============================================================================
|
||||
}
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha de Corte[e ]
|
||||
Codigo [a][b][c ][d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00022
|
||||
attributes
|
||||
a = intb00022.cod_n,autonext,
|
||||
comments = "Digite el NIVEL";
|
||||
b = intb00022.cod_grupo,autonext,
|
||||
comments = "Digite el GRUPO";
|
||||
c = intb00022.cod_tipo,autonext,
|
||||
comments = "Digite el TIPO ";
|
||||
d = intb00022.cod_sec,autonext,
|
||||
comments = "Digite el SECUENCIA";
|
||||
e = formonly.fecha_corte type date,format = "dd/mm/yy",comments=
|
||||
"Digite la FECHA DE CORTE";
|
||||
end
|
||||
@@ -0,0 +1,16 @@
|
||||
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Codigo Materia Prima [a][b][c ][d ]
|
||||
}
|
||||
end
|
||||
|
||||
tables
|
||||
catb00001
|
||||
attributes
|
||||
a = catb00001.cod_n_mp,autonext,comments = "Digite el NIVEL";
|
||||
b = catb00001.cod_grupo_mp,autonext,comments = "Digite el GRUPO";
|
||||
c = catb00001.cod_tipo_mp,autonext,comments = "Digite el TIPO";
|
||||
d = catb00001.cod_sec_mp,autonext,comments = "Digite la SECUENCIA";
|
||||
end
|
||||
@@ -0,0 +1,23 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Articulo [a][b][c ][d ]
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006
|
||||
attributes
|
||||
a = intb00006.cod_n;
|
||||
b = intb00006.cod_grupo;
|
||||
c = intb00006.cod_tipo;
|
||||
d = intb00006.cod_sec;
|
||||
k = formonly.fech_in type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial ";
|
||||
p = formonly.fech_fi type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,26 @@
|
||||
database smarmotech
|
||||
LAYOUT (TEXT="INFORME EXISTENCIA ENTRADA/SALIDAS")
|
||||
GRID
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
Codigo [a ][b ][c ][d ]
|
||||
Bodega [bo ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
DATEEDIT k = formonly.fech_in type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial ";
|
||||
DATEEDIT p = formonly.fech_fi type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
a = intb00001.cod_n;
|
||||
b = intb00001.cod_grupo;
|
||||
c = intb00001.cod_tipo;
|
||||
d = intb00001.cod_sec;
|
||||
COMBOBOX bo= formonly.bodega;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,20 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Corte [p ]
|
||||
|
||||
Codigo [a]-[b]-[c ]-[d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
p = formonly.fech_fi type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
a = intb00001.cod_n;
|
||||
b = intb00001.cod_grupo;
|
||||
c = intb00001.cod_tipo;
|
||||
d = intb00001.cod_sec;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,23 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Corte [p ]
|
||||
Metodo [m]
|
||||
|
||||
Codigo [a]-[b]-[c ]-[d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
p = formonly.fech_fi type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
m = formonly.metodo type integer,include=(1,2),color=yellow,
|
||||
comments = "Digite 1-Metodo UEPS, 2-Metodo PEPS";
|
||||
a = intb00001.cod_n;
|
||||
b = intb00001.cod_grupo;
|
||||
c = intb00001.cod_tipo;
|
||||
d = intb00001.cod_sec;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,23 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Articulo [a][b][c ][d ]
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006
|
||||
attributes
|
||||
a = intb00006.cod_n;
|
||||
b = intb00006.cod_grupo;
|
||||
c = intb00006.cod_tipo;
|
||||
d = intb00006.cod_sec;
|
||||
k = formonly.fecha_1 type datetime year to day, comments =
|
||||
"Digite Fecha Inicial con el Sigte. Formato ANO-MES-DIA, EJ. 1994-12-01";
|
||||
p = formonly.fecha_2 type datetime year to day, comments =
|
||||
"Digite Fecha Final con el Sigte. Formato ANO-MES-DIA, EJ. 1994-12-31";
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,21 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Ano [an ]
|
||||
Mes Inicial [a0] Mes Final [a1]
|
||||
Producto Terminado [b]-[c]-[d ]-[e ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
iptb00004
|
||||
attributes
|
||||
an = formonly.p_ano,comments = "Entre Ano Formato: 1993",required;
|
||||
a0 = iptb00004.mes_ini,autonext;
|
||||
a1 = iptb00004.mes_fin,autonext;
|
||||
b = iptb00004.cod_n,autonext;
|
||||
c = iptb00004.cod_grupo,autonext;
|
||||
d = iptb00004.cod_tipo,autonext;
|
||||
e = iptb00004.cod_sec;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,23 @@
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
Mes [m1]
|
||||
Ano [an2 ]
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
Codigo [a][b][c ][d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
cttb00003
|
||||
attributes
|
||||
m1 = formonly.p_mes1,comments = "Digite Numero Del Mes Del Ano";
|
||||
an2 = formonly.p_ano1,comments = "Digite Ano Para El Reporte";
|
||||
k = formonly.fecha1 type date,format = "dd/mm/yy";
|
||||
p = formonly.fecha2 type date,format = "dd/mm/yy";
|
||||
a = formonly.cod_n,comments = "Digite Codigo del Producto";
|
||||
b = formonly.cod_grupo,comments = "Digite Codigo del Producto";
|
||||
c = formonly.cod_tipo,comments = "Digite Codigo del Producto";
|
||||
d = formonly.cod_sec,comments = "Digite Codigo del Producto";
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,16 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Inventario [k ]
|
||||
Tipo Inventario [p]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
k = formonly.fecha type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha de Inventario";
|
||||
p = formonly.decide type char,upshift,include = ("M","T","S"),comments =
|
||||
"Inventario: M = Mat. Primas, T = Prod. Terminados, S = Semi-Elaborados";
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,21 @@
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
Ordenamiento [k]
|
||||
Fecha Existencia [f1 ]
|
||||
Codigo [a][b][c ][d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00001
|
||||
attributes
|
||||
a = intb00001.cod_n;
|
||||
b = intb00001.cod_grupo;
|
||||
c = intb00001.cod_tipo;
|
||||
d = intb00001.cod_sec;
|
||||
f1 = formonly.fecha3 type date,format = "dd/mm/yy";
|
||||
k = formonly.decide type char,required,autonext,
|
||||
comments = "Digite A - Alfabetico N - Numerico",
|
||||
include = ("A","N"),upshift;
|
||||
end
|
||||
@@ -0,0 +1,28 @@
|
||||
{
|
||||
============================================================================
|
||||
FORMULARIO : INFMRP039
|
||||
OBJETIVO : Pantalla para la captura de valores para fines de im-
|
||||
presion de la fecha La Categoria de Conteo Perpetuo
|
||||
Fisico.
|
||||
PROGRAMA Q. UTILIZAN: inprrp039
|
||||
PROGRAMADOR : Maria Gomez
|
||||
FECHA REALIZACION : Agosto 20, 1996
|
||||
============================================================================
|
||||
}
|
||||
DATABASE exterior
|
||||
SCREEN
|
||||
{
|
||||
Fecha Inicial [f001 ]
|
||||
Fecha Final [f002 ]
|
||||
}
|
||||
END
|
||||
TABLES
|
||||
intb00014
|
||||
ATTRIBUTES
|
||||
f001 = FORMONLY.fecha_ini TYPE DATE,FORMAT = "dd/mm/yy",
|
||||
COMMENTS = "Introduzca Fecha Inicial *Dia/Mes/ANO* ";
|
||||
f002 = FORMONLY.fecha_fin TYPE DATE,FORMAT = "dd/mm/yy",
|
||||
COMMENTS = "Introduzca Fecha Final *Dia/Mes/ANO*";
|
||||
INSTRUCTIONS
|
||||
DELIMITERS " "
|
||||
END
|
||||
@@ -0,0 +1,33 @@
|
||||
{
|
||||
============================================================================
|
||||
FORMULARIO : INFMRP040
|
||||
OBJETIVO : Pantalla para la captura de valores para fines de im-
|
||||
presion de los movimientos resumidos de las fianzas
|
||||
PROGRAMA Q. UTILIZAN: inprrp040
|
||||
PROGRAMADOR : Juan F. Soto
|
||||
FECHA REALIZACION : Diciembre 20, 1996.
|
||||
============================================================================
|
||||
}
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
Codigo Material [a][b][c ][d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00020
|
||||
attributes
|
||||
a = intb00020.cod_n;
|
||||
b = intb00020.cod_grupo;
|
||||
c = intb00020.cod_tipo;
|
||||
d = intb00020.cod_sec;
|
||||
k = formonly.fecha1 type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial *Dia/Mes/ANO* ";
|
||||
p = formonly.fecha2 type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final *Dia/Mes/ANO*";
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,21 @@
|
||||
database exterior
|
||||
screen
|
||||
{
|
||||
Ano [a1 ]
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
Codigo [a][b][c ][d ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
cttb00003
|
||||
attributes
|
||||
a1 = formonly.p_ano,comments = "Digite Ano Actualizacion Balances";
|
||||
k = formonly.fecha1 type date,format = "dd/mm/yy";
|
||||
p = formonly.fecha2 type date,format = "dd/mm/yy";
|
||||
a = formonly.cod_n,comments = "Digite Codigo del Producto";
|
||||
b = formonly.cod_grupo,comments = "Digite Codigo del Producto";
|
||||
c = formonly.cod_tipo,comments = "Digite Codigo del Producto";
|
||||
d = formonly.cod_sec,comments = "Digite Codigo del Producto";
|
||||
instructions delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,47 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{cb60532b-adf7-4bfb-bd96-a1d1e42abe35}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="record1" uid="{d636bfed-9cbd-4441-ad6b-a81e722a79af}">
|
||||
<RecordField colName="fech_fi" fieldIdRef="4" name="fech_fi" sqlTabName="formonly" sqlType="DATE" uid="{8ec78c55-e0a5-44c5-9745-84ee517f17aa}"/>
|
||||
<RecordField colName="ptotal_c" fieldIdRef="1" name="ptotal_c" sqlTabName="formonly" uid="{ddcb39ab-ceb6-4173-9881-71e66addc32f}"/>
|
||||
<RecordField colName="total_p" fieldIdRef="2" name="total_p" sqlTabName="formonly" uid="{1fa01722-1227-4677-a650-e208656588a0}"/>
|
||||
<RecordField colName="cod_n" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00001.cod_n" sqlTabName="intb00001" uid="{e25cb1fa-039b-490f-b452-a14424beb0b9}"/>
|
||||
<RecordField colName="cod_grupo" fieldIdRef="6" fieldType="TABLE_COLUMN" name="intb00001.cod_grupo" sqlTabName="intb00001" uid="{f54dafeb-3aee-4946-ba20-feec09d067ef}"/>
|
||||
<RecordField colName="cod_tipo" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00001.cod_tipo" sqlTabName="intb00001" uid="{ca5a3f16-cb23-476f-a2eb-d3f6e9784fcc}"/>
|
||||
<RecordField colName="cod_sec" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00001.cod_sec" sqlTabName="intb00001" uid="{b0552a58-720d-471d-87f6-dff4e782d9ef}"/>
|
||||
<RecordField colName="progreso" fieldIdRef="0" name="progreso" sqlTabName="formonly" uid="{d317fc77-9dec-4a01-a63b-bbd7d04ef6d4}"/>
|
||||
<RecordField fieldIdRef="9" name="bodega" uid="{29e8d1d3-d3fb-4bb5-9a5e-5870d09c4012}"/>
|
||||
<RecordField fieldIdRef="3" name="tipoReporte" uid="{af73cc7b-ed97-4526-9306-7ceb3e14bb9d}"/>
|
||||
</Record>
|
||||
<Form gridHeight="24" gridWidth="80" name="infmrp009">
|
||||
<Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
|
||||
<Label gridHeight="1" gridWidth="11" name="label2" posX="9" posY="1" text="Fecha Final"/>
|
||||
<Edit colName="fech_fi" comment="Introduzca Fecha Final" fieldId="4" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="24" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="17" name="label3" posX="38" posY="1" text="Total Existencia"/>
|
||||
<Edit colName="ptotal_c" fieldId="1" gridHeight="1" gridWidth="10" name="ptotal_c" posX="56" posY="1" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="5" name="label4" posX="38" posY="2" text="Total"/>
|
||||
<Edit colName="total_p" fieldId="2" gridHeight="1" gridWidth="10" name="total_p" posX="56" posY="2" sqlTabName="formonly" tabIndex="3" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label1" posX="10" posY="4" text="Tipo Reporte"/>
|
||||
<ComboBox fieldId="3" gridHeight="1" gridWidth="26" items="DESGLOSE, SIN DESGLOSE" name="tipoReporte" posX="25" posY="4" required="true" tabIndex="-1" title="combobox1" widget="ComboBox">
|
||||
<Item lstrtext="false" name="DES" text="DESGLOSE"/>
|
||||
<Item lstrtext="false" name="SDE" text="SIN DESGLOSE"/>
|
||||
</ComboBox>
|
||||
<Label gridHeight="1" gridWidth="6" name="label5" posX="10" posY="5" text="Codigo"/>
|
||||
<Edit colName="cod_n" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_n" posX="25" posY="5" sqlTabName="intb00001" tabIndex="4" widget="Edit"/>
|
||||
<Edit colName="cod_grupo" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_grupo" posX="32" posY="5" sqlTabName="intb00001" tabIndex="5" widget="Edit"/>
|
||||
<Edit colName="cod_tipo" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_tipo" posX="39" posY="5" sqlTabName="intb00001" tabIndex="6" widget="Edit"/>
|
||||
<Edit colName="cod_sec" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_sec" posX="46" posY="5" sqlTabName="intb00001" tabIndex="7" widget="Edit"/>
|
||||
<Label gridHeight="1" gridWidth="10" name="label12" posX="10" posY="6" text="Bodega"/>
|
||||
<ComboBox fieldId="9" gridHeight="1" gridWidth="31" items="" name="bodega" posX="25" posY="6" tabIndex="-1" title="combobox1" widget="ComboBox"/>
|
||||
<Label gridHeight="1" gridWidth="1" name="label9" posX="10" posY="8" text="0"/>
|
||||
<Label gridHeight="1" gridWidth="2" name="label10" posX="21" posY="8" text="50"/>
|
||||
<Label gridHeight="1" gridWidth="3" name="label11" posX="35" posY="8" text="100"/>
|
||||
<ProgressBar colName="progreso" color="green" fieldId="0" gridHeight="1" gridWidth="28" name="progreso" posX="10" posY="9" sqlTabName="formonly" valueMax="100" valueMin="0" widget="ProgressBar"/>
|
||||
</Grid>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewBkADYAMwA2AGIAZgBlAGQALQA5AGMAYgBkAC0ANAA0ADQAMQAtAGEAZAA2AGIALQBhADgAMQBlADcAMgAyAGEANwA5AGEAZgB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,27 @@
|
||||
database smarmotech
|
||||
screen size 24 by 80
|
||||
{
|
||||
Fecha Inicial [k ]
|
||||
Fecha Final [p ]
|
||||
|
||||
Codigo Movimiento [g ]
|
||||
Codigo [a ]-[b ]-[c ]-[d ]
|
||||
Bodega [bo ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
intb00006
|
||||
attributes
|
||||
k = formonly.fech_in type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Inicial ";
|
||||
p = formonly.fech_fi type date,format = "dd/mm/yy",
|
||||
comments = "Introduzca Fecha Final";
|
||||
g = intb00006.cod_mov;
|
||||
a = intb00006.cod_n;
|
||||
b = intb00006.cod_grupo;
|
||||
c = intb00006.cod_tipo;
|
||||
d = intb00006.cod_sec;
|
||||
COMBOBOX bo = formonly.bodega;
|
||||
instructions
|
||||
delimiters " "
|
||||
end
|
||||
@@ -0,0 +1,28 @@
|
||||
{
|
||||
============================================================================
|
||||
FORMULARIO : INFMRP333
|
||||
OBJETIVO : Pantalla para la captura de valores para fines de im-
|
||||
presion de la fecha La Categoria de Conteo Perpetuo
|
||||
Fisico.
|
||||
PROGRAMA Q. UTILIZAN: inprrp333
|
||||
PROGRAMADOR : Maria Gomez
|
||||
FECHA REALIZACION : Agosto 20, 1996
|
||||
============================================================================
|
||||
}
|
||||
DATABASE exterior
|
||||
SCREEN
|
||||
{
|
||||
Fecha Inicial [f001 ]
|
||||
Fecha Final [f002 ]
|
||||
}
|
||||
END
|
||||
TABLES
|
||||
intb00014
|
||||
ATTRIBUTES
|
||||
f001 = FORMONLY.fecha_ini TYPE DATE,FORMAT = "dd/mm/yy",
|
||||
COMMENTS = "Introduzca Fecha Inicial *Dia/Mes/ANO* ";
|
||||
f002 = FORMONLY.fecha_fin TYPE DATE,FORMAT = "dd/mm/yy",
|
||||
COMMENTS = "Introduzca Fecha Final *Dia/Mes/ANO*";
|
||||
INSTRUCTIONS
|
||||
DELIMITERS " "
|
||||
END
|
||||
@@ -0,0 +1,36 @@
|
||||
{
|
||||
=============================================================================
|
||||
FORMULARIO : INFMWD001
|
||||
OBJETIVO : Desplegar los codigos y nombres de la maestra de
|
||||
compania aseguradoras
|
||||
PROGRAMA Q. LO USA : INPRMT020
|
||||
AUTOR : Tadeo A. Ferreras
|
||||
FECHA : Agosto 30, 1993
|
||||
=============================================================================
|
||||
}
|
||||
DATABASE exterior
|
||||
SCREEN
|
||||
{
|
||||
\g-------------------------------------------\g
|
||||
Codigo Nombre
|
||||
\g-------------------------------------------\g
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
cotb00022
|
||||
attributes
|
||||
cod = cotb00022.cod_ca;
|
||||
nom = cotb00022.nom_ca,noentry;
|
||||
instructions delimiters " "
|
||||
screen record datos_comp1[8](cod_ca,nom_ca)
|
||||
end
|
||||
|
||||
|
||||
@@ -0,0 +1,37 @@
|
||||
|
||||
{
|
||||
=============================================================================
|
||||
FORMULARIO : INFMWD002
|
||||
OBJETIVO : Desplegar los codigos y nombres de la maestra de
|
||||
paises
|
||||
PROGRAMA Q. LO USA : INPRMT020
|
||||
AUTOR : Tadeo A. Ferreras
|
||||
FECHA : Agosto 30, 1993
|
||||
=============================================================================
|
||||
}
|
||||
DATABASE exterior
|
||||
SCREEN
|
||||
{
|
||||
\g-------------------------------------------\g
|
||||
Codigo Nombre
|
||||
\g-------------------------------------------\g
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
[cod ] [nom ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
cotb00018
|
||||
attributes
|
||||
cod = cotb00018.cod_pais;
|
||||
nom = cotb00018.nom_pais,noentry;
|
||||
instructions delimiters " "
|
||||
screen record datos_pais1[8](cod_pais,nom_pais)
|
||||
end
|
||||
|
||||
|
||||
@@ -0,0 +1,39 @@
|
||||
|
||||
|
||||
{
|
||||
=============================================================================
|
||||
FORMULARIO : INFMWD003
|
||||
OBJETIVO : Desplegar los codigos y nombres de la maestra de
|
||||
suplidores
|
||||
PROGRAMA Q. LO USA : INPRMT020
|
||||
AUTOR : Tadeo A. Ferreras
|
||||
FECHA : Agosto 30, 1993
|
||||
=============================================================================
|
||||
}
|
||||
DATABASE exterior
|
||||
SCREEN
|
||||
{
|
||||
\g-----------------------------------------------\g
|
||||
Codigo Nombre
|
||||
\g-----------------------------------------------\g
|
||||
[sp]-[cod ] [nom ]
|
||||
[sp]-[cod ] [nom ]
|
||||
[sp]-[cod ] [nom ]
|
||||
[sp]-[cod ] [nom ]
|
||||
[sp]-[cod ] [nom ]
|
||||
[sp]-[cod ] [nom ]
|
||||
[sp]-[cod ] [nom ]
|
||||
[sp]-[cod ] [nom ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
cotb00001
|
||||
attributes
|
||||
sp = cotb00001.cod_sp,comments = "Digite tipo de Suplidor";
|
||||
cod = cotb00001.cod_sp_sec,noentry;
|
||||
nom = cotb00001.nom_sp,noentry;
|
||||
instructions delimiters " "
|
||||
screen record datos_sp1[8](cod_sp,cod_sp_sec,nom_sp)
|
||||
end
|
||||
|
||||
|
||||
@@ -0,0 +1,26 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{b0473042-41e7-4976-861a-20af802c5167}">
|
||||
<AGSettings>
|
||||
<DynamicProperties version="2"/>
|
||||
</AGSettings>
|
||||
<Record name="datos_mt1" uid="{17766461-d0bc-46b1-a670-9038ed1ecf4e}">
|
||||
<RecordField colName="cod_n" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00022.cod_n" sqlTabName="intb00022" uid="{9dc027bb-292a-4a9a-a4e0-b19b52976261}"/>
|
||||
<RecordField colName="cod_grupo" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00022.cod_grupo" sqlTabName="intb00022" uid="{34264317-306e-4260-9862-1a97b308c379}"/>
|
||||
<RecordField colName="cod_tipo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00022.cod_tipo" sqlTabName="intb00022" uid="{537ebe8c-404a-469c-95e3-bc8238cbe055}"/>
|
||||
<RecordField colName="cod_sec" fieldIdRef="3" fieldType="TABLE_COLUMN" name="intb00022.cod_sec" sqlTabName="intb00022" uid="{07dc662d-4a47-4712-a4b4-0f807ba04ae8}"/>
|
||||
<RecordField colName="descrip_esp" fieldIdRef="4" fieldType="TABLE_COLUMN" name="intb00022.descrip_esp" sqlTabName="intb00022" uid="{3f99fe90-a3fa-47c7-99dd-fd52a3b2dc20}"/>
|
||||
<RecordField colName="unidad_med" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00022.unidad_med" sqlTabName="intb00022" uid="{24bad93f-9ae7-42ef-976c-c98a233d98e1}"/>
|
||||
</Record>
|
||||
<Form gridHeight="9" gridWidth="62" name="infmwd004" text="BUSCA PRODUCTOS">
|
||||
<Grid gridHeight="9" gridWidth="62" name="grid1" posX="0" posY="0">
|
||||
<Table gridHeight="9" gridWidth="60" name="table1" posX="2" posY="0" totalRows="8" unitWidth="characters" width="60">
|
||||
<Edit autoNext="true" colName="cod_n" comment="Digite nivel del material" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="intb00022.cod_n" posX="0" posY="0" sqlTabName="intb00022" tabIndex="1" title="CODIGO" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_grupo" comment="Digite grupo del material" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="intb00022.cod_grupo" posX="1" posY="0" sqlTabName="intb00022" tabIndex="2" widget="Edit"/>
|
||||
<Edit autoNext="true" colName="cod_tipo" comment="Digite tipo del material" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00022.cod_tipo" posX="2" posY="0" sqlTabName="intb00022" tabIndex="3" widget="Edit"/>
|
||||
<Edit colName="cod_sec" comment="Digite secuencia del material" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00022.cod_sec" posX="5" posY="0" sqlTabName="intb00022" tabIndex="4" widget="Edit"/>
|
||||
<Edit case="upper" colName="descrip_esp" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="30" name="intb00022.descrip_esp" posX="8" posY="0" sqlTabName="intb00022" tabIndex="5" title="NOMBRE" widget="Edit"/>
|
||||
<Edit colName="unidad_med" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00022.unidad_med" noEntry="true" posX="38" posY="0" sqlTabName="intb00022" tabIndex="6" widget="Edit"/>
|
||||
</Table>
|
||||
</Grid>
|
||||
</Form>
|
||||
</ManagedForm>
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user