jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reorganiza MATERIA PRIMA a PROYECTO y avanza inprmt002/005/013/046

Browse Source 
- Mueve todo el contenido de PROYECTOS/indir y varias funciones
  compartidas de PROYECTOS/otrodir hacia PROYECTO, siguiendo
  instruccion de Johnny (PROYECTOS se va a eliminar).
- inprmt002: agrega campo Desglose faltante, corrige typo "eLiminar".
- inprmt005: agrega formulario y 3 campos faltantes (Consumo,
  Requiere Autorizacion, Requisiciones), corrige typo "eLiminar".
- inprmt013: agrega formulario, titulo, corrige typo "eLiminar".
- inprmt046: agrega formulario y varias funciones/dependencias
  faltantes (cincodmov, clasf_bloque, medidas, defecto,
  buscaEmp, consultaTransportista, busca_departamento);
  corrige nombres de campo desalineados con el codigo
  (depto_a, bodega) y los convierte a ComboBox donde el
  codigo lo requiere.
- Corrige dependencia faltante de FORMULARIOS_IN a la libreria
  Database (bloqueaba todo el modulo de MATERIA PRIMA).
This commit is contained in:
jpeguero
2026-08-26 13:31:09 -04:00
parent 43d5a218e7
commit efdf8953dd
245 changed files with 416 additions and 230 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTOS/indir/bodegas.4gl
-30
View File
@@ -1,30 +0,0 @@
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
PROYECTOS/indir/cincodmov.4gl
-19
View File
@@ -1,19 +0,0 @@
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
PROYECTOS/indir/edprrp001.4gl
-577
View File
@@ -1,577 +0,0 @@
{
-------------------------------------------------------------------------------
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
PROYECTOS/indir/imprequisicion_prima.4gl
-165
View File
@@ -1,165 +0,0 @@
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
PROYECTOS/indir/infm.per
-23
View File
@@ -1,23 +0,0 @@
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
PROYECTOS/indir/infmcs001.per
-63
View File
@@ -1,63 +0,0 @@
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
PROYECTOS/indir/infmcs004.per
-52
View File
@@ -1,52 +0,0 @@
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
PROYECTOS/indir/infmcs006.4fd
-61
View File
@@ -1,61 +0,0 @@
<?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>
PROYECTOS/indir/infmcs006.per
-47
View File
@@ -1,47 +0,0 @@
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
PROYECTOS/indir/infmcs006_1.4fd
-57
View File
@@ -1,57 +0,0 @@
<?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>
PROYECTOS/indir/infmcs007.per
-55
View File
@@ -1,55 +0,0 @@
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
PROYECTOS/indir/infmcs008.per
-6
View File
@@ -1,6 +0,0 @@
schema smarmotech
{
}
INSTRUCTIONS;
delimiters " "
end
PROYECTOS/indir/infmcs011.per
-68
View File
@@ -1,68 +0,0 @@
{
-------------------------------------------------------------------------
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
PROYECTOS/indir/infmcs017.per
-17
View File
@@ -1,17 +0,0 @@
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
PROYECTOS/indir/infmcs021.per
-67
View File
@@ -1,67 +0,0 @@
{
--------------------------------------------------------------------------
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
PROYECTOS/indir/infmcs031.per
-65
View File
@@ -1,65 +0,0 @@
{
-------------------------------------------------------------------------
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
PROYECTOS/indir/infmcs041.per
-51
View File
@@ -1,51 +0,0 @@
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
PROYECTOS/indir/infmmt001.per
-40
View File
@@ -1,40 +0,0 @@
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
PROYECTOS/indir/infmmt002.4fd
-107
View File
@@ -1,107 +0,0 @@
<?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>
PROYECTOS/indir/infmmt002.per
-91
View File
@@ -1,91 +0,0 @@
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
PROYECTOS/indir/infmmt003.4fd
-63
View File
@@ -1,63 +0,0 @@
<?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>
PROYECTOS/indir/infmmt003.per
-50
View File
@@ -1,50 +0,0 @@
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
PROYECTOS/indir/infmmt004.per
-50
View File
@@ -1,50 +0,0 @@
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
PROYECTOS/indir/infmmt005.4fd
-53
View File
@@ -1,53 +0,0 @@
<?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>
PROYECTOS/indir/infmmt005.per
-35
View File
@@ -1,35 +0,0 @@
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
PROYECTOS/indir/infmmt006.per
-79
View File
@@ -1,79 +0,0 @@
{
----------------------------------------------------------------------------
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
PROYECTOS/indir/infmmt007.per
-28
View File
@@ -1,28 +0,0 @@
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
PROYECTOS/indir/infmmt008.per
-48
View File
@@ -1,48 +0,0 @@
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
PROYECTOS/indir/infmmt010.per
-58
View File
@@ -1,58 +0,0 @@
{
------------------------------------------------------------------
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
PROYECTOS/indir/infmmt011.per
-41
View File
@@ -1,41 +0,0 @@
{
===========================================================================
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
PROYECTOS/indir/infmmt012.per
-52
View File
@@ -1,52 +0,0 @@
{
===========================================================================
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
PROYECTOS/indir/infmmt013.per
-39
View File
@@ -1,39 +0,0 @@
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
PROYECTOS/indir/infmmt014.per
-76
View File
@@ -1,76 +0,0 @@
{
------------------------------------------------------------------
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
PROYECTOS/indir/infmmt015.per
-36
View File
@@ -1,36 +0,0 @@
{
===========================================================================
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
PROYECTOS/indir/infmmt016.per
-53
View File
@@ -1,53 +0,0 @@
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
PROYECTOS/indir/infmmt017.per
-51
View File
@@ -1,51 +0,0 @@
{
===========================================================================
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
PROYECTOS/indir/infmmt018.per
-57
View File
@@ -1,57 +0,0 @@
{
=========================================================================
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
PROYECTOS/indir/infmmt019.per
-48
View File
@@ -1,48 +0,0 @@
{
========================================================================
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
PROYECTOS/indir/infmmt020.4fd
-128
View File
@@ -1,128 +0,0 @@
<?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>
PROYECTOS/indir/infmmt020.per
-12
View File
@@ -1,12 +0,0 @@
database exterior
screen size 24 by 80
{
Ano Proceso [f000]
}
end
tables
iptb00002
attributes
f000 = formonly.p_ano,comments = "Digite Ano a Cerrar";
end
PROYECTOS/indir/infmmt021.per
-36
View File
@@ -1,36 +0,0 @@
{
===========================================================================
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
PROYECTOS/indir/infmmt022.per
-57
View File
@@ -1,57 +0,0 @@
{
=========================================================================
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
PROYECTOS/indir/infmmt023.per
-58
View File
@@ -1,58 +0,0 @@
{
------------------------------------------------------------------
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
PROYECTOS/indir/infmmt024.per
-36
View File
@@ -1,36 +0,0 @@
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
PROYECTOS/indir/infmmt026.per
-65
View File
@@ -1,65 +0,0 @@
{
------------------------------------------------------------------------------
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
PROYECTOS/indir/infmmt029.per
-28
View File
@@ -1,28 +0,0 @@
{
---------------------------------------------------------------------------
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
PROYECTOS/indir/infmmt030.per
-39
View File
@@ -1,39 +0,0 @@
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
PROYECTOS/indir/infmmt036.4fd
-75
View File
@@ -1,75 +0,0 @@
<?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>
PROYECTOS/indir/infmmt036.per
-73
View File
@@ -1,73 +0,0 @@
{
----------------------------------------------------------------------
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
PROYECTOS/indir/infmmt046.4fd
-88
View File
@@ -1,88 +0,0 @@
<?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>
PROYECTOS/indir/infmmt046.per
-65
View File
@@ -1,65 +0,0 @@
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
PROYECTOS/indir/infmmt056.per
-78
View File
@@ -1,78 +0,0 @@
{
----------------------------------------------------------------------------
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
PROYECTOS/indir/infmmt057.per
-50
View File
@@ -1,50 +0,0 @@
{
========================================================================
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
PROYECTOS/indir/infmmt098.per
-24
View File
@@ -1,24 +0,0 @@
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
PROYECTOS/indir/infmmt099.per
-27
View File
@@ -1,27 +0,0 @@
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
PROYECTOS/indir/infmrp001.per
-17
View File
@@ -1,17 +0,0 @@
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";
PROYECTOS/indir/infmrp002.per
-19
View File
@@ -1,19 +0,0 @@
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
PROYECTOS/indir/infmrp003.per
-30
View File
@@ -1,30 +0,0 @@
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
PROYECTOS/indir/infmrp004.per
-24
View File
@@ -1,24 +0,0 @@
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
PROYECTOS/indir/infmrp005.per
-17
View File
@@ -1,17 +0,0 @@
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
PROYECTOS/indir/infmrp006.per
-27
View File
@@ -1,27 +0,0 @@
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
PROYECTOS/indir/infmrp007.per
-27
View File
@@ -1,27 +0,0 @@
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
PROYECTOS/indir/infmrp008.per
-16
View File
@@ -1,16 +0,0 @@
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
PROYECTOS/indir/infmrp009.4fd
-47
View File
@@ -1,47 +0,0 @@
<?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>
PROYECTOS/indir/infmrp009.per
-29
View File
@@ -1,29 +0,0 @@
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
PROYECTOS/indir/infmrp010.per
-25
View File
@@ -1,25 +0,0 @@
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
PROYECTOS/indir/infmrp011.per
-27
View File
@@ -1,27 +0,0 @@
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
PROYECTOS/indir/infmrp012.per
-23
View File
@@ -1,23 +0,0 @@
{
==========================================================================
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
PROYECTOS/indir/infmrp013.per
-23
View File
@@ -1,23 +0,0 @@
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
PROYECTOS/indir/infmrp014.per
-19
View File
@@ -1,19 +0,0 @@
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
PROYECTOS/indir/infmrp015.per
-15
View File
@@ -1,15 +0,0 @@
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
PROYECTOS/indir/infmrp016.per
-12
View File
@@ -1,12 +0,0 @@
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
PROYECTOS/indir/infmrp017.per
-28
View File
@@ -1,28 +0,0 @@
{
============================================================================
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
PROYECTOS/indir/infmrp018.per
-34
View File
@@ -1,34 +0,0 @@
{
============================================================================
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
PROYECTOS/indir/infmrp019.per
-28
View File
@@ -1,28 +0,0 @@
{
============================================================================
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
PROYECTOS/indir/infmrp022.per
-24
View File
@@ -1,24 +0,0 @@
{
============================================================================
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
PROYECTOS/indir/infmrp023.per
-27
View File
@@ -1,27 +0,0 @@
{
=============================================================================
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
PROYECTOS/indir/infmrp024.per
-29
View File
@@ -1,29 +0,0 @@
{
============================================================================
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";
PROYECTOS/indir/infmrp025.per
-30
View File
@@ -1,30 +0,0 @@
{
============================================================================
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
PROYECTOS/indir/infmrp026.per
-16
View File
@@ -1,16 +0,0 @@
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
PROYECTOS/indir/infmrp027.per
-23
View File
@@ -1,23 +0,0 @@
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
PROYECTOS/indir/infmrp028.per
-26
View File
@@ -1,26 +0,0 @@
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
PROYECTOS/indir/infmrp029.per
-20
View File
@@ -1,20 +0,0 @@
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
PROYECTOS/indir/infmrp030.per
-23
View File
@@ -1,23 +0,0 @@
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
PROYECTOS/indir/infmrp031.per
-23
View File
@@ -1,23 +0,0 @@
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
PROYECTOS/indir/infmrp032.per
-21
View File
@@ -1,21 +0,0 @@
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
PROYECTOS/indir/infmrp034.per
-23
View File
@@ -1,23 +0,0 @@
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
PROYECTOS/indir/infmrp036.per
-16
View File
@@ -1,16 +0,0 @@
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
PROYECTOS/indir/infmrp038.per
-21
View File
@@ -1,21 +0,0 @@
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
PROYECTOS/indir/infmrp039.per
-28
View File
@@ -1,28 +0,0 @@
{
============================================================================
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
PROYECTOS/indir/infmrp040.per
-33
View File
@@ -1,33 +0,0 @@
{
============================================================================
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
PROYECTOS/indir/infmrp041.per
-21
View File
@@ -1,21 +0,0 @@
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
PROYECTOS/indir/infmrp045.4fd
-47
View File
@@ -1,47 +0,0 @@
<?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>
PROYECTOS/indir/infmrp046.per
-27
View File
@@ -1,27 +0,0 @@
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
PROYECTOS/indir/infmrp333.per
-28
View File
@@ -1,28 +0,0 @@
{
============================================================================
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
PROYECTOS/indir/infmwd001.per
-36
View File
@@ -1,36 +0,0 @@
{
=============================================================================
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
PROYECTOS/indir/infmwd002.per
-37
View File
@@ -1,37 +0,0 @@
{
=============================================================================
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
PROYECTOS/indir/infmwd003.per
-39
View File
@@ -1,39 +0,0 @@
{
=============================================================================
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
PROYECTOS/indir/infmwd004.4fd
-26
View File
@@ -1,26 +0,0 @@
<?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>
PROYECTOS/indir/infmwd004.per
-42
View File
@@ -1,42 +0,0 @@
{
=============================================================================
FORMULARIO : INFMWD004
OBJETIVO : Desplegar los codigos y nombres de la maestra de
materiales
PROGRAMA Q. LO USA : INPRMT020
AUTOR : Tadeo A. Ferreras
FECHA : Agosto 30, 1993
=============================================================================
}
SCHEMA smarmotech
LAYOUT (TEXT="BUSCA PRODUCTOS")
GRID
{
<t >
[n][g][t ][co ][nom ][uni]
[n][g][t ][co ][nom ][uni]
[n][g][t ][co ][nom ][uni]
[n][g][t ][co ][nom ][uni]
[n][g][t ][co ][nom ][uni]
[n][g][t ][co ][nom ][uni]
[n][g][t ][co ][nom ][uni]
[n][g][t ][co ][nom ][uni]
}
END
end
tables
intb00022
attributes
n = intb00022.cod_n,TITLE="CODIGO",autonext,comments = "Digite nivel del material";
g = intb00022.cod_grupo,autonext,comments = "Digite grupo del material";
t = intb00022.cod_tipo,autonext,comments = "Digite tipo del material";
co = intb00022.cod_sec,comments = "Digite secuencia del material";
nom = intb00022.descrip_esp,TITLE="NOMBRE",upshift;
uni = intb00022.unidad_med,noentry;
instructions
screen record datos_mt1[8](cod_n,cod_grupo,cod_tipo,cod_sec,
descrip_esp,unidad_med)
end

Some files were not shown because too many files have changed in this diff Show More