primer commit subida

This commit is contained in:
Luis
2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
File diff suppressed because it is too large Load Diff
+29
View File
@@ -0,0 +1,29 @@
0.993
5^20^
Ano
Mes
Activo
Cuenta
screenFields 4
an^1^1^11^4^1^0^0^1^0^-32768^0^0^^Digite Ano Para Busqueda de Informacion^^^^^Entry^^^0^^
11^1^4
me^2^2^11^2^1^0^0^1^0^-32768^0^0^^Digite Mes Para Busqueda de Informacion^^^^^Entry^^^0^^
11^2^2
f^1^3^11^5^1^0^0^1^2^-32768^0^1^^Digite el codigo del activo^^^^^Entry^^^0^^
11^3^5
ct^2^4^11^8^1^0^0^1^0^-32768^0^0^^Digite la cuenta contable^^^^^Entry^^^0^^
11^4^8
formFields 4
p_ano1^an
p_mes1^me
codigo^f
cuenta_no^ct
screenRecords 2
actb00001^2^0^1^1^0^0^0^0
codigo^f
cuenta_no^ct
formonly^2^0^1^1^0^0^0^0
p_ano1^an
p_mes1^me
keyLabels 0
+326
View File
@@ -0,0 +1,326 @@
{
-------------------------------------------------------------------------------
PROGRAMA : IPpRRP010
OBJETIVO : Detallado por Tipo de Movimiento
PROGRAMADOR : Ing. Juan Fco. Soto
FECHA REALIZACION : Abril 28, 1993
-------------------------------------------------------------------------------
}
GLOBALS "ipprgb000.4gl"
MAIN
DEFER INTERRUPT
SELECT * INTO p_companias.* FROM companias
CALL ipprrp010()
END MAIN
FUNCTION ipprrp010()
DEFINE ventas CHAR(1)
DEFINE salir CHAR(1)
DEFINE select_ac,select_ant,select_p CHAR(1000)
DEFINE 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)
DEFINE acumulado_ac RECORD
cod_mov LIKE iptb00005.cod_mov,
fecha DATE,
num_doc INTEGER,
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_Tipo SMALLINT,
cod_Sec SMALLINT,
cantidad DECIMAL(12,5),
descrip_esp CHAR(30),
unidad_med CHAR(3)
END RECORD
DEFINE costos RECORD
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_Tipo SMALLINT,
cod_Sec SMALLINT,
mes CHAR(2),
material LIKE iptb00004.material,
labor LIKE iptb00004.labor,
gasto_ind LIKE iptb00004.gastos
END RECORD
DEFINE acumulado RECORD
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
unidad_med LIKE iptb00002.unidad_med,
cod_mov LIKE iptb00006.cod_mov,
descrip_mov LIKE iptb00005.descrip_mov,
consumo DECIMAL(12,5),
costo DECIMAL(12,5),
num_doc LIKE iptb00006.num_doc,
fecha DATE
END RECORD
# WHENEVER ERROR CONTINUE
OPTIONS
FORM LINE 8,
ERROR LINE 23,
COMMENT LINE 21
OPEN FORM ipfmrp010 FROM "ipfmrp010"
DISPLAY FORM ipfmrp010
CALL pantalla()
DISPLAY "ipprrp010" AT 4,3
DISPLAY "Operaciones Por Movimientos Al Standard" AT 6,22
LET tipo_papel = 1
CALL msgrp000(tipo_papel)
INPUT BY NAME datos_cons.fech_in,datos_cons.fech_fi,ventas
ON KEY (F2)
RUN "copy pantalla.bat impresion.bat"
DISPLAY "ACTIVACION REPORTE POR WORDPAD" AT 20,15 ATTRIBUTE(RED)
AFTER FIELD fech_in
IF datos_cons.fech_in IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fech_in
END IF
AFTER FIELD fech_fi
IF datos_cons.fech_fi IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fech_fi
END IF
END INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
CONSTRUCT criterio ON c.cod_mov,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec
FROM cod_mov,cod_n,cod_grupo,cod_tipo,cod_sec
ON KEY (F2)
RUN "copy pantalla.bat impresion.bat"
DISPLAY "ACTIVACION REPORTE POR WORDPAD" AT 20,15 ATTRIBUTE(RED)
AFTER CONSTRUCT
EXIT CONSTRUCT
END CONSTRUCT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
LET select_ac =
"SELECT c.cod_mov,c.fecha,c.num_doc,c.cod_n,c.cod_grupo,c.cod_tipo, ",
" c.cod_sec, c.cantidad_2,a.descrip_esp,a.unidad_med ",
"FROM iptb00006 c,iptb00002 a ",
"WHERE ",criterio clipped," and c.fecha between ? and ? and ",
" 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.status_t is NULL AND c.cod_mov != 99 ",
"ORDER BY 3,4,5,6 "
DISPLAY "<< Estoy Buscando Documentos... Espere Por favor >>"
AT 19,14 ATTRIBUTE (REVERSE,BOLD)
PREPARE busca_ant FROM select_ac
DECLARE actual SCROLL CURSOR FOR busca_ant
OPEN actual USING datos_cons.fech_in,datos_cons.fech_fi
CALL integridad()
IF bandera = 1 THEN
LET bandera = 0
RETURN
END IF
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
DISPLAY " "
AT 19,14
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
START REPORT detalle TO "C:\\archivo"
LET idx_c = 1
LET idx_a = 1
LET idx_ac = 1
WHILE status != notfound
FETCH actual INTO acumulado_ac.*
IF STATUS = NOTFOUND THEN
EXIT WHILE
END IF
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
LET acumulado.cod_mov = acumulado_ac.cod_mov
LET acumulado.cod_n = acumulado_ac.cod_n
LET acumulado.cod_grupo = acumulado_ac.cod_grupo
LET acumulado.cod_tipo = acumulado_ac.cod_tipo
LET acumulado.cod_sec = acumulado_ac.cod_sec
LET acumulado.num_doc = acumulado_ac.num_doc
LET acumulado.fecha = acumulado_ac.fecha
LET acumulado.consumo = acumulado_ac.cantidad
LET acumulado.descrip_esp = acumulado_ac.descrip_esp
LET acumulado.unidad_med = acumulado_ac.unidad_med
# Buscando Los Costos de Los Materiales
SELECT MAX(d.material),MAX(d.labor),MAX(d.gastos)
INTO costos.material,costos.labor,costos.gasto_ind
FROM iptb00004 d
WHERE d.mes_fin = 12 AND d.ventas= "1" AND
d.status_t is null AND d.ano = year(datos_cons.fech_fi) and
d.cod_n = acumulado.cod_n AND d.cod_grupo= acumulado.cod_grupo AND
d.cod_tipo = acumulado.cod_tipo AND d.cod_sec = acumulado.cod_sec
LET acumulado.costo = costos.material+costos.labor+costos.gasto_ind
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
OUTPUT TO REPORT detalle(acumulado.*)
END WHILE
FINISH REPORT detalle
CLEAR SCREEN
RUN "impresion C:\\archivo"
RUN "copy printer2.bat impresion.bat"
END FUNCTION
REPORT detalle(x)
DEFINE x RECORD
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
unidad_med LIKE iptb00002.unidad_med,
cod_mov LIKE iptb00006.cod_mov,
descrip_mov LIKE iptb00005.descrip_mov,
consumo DECIMAL(12,5),
costo DECIMAL(12,5),
num_doc LIKE iptb00006.num_doc,
fecha DATE
END RECORD
DEFINE primera CHAR(1)
DEFINE c_ano1 char(4)
DEFINE negrillas_on CHAR(3)
DEFINE negrillas_off CHAR(3)
DEFINE doce,comp_on,comp_off CHAR(3)
DEFINE hora CHAR(5)
DEFINE total_p,total_m DECIMAL(12,2)
OUTPUT
TOP MARGIN 0
LEFT MARGIN 0
BOTTOM MARGIN 2
ORDER BY x.cod_mov,x.num_doc
FORMAT
PAGE HEADER
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 doce = ASCII 27, ASCII 77
LET hora = time
PRINT doce,negrillas_on
LET lj = (100 - LENGTH(p_companias.nombre CLIPPED))/2
PRINT COLUMN 1, "ipprrp010",
COLUMN lj, p_companias.nombre CLIPPED,
COLUMN 93, "Pag. ",pageno using "###"
PRINT COLUMN 28, " Sistema de Inventario de Productos Terminados",
COLUMN 93, today using "dd/mm/yyyy"
PRINT COLUMN 28, " Operacion por Tipo de Movimiento Al Standard",
COLUMN 96, hora
SKIP 1 LINES
PRINT COLUMN 2, "Desde ",datos_cons.fech_in using "dd/mm/yyyy",
COLUMN 21, "Hasta ", datos_cons.fech_fi using "dd/mm/yyyy"
PRINT COLUMN 1, "--------------------------------------------------",
"--------------------------------------------------"
PRINT COLUMN 77, "Material +"
PRINT COLUMN 77, "Labor +"
PRINT COLUMN 1, "Docto.",
COLUMN 8, "Fecha",
COLUMN 17, "Producto",
COLUMN 68, "Cantidad",
COLUMN 77, "Gasto ",
COLUMN 96, "Total"
PRINT COLUMN 1, "--------------------------------------------------",
"--------------------------------------------------"
PRINT negrillas_off
BEFORE GROUP OF x.cod_mov
LET total_m = 0
SELECT descrip_mov INTO x.descrip_mov FROM iptb00005
WHERE cod_mov = x.cod_mov
PRINT negrillas_on
PRINT COLUMN 1, "Movimiento: ",x.cod_mov using "##"," ",
x.descrip_mov
PRINT negrillas_off
BEFORE GROUP OF x.num_doc
PRINT COLUMN 1, x.num_doc USING "######",
COLUMN 8, x.fecha USING "dd/mm/yyyy";
ON EVERY ROW
LET total_p = x.costo * x.consumo
IF total_p IS NULL THEN
LET total_p = 0
END IF
LET total_m = total_m + total_p
PRINT COLUMN 17, x.cod_n USING "&&","-",x.cod_grupo USING "&&","-",
x.cod_tipo USING "&&&","-",x.cod_sec USING "&&&","-",
" ",x.descrip_esp CLIPPED,
COLUMN 63, x.consumo USING "#,###,###.###",
COLUMN 77, x.costo USING "##,###.###",
COLUMN 88, total_p USING "##,###,###.##"
AFTER GROUP OF x.num_doc
SKIP 1 LINE
AFTER GROUP OF x.cod_mov
PRINT COLUMN 88, "-------------"
PRINT COLUMN 50, "Total ---->",
COLUMN 88, total_m USING "##,###,###.##"
SKIP TO TOP OF PAGE
ON LAST ROW
PRINT ASCII 27, ASCII 80
END REPORT
File diff suppressed because it is too large Load Diff
+20
View File
@@ -0,0 +1,20 @@
FGL2P ipprrp002.4gl
FGL2P ipprrp003.4gl
FGL2P ipprrp004.4gl
FGL2P ipprrp005.4gl
FGL2P ipprrp006.4gl
FGL2P ipprrp007.4gl
FGL2P ipprrp008.4gl
FGL2P ipprrp009.4gl
FGL2P ipprrp010.4gl
FGL2P ipprrp011.4gl
FGL2P ipprrp012.4gl
FGL2P ipprrp016.4gl
FGL2P ipprrp017.4gl
FGL2P ipprrp018.4gl
FGL2P ipprrp019.4gl
FGL2P ipprrp899.4gl
fgl2p ipmnrp000.4gl
fgl2p ipprrp013.4gl
fgl2p -o ipmnrp000.42r ipmnrp000.42m seg000.42m msg.42m msgrp000.42m ipprrp002.42m ipprrp003.42m ipprrp004.42m ipprrp007.42m ipprrp008.42m ipprrp009.42m ipprrp010.42m ipprrp011.42m ipprrp017.42m ipprrp018.42m ipprrp016.42m ipprrp005.42m ipprrp006.42m ipprrp012.42m ipprrp019.42m termo.42m ipprrp013.42m
+24
View File
@@ -0,0 +1,24 @@
WANDY TIENE 2 SALIDAS 1 CARRERAS
JOSE HERNANDEZ 13 ENTRADA DE 14 PONCHES
STRABURG 2-0 FRENTE A SFO
CAIN HA GANADO LOS
LE VA MA FRENTE ATLANTA.
LE VA BIEN A MINESOTA.
PHIL HUGES 13 CARRERAS
KLUBER
TAMPA 8-1 CON
STL
ATL 77
PIRATAS 77
CINCINATA 77
LAA
PHILS
KC
LAD
DET
SFO
COLORADO
+396
View File
@@ -0,0 +1,396 @@

ipprrp019 M A R M O T E C H, S. A. (C) Pag. 1
Sistema de Inventario de Productos 26/06/99
Reporte Existencia 11:13
-------------------------------------------------------------------------------------------------------------------------------------------
EXISTENCIA
CODIGO DESCRIPCION AL 26/06/99
------------------------------------------------------------------------------------------------------------------------------------------
1-1-01-001 ROSA CORALINA 60X17 PULIDO MT2 .004
1-1-01-002 ROSA CORALINA 40X40 PULIDO MT2 6.840
1-1-01-003 ROSA CORALINA 30 X 60 PULIDO MT2 202.240
1-1-01-004 ROSA CORALINA 30 X 30 PULIDO MT2 121.690
1-1-01-006 ROSA CORALINA 30 X 15 PULIDO MT2 435.778
1-1-01-012 ROSA CORALINA 65X18 PULIDAS MT2 .001
1-1-01-014 ROSA CORALINA 60X10 MT2 4.980
1-1-01-016 ROSA CORALINA 1.13X30 MT2 .002
1-1-01-019 ROSA CORALINA 55.5X25 PULIDA MT2 .001
1-1-01-020 ROSA CORALINA 50.5X25 MT2 .003
1-1-01-023 ROSA CORALINA 56.5X.30 MT2 .001
1-1-01-024 ROSA CORALINA 44.5X36.5 BISELA MT2 .090
1-1-01-025 ROSA CORALINA 25X20 PULIDO MT2 1.750
1-1-01-026 ROSA CORALINA 40X60 PULIDA MT2 1.440
1-1-02-004 CORALINA ORO 30 X 15 PULIDO MT2 -.000
1-1-03-001 ROSA IMPERIAL 30 X 30 PULIDO MT2 1.260
1-1-03-002 ROSA IMPERIAL 40 X 20 PULIDO MT2 .480
1-1-03-004 ROSA IMPERIAL 30X15 PULIDO MT2 141.610
1-1-04-001 TAINO CLASICO 40 X 40 PULIDO MT2 .480
1-1-04-002 TAINO CLASICO 30 X 60 PULIDO MT2 6.480
1-1-04-003 TAINO CLASICO 30 X 30 PULIDO MT2 39.990
1-1-04-004 TAINO CLASICO 40 X 20 PULIDO MT2 66.080
1-1-04-005 TAINO CLASICO 30 X 15 PULIDO MT2 71.795
1-1-04-008 TAINO CLASICO 40X15 PULIDO MT2 3.540
1-1-05-001 TAINO AMARILLO 40 X 40 PULIDO MT2 6.400
1-1-05-003 TAINO AMARILLO 30 X 30 PULIDO MT2 124.560
1-1-05-004 TAINO AMARILLO 40 X 20 PULIDO MT2 17.520
1-1-05-005 TAINO AMARILLO 30 X 15 PULIDO MT2 279.315
1-1-06-003 TAINO ROJO 30 X 30 PULIDO MT2 55.080
1-1-06-004 TAINO ROJO 40 X 20 PULIDO MT2 .800
1-1-06-005 TAINO ROJO 30 X 15 PULIDO MT2 102.830
1-1-07-001 TAINO FILETO NEGRO 40 X 40 PUL MT2 5.760
1-1-07-002 TAINO FILETO NEGRO 30 X 60 PUL MT2 57.420
1-1-07-003 TAINO FILETO NEGRO 30 X 30 PUL MT2 241.390
1-1-07-004 TAINO FILETO NEGRO 30 X 15 PUL MT2 360.180
1-1-07-005 TAINO NEGRO 40X20 PULIDO MT2 9.760
1-1-07-008 TAINO FILETO NEGRO 40 X15 PULI MT2 9.540
1-1-08-001 PERLATO CLASICO 40 X 40 PULIDO MT2 .640
1-1-08-002 PERLATO CLASICO 30 X 60 PULIDO MT2 58.860
1-1-08-003 PERLATO CLASICO 30 X 30 PULIDO MT2 78.010
1-1-08-004 PERLATO CLASICO 40 X 20 PULIDO MT2 7.200
1-1-08-005 PERLATO CLASICO 30 X 15 PULIDO MT2 84.365
1-1-08-010 PERLATO CLASICO 75X15 MT2 7.882
1-1-08-011 PERLATO CLASICO 1.30X15 MT2 .170
1-1-08-012 PERLATO CLASICO 65X15 MT2 .003
1-1-09-001 PERLATO IVORY 30 X 30 PULIDO MT2 6.390
1-1-09-002 PERLATO IVORY 30 X 15 PULIDO MT2 27.315
1-1-10-001 MARFIL CLARO 40 X 40 PULIDO MT2 55.040
1-1-10-003 MARFIL CLARO 30 X 30 PULIDO MT2 1.260
1-1-10-004 MARFIL CLARO 40 X 20 PULIDO MT2 1.970
1-1-11-001 MARFIL MORADO 40 X 40 PULIDO MT2 2.240
1-1-11-003 MARFIL MORADO 30 X 30 PULIDO MT2 19.050
1-1-11-004 MARFIL MORADO 40 X 20 PULIDO MT2 .640
1-1-11-005 MARFIL MORADO 30 X 15 PULIDO MT2 203.740

ipprrp019 M A R M O T E C H, S. A. (C) Pag. 2
Sistema de Inventario de Productos 26/06/99
Reporte Existencia 11:13
-------------------------------------------------------------------------------------------------------------------------------------------
EXISTENCIA
CODIGO DESCRIPCION AL 26/06/99
------------------------------------------------------------------------------------------------------------------------------------------
1-1-12-001 MARFIL VERDE 40 X 40 PULIDO MT2 34.880
1-1-12-003 MARFIL VERDE 30 X 30 PULIDO MT2 6.300
1-1-12-004 MARFIL VERDE 40 X 20 PULIDO MT2 4.400
1-1-12-005 MARFIL VERDE 30 X 15 PULIDO MT2 97.745
1-1-13-001 MARFIL AMARILLO 40 X 40 PULIDO MT2 9.280
1-1-13-003 MARFIL AMARILLO 30 X 30 PULIDO MT2 2.790
1-1-14-001 EXTRAVAGANZA LATINA 30 X 30 PU MT2 6.210
1-1-14-002 EXTRVAGANZA LATINA 30 X 15 PUL MT2 29.120
1-1-15-001 TRAVERTINO 30 X 60 PULIDO MT2 .180
1-1-15-002 TRAVERTINO 30 X 30 PULIDO MT2 .180
1-1-15-003 TRAVERTINO 40 X 20 PULIDO MT2 36.020
1-1-15-004 TRAVERTINO 30 X 15 PULIDO MT2 65.000
1-1-15-005 TRAVERTINO 30 X 20 PULIDO MT2 4.640
1-1-15-008 TRAVERTINO 60X40 PULIDO MT2 .080
1-1-16-001 VERDE ORIENTAL 30.5X30.5X1 PUL MT2 38.889
1-1-16-002 VERDE ORIENTAL 30.5X15.2X1 PUL MT2 551.848
1-1-16-004 VERDE ORIENTAL 40X15X1.5 PULID MT2 .480
1-1-17-001 BLANCO CARRARA 45.7X45.7X1 PUL MT2 140.968
1-1-17-002 BLAMCO CARRARA 30.5X30.5X1 PUL MT2 558.534
1-1-17-003 BLANCO CARRARA 30.5X15.2X1 PUL MT2 19.880
1-1-17-004 BLANCO CARRARA 40X40X1.5 PULID MT2 9.840
1-1-18-001 NEGRO ORIENTAL 30.5X30.5X1 PUL MT2 .069
1-1-19-001 MARRON ORIENTAL 30.5X30.5X1 PU MT2 37.179
1-1-20-001 GRIS ORIENTAL 30.5X30.5X1 PULI MT2 82.795
1-1-21-001 ROSA BELLISIMO 45.7X45.7X1 PUL MT2 139.099
1-1-21-002 ROSA BELLISIMO 30.5X30.5X1 PUL MT2 102.506
1-1-21-003 ROSA BELLISIMO 30.5X15.2X1 PUL MT2 63.648
1-1-22-001 MARFIL ESPANOL CLAS. 40X40X2 P MT2 948.650
1-1-22-002 MARFIL ESPANOL CLAS. 40X60X2 P MT2 .240
1-1-22-003 MARFIL ESPANOL CALS. 30X60X2 P MT2 .080
1-1-22-004 MARFIL ESPANOL CLAS.30.5X30.5X MT2 574.399
1-1-22-005 MARFIL ESP. CLAS. 30.5X15.2 P MT2 6.804
1-1-22-006 MARFIL ESPANOL STOCK 40X40X2P MT2 .040
1-1-22-007 MARFIL ESPANOL STOCK 30X60X2 P MT2 1.800
1-1-22-008 MARFIL ESPANOL 45.7X45.7CLAS. MT2 25.180
1-1-22-010 MARFIL ESPANOL 30.5X15.2 STOCK MT2 168.921
1-1-22-014 MARFIL ESPANOL 43.1X.10 MT2 1.336
1-1-22-015 MARFIL ESPANOL 20X20 PULIDAS MT2 .693
1-1-22-016 CREMA MARFIL 30X40 PULIDA MT2 .020
1-1-22-017 CREMA MARFIL 30.5X30.5 CLASICO MT2 1.450
1-1-22-018 CREMA MARFIL 30.5X15.2 MT2 300.366
1-1-22-019 CREMA MARFIL CLASICO 50X50 PUL MT2 1.000
1-1-22-022 CREMA MARFIL CLASICO 40X68X2 MT2 .001
1-1-22-024 CREMA MARFIL CLASICO 78X68X2 MT2 .004
1-1-22-026 CREMA MARFIL CLASICO 68X68X2 MT2 .000
1-1-22-038 CREMA MARFIL SELECTO 30.5X30.5 MT2 368.380
1-1-23-001 VERDE REGALLIO 30.5X30.5X1 PUL MT2 194.042
1-1-24-001 MING GREEN 30.5X30.5X1 PULIDO MT2 .085
1-1-25-001 BOTICCINO ITALIANO 30.5X30.5X1 MT2 754.563
1-1-26-001 ROJO BALMORAL 30X30X2 PULIDO MT2 .630
1-1-27-001 ROJO ALICANTE 40X40X2 PULIDO MT2 .080
1-1-27-003 ROJO ALICANTE 30.5X30.5X1 SE.P MT2 93.360
1-1-27-004 DESP. ROJO ALICANTE 30.5X30.5 MT2 36.370
1-1-27-005 ROJO ALICANTE 40X40 SEL. MT2 .160

ipprrp019 M A R M O T E C H, S. A. (C) Pag. 3
Sistema de Inventario de Productos 26/06/99
Reporte Existencia 11:13
-------------------------------------------------------------------------------------------------------------------------------------------
EXISTENCIA
CODIGO DESCRIPCION AL 26/06/99
------------------------------------------------------------------------------------------------------------------------------------------
1-1-27-011 ROJO ALICANTE 30.5X30.5X1 SEL. MT2 .097
1-1-27-012 ROJO ALICANTE 30.5X15.2X1 P. MT2 49.505
1-1-28-001 SATURNIA 45.7X45.7 APOMAZADO MT2 8.933
1-1-28-003 VERDE SAN FRANCISCO PANTANAL 3 MT2 .001
1-1-29-001 DESPUNT. ROSA ZARCI 30.5X30.5 MT2 37.210
1-1-30-001 MULTICOLOR PASTEL 30.5X30.5X1 MT2 40.680
1-1-31-001 MARRON EMPE.30.5X30.5X1 SEL.P. MT2 35.602
1-1-31-002 DESP.MARRON EMP. 30.5X30.5 MT2 25.864
1-1-31-003 MARRON EMPERADOR 40X40 SELECTO MT2 6.900
1-1-31-004 MARRON EMPERADOR 40X20 SELECTO MT2 .080
1-1-31-005 MARRON EMPERADOR 40X15 SELECTO MT2 .420
1-1-32-001 NEW VENEZIAN GOLD 30.5X30.5X1 MT2 .840
1-1-33-001 ROSA PORRINO 30.5X30.5X1 MT2 6.330
1-1-34-001 LEOPARD WHITE 30.5X30.5X1 MT2 13.768
1-1-35-001 EVER GREEN 30.5X30.5X1 PULIDO MT2 63.697
1-1-36-001 NEGRO ABSOLUTO 30.5X30.5X1 PUL MT2 51.161
1-1-38-001 ISLAND BEIGE 30.5X30.5X1 PULID MT2 21.210
1-1-39-001 BATBROOK 30.5X30.5X1 PULIDO MT2 61.304
1-1-40-001 EMPRESS GREEN DARK 45.7X45.7 MT2 .002
1-1-40-002 EMPRESS GREEN DARK 30.5X30.5 MT2 14.609
1-1-40-003 EMPRESS GREEN MEDIUN 30.5X30.5 MT2 6.884
1-1-40-004 EMPRESS GREEN MEDIUN 45.7X45.7 MT2 90.849
1-1-40-005 EMPRESS GREEN MEDIUN 40 X40 MT2 .080
1-1-41-001 TRAVERTINO ROMANO 30X60 PULIDO MT2 .540
1-1-61-003 VANILLA TROPICAL 30X30 PULIDO MT2 227.770
1-1-61-005 VANILLA TROPICAL 30X15 PULIDO MT2 91.305
1-2-01-001 ROSA CORALINA 40X40 RUSTICO MT2 43.600
1-2-01-002 ROSA CORALINA 30X60 RUSTICO MT2 1.800
1-2-01-003 ROSA CORALINA 30X30 RUSTICO MT2 252.340
1-2-01-006 ROSA CORALINA 20X20 RUSTICO MT2 55.980
1-2-01-007 ROSA CORALINA 40X60 RUSTICO MT2 55.200
1-2-01-008 ROSA CORALINA 30X15 RUSTICO MT2 23.040
1-2-03-001 ROSA IMPERIAL 30X60 RUSTICO MT2 1.080
1-2-03-003 ROSA IMPERIAL 80X20 RUSTICO MT2 13.440
1-2-04-001 TAINO CLASICO 40X40 RUSTICO MT2 46.080
1-2-04-002 TAINO CLASICO 30X60 RUSTICO MT2 7.380
1-2-04-003 TAINO CLASICO 30X30 RUSTICO MT2 55.080
1-2-04-004 TAINO CLASICO 40X20 RUSTICO MT2 37.600
1-2-04-005 TAINO CLASICO 30X15 RUSTICO MT2 5.310
1-2-05-001 TAINO AMARILLO 40X40 RUSTICO MT2 157.600
1-2-05-003 TAINO AMARILLO 30X30 RUSTICO MT2 2.700
1-2-06-001 TAINO ROJO 40X40 RUSTICO MT2 5.920
1-2-06-002 TAINO ROJO 30X60 RUSTICO MT2 29.520
1-2-06-003 TAINO ROJO 30X30 RUSTICO MT2 7.740
1-2-07-001 TAINO FILETO NEGRO 40X40 RUSTI MT2 659.200
1-2-07-003 TAINO FILETO NEGRO 30X30 RUSTI MT2 47.700
1-2-07-004 TAINO FILETO NEGRO 40X20 RUSTI MT2 149.280
1-2-08-001 PERLATO CLASICO 40X40 RUSTICO MT2 1.280
1-2-08-002 PERLATO CLASICO 30X60 RUSTICO MT2 12.060
1-2-08-003 PERLATO CLASICO 30X30 RUSTICO MT2 26.190
1-2-09-001 PERLATO IVORY 30X60 RUSTICO MT2 22.320
1-2-09-002 PERLATO IVORY 30X30 RUSTICO MT2 11.700
1-2-10-001 MARFIL CLARO 40X40 RUSTICO MT2 154.240
1-2-10-003 MARFIL CLARO 30X30 RUSTICO MT2 .090

ipprrp019 M A R M O T E C H, S. A. (C) Pag. 4
Sistema de Inventario de Productos 26/06/99
Reporte Existencia 11:13
-------------------------------------------------------------------------------------------------------------------------------------------
EXISTENCIA
CODIGO DESCRIPCION AL 26/06/99
------------------------------------------------------------------------------------------------------------------------------------------
1-2-11-001 MARFIL MORADO 40X40 RUSTICO MT2 82.411
1-2-11-002 MARFIL MORADO 30X60 RUSTICO MT2 183.240
1-2-11-003 MARFIL MORADO 30X30 RUSTICO MT2 57.510
1-2-12-001 MARFIL VERDE 40X40 RUSTICO MT2 136.000
1-2-12-003 MARFIL VERDE 30X30 RUSTICO MT2 61.220
1-2-15-002 TRAVERTINO 30X60 RUSTICO MT2 191.460
1-2-15-003 TRAVERTINO 30X30 RUSTICO MT2 41.760
1-2-15-004 TRAVERTINO 30X20 RUSTICO MT2 12.180
1-2-15-005 TRAVERTINO 30X15 RUSTICO MT2 6.035
1-2-15-007 TRAVERTINO 50X20 RUSTICO MT2 2.700
1-2-15-008 TRAVERTINO 50X25 RUSTICO MT2 34.625
1-2-15-009 TRAVERTINO 40X30 RUSTICO MT2 53.160
1-2-16-001 CALIZA CORALINA 40X40 RUSTICO MT2 145.140
1-2-16-002 CALIZA CORALINA 30X60 RUSTICO MT2 9.960
1-2-16-003 CALIZA CORALINA 30X30 RUSTICO MT2 295.560
1-2-16-005 CALIZA CORALINA 30X15 RUSTICO MT2 84.915
1-2-16-007 CALIZA CORALINA 45.7 X 45.7 RU MT2 149.106
1-2-16-008 CALIZA CORALINA 40.6X40.6 RUST MT2 949.147
1-2-16-009 CALIZA CORALINA 40X30 RUSTICO MT2 23.760
1-2-16-010 CALIZA CORALINA 61X31 RUSTICO MT2 5.673
1-2-16-011 CALIZA CORALINA 30.5X30.5 RUST MT2 24.271
1-2-16-012 CALIZA CORALINA 30.5X15.2 RUST MT2 16.989
1-2-16-013 CALIZA CORALINA 61X61 MT2 2.977
1-2-16-014 CALIZA CORALINA 40X60 RUSTICO MT2 37.600
1-2-16-015 CALIZA CORALINA 30.5X61 MT2 152.561
1-2-16-016 CALIZA CORALINA 25X25 RUSTICO MT2 1.375
1-2-22-001 MARFIL ESPANOL 40X40 RUSTICO S MT2 2,319.280
1-2-22-002 MARFIL ESPANOL 40X60 RUSTICO S MT2 847.470
1-2-22-003 MARFIL ESPANOL 30X60 RUSTICO S MT2 811.140
1-2-22-004 MARFIL ESPANOL40X30 RUST STOCK MT2 100.820
1-2-22-005 MARFIL ESPANOL 40X40 RUST CLAS MT2 .080
1-2-22-008 MARFIL ESPANOL 30X15 RUSTICO MT2 7.875
1-2-22-009 MARFIL ESPANOL 40X20 RUSTICO MT2 9.840
1-2-22-010 MARFIL ESPANOL 30X30 RUSTICO MT2 15.840
1-2-22-011 MARFIL ESPANOL 40X40 SELECTO R MT2 1,520.160
1-2-27-001 ROJO ALICANTE 40X40X2 RUS.STC. MT2 340.960
1-2-28-001 TRAVER. SATURNIA 45.7X45.7 RUS MT2 7.250
1-2-31-001 MARRON EMPERADOR 40X40 RUSTICO MT2 184.800
1-2-31-003 MARRON EMPERADOR 30X60X2 RUSTI MT2 36.000
1-2-40-001 AMARILLO ELO (SIERRA)30X60 RUS MT2 34.280
1-2-41-001 TRAVERTINO ROMANO 30X60 RUSTIC MT2 .860
1-2-61-004 VANILLA TROPICAL 40X40 RUSTICO MT2 156.800
1-2-61-005 VANILLA TROPICAL 30X60 RUSTICO MT2 831.420
1-2-61-006 VANILLA TROPICAL 30X30 RUSTICO MT2 92.660
2-1-00-001 TOPES MARMOL CRIOLLO MT2 1.100
2-1-00-002 GRANITO BLANCO PERLA MT2 1.720
2-1-00-003 MARMOL MARRON EMPERADOR MT2 8.060
2-1-00-004 MARMOL CREMA MARFIL ESPANOL MT2 7.756
2-1-00-006 MARMO VERDE ISOGNE MT2 1.920
2-1-00-007 MARMOL VERDE ORIENTAL MT2 1.930
2-1-00-008 MARMOL ROJO ALICANTE MT2 2.527
2-1-00-009 MARMOL TRAVERTINO SATURNIA MT2 2.960
2-1-00-014 GRANITO ROSA PORRINO MT2 2.440
2-1-00-015 GRANITO NEGRO SUDAFRICA MT2 2.105

ipprrp019 M A R M O T E C H, S. A. (C) Pag. 5
Sistema de Inventario de Productos 26/06/99
Reporte Existencia 11:13
-------------------------------------------------------------------------------------------------------------------------------------------
EXISTENCIA
CODIGO DESCRIPCION AL 26/06/99
------------------------------------------------------------------------------------------------------------------------------------------
2-1-00-017 GRANITO VERDE UBATUBA MT2 2.680
2-1-00-019 GRANITO VERDE SAN FCO SAVANA MT2 1.430
2-1-00-021 GRANITO AMARILLO IBERICO MT2 .500
2-1-00-029 GRANITO NEW VENEZIAN GOLD MT2 3.220
2-1-00-030 GANITO AMARILLO TOPACIO MT2 9.740
2-1-00-032 GRANITO BLANCO CRISTAL MT2 1.272
2-1-00-034 LABRADOR CLARO/BLUE PEARL MT2 5.340
2-1-00-037 GRANITO BUTTER CREAM MT2 .240
2-1-00-039 MARRON BALTICO MT2 .040
2-1-00-043 GRANITO ROSA BETA MT2 .760
2-1-00-044 ROJO BALMORAL MT2 1.480
2-1-00-045 GRANITO NEGRO ABSOLUTO MT2 .610
2-1-00-046 TOPES ROSA CORALINA MT2 2.320
2-1-00-050 GRANITO NEGRO ZIMBAWE MT2 .170
2-1-00-054 EMPRESS GREEN MEDIUN MT2 1.420
2-1-00-056 MAMOL MARFIL ESPANOL SELECTO MT2 1.340
2-1-01-001 ZOCALO ROSA CORALINA 30X7 ML 296.000
2-1-01-003 HUELLAS ROSA CORALINA ML 81.110
2-1-01-004 CONTRA HUELLAS ROSA CORALINA ML 1.960
2-1-01-009 ROSA CORALINA 75X10 MT2 .005
2-1-01-015 ZOCALOS ROSA CORALINA 70X10 MT2 .280
2-1-08-001 ZOCALO PERLATO CLASICO 30X7 ML 53.400
2-1-08-002 ZOCALO PERLATO CLASICO 40X7 ML 39.200
2-1-08-003 HUELLAS PERLATO CLASICO ML 13.270
2-1-08-005 ZOCALOS PERLATO CLASICO 84X10 ML .740
2-1-08-006 PERLATO CLASICO 76X15 MT2 3.078
2-1-08-007 PERLATO CLASICO 60X15 MT2 6.030
2-1-08-008 PERLATO CLASICO 130X15 MT2 .185
2-1-08-013 PERLATO CLASICO 140X25 MT2 1.750
2-1-10-001 ZOCALO MARFIL CLARO 30X7 ML 50.800
2-1-10-003 HUELLAS MARFIL CLARO ML 3.000
2-1-11-002 ZOCALO MARFIL MORADO 40X7 ML .200
2-1-12-001 ZOCALO MARFIL VERDE 30X7 ML 28.040
2-1-15-001 ZOCALO TRAVERTINO 30X7 ML 52.000
2-1-16-005 TOPE CALIZA 1.83X30.5 MT2 .002
2-1-16-006 TOPE CALIZA CORALINA 1.83X0.61 MT2 .003
2-1-16-007 TOPE CALIZA CORALINA 1.83X.41 MT2 .003
2-1-21-001 ZOCALOS ROSA BELLISIMO MT2 14.109
2-1-22-001 ZOCALO CREMA MARFIL 30.5X8 MT2 .008
2-1-22-002 ZOCALOS CREMA MARFIL MT2 1.040
2-1-22-006 ZOCALOS CREMA VERDE 30.5X7 MT2 .002
2-1-22-008 ZOCALOS CREMA MARFIL 40X7 MT2 .008
2-1-24-001 ZOCALOS MARMOL VERDE IMPOTADO MT2 2.560
2-1-27-001 ZOCALO MARMOL ROJO IMPORTADO MT2 .230
2-1-61-001 ZOCALOS 30X7 VANILLA TROPICAL ML 74.400
3-0-00-009 NETSAN UND 1.000
3-0-00-018 ABRASIVOS 5X UND 12.000
3-0-00-021 P19-01 CL 12X1 MARB/GRAN UND 5.000
3-0-00-022 P19B-01 BL 12X1L MARB/GRAN UND 12.000
3-0-00-023 P21-00.1 PAST TB CL 60X10 UND 59.000
3-0-00-024 P21.00.50 PAST JAR CL 24X1/2L UND 45.000
3-0-00-025 P21.00.50 PASTE JAR BL 24X1/2 UND 22.000
3-0-00-026 P23.01.00 POLISH PRESERVER 12X UND 33.000
3-0-00-027 P24.01.0 LIQ STONE SOAP 12X1L UND 34.000

ipprrp019 M A R M O T E C H, S. A. (C) Pag. 6
Sistema de Inventario de Productos 26/06/99
Reporte Existencia 11:13
-------------------------------------------------------------------------------------------------------------------------------------------
EXISTENCIA
CODIGO DESCRIPCION AL 26/06/99
------------------------------------------------------------------------------------------------------------------------------------------
3-0-00-028 P25AL-01 MARBLE STAIN LIGHT 12 UND 23.000
3-0-00-029 P25B-01 MARBLE FINISH 12X1 UND 11.000
3-0-00-030 P27-10 REPOLISH POWDER UND 24.000
3-0-00-031 S31-01 SILANE IMPREG 12X1L UND 24.000
3-0-00-032 S34-01 SILICONE IMPREG 12X1L UND 35.000
3-0-00-033 S35-01 STONE SEAL MATTE 12X1L UND 11.000
3-0-00-034 S37-01 STONE SEAL SATIN 12X1L UND 11.000
3-0-00-035 S39-01 STONE SEAL GLOSS 12X1L UND 12.000
3-0-00-036 R55-01 INTENSIVE CLEANR 12X1L UND 27.000
3-0-00-037 R80-01 STRIP/STAIN REMOVR 12X1 UND 10.000
3-0-00-038 Z170 SEALIN BRUSH 9" UND 5.000
3-0-00-039 Z171 SEALIN BRUSH 21" UND 6.000
3-0-00-040 Z202-110V POLISHING-VAC UND 13.000
3-0-00-041 Z203-FILTER BAGS (SET DE 5) UND 10.000
3-0-00-042 Z206 BRUSH HARD (SET DE 3) UND 10.000
3-0-00-043 Z207 BRUSH SOFT (10 SET DE 3) UND 10.000
3-0-00-044 Z208 FELT PADS (20 SET DE 3) UND 20.000
4-0-00-001 MARMOL LOCO LOCAL MT3 .750
5-0-00-005 TRANSPORTE POR MT2 1.000
5-0-00-012 CAPRICHO MT2 1.000
6-0-00-009 PLANCHAS GRANITO NEGRO SUDAFRI MT2 .002
6-0-00-020 PLATOS PARA LIJAS 4" UND 1.000

+594
View File
@@ -0,0 +1,594 @@

ipprrp012 M A R M O T E C H, S. A. Pag. 1
Sistema de Inventario Productos Terminados 17/02/99
Diferencia en Costos Anuales 19:49:02
======================================================================================================================================
ARTICULOS... EXISTENCIA 1998 VALOR 1999 VALOR DIF
======================================================================================================================================
1-1-01-001 ROSA CORALINA 60X17 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-002 ROSA CORALINA 40X40 PULIDO MT2 00.76 187.2000 142.27 242.9670 184.65 (42.38)
1-1-01-003 ROSA CORALINA 30 X 60 PULIDO MT2 113.62 187.2000 21,269.66 242.9670 27,605.91 (6,336.25)
1-1-01-004 ROSA CORALINA 30 X 30 PULIDO MT2 851.86 187.2000 159,468.19 242.9670 206,973.87 (47,505.68)
1-1-01-004 ROSA CORALINA 30 X 30 PULIDO MT2 851.86 187.2000 159,468.19 242.9670 206,973.87 (47,505.68)
1-1-01-005 ROSA CORALINA 40 X 20 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-006 ROSA CORALINA 30 X 15 PULIDO MT2 320.91 187.2000 60,074.35 242.9670 77,970.54 (17,896.19)
1-1-01-007 ROSA CORALINA 30 X 20 PULIDA MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-008 ROSA CORALINA 30 X 17 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-009 ROSA CORALINA 65 X 17 PULIDO MT2 00.00 187.2600 .00 242.9670 .00 00.00
1-1-01-011 ROSA CORALINA 60X18 PULIDAS MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-012 ROSA CORALINA 65X18 PULIDAS MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-013 ROSA CORALINA 1.20 X 30 MT2 03.24 187.2000 606.53 242.9670 787.21 (180.69)
1-1-01-014 ROSA CORALINA 60X10 MT2 04.98 187.2000 932.26 242.9670 1,209.98 (277.72)
1-1-01-015 ROSA CORALINA 75X10 MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-016 ROSA CORALINA 1.13X30 MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-017 ROSA CORALINA 87X10 MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-018 ROSA CORALINA 20X20 PULIDAS MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-019 ROSA CORALINA 55.5X25 PULIDA MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-020 ROSA CORALINA 50.5X25 MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-021 ROSA CORALINA 56X25 PULIDAS MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-01-022 ROSA CORALINA 10X10 MT2 00.00 187.1970 .00 242.9670 .00 00.00
1-1-01-023 ROSA CORALINA 56.5X.30 MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-02-001 CORALINA ORO 40 X 40 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-02-002 CORALINA ORO 30 X 60 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-02-003 CORALINA ORO 30 X 30 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-02-004 CORALINA ORO 30 X 15 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-02-005 CORALINA ORO 40X20 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-03-001 ROSA IMPERIAL 30 X 30 PULIDO MT2 01.26 187.2000 235.87 242.9670 306.14 (70.27)
1-1-03-002 ROSA IMPERIAL 40 X 20 PULIDO MT2 00.48 187.2000 89.86 242.9670 116.62 (26.77)
1-1-03-003 ROSA IMPERIAL 30 X 20 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-03-004 ROSA IMPERIAL 30X15 PULIDO MT2 01.35 187.2000 252.72 242.9670 328.01 (75.29)
1-1-04-001 TAINO CLASICO 40 X 40 PULIDO MT2 00.48 187.2600 89.88 242.9670 116.62 (26.74)
1-1-04-002 TAINO CLASICO 30 X 60 PULIDO MT2 06.84 187.2000 1,280.45 242.9670 1,661.89 (381.45)
1-1-04-003 TAINO CLASICO 30 X 30 PULIDO MT2 419.43 187.2000 78,517.30 242.9670 101,907.65 (23,390.35)
1-1-04-004 TAINO CLASICO 40 X 20 PULIDO MT2 66.08 187.2000 12,370.18 242.9670 16,055.26 (3,685.08)
1-1-04-005 TAINO CLASICO 30 X 15 PULIDO MT2 87.43 187.2000 16,366.90 242.9670 21,242.60 (4,875.71)
1-1-04-006 TAINO CLASICO 30X30X1CM MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-04-007 TAINO CLASICO 30X15X1CM MT 00.00 187.2000 .00 242.9670 .00 00.00
1-1-04-008 TAINO CLASICO 40X15 PULIDO MT2 03.54 187.2000 662.69 242.9670 860.10 (197.42)
1-1-05-001 TAINO AMARILLO 40 X 40 PULIDO MT2 06.40 187.2000 1,198.08 242.9670 1,554.99 (356.91)
1-1-05-003 TAINO AMARILLO 30 X 30 PULIDO MT2 196.65 187.2000 36,812.88 242.9670 47,779.46 (10,966.58)
1-1-05-004 TAINO AMARILLO 40 X 20 PULIDO MT2 17.52 187.2000 3,279.74 242.9670 4,256.78 (977.04)
1-1-05-005 TAINO AMARILLO 30 X 15 PULIDO MT2 11.07 187.2000 2,072.30 242.9670 2,689.64 (617.34)
1-1-06-001 TAINO ROJO 40 X 40 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-06-003 TAINO ROJO 30 X 30 PULIDO MT2 277.02 187.2000 51,858.14 242.9670 67,306.72 (15,448.57)
1-1-06-004 TAINO ROJO 40 X 20 PULIDO MT2 00.80 187.2000 149.76 242.9670 194.37 (44.61)
1-1-06-005 TAINO ROJO 30 X 15 PULIDO MT2 132.58 187.2000 24,818.98 242.9670 32,212.56 (7,393.59)
1-1-06-006 TAINO ROJO 40X40X1CM MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-06-007 TAINO ROJO 30X15X1CM MT2 00.00 187.2000 .00 242.2047 .00 00.00
1-1-06-008 TAINO ROJO 40X15 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-07-001 TAINO FILETO NEGRO 40 X 40 PUL MT2 05.76 187.2000 1,078.27 242.9670 1,399.49 (321.22)
1-1-07-002 TAINO FILETO NEGRO 30 X 60 PUL MT2 57.42 187.2000 10,749.02 242.9670 13,951.17 (3,202.14)

ipprrp012 M A R M O T E C H, S. A. Pag. 2
Sistema de Inventario Productos Terminados 17/02/99
Diferencia en Costos Anuales 19:49:27
======================================================================================================================================
ARTICULOS... EXISTENCIA 1998 VALOR 1999 VALOR DIF
======================================================================================================================================
1-1-07-003 TAINO FILETO NEGRO 30 X 30 PUL MT2 304.74 187.2000 57,047.33 242.9670 74,041.76 (16,994.44)
1-1-07-004 TAINO FILETO NEGRO 30 X 15 PUL MT2 317.03 187.2000 59,348.02 242.9670 77,027.83 (17,679.81)
1-1-07-005 TAINO NEGRO 40X20 PULIDO MT2 09.76 187.2000 1,827.07 242.9670 2,371.36 (544.29)
1-1-07-008 TAINO FILETO NEGRO 40 X15 PULI MT2 09.54 187.2000 1,785.89 242.9670 2,317.91 (532.02)
1-1-08-001 PERLATO CLASICO 40 X 40 PULIDO MT2 00.64 187.2000 119.81 242.9670 155.50 (35.69)
1-1-08-002 PERLATO CLASICO 30 X 60 PULIDO MT2 12.24 187.6200 2,296.47 242.9670 2,973.92 (677.45)
1-1-08-003 PERLATO CLASICO 30 X 30 PULIDO MT2 66.13 187.2000 12,379.54 242.9670 16,067.41 (3,687.87)
1-1-08-003 PERLATO CLASICO 30 X 30 PULIDO MT2 66.13 187.2000 12,379.54 242.9670 16,067.41 (3,687.87)
1-1-08-004 PERLATO CLASICO 40 X 20 PULIDO MT2 07.20 187.2000 1,347.84 242.9670 1,749.36 (401.52)
1-1-08-005 PERLATO CLASICO 30 X 15 PULIDO MT2 244.25 187.2000 45,723.60 242.9670 59,344.69 (13,621.09)
1-1-08-007 BOTICINO PERLATO 40X40X1CM MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-08-008 BOTICINO PERLATO 30X15X1CM MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-08-009 PERLATO CLASICO 60X15 MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-08-010 PERLATO CLASICO 75X15 MT2 07.88 187.2000 1,475.14 242.9670 1,914.58 (439.44)
1-1-08-011 PERLATO CLASICO 1.30X15 MT2 00.17 187.2000 31.82 242.9670 41.30 (09.48)
1-1-08-012 PERLATO CLASICO 65X15 MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-08-013 PERLATO CLASICO 40X22.5 MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-09-001 PERLATO IVORY 30 X 30 PULIDO MT2 06.39 187.2000 1,196.21 242.9670 1,552.56 (356.35)
1-1-09-002 PERLATO IVORY 30 X 15 PULIDO MT2 27.32 187.2000 5,114.30 242.9670 6,637.86 (1,523.55)
1-1-10-001 MARFIL CLARO 40 X 40 PULIDO MT2 55.04 187.2000 10,303.49 242.9670 13,372.90 (3,069.42)
1-1-10-003 MARFIL CLARO 30 X 30 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-10-004 MARFIL CLARO 40 X 20 PULIDO MT2 01.97 187.2000 368.78 242.9670 478.64 (109.86)
1-1-10-005 MARFIL CLARO 30 X 15 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-10-006 PROCALCA CLARO 30X30X1CM MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-10-007 PROCLACA CLARA 40X20X1CM MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-10-008 PROCALCA CLARA 30X15X1CM MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-11-001 MARFIL MORADO 40 X 40 PULIDO MT2 02.24 187.2000 419.33 242.9670 544.25 (124.92)
1-1-11-002 MARFIL MORADO 30 X 60 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-11-003 MARFIL MORADO 30 X 30 PULIDO MT2 22.50 187.2000 4,212.00 242.9670 5,466.76 (1,254.76)
1-1-11-004 MARFIL MORADO 40 X 20 PULIDO MT2 00.64 187.2000 119.81 242.9670 155.50 (35.69)
1-1-11-005 MARFIL MORADO 30 X 15 PULIDO MT2 223.79 187.2000 41,893.49 242.9670 54,373.58 (12,480.10)
1-1-11-006 MARFIL MORADO 30X30X1CM MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-11-007 MARFIL MORADO 50X25X1CM MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-12-001 MARFIL VERDE 40 X 40 PULIDO MT2 34.88 187.2000 6,529.54 242.9670 8,474.69 (1,945.15)
1-1-12-003 MARFIL VERDE 30 X 30 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-12-004 MARFIL VERDE 40 X 20 PULIDO MT2 04.40 187.2000 823.68 242.9670 1,069.05 (245.37)
1-1-12-005 MARFIL VERDE 30 X 15 PULIDO MT2 120.29 187.2000 22,518.29 242.9670 29,226.50 (6,708.21)
1-1-13-001 MARFIL AMARILLO 40 X 40 PULIDO MT2 09.28 187.2000 1,737.22 242.9670 2,254.73 (517.52)
1-1-13-003 MARFIL AMARILLO 30 X 30 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-13-004 MARFIL AMARILLO 30 X 30 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-14-001 EXTRAVAGANZA LATINA 30 X 30 PU MT2 06.21 187.2000 1,162.51 242.9670 1,508.83 (346.31)
1-1-14-002 EXTRVAGANZA LATINA 30 X 15 PUL MT2 29.12 187.2000 5,451.26 242.9670 7,075.20 (1,623.94)
1-1-14-003 EXTRVAGANZA LATINA 30 X 15 PUL MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-15-001 TRAVERTINO 30 X 60 PULIDO MT2 03.42 187.2000 640.22 242.9670 830.95 (190.72)
1-1-15-002 TRAVERTINO 30 X 30 PULIDO MT2 04.59 187.2000 859.25 242.9670 1,115.22 (255.97)
1-1-15-003 TRAVERTINO 40 X 20 PULIDO MT2 00.02 187.2000 3.74 242.9670 4.86 (01.12)
1-1-15-004 TRAVERTINO 30 X 15 PULIDO MT2 115.13 187.2000 21,552.34 242.9670 27,972.79 (6,420.45)
1-1-15-005 TRAVERTINO 30 X 20 PULIDO MT2 52.02 187.2000 9,738.14 242.9670 12,639.14 (2,901.00)
1-1-15-006 TRAVERTINO 30 X 25 PULIDO MT2 00.00 187.2000 .00 242.9670 .00 00.00
1-1-16-001 VERDE ORIENTAL 30.5X30.5X1 PUL MT2 101.31 632.8800 64,117.07 632.8800 64,117.07 00.00
1-1-16-002 VERDE ORIENTAL 30.5X15.2X1 PUL MT2 585.36 355.3200 207,990.12 355.3200 207,990.12 00.00
1-1-16-003 VERDE ORIENTAL 40X40 PULIDO MT2 00.00 539.3000 .00 539.3000 .00 00.00
1-1-16-004 VERDE ORIENTAL 40X15X1.5 PULID MT2 00.48 539.3000 258.86 539.3000 258.86 00.00

ipprrp012 M A R M O T E C H, S. A. Pag. 3
Sistema de Inventario Productos Terminados 17/02/99
Diferencia en Costos Anuales 19:49:38
======================================================================================================================================
ARTICULOS... EXISTENCIA 1998 VALOR 1999 VALOR DIF
======================================================================================================================================
1-1-16-005 VERDE ORIENTAL 40X20X1.5 MT2 00.00 539.3000 .00 539.3000 .00 00.00
1-1-16-006 VERDE ORIENTAL 45.7X45.7X1.5 MT2 00.00 539.3000 .00 539.3000 .00 00.00
1-1-17-001 BLANCO CARRARA 45.7X45.7X1 PUL MT2 143.48 672.4200 96,478.82 672.4200 96,478.82 00.00
1-1-17-002 BLAMCO CARRARA 30.5X30.5X1 PUL MT2 54.87 325.0600 17,836.04 371.5400 20,386.40 (2,550.36)
1-1-17-003 BLANCO CARRARA 30.5X15.2X1 PUL MT2 00.93 325.0600 302.31 325.0600 302.31 00.00
1-1-17-004 BLANCO CARRARA 40X40X1.5 PULID MT2 63.20 495.3380 31,305.36 495.3380 31,305.36 00.00
1-1-18-001 NEGRO ORIENTAL 30.5X30.5X1 PUL MT2 13.49 518.9500 7,000.64 518.9500 7,000.64 00.00
1-1-19-001 MARRON ORIENTAL 30.5X30.5X1 PU MT2 98.33 518.9500 51,028.35 518.9500 51,028.35 00.00
1-1-20-001 GRIS ORIENTAL 30.5X30.5X1 PULI MT2 83.54 456.6000 38,144.36 456.6000 38,144.36 00.00
1-1-21-001 ROSA BELLISIMO 45.7X45.7X1 PUL MT2 139.10 674.3400 93,800.69 674.3400 93,800.69 00.00
1-1-21-002 ROSA BELLISIMO 30.5X30.5X1 PUL MT2 105.67 616.3400 65,128.65 616.3400 65,128.65 00.00
1-1-21-003 ROSA BELLISIMO 30.5X15.2X1 PUL MT2 100.69 601.8400 60,599.27 601.8400 60,599.27 00.00
1-1-22-001 MARFIL ESPANOL CLAS. 40X40X2 P MT2 1,973.44 511.0700 1,008,565.98 475.6200 938,607.53 69,958.45
1-1-22-002 MARFIL ESPANOL CLAS. 40X60X2 P MT2 00.00 475.6200 .00 475.6200 .00 00.00
1-1-22-003 MARFIL ESPANOL CALS. 30X60X2 P MT2 02.88 475.6200 1,369.79 475.6200 1,369.79 00.00
1-1-22-004 MARFIL ESPANOL CLAS.30.5X30.5X MT2 368.70 487.8720 179,878.41 487.8720 179,878.41 00.00
1-1-22-005 MARFIL ESP. CLAS. 30.5X15.2 P MT2 00.33 328.1500 108.29 328.1500 108.29 00.00
1-1-22-006 MARFIL ESPANOL STOCK 40X40X2P MT2 101.64 389.9200 39,631.47 389.9200 39,631.47 00.00
1-1-22-007 MARFIL ESPANOL STOCK 30X60X2 P MT2 12.60 376.4900 4,743.77 376.4900 4,743.77 00.00
1-1-22-008 MARFIL ESPANOL 45.7X45.7CLAS. MT2 175.18 547.8500 95,972.36 547.8500 95,972.36 00.00
1-1-22-009 MARFIL ESPANOL 40X20 PULIDO MT2 00.00 475.0000 .00 475.0000 .00 00.00
1-1-22-010 MARFIL ESPANOL 30.5X15.2 STOCK MT2 286.12 325.2800 93,069.11 325.2800 93,069.11 00.00
1-1-22-011 MARFIL ESPANOL 43.1X.32 MT2 00.00 475.6200 .00 475.6200 .00 00.00
1-1-22-012 MARFIL ESPANOL 43.1X.25 PULIDO MT2 00.00 475.6200 .00 475.6200 .00 00.00
1-1-22-013 MARFIL ESPANOL 43.1X.17 MT2 00.00 475.6200 .00 475.6200 .00 00.00
1-1-22-014 MARFIL ESPANOL 43.1X.10 MT2 01.34 475.6200 637.33 475.6200 637.33 00.00
1-1-22-015 MARFIL ESPANOL 20X20 PULIDAS MT2 07.17 389.9200 2,795.73 389.9200 2,795.73 00.00
1-1-22-016 CREMA MARFIL 30X40 PULIDA MT2 00.02 475.6200 9.51 475.6200 9.51 00.00
1-1-22-017 CREMA MARFIL 30.5X30.5 CLASICO MT2 468.87 574.3100 269,276.73 574.3100 269,276.73 00.00
1-1-22-018 CREMA MARFIL 30.5X15.2 MT2 300.41 395.8900 118,929.31 395.8900 118,929.31 00.00
1-1-23-001 VERDE REGALLIO 30.5X30.5X1 PUL MT2 194.14 729.2000 141,566.89 729.2000 141,566.89 00.00
1-1-24-001 MING GREEN 30.5X30.5X1 PULIDO MT2 00.09 518.9600 46.71 518.9600 46.71 00.00
1-1-25-001 BOTICCINO ITALIANO 30.5X30.5X1 MT2 184.75 428.9100 79,241.12 428.9100 79,241.12 00.00
1-1-26-001 ROJO BALMORAL 30X30X2 PULIDO MT2 00.63 645.9900 406.97 645.9900 406.97 00.00
1-1-27-001 ROJO ALICANTE 40X40X2 PULIDO MT2 00.00 645.9900 .00 645.9900 .00 00.00
1-1-27-002 ROJO ALICANTE 30X60X2 SEL.PU MT2 00.00 250.6600 .00 250.6600 .00 00.00
1-1-27-004 DESP. ROJO ALICANTE 30.5X30.5 MT2 37.21 263.5100 9,805.21 263.5100 9,805.21 00.00
1-1-27-005 ROJO ALICANTE 40X40 SEL. MT2 00.04 642.4300 25.70 642.4300 25.70 00.00
1-1-27-006 ROJO ALICANTE 60X60X2 SEL. MT2 00.00 1,014.7100 .00 1,014.7100 .00 00.00
1-1-27-007 ROJO ALICANTE 45X45X2 SEL. MT2 00.00 952.4000 .00 952.4000 .00 00.00
1-1-27-008 ROJO ALICANTE 40X15X2 SEL. MT2 03.60 709.4200 2,553.91 587.4600 2,114.86 439.06
1-1-27-009 ROJO ALICANTE 40X20X2 SEL. MT2 00.56 587.4600 328.98 650.5500 364.31 (35.33)
1-1-27-011 ROJO ALICANTE 30.5X30.5X1 SEL. MT2 177.21 662.3900 117,382.13 662.3900 117,382.13 00.00
1-1-27-012 ROJO ALICANTE 30.5X15.2X1 P. MT2 91.19 570.2700 52,002.92 570.2700 52,002.92 00.00
1-1-28-001 SATURNIA 45.7X45.7 APOMAZADO MT2 98.73 474.8100 46,877.99 474.8100 46,877.99 00.00
1-1-28-003 VERDE SAN FRANCISCO PANTANAL 3 MT2 00.00 1,662.4620 .00 1,662.4620 .00 00.00
1-1-29-001 DESPUNT. ROSA ZARCI 30.5X30.5 MT2 37.21 217.6900 8,100.24 217.6900 8,100.24 00.00
1-1-30-001 MULTICOLOR PASTEL 30.5X30.5X1 MT2 65.68 609.7300 40,047.07 609.7300 40,047.07 00.00
1-1-31-001 MARRON EMPE.30.5X30.5X1 SEL.P. MT2 39.10 778.5600 30,441.70 778.5600 30,441.70 00.00
1-1-31-002 DESP.MARRON EMP. 30.5X30.5 MT2 35.16 263.5100 9,265.01 263.5100 9,265.01 00.00
1-1-31-003 MARRON EMPERADOR 40X40 SELECTO MT2 56.32 583.4600 32,860.47 583.4600 32,860.47 00.00
1-1-31-004 MARRON EMPERADOR 40X20 SELECTO MT2 00.08 583.4600 46.68 583.4600 46.68 00.00
1-1-31-005 MARRON EMPERADOR 40X15 SELECTO MT2 00.42 584.1700 245.35 584.1700 245.35 00.00

ipprrp012 M A R M O T E C H, S. A. Pag. 4
Sistema de Inventario Productos Terminados 17/02/99
Diferencia en Costos Anuales 19:49:48
======================================================================================================================================
ARTICULOS... EXISTENCIA 1998 VALOR 1999 VALOR DIF
======================================================================================================================================
1-1-32-001 NEW VENEZIAN GOLD 30.5X30.5X1 MT2 00.84 1,015.1600 852.73 1,015.1600 852.73 00.00
1-1-33-001 ROSA PORRINO 30.5X30.5X1 MT2 06.33 730.0000 4,620.90 730.0000 4,620.90 00.00
1-1-34-001 LEOPARD WHITE 30.5X30.5X1 MT2 13.77 563.3300 7,757.05 563.3300 7,757.05 00.00
1-1-35-001 EVER GREEN 30.5X30.5X1 PULIDO MT2 66.70 745.1500 49,701.51 745.1500 49,701.51 00.00
1-1-36-001 NEGRO ABSOLUTO 30.5X30.5X1 PUL MT2 73.69 761.1000 56,085.46 761.1000 56,085.46 00.00
1-1-37-001 ALMOND MAUVE 30.5X30.5X1 MT2 00.00 579.2800 .00 579.2800 .00 00.00
1-1-38-001 ISLAND BEIGE 30.5X30.5X1 PULID MT2 21.21 579.2800 12,286.53 579.2800 12,286.53 00.00
1-1-39-001 BATBROOK 30.5X30.5X1 PULIDO MT2 61.30 563.3300 34,532.13 563.3300 34,532.13 00.00
1-1-40-001 EMPRESS GREEN DARK 45.7X45.7 MT2 00.21 900.7200 189.15 900.7200 189.15 00.00
1-1-40-002 EMPRESS GREEN DARK 30.5X30.5 MT2 66.98 677.6400 45,388.33 677.6400 45,388.33 00.00
1-1-40-003 EMPRESS GREEN MEDIUN 30.5X30.5 MT2 00.00 677.6400 .00 677.6400 .00 00.00
1-1-40-004 EMPRESS GREEN MEDIUN 45.7X45.7 MT2 98.16 733.5500 72,005.27 733.5500 72,005.27 00.00
1-1-40-005 EMPRESS GREEN MEDIUN 40 X40 MT2 254.72 539.0000 137,294.08 539.0000 137,294.08 00.00
1-1-41-001 TRAVERTINO ROMANO 30X60 PULIDO MT2 00.54 413.9800 223.55 539.0000 291.06 (67.51)
1-2-01-001 ROSA CORALINA 40X40 RUSTICO MT2 24.48 163.1600 3,994.16 212.6600 5,205.92 (1,211.76)
1-2-01-002 ROSA CORALINA 30X60 RUSTICO MT2 07.74 163.1600 1,262.86 212.6600 1,645.99 (383.13)
1-2-01-003 ROSA CORALINA 30X30 RUSTICO MT2 129.33 163.1600 21,101.48 212.6600 27,503.32 (6,401.84)
1-2-01-004 ROSA CORALINA 40X20 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-01-005 ROSA CORALINA 20X20 MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-02-001 CORALINA ORO 40X40 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-02-002 CORALINA ORO 30X60 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-02-003 CORALINA ORO 30X30 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-03-001 ROSA IMPERIAL 30X60 RUSTICO MT2 26.10 163.1600 4,258.48 212.6600 5,550.43 (1,291.95)
1-2-03-002 ROSA IMPERIAL 60X15 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-03-003 ROSA IMPERIAL 80X20 RUSTICO MT2 13.44 163.1600 2,192.87 212.6600 2,858.15 (665.28)
1-2-03-004 ROSA IMPERIAL 30X30 RUSTICO MT2 17.64 163.1600 2,878.14 212.6600 3,751.32 (873.18)
1-2-04-001 TAINO CLASICO 40X40 RUSTICO MT2 46.08 163.1600 7,518.41 212.6600 9,799.37 (2,280.96)
1-2-04-002 TAINO CLASICO 30X60 RUSTICO MT2 07.38 163.1600 1,204.12 212.6600 1,569.43 (365.31)
1-2-04-003 TAINO CLASICO 30X30 RUSTICO MT2 78.30 163.1600 12,775.43 212.6600 16,651.28 (3,875.85)
1-2-04-004 TAINO CLASICO 40X20 RUSTICO MT2 37.60 163.1600 6,134.82 212.6600 7,996.02 (1,861.20)
1-2-04-005 TAINO CLASICO 30X15 RUSTICO MT2 05.31 163.1600 866.38 212.6600 1,129.22 (262.85)
1-2-05-001 TAINO AMARILLO 40X40 RUSTICO MT2 157.60 163.1600 25,714.02 212.6600 33,515.22 (7,801.20)
1-2-05-002 TAINO AMARILLO 30X60 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-05-003 TAINO AMARILLO 30X30 RUSTICO MT2 02.70 163.1600 440.53 212.6600 574.18 (133.65)
1-2-06-001 TAINO ROJO 40X40 RUSTICO MT2 05.92 163.1600 965.91 212.6600 1,258.95 (293.04)
1-2-06-002 TAINO ROJO 30X60 RUSTICO MT2 29.52 163.1600 4,816.48 212.6600 6,277.72 (1,461.24)
1-2-06-003 TAINO ROJO 30X30 RUSTICO MT2 07.74 163.1600 1,262.86 212.6600 1,645.99 (383.13)
1-2-06-004 TAINO ROJO 40X20 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-07-001 TAINO FILETO NEGRO 40X40 RUSTI MT2 759.20 163.1600 123,871.07 212.6600 161,451.47 (37,580.40)
1-2-07-003 TAINO FILETO NEGRO 30X30 RUSTI MT2 47.70 163.1600 7,782.73 212.6600 10,143.88 (2,361.15)
1-2-07-004 TAINO FILETO NEGRO 40X20 RUSTI MT2 149.28 163.1600 24,356.52 212.6600 31,745.88 (7,389.36)
1-2-08-001 PERLATO CLASICO 40X40 RUSTICO MT2 01.28 163.1600 208.84 212.6600 272.20 (63.36)
1-2-08-002 PERLATO CLASICO 30X60 RUSTICO MT2 12.06 163.1600 1,967.71 212.6600 2,564.68 (596.97)
1-2-08-003 PERLATO CLASICO 30X30 RUSTICO MT2 26.19 163.1600 4,273.16 212.6600 5,569.57 (1,296.41)
1-2-09-001 PERLATO IVORY 30X60 RUSTICO MT2 22.32 163.1600 3,641.73 212.6600 4,746.57 (1,104.84)
1-2-09-002 PERLATO IVORY 30X30 RUSTICO MT2 11.70 163.1600 1,908.97 212.6600 2,488.12 (579.15)
1-2-10-001 MARFIL CLARO 40X40 RUSTICO MT2 127.20 163.1600 20,753.95 212.6600 27,050.35 (6,296.40)
1-2-10-002 MARFIL CLARO 30X60 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-10-003 MARFIL CLARO 30X30 RUSTICO MT2 00.09 163.1600 14.68 212.6600 19.14 (04.46)
1-2-11-001 MARFIL MORADO 40X40 RUSTICO MT2 187.41 163.1600 30,577.82 212.6600 39,854.61 (9,276.80)
1-2-11-002 MARFIL MORADO 30X60 RUSTICO MT2 183.24 163.1600 29,897.44 212.6600 38,967.82 (9,070.38)
1-2-11-003 MARFIL MORADO 30X30 RUSTICO MT2 57.51 163.1600 9,383.33 212.6600 12,230.08 (2,846.75)
1-2-12-001 MARFIL VERDE 40X40 RUSTICO MT2 136.00 163.1600 22,189.76 237.1200 32,248.32 (10,058.56)

ipprrp012 M A R M O T E C H, S. A. Pag. 5
Sistema de Inventario Productos Terminados 17/02/99
Diferencia en Costos Anuales 19:49:58
======================================================================================================================================
ARTICULOS... EXISTENCIA 1998 VALOR 1999 VALOR DIF
======================================================================================================================================
1-2-12-003 MARFIL VERDE 30X30 RUSTICO MT2 131.22 163.1600 21,409.86 237.1200 31,114.89 (9,705.03)
1-2-15-002 TRAVERTINO 30X60 RUSTICO MT2 00.84 163.1600 137.05 212.6600 178.63 (41.58)
1-2-15-003 TRAVERTINO 30X30 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-15-004 TRAVERTINO 30X20 RUSTICO MT2 31.38 163.1600 5,119.96 212.6600 6,673.27 (1,553.31)
1-2-15-005 TRAVERTINO 30X15 RUSTICO MT2 06.04 163.1600 985.49 212.6600 1,284.47 (298.98)
1-2-15-006 TRAVERTINO 40X20 RUSTICO MT2 97.68 163.1600 15,937.47 212.6600 20,772.63 (4,835.16)
1-2-15-007 TRAVERTINO 50X20 RUSTICO MT2 43.70 163.1600 7,130.09 212.6600 9,293.24 (2,163.15)
1-2-15-008 TRAVERTINO 50X25 RUSTICO MT2 34.63 163.1600 5,650.23 212.6600 7,364.42 (1,714.19)
1-2-16-001 CALIZA CORALINA 40X40 RUSTICO MT2 02.48 163.1600 404.64 212.6600 527.40 (122.76)
1-2-16-002 CALIZA CORALINA 30X60 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-16-003 CALIZA CORALINA 30X30 RUSTICO MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-16-006 BORDILLOS CALIZA CORALINA MT2 00.00 163.1600 .00 212.6600 .00 00.00
1-2-22-001 MARFIL ESPANOL 40X40 RUSTICO S MT2 3,122.24 288.1800 899,767.12 288.1800 899,767.12 00.00
1-2-22-002 MARFIL ESPANOL 40X60 RUSTICO S MT2 1,086.99 238.5700 259,323.20 238.5700 259,323.20 00.00
1-2-22-003 MARFIL ESPANOL 30X60 RUSTICO S MT2 1,151.54 298.4000 343,619.54 298.4000 343,619.54 00.00
1-2-22-003 MARFIL ESPANOL 30X60 RUSTICO S MT2 1,151.54 298.4000 343,619.54 298.4000 343,619.54 00.00
1-2-22-004 MARFIL ESPANOL40X30 RUST STOCK MT2 100.82 248.4800 25,051.75 248.4800 25,051.75 00.00
1-2-22-007 CREMA MARFIL ESPANOL 40X20 RUS MT2 00.00 288.1800 .00 288.1800 .00 00.00
1-2-22-008 MARFIL ESPANOL 30X15 RUSTICO MT2 07.88 342.3000 2,697.32 342.3000 2,697.32 00.00
1-2-22-009 MARFIL ESPANOL 40X20 RUSTICO MT2 03.12 342.3000 1,067.98 342.3000 1,067.98 00.00
1-2-22-010 MARFIL ESPANOL 30X30 RUSTICO MT2 15.84 342.3000 5,422.03 342.3000 5,422.03 00.00
1-2-22-011 MARFIL ESPANOL 40X40 SELECTO R MT2 1,520.64 398.2900 605,655.71 398.2900 605,655.71 00.00
1-2-27-001 ROJO ALICANTE 40X40X2 RUS.STC. MT2 00.00 419.8400 .00 419.8400 .00 00.00
1-2-28-001 TRAVER. SATURNIA 45.7X45.7 RUS MT2 189.85 474.8100 90,142.68 474.8100 90,142.68 00.00
1-2-31-001 MARRON EMPERADOR 40X40 RUSTICO MT2 184.80 336.1200 62,114.98 336.1200 62,114.98 00.00
1-2-31-003 MARRON EMPERADOR 30X60X2 RUSTI MT2 36.00 593.6100 21,369.96 593.6100 21,369.96 00.00
1-2-40-001 AMARILLO ELO (SIERRA)30X60 RUS MT2 35.28 306.8400 10,825.32 306.8400 10,825.32 00.00
1-2-41-001 TRAVERTINO ROMANO 30X60 RUSTIC MT2 00.86 226.7800 195.03 226.7800 195.03 00.00
2-1-00-001 TOPES MARMOL CRIOLLO MT2 01.77 433.8045 767.83 528.1845 934.89 (167.05)
2-1-00-002 GRANITO BLANCO PERLA MT2 01.06 845.9700 896.73 1,353.1200 1,434.31 (537.58)
2-1-00-003 MARMOL MARRON EMPERADOR MT2 04.32 845.9700 3,654.59 1,713.1200 7,400.68 (3,746.09)
2-1-00-004 MARMOL CREMA MARFIL ESPANOL MT2 02.56 845.9700 2,165.68 1,353.1200 3,463.99 (1,298.30)
2-1-00-005 MARMOL BLANCO CARRARA MT2 00.00 845.9700 .00 1,713.1200 .00 00.00
2-1-00-006 MARMO VERDE ISOGNE MT2 01.92 1,662.4620 3,191.93 1,713.1200 3,289.19 (97.26)
2-1-00-007 MARMOL VERDE ORIENTAL MT2 03.46 1,417.7340 4,905.36 1,713.1200 5,927.40 (1,022.04)
2-1-00-008 MARMOL ROJO ALICANTE MT2 02.26 845.9700 1,911.89 1,713.1200 3,871.65 (1,959.76)
2-1-00-009 MARMOL TRAVERTINO SATURNIA MT2 02.96 845.9700 2,504.07 1,353.1200 4,005.24 (1,501.16)
2-1-00-010 MARMOL TRAVERTINO ROMANO MT2 00.00 845.9700 .00 1,353.1200 .00 00.00
2-1-00-011 MARMOL ROSA BELLISIMO MT2 00.00 845.9700 .00 1,353.1200 .00 00.00
2-1-00-013 MARMOL NEGRO MARQUINA MT2 00.00 845.9700 .00 1,353.1200 .00 00.00
2-1-00-014 GRANITO ROSA PORRINO MT2 00.56 845.9700 473.74 1,353.1200 757.75 (284.00)
2-1-00-015 GRANITO NEGRO SUDAFRICA MT2 02.15 1,417.7340 3,048.13 1,713.1200 3,683.21 (635.08)
2-1-00-017 GRANITO VERDE UBATUBA MT2 02.68 845.9700 2,267.20 1,713.1200 4,591.16 (2,323.96)
2-1-00-018 GRANITO VERDE SAN FCO. ACUARIO MT2 00.00 1,417.7340 .00 1,713.1200 .00 00.00
2-1-00-019 GRANITO VERDE SAN FCO SAVANA MT2 01.43 1,662.4620 2,377.32 2,193.1200 3,136.16 (758.84)
2-1-00-020 GRANITO VERDE EUCALIPTO MT2 00.00 1,662.4620 .00 2,193.1200 .00 00.00
2-1-00-021 GRANITO AMARILLO IBERICO MT2 00.50 845.9700 422.99 1,353.1200 676.56 (253.58)
2-1-00-022 GRANITO ALMOND MOUVE MT2 00.00 1,417.7340 .00 1,353.1200 .00 00.00
2-1-00-023 GRANITO MACAJUBA MT2 00.00 1,662.4620 .00 1,713.1200 .00 00.00
2-1-00-024 GRANITO ROJO SALMON MT2 00.00 1,417.7340 .00 1,713.1200 .00 00.00
2-1-00-025 GRANITO BAIBROOK BROWN MT2 00.00 1,417.7340 .00 1,353.1200 .00 00.00
2-1-00-026 GRANITO IVORY SILK MT2 00.00 1,662.4620 .00 1,713.1200 .00 00.00
2-1-00-027 GRANITO ISLAND BEIGE MT2 00.00 845.9700 .00 1,353.1200 .00 00.00

ipprrp012 M A R M O T E C H, S. A. Pag. 6
Sistema de Inventario Productos Terminados 17/02/99
Diferencia en Costos Anuales 19:50:12
======================================================================================================================================
ARTICULOS... EXISTENCIA 1998 VALOR 1999 VALOR DIF
======================================================================================================================================
2-1-00-028 GRANITO ROJO MULTICOLOR MT2 00.00 1,417.7340 .00 2,193.1200 .00 00.00
2-1-00-029 GRANITO NEW VENEZIAN GOLD MT2 00.01 1,417.7340 14.18 2,193.1200 21.93 (07.75)
2-1-00-030 GANITO AMARILLO TOPACIO MT2 00.00 1,662.4620 .00 1,713.1200 .00 00.00
2-1-00-031 GRANITO LEOPARD WHITE MT2 00.00 845.9700 .00 1,353.1200 .00 00.00
2-1-00-032 GRANITO BLANCO CRISTAL MT2 01.27 845.9700 1,074.38 1,353.1200 1,718.46 (644.08)
2-1-00-033 GRANITO MULTICOLOR VERDE MT2 00.00 1,417.7340 .00 1,713.1200 .00 00.00
2-1-00-034 LABRADOR CLARO/BLUE PEARL MT2 02.21 1,662.4620 3,674.04 2,193.1200 4,846.80 (1,172.75)
2-1-00-035 GRANITO JUPARANA AFRICANO MT2 00.00 1,662.4620 .00 2,193.1200 .00 00.00
2-1-00-036 GRANITO JUPARANA COLOMBO MT2 00.00 1,417.7340 .00 2,193.1200 .00 00.00
2-1-00-037 GRANITO BUTTER CREAM MT2 00.24 1,662.4620 398.99 2,193.1200 526.35 (127.36)
2-1-00-038 GRANITO MULTICOLOR PASTEL MT2 03.41 1,417.7340 4,834.47 1,353.1200 4,614.14 220.33
2-1-00-039 MARRON BALTICO MT2 00.04 1,417.7340 56.71 1,713.1200 68.52 (11.82)
2-1-00-040 MARMOL AMARILLO ELO/SIERRA MT2 00.00 1,417.7340 .00 1,353.1200 .00 00.00
2-1-00-041 MARMOL BRECCIA ONICIATA MT2 00.00 1,417.7340 .00 1,713.1200 .00 00.00
2-1-00-042 MARMOL BRECCIA PERNICE MT2 00.00 1,662.4620 .00 1,713.1200 .00 00.00
2-1-00-043 GRANITO ROSA BETA MT2 00.00 1,417.7340 .00 1,713.1200 .00 00.00
2-1-00-044 ROJO BALMORAL MT2 00.98 1,662.4620 1,629.21 2,193.1200 2,149.26 (520.04)
2-1-00-045 GRANITO NEGRO ABSOLUTO MT2 00.61 1,417.7340 864.82 2,193.1200 1,337.80 (472.99)
2-1-00-045 GRANITO NEGRO ABSOLUTO MT2 00.61 914.6200 557.92 2,193.1200 1,337.80 (779.89)
2-1-00-046 TOPE ROSA CORALINA MT2 00.51 433.8045 221.24 528.1845 269.37 (48.13)
2-1-00-047 GRANITO PARADISO BUSH MT2 00.00 1,662.4600 .00 1,713.1200 .00 00.00
2-1-00-048 GRANITO VERDE PANTANAL MT2 00.00 1,417.7340 .00 1,713.1200 .00 00.00
2-1-00-049 GRANITO VERDE PANTANAL MT2 00.00 1,417.7340 .00 1,713.1200 .00 00.00
2-1-00-050 GRANITO NEGRO ZIMBAWE MT2 00.17 1,417.7340 241.01 2,193.1200 372.83 (131.82)
2-1-00-051 EMPRESS GREEN DARK MT2 00.00 1,662.2500 .00 2,193.1200 .00 00.00
2-1-00-052 GRANITO VERDE SAN FRANCISCO MT2 00.00 1,662.4620 .00 2,193.1200 .00 00.00
2-1-00-053 GRANITO AMARILLO SIERRA MT2 00.00 845.9700 .00 1,353.1200 .00 00.00
2-1-00-054 EMPRESS GREEN MEDIUN MT2 00.00 1,417.7340 .00 1,713.1200 .00 00.00
2-1-00-055 EMPRESS GREEN COMERCIAL MT2 00.00 1,417.7340 .00 1,353.1200 .00 00.00
2-1-00-056 MAMOL MARFIL ESPANOL SELECTO MT2 00.00 845.9700 .00 1,353.1200 .00 00.00
2-1-00-057 GRANITO BLANCO KASHMIR MT2 00.00 1,417.7340 .00 2,193.1200 .00 00.00
2-1-01-001 ZOCALO ROSA CORALINA 30X7 ML 357.10 38.5631 13,770.88 64.7631 23,126.90 (9,356.02)
2-1-01-002 ZOCALO ROSA CORALINA 40X7 ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-01-003 HUELLAS ROSA CORALINA ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-01-004 CONTRA HUELLAS ROSA CORALINA ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-01-005 FALDAS ROSA CORALINA 70X25 MT2 00.00 180.5966 .00 242.9670 .00 00.00
2-1-01-006 QUICIO ROSA CORALINA ML 00.00 38.5631 .00 188.2255 .00 00.00
2-1-01-007 ROSA CORALINA 60X20 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-01-008 FALDAS ROSA CORALINA 75X20 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-01-009 ROSA CORALINA 75X10 MT2 00.01 187.2000 1.87 242.9670 2.43 (00.56)
2-1-01-010 ROSA CORALINA 60X10 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-01-011 ROSA CORALINA 140X60 MT2 00.00 433.8045 .00 528.1845 .00 00.00
2-1-01-012 ROSA CORALINA 1 X 34 MT2 00.00 180.5966 .00 528.1845 .00 00.00
2-1-01-013 ROSA CORALINA 113 X 30 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-01-014 ROSA CORALINA 120X30 MT2 ( 03.24) 187.2000 (606.53) 242.9670 (787.21) 180.69
2-1-01-015 ZOCALOS ROSA CORALINA 70X10 MT2 00.28 38.5630 10.80 242.9670 68.03 (57.23)
2-1-01-016 ROSA CORALINA 115X60 MT2 00.00 187.2000 .00 528.1845 .00 00.00
2-1-01-017 ROSA CORALINA 75X60 MT2 00.00 187.2000 .00 528.1845 .00 00.00
2-1-01-018 ROSA CORALINA 70X20 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-01-019 ROSA CORALINA 90X20 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-01-020 ROSA CORALINA 120X60 MT2 00.00 187.2000 .00 528.1845 .00 00.00
2-1-01-021 ROSA CORALINA 140X25 MT2 00.00 187.2000 .00 528.1845 .00 00.00
2-1-01-022 ROSA CORALINA 70X10 MT2 00.00 187.2000 .00 242.9670 .00 00.00

ipprrp012 M A R M O T E C H, S. A. Pag. 7
Sistema de Inventario Productos Terminados 17/02/99
Diferencia en Costos Anuales 19:50:24
======================================================================================================================================
ARTICULOS... EXISTENCIA 1998 VALOR 1999 VALOR DIF
======================================================================================================================================
2-1-01-023 ROSA CORALINA 180X60 MT2 00.00 433.8045 .00 528.1845 .00 00.00
2-1-01-024 TOPES ROSA CORALINA 150X60 MT2 00.00 433.8045 .00 528.1845 .00 00.00
2-1-01-025 FALDAS ROSA CORALINA MT2 00.00 187.2000 .00 528.1845 .00 00.00
2-1-01-027 ZOCALOS ESPECIALES ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-02-001 ZOCALO CORALINA ORO 30X7 MT2 00.00 38.5631 .00 64.7631 .00 00.00
2-1-02-003 HUELLAS CORALINA ORO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-02-004 CONTRA HUELLAS CORALINA ORO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-03-001 ZOCALO ROSA IMPERIAL 30X7 MT2 00.00 38.5631 .00 188.2255 .00 00.00
2-1-03-002 ZOCALO ROSA IMPERIAL 40X7 ML 00.00 38.5631 .00 188.2255 .00 00.00
2-1-03-003 HUELLAS ROSA IMPERIAL ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-03-004 CONTRA HUELLA ROSA IMPERIAL ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-04-001 ZOCALO TAINO CLASICO 30X7 ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-04-002 ZOCALO TAINO CLASICO 40X10 ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-04-003 HUELLAS TAINO CLASICO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-04-005 ZOCALOS TAINO CLASICO 40X7 ML 00.00 38.5631 .00 61.7631 .00 00.00
2-1-04-006 ZOCALOS TAINO CLASICO 40X7 MT2 00.00 38.5631 .00 64.7631 .00 00.00
2-1-04-007 TAINO CLASICO 140X60 MT2 00.00 187.2000 .00 528.1845 .00 00.00
2-1-04-008 TAINO CLASICO 140X25 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-04-009 TAINO CLASICO 70X10 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-05-001 ZOCALO TAINO AMARILLO 30X7 ML 00.00 38.5631 .00 242.9670 .00 00.00
2-1-06-001 ZOCALO TAINO ROJO 30X7 ML 00.00 38.5631 .00 242.9670 .00 00.00
2-1-06-002 ZOCALO TAINO ROJO 40X7 ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-06-003 HUELLAS TAINO ROJO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-06-004 CONTRA HUELLAS TAINO ROJO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-07-001 ZOCALO TAINO FILETO NEGRO 30X7 ML 00.00 38.5631 .00 188.2255 .00 00.00
2-1-07-002 ZOCALO TAINO FILETO NEGRO 40X7 ML 00.00 38.5631 .00 188.2255 .00 00.00
2-1-07-003 HUELLAS TAINO FILETO NEGRO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-07-004 CONTRA HUELLAS TAINO FILETO NE ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-07-005 TOPES TAINO NEGRO 140X60 MT2 00.00 433.8045 .00 528.1845 .00 00.00
2-1-07-006 FALDAS TAINO NEGRO 140X25 MT2 00.00 433.8045 .00 242.9670 .00 00.00
2-1-07-007 ZOCALOS TAINO NEGRO 70X10 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-08-001 ZOCALO PERLATO CLASICO 30X7 ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-08-002 ZOCALO PERLATO CLASICO 40X7 ML 39.20 38.5631 1,511.67 64.7631 2,538.71 (1,027.04)
2-1-08-003 HUELLAS PERLATO CLASICO ML 13.27 180.5966 2,396.52 188.2255 2,497.75 (101.24)
2-1-08-004 CONTRA HUELLAS PERLATO CLASICO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-08-005 ZOCALOS PERLATO CLASICO 84X10 ML 00.74 38.5631 28.54 64.7631 47.92 (19.39)
2-1-08-006 PERLATO CLASICO 76X15 MT2 03.08 187.2000 576.58 242.9670 748.34 (171.76)
2-1-08-007 PERLATO CLASICO 60X15 MT2 06.03 187.2000 1,128.82 242.9670 1,465.09 (336.28)
2-1-08-008 PERLATO CLASICO 130X15 MT2 00.19 187.2000 35.57 242.9670 46.16 (10.60)
2-1-08-010 TOPES PERLATO CLASICO MT2 00.00 187.1600 .00 528.1845 .00 00.00
2-1-08-011 FALDAS PERLATO CLASICO MT2 00.00 187.2000 .00 528.1845 .00 00.00
2-1-08-012 QUISIOS PERLATO CLASICO MT2 00.00 187.2000 .00 528.1845 .00 00.00
2-1-08-013 PERLATO CLASICO 140X25 MT2 01.75 187.2000 327.60 242.9670 425.19 (97.59)
2-1-08-014 PERLATO CLASICO 70X10 MT2 00.00 187.2000 .00 242.9670 .00 00.00
2-1-08-015 PERLATO CLASICO 140X60 MT2 00.00 187.2100 .00 528.1845 .00 00.00
2-1-09-001 ZOCALO PERLATO IVORY 30X7 ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-10-001 ZOCALO MARFIL CLARO 30X7 ML 50.80 38.5631 1,959.01 64.7631 3,289.97 (1,330.96)
2-1-10-002 ZOCALO MARFIL CLARO 40X7 ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-10-003 HUELLAS MARFIL CLARO ML 03.00 180.5966 541.79 188.2255 564.68 (22.89)
2-1-10-004 CONTRA HUELLAS MARFIL CLARO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-10-005 ZOCALOS ESPECIALES MARFIL CLAR ML 00.00 38.5631 .00 188.2255 .00 00.00
2-1-10-006 ZOCALOS MARFIL CLARO ESPECIALE ML 00.00 38.5630 .00 188.2255 .00 00.00
2-1-11-001 ZOCALO MARFIL MORADO 30X7 ML 00.00 38.5631 .00 64.7631 .00 00.00

ipprrp012 M A R M O T E C H, S. A. Pag. 8
Sistema de Inventario Productos Terminados 17/02/99
Diferencia en Costos Anuales 19:50:31
======================================================================================================================================
ARTICULOS... EXISTENCIA 1998 VALOR 1999 VALOR DIF
======================================================================================================================================
2-1-13-001 ZOCALO MARFIL AMARILLO 30X7 ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-14-001 ZOCALO ESTRAVAGANZA LATINA 30X ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-15-001 ZOCALO TRAVERTINO 30X7 ML 00.10 38.5633 3.86 64.7631 6.48 (02.62)
2-1-15-002 ZOCALO TRAVERTINO 40X7 ML 00.00 38.5631 .00 64.7631 .00 00.00
2-1-15-004 CONTRA HUELLAS TRAVERTINO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-17-001 LISTELOS BLCO CARRARA/BLCO CRI ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-17-002 LISTELOS ROJOS/CREMA ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-17-003 LISTELOS BLANCO/NEGRO/ROJO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-17-004 LISTELOS CREMA /VERDE ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-17-005 LISTELOS VERDE/NEGRO/ROJO ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-17-006 LISTELOS CREMA/MARRON ML 00.00 180.5966 .00 188.2255 .00 00.00
2-1-21-001 ZOCALOS ROSA BELLISIMO MT2 14.11 1,662.4620 23,457.34 188.2255 2,655.86 20,801.48
2-1-22-001 ZOCALO CREMA MARFIL 30.5X8 MT2 00.00 1,417.7340 .00 188.2255 .00 00.00
2-1-22-001 ZOCALO CREMA MARFIL 30.5X8 MT2 00.00 338.5700 .00 188.2255 .00 00.00
2-1-22-002 ZOCALOS CREMA MARFIL MT2 00.85 1,417.7340 1,205.07 188.2255 159.99 1,045.08
2-1-22-002 ZOCALOS CREMA MARFIL MT2 00.85 475.6200 404.28 188.2255 159.99 244.29
2-1-22-003 ZOCALO CREMA MARFIL 60X08 MT2 00.00 1,417.7340 .00 188.2255 .00 00.00
2-1-22-003 ZOCALO CREMA MARFIL 60X08 MT2 00.00 376.4900 .00 188.2255 .00 00.00
2-1-22-004 CREMA MARFIL 80X10 MT2 00.00 1,417.7340 .00 188.2255 .00 00.00
2-1-22-006 ZOCALOS CREMA VERDE 30.5X7 MT2 00.00 1,662.4620 .00 188.2255 .00 00.00
2-1-22-007 ZOCALOS CREMA MERFIL MARRON 40 MT2 00.00 1,662.4620 .00 188.2255 .00 00.00
2-1-22-008 ZOCALOS CREMA MARFIL 40X7 MT2 00.00 1,662.4620 .00 188.2255 .00 00.00
2-1-27-001 ZOCALOS MARMOL ROJO IMPORTADO MT2 00.34 1,417.7340 482.03 188.2255 64.00 418.03
2-1-27-002 ZOCALOS 40X7 ROJO ALICANTE MT2 00.00 1,417.7340 .00 188.2255 .00 00.00
2-1-34-001 ZOCALOS BLANCOS IMPORTADOS MT2 00.00 1,417.7340 .00 188.2255 .00 00.00
2-1-50-001 ROSETON UND 00.00 1,417.7700 .00 188.2255 .00 00.00
2-2-00-001 MARMOL CRIOLLO RUSTICO MT2 00.00 359.8050 .00 188.2255 .00 00.00
3-0-00-003 RESINA UND 00.00 196.7500 .00 188.2255 .00 00.00
3-0-00-004 AUTOLUCIDANTE UND 00.00 89.4000 .00 188.2255 .00 00.00
3-0-00-007 EVER CLEAN UND 00.00 355.4200 .00 188.2255 .00 00.00
3-0-00-011 IMPERSTON UND 00.00 303.3500 .00 188.2255 .00 00.00
3-0-00-013 PAGLIERINO UND 00.00 150.9000 .00 188.2255 .00 00.00
3-0-00-017 DISCOS DIAMANTADOS 7" UND 00.00 971.5500 .00 188.2255 .00 00.00
3-0-00-018 ABRASIVOS 5X UND 12.00 70.2500 843.00 188.2255 2,258.71 (1,415.71)
3-0-00-019 ABRASIVOS #400 UND 00.00 41.9000 .00 188.2255 .00 00.00
3-0-00-020 ABRASIVOS #3 UND 00.00 17.1800 .00 188.2255 .00 00.00
3-0-00-021 P19-01 CL 12X1 MARB/GRAN UND 06.00 191.1200 1,146.72 188.2255 1,129.35 17.37
3-0-00-022 P19B-01 BL 12X1L MARB/GRAN UND 12.00 231.8000 2,781.60 188.2255 2,258.71 522.89
3-0-00-023 P21-00.1 PAST TB CL 60X10 UND 60.00 65.4500 3,927.00 188.2255 11,293.53 (7,366.53)
3-0-00-024 P21.00.50 PAST JAR CL 24X1/2L UND 47.00 157.8100 7,417.07 188.2255 8,846.60 (1,429.53)
3-0-00-025 P21.00.50 PASTE JAR BL 24X1/2 UND 24.00 196.0000 4,704.00 188.2255 4,517.41 186.59
3-0-00-026 P23.01.00 POLISH PRESERVER 12X UND 35.00 192.5600 6,739.60 188.2255 6,587.89 151.71
3-0-00-027 P24.01.0 LIQ STONE SOAP 12X1L UND 35.00 142.9200 5,002.20 188.2255 6,587.89 (1,585.69)
3-0-00-028 P25AL-01 MARBLE STAIN LIGHT 12 UND 23.00 414.3700 9,530.51 188.2255 4,329.19 5,201.32
3-0-00-029 P25B-01 MARBLE FINISH 12X1 UND 11.00 436.2200 4,798.42 188.2255 2,070.48 2,727.94
3-0-00-030 P27-10 REPOLISH POWDER UND 24.00 434.3100 10,423.44 188.2255 4,517.41 5,906.03
3-0-00-031 S31-01 SILANE IMPREG 12X1L UND 24.00 272.6400 6,543.36 188.2255 4,517.41 2,025.95
3-0-00-032 S34-01 SILICONE IMPREG 12X1L UND 45.00 446.5500 20,094.75 188.2255 8,470.15 11,624.60
3-0-00-033 S35-01 STONE SEAL MATTE 12X1L UND 11.00 268.4900 2,953.39 188.2255 2,070.48 882.91
3-0-00-034 S37-01 STONE SEAL SATIN 12X1L UND 11.00 304.3500 3,347.85 188.2255 2,070.48 1,277.37
3-0-00-035 S39-01 STONE SEAL GLOSS 12X1L UND 12.00 447.4600 5,369.52 188.2255 2,258.71 3,110.81
3-0-00-036 R55-01 INTENSIVE CLEANR 12X1L UND 29.00 187.3500 5,433.15 188.2255 5,458.54 (25.39)
3-0-00-037 R80-01 STRIP/STAIN REMOVR 12X1 UND 12.00 182.3800 2,188.56 188.2255 2,258.71 (70.15)

ipprrp012 M A R M O T E C H, S. A. Pag. 9
Sistema de Inventario Productos Terminados 17/02/99
Diferencia en Costos Anuales 19:50:39
======================================================================================================================================
ARTICULOS... EXISTENCIA 1998 VALOR 1999 VALOR DIF
======================================================================================================================================
3-0-00-038 Z170 SEALIN BRUSH 9" UND 05.00 1,049.9300 5,249.65 188.2255 941.13 4,308.52
3-0-00-039 Z171 SEALIN BRUSH 21" UND 06.00 1,612.3500 9,674.10 188.2255 1,129.35 8,544.75
3-0-00-040 Z202-110V POLISHING-VAC UND 16.00 3,451.2000 55,219.20 188.2255 3,011.61 52,207.59
3-0-00-041 Z203-FILTER BAGS (SET DE 5) UND 10.00 204.2600 2,042.60 188.2255 1,882.26 160.35
3-0-00-042 Z206 BRUSH HARD (SET DE 3) UND 10.00 413.5300 4,135.30 188.2255 1,882.26 2,253.05
3-0-00-043 Z207 BRUSH SOFT (10 SET DE 3) UND 10.00 413.5300 4,135.30 188.2255 1,882.26 2,253.05
3-0-00-044 Z208 FELT PADS (20 SET DE 3) UND 20.00 413.5300 8,270.60 188.2255 3,764.51 4,506.09
4-0-00-001 MARMOL LOCO LOCAL MT3 06.00 200.0000 1,200.00 188.2255 1,129.35 70.65
4-0-00-002 MARMOL LOCO IMPORTADO MT3 00.00 1,000.0000 .00 188.2255 .00 00.00
6-0-00-001 HILO DIAMANTADO ML 00.00 1,839.8800 .00 188.2255 .00 00.00
6-0-00-002 HILO DIAMANTADO RECONSTRUIDO ML 00.00 1,103.9300 .00 188.2255 .00 00.00
6-0-00-005 BLOQUES MT3 00.00 2,544.6607 .00 188.2255 .00 00.00
6-0-00-006 JUNTA DE GRANITO UND 00.00 8.8900 .00 188.2255 .00 00.00
6-0-00-007 BARRAS 3' UND 00.00 1,308.2400 .00 188.2255 .00 00.00
6-0-00-008 JUEGO DE REPUESTOS UND 00.00 6,256.8000 .00 188.2255 .00 00.00
6-0-00-009 PLANCHAS GRANITO NEGRO SUDAFRI MT2 00.00 968.9200 .00 188.2255 .00 00.00
======================================================================================================================================
TOTAL REGISTROS===> 440 7,903,832.82 8,176,895.30 (273,062.48)

+3
View File
@@ -0,0 +1,3 @@
acmn00000.4gl
No such file or directory. The input file "acmn00000.4gl" cannot be opened.
+2
View File
@@ -0,0 +1,2 @@
update iptb00006 set status_t = null where num_doc = 63 and cod_mov = 42
and fecha = "02/03/2002"
+39
View File
@@ -0,0 +1,39 @@
{
=============================================================================
FORMULARIO : IPFMWD009
OBJETIVO : Desplegar los codigos y nombres de la maestra de
clientes
PROGRAMA Q. LO USA : IPPRMT044
AUTOR : JUAN F. SOTO
FECHA : FEBRERO 6, 1999
=============================================================================
}
DATABASE decomarmol
SCREEN
{
Codigo ORDEN:[a ][b ][c ][d ]DESCRIPCION:[k1 ]
NUMERO ORDEN:[p ]
Codigo Actualizar:[a1 ][b1 ][c1 ][d1 ]DESCRIPCION[d2 ]
}
end
tables
vetb00004
attributes
k1 = formonly.descrip_esp;
a = formonly.cod_n;
b = formonly.cod_grupo;
c = formonly.cod_tipo;
d = formonly.cod_sec;
d2 = formonly.pdescrip_esp2,noentry;
p = formonly.porden;
a1 = formonly.acod_n;
b1 = formonly.acod_grupo;
c1 = formonly.acod_tipo;
d1 = formonly.acod_sec;
instructions delimiters " "
end
+23
View File
@@ -0,0 +1,23 @@
database marmotech
screen size 24 by 80
{
departamento [f000 ]
nom_dpto [f001 ]
status_t [a]
us_crea [f002 ]
fech_crea [f003 ]
us_mod [f004 ]
fech_mod [f005 ]
}
end
tables
adtb00001
attributes
f000 = adtb00001.departamento;
f001 = adtb00001.nom_dpto;
a = adtb00001.status_t;
f002 = adtb00001.us_crea;
f003 = adtb00001.fech_crea;
f004 = adtb00001.us_mod;
f005 = adtb00001.fech_mod;
end
+726
View File
@@ -0,0 +1,726 @@
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 1
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:38
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
01-01-01-003 ROSA REALE 30 X 60 PULIDO 8.46 180.08 2596 2,595 2.82 09/07/2008
01-01-01-004 ROSA REALE 30 X 30 PULIDO 2,455.65 218.06 10 10 818.55 14/07/2008
01-01-01-005 ROSA REALE 40 X 20 PULIDO 26.00 7.04 33 32 8.67 11/06/2008
01-01-01-006 ROSA REALES 30 X 15 PULIDO 682.13 117.34 20 20 227.38 30/05/2008
01-01-17-011 M. BLANCO CARRARA 40.7X40.7 90.37 -12.34 16 .00 16 30.12 07/05/2008
01-01-22-001 CREMA MARFIL 40X40 CLASICO 508.36 124.76 29 ****** 188,598.44 29 169.45 05/06/2008 29/02/2008
01-01-22-002 MARFIL ESPANOL 40X60 CLASICO 106.28 .16 .00 35.43 02/04/2008
01-01-22-003 MARFIL ESPANOL 30X60 CLASICO 38.78 .14 .00 960.69 134.50 12.93 24/04/2008 18/10/2007
01-01-22-004 MARFIL ESPANOL 30.5X30.5 CLASI 53.27 .09 .00 300 ****** 87.49 687 17.76 23/06/2008 24/10/2007 30, 30,
01-01-22-006 MARFIL ESPANOL 40X40 STOCK 1.28 .10 9 1,613 ****** 109.74 153,739 .43 06/05/2008 27/07/2007 30,
01-01-22-016 CREMA MARFIL 30X40 PULIDA 3.00 .00 .00 1.00 17/03/2008
01-01-22-017 CREMA MARFIL 30.5X30.5 CLASICO 71.32 .06 .00 ****** 62.43 23.77 13/06/2008 26/12/2007
01-01-22-050 CREMA MARFIL 60X60 CLASICO 130.00 .16 .00 ****** 233.39 43.33 18/03/2008 29/02/2008
01-01-22-051 CREMA MARFIL 60X60 SELECTO 2,019.28 .04 .00 205 ****** 92.28 12 673.09 12/05/2008 27/03/2008 376,
01-01-22-053 CREMA MARFIL 40X40 SELECTO 72.12 .04 .00 ****** 47.21 24.04 08/04/2008 07/02/2007
01-01-22-069 CREMA MARFIL 30.5X30.5 P.STOCK 38.81 .01 .00 987.39 6.20 12.94 30/05/2008 23/10/2007
01-01-22-074 CREMA MARFIL 40X80 CLASICA P. 505.12 .29 .00 604 ****** 478.05 145 168.37 05/06/2008 30/04/2008 782,
01-01-22-086 CREMA M.30.5X30.5 1C.CLAS.DESP 500.04 .03 .00 564.36 17.39 166.68 12/05/2008 29/02/2008
01-01-22-087 CREMA MARFIL P. 30.5X20 DESPUN 2.44 .00 .00 .81 07/07/2008
01-01-22-093 CREMA MARFIL 30.5X25 CLASICO 1,444.14 .02 .00 481.38 25/06/2008
01-01-22-095 CREMA MARFIL 30X30 CLASICO .90 .00 .00 .30 19/05/2008
01-01-22-096 CREMA MARFIL 71X71 X1.5 SEL. 35.79 .24 .00 ****** 571.73 11.93 14/06/2008 12/12/2007
01-01-22-097 CREMA MARFIL 71X71 X1.5 CLS 125.12 .21 .00 ****** 413.00 41.71 06/03/2008 12/12/2007
01-01-25-001 BOTICCINO ITALIANO 30.5X30.5X1 1.02 461.27 55171 ****** 541,238.30 55,139 .34 27/03/2008 29/12/2007
01-01-25-004 BOTICCINO ITALIANO 30X30 31.95 .00 .00 10.65 14/04/2008
01-01-27-014 ROJO ALICANTE 30.5X30.5 COMERC 15.40 69.71 552 ****** 129,178.87 546 5.13 18/03/2008 18/01/2007
01-01-27-017 ROJO ALICANTE 40X40 PULIDO 15.56 19.16 150 ****** 35,239.10 148 5.19 30/06/2008 05/12/2006
01-01-31-007 MARRON IMPERIAL 30.5X30.5 COME 5.67 89.71 1930 300 ****** 151,454.31 8,372 1.89 11/07/2008 06/12/2006 146,
01-01-40-003 EMPRESS GREEN MEDIUN 30.5X30.5 269.31 .84 .00 187 944.24 791.97 84 89.77 05/04/2008 02/12/2006 135, 26,
01-01-40-009 EMPRESS GREEN MEDIUN 30.5X15.2 267.00 21.50 9 946.83 20,356.82 9 89.00 28/04/2008 02/12/2006
01-01-43-004 THASSOS 40X40 1.5 CM 60.00 87.61 178 ****** 148,218.12 176 20.00 14/07/2008 01/10/2007
01-01-43-005 BLANCO THASSO 30X30 M2 91.57 11.03 14 14 30.52 24/05/2008
01-01-43-006 BLANCO THASSOS 28X28 8.98 6.99 94 959.62 6,703.14 81 2.99 17/06/2008 01/10/2006
01-01-43-007 BLANCO THASSOS 45.7X45.7 25.89 124.79 588 ****** 360,041.60 584 8.63 19/05/2008 04/09/2007
01-01-48-001 AMARILLO SIERRA LIGH.30.5X30.5 1.40 37.93 3315 ****** 70,286.02 3,234 .47 30/04/2008 31/05/2007
01-01-48-002 AMARILOO SIERRA LIGHT 60X30X2C 60.26 310.30 628 ****** 514,397.08 627 20.09 27/05/2008 31/05/2007
01-01-64-003 TRAVERTINO VN 40X40 PUL/EST 236.90 50.64 26 25 78.97 12/07/2008
01-01-64-004 TRAVERTINO VN 30X60 PUL/EST 1,024.08 133.53 15 15 341.36 09/07/2008
01-01-64-005 TRAVERTINO VN 30X15 PUL/EST 3,193.27 509.92 19 19 1,064.42 30/05/2008
01-01-64-007 TRAVERTINO VN 60X60 PUL/EST 135.36 .00 .00 45.12 27/03/2008
01-01-64-012 TRAVERTINO VN 40X20 PUL/EST 83.76 18.56 27 26 27.92 09/07/2008
01-01-64-013 TRAVERTINO VN 40X60 PUL/EST 6.00 6.96 141 122 2.00 01/07/2008
01-01-64-019 TRAVERTINO VN 30X20 PUL/EST 282.20 .44 .00 94.07 21/06/2008
01-01-64-021 TRAVERTINO VN 40X30 PUL/ESTC 4.92 35.04 868 867 1.64 24/04/2008
01-01-64-031 TRAVERTINO P/E 45.7X45.7 104.84 1.88 2 1 34.95 27/05/2008
01-01-64-034 TRAVERTINO 30X30 P/E RESINA 6,609.65 202.61 3 3 2,203.22 15/07/2008
01-01-64-051 TRAVERTINO P. 60X20 V.N. .72 1.68 284 169 .24 19/05/2008
01-01-64-061 TRAVERTINO 30X15 OSCURO 236.27 3.37 1 .00 1 78.76 24/04/2008
01-01-64-062 TRAVERTINO 30X30 OSC. PUL. 28.98 42.82 180 176 9.66 19/05/2008
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 2
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:38
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
01-01-64-063 TRAVERTINO 30X60 OSC. P. 1.08 86.12 9728 9,714 .36 02/07/2008
01-01-64-081 TRAVERTINO 40.6X40.6 30.00 3.30 13 12 10.00 04/04/2008
01-01-71-003 ISIS CREAM 60X60 P. 160.08 17.98 13 424 ****** 21,573.21 336 53.36 14/07/2008 19/11/2007 1174,
01-01-71-004 GALALA 60X60 P. 785.76 1,090.02 169 403 ****** 1,366,182.89 231 261.92 17/06/2008 31/03/2008 1174,
01-01-71-006 ONIX P. 18"X18"X3/4" IMP. 170.88 99.12 70 ****** 298,676.86 70 56.96 21/05/2008 28/08/2007
01-01-71-009 M. BCO.PERLINO 1.20X0.75 119.70 1.80 1 .00 ****** 5,050.49 1 39.90 17/05/2008 02/05/2008
01-01-72-001 CREMA MARFIL 40X40 CLAS. 32.00 286.72 1093 1,090 10.67 14/07/2008
01-01-72-016 CREMA MARFIL 40X80 CLAS 16.00 1,936.00 14762 14,762 5.33 23/06/2008
01-01-72-019 CREMA MARFIL 30.5X30.5 CLAS 2.70 1,076.45 48678 48,657 .90 28/06/2008
01-01-72-039 CREMA MARFIL 30.5X25 CLAS 214.34 3.43 1 .00 1 71.45 14/07/2008
01-01-72-047 CREMA MARFIL 60X60 SEL 1,999.80 567.36 34 ****** 1,343,349.85 34 666.60 17/06/2008 12/06/2008
01-01-72-056 CREMA MARFIL 71X71X1.5 SEL 31.75 382.54 1469 1,467 10.58 02/07/2008
01-02-01-003 ROSA REALE 30X30 RUSTICO 101.16 436.42 526 525 33.72 04/07/2008
01-02-01-029 ROSA REAL 60X20 R. 2.70 16.38 740 722 .90 07/03/2008
01-02-16-007 CALIZA CORALINA 45.7 X 45.7 RU 114.93 73.40 77 77 38.31 06/06/2008
01-02-16-008 CALIZA CORALINA 40.6X40.6 11,213.39 2,128.52 23 23 3,737.80 08/07/2008
01-02-16-011 CALIZA CORALINA 30.5X30.5 RUST 7,753.32 1,296.27 20 20 2,584.44 15/07/2008
01-02-16-012 CALIZA CORALINA 30.5X15.2 RUST 2,745.17 624.99 27 27 915.06 07/07/2008
01-02-16-013 CALIZA CORALINA 61X61 833.19 174.60 25 25 277.73 26/05/2008
01-02-16-015 CALIZA CORALINA 30.5X61 9,159.28 593.64 7 7 3,053.09 15/07/2008
01-02-16-016 CALIZA CORALINA 25X25 RUSTICO 6.00 27.50 559 549 2.00 21/05/2008
01-02-16-018 CALIZA CORALINA 16"X16"X3/4 4,657.68 366.41 9 9 1,552.56 15/07/2008
01-02-16-023 CALIZA CORALINA 20.3X40.6 RUST 3,864.87 1,702.59 53 53 1,288.29 15/07/2008
01-02-16-024 CALIZA CORALINA 12"X12"X3/4 3,545.81 66.58 2 2 1,181.94 15/07/2008
01-02-16-027 CALIZA CORALINA 16"X24" 1,420.57 .89 .00 473.52 31/05/2008
01-02-16-028 CALIZA CORALINA 61X40.6 88.85 1.05 1 .00 1 29.62 30/06/2008
01-02-16-033 CALIZA CORALINA 8"X8"X3/4 136.58 11.35 10 9 45.53 27/05/2008
01-02-16-043 CALIZA CORALINA R 20.3 X 20.3 354.71 .31 .00 118.24 20/06/2008
01-02-16-049 CALIZA CORALINA R 12"X24"3/4 3,234.23 .44 .00 1,078.08 15/07/2008
01-02-16-078 CALIZA CORALINA 12"X18" 3/4 49.76 1.39 3 2 16.59 29/04/2008
01-02-16-086 CALIZA CORALINA 15.2X15.2 3.79 66.74 2150 2,126 1.26 21/05/2008
01-02-16-119 CALIZA CORALINA 305X45.7 .17 150.22 105181 105,027 .06 26/05/2008
01-02-16-128 CALIZA RUSTICA 40.6X30.5 352.38 132.12 45 45 117.46 20/06/2008
01-02-16-157 CALIZA CORALINA R. 61X45.7 .70 16.30 2842 2,789 .23 26/05/2008
01-02-16-158 CALIZA C. R. 30.5X20.3 1,015.07 290.57 34 34 338.36 25/06/2008
01-02-16-160 CALIZA C. 18"X18" 3/4 R. 336.87 .49 .00 112.29 15/07/2008
01-02-16-161 CALIZA C. 24"X24" 3/4 R. 4,210.01 40.46 1 .00 1 1,403.34 07/07/2008
01-02-16-162 CALIZA NUEVA 16"X16" 7,064.46 305.43 5 5 2,354.82 07/07/2008
01-02-16-163 CALIZA NUEVA 40.6X40.6 4,698.02 640.65 16 16 1,566.01 11/07/2008
01-02-16-164 CALIZA NUEVA 18"X18" 2,168.07 402.27 22 22 722.69 25/06/2008
01-02-16-165 CALIZA NUEVA 30.5X30.5 129.53 1,912.10 1800 1,800 43.18 21/06/2008
01-02-16-166 CALIZA NUEVA 40.6X20.3 125.08 1,920.94 1873 1,872 41.69 11/07/2008
01-02-16-167 CALIZA NUEVA 45.7X45.7 3.14 309.36 12019 12,005 1.05 10/07/2008
01-02-16-169 CALIZA C. 61X30.5 NUEVA 120.38 3,738.96 3789 3,788 40.13 03/07/2008
01-02-16-170 CALIZA NUEVA 30.5X15.2 74.96 349.39 568 567 24.99 13/06/2008
01-02-16-173 CALIZA C. 61X61 NUEVA 269.77 307.43 139 138 89.92 09/05/2008
01-02-16-174 CALIZA NUEVA 40.6X30.5 1,885.30 269.18 17 17 628.43 20/06/2008
01-02-16-175 CALIZA C.NUEVA 12"X24" 3,121.41 150.41 5 5 1,040.47 28/06/2008
01-02-16-176 CALIZA C. NUEVA 40.6X61 13.00 .43 3 4.33 08/04/2008
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 3
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:38
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
01-02-16-179 CALIZA C. NUEVA 30.5X20.3 5.02 45.88 1115 1,094 1.67 30/05/2008
01-02-16-183 CALIZA C.NUEVA 12"X12"X3/4 891.32 666.31 91 91 297.11 04/07/2008
01-02-16-184 CALIZA C. 16"X8"X3/4" NUEVA 62.97 68.95 133 131 20.99 31/05/2008
01-02-16-185 CALIZA C. 16"X8"X3/4" VJ. 528.90 118.59 27 27 176.30 30/06/2008
01-02-16-186 CALIZA C. 16"X12"X3/4 41.60 105.76 310 307 13.87 14/04/2008
01-02-16-187 CALIZA C. 24"X24"X3/4 NUEVA 2,772.88 1,167.67 51 51 924.29 07/07/2008
01-02-16-189 CORALINA 12"X6"X3/4" NUEVA 8.53 585.96 8380 8,366 2.84 15/07/2008
01-02-16-191 CORALINA 16"X24" 3/4 NUEVA 626.39 54.56 10 10 208.80 13/06/2008
01-02-16-192 CORALINA 8"X8" 3/4" NUEVA 62.97 59.94 116 114 20.99 31/05/2008
01-02-16-193 CORALINA CLASICA 45.7X20.3 200.01 26.25 16 15 66.67 23/04/2008
01-02-16-194 CORALINA CLASICA 12"X6" 117.41 2,128.83 2212 2,211 39.14 11/06/2008
01-02-16-206 CORALINA NUEVA 20.3X61 1,873.74 299.89 19 19 624.58 23/06/2008
01-02-16-210 CORALINA CLASICA 20.3X61 1,078.81 87.03 9 9 359.60 27/06/2008
01-02-16-216 CORALINA NUEVA 45.7X20.3 219.92 394.31 218 218 73.31 12/05/2008
01-02-16-220 CORALINA NUEVA 45.7X30.5 27.88 257.03 1124 1,124 9.29 07/04/2008
01-02-16-221 CORALINA 61X15.2 CLASICA 13.44 11.68 106 99 4.48 31/05/2008
01-02-16-228 CORALINA 15.2X15.2 NUEVA 3.65 .42 14 1.22 31/05/2008
01-02-16-241 CORALINA NUEVA 12"X8"X3/4 47.93 227.86 580 577 15.98 06/06/2008
01-02-16-245 CALIZA C. 18"X24" CLASICA 274.60 3.61 1 .00 1 91.53 29/04/2008
01-02-16-251 CALIZA C. 24"X6" NUEVA 12.05 3.71 37 30 4.02 30/06/2008
01-02-22-003 MARFIL ESPANOL 30X60 PROYECTOS 2,596.14 .04 .00 745.79 29.83 865.38 05/06/2008 30/11/2007
01-02-22-004 MARFIL ESPANOL40X30 RUST STOCK 63.52 .04 .00 474.99 19.00 21.17 12/03/2008 02/11/2005
01-02-22-005 MARFIL ESPANOL 40X40 PROYECTOS 502.50 .06 .00 193 736.37 44.18 46 167.50 23/05/2008 19/11/2007 376,
01-02-22-015 CREMA MARFIL 40X40 R STOCK 402.16 .14 .00 1,504 674.05 94.37 456 134.05 10/04/2008 28/08/2007 281, 210,
01-02-22-022 CREMA MARFIL 40X60 STOCK 399.84 .12 .00 669.20 80.30 133.28 30/04/2008 30/06/2007
01-02-22-030 CREMA MARFIL 60X40 PROY.R. 694.60 .12 .00 764.44 91.73 231.53 01/07/2008 11/02/2008
01-02-64-001 TRAVERTINO VN 40X40 RUSTICO 512.88 23.48 5 5 170.96 11/07/2008
01-02-64-002 TRAVERTINO VN 30X60 RUSTICO 8,678.52 223.94 3 3 2,892.84 15/07/2008
01-02-64-003 TRAVERTINO VN 30X30 RUSTICO 4,763.45 643.94 16 16 1,587.82 15/07/2008
01-02-64-007 TRAVERTINO VN 30X15 101.98 469.77 561 561 33.99 19/06/2008
01-02-64-009 TRAVERTINO R 60 X 20 96.84 2.76 3 2 32.28 24/06/2008
01-02-64-010 TRAVERTINO VN 40X20 481.68 482.83 122 122 160.56 14/07/2008
01-02-64-013 TRAVERTINO VN 60X60 RUSTICO 718.46 159.02 27 26 239.49 11/07/2008
01-02-64-017 TRAVERTINO 30X20 R VN. 2,513.80 3,364.64 163 163 837.93 24/06/2008
01-02-64-018 TRAVERTINO 40X30 R 61.00 620.96 1241 1,239 20.33 30/04/2008
01-02-64-019 TRAVERTINO 45.7 X 45.7 363.81 294.95 98 98 121.27 11/07/2008
01-02-64-023 TRAVERTINO 20 X 20 R 4.00 3.80 115 91 1.33 05/06/2008
01-02-64-041 TRAVERT RUST./EST.CEM 30X60 7,001.28 601.92 10 10 2,333.76 15/07/2008
01-02-64-047 TRAVERTINO 30X60 R. OSC. 4,620.44 784.28 20 20 1,540.15 08/07/2008
01-02-64-048 TRAVERTINO 30 X30 R. OSC. 1,590.95 243.50 18 18 530.32 06/06/2008
01-02-64-052 TRAVERTINO 60X60 RUS. OSC. 1.32 10.56 976 924 .44 27/03/2008
01-02-64-055 TRAVERTINO OSCURO 20X40 92.00 285.52 378 377 30.67 28/06/2008
01-02-64-056 TRAVERTINO R. 40X50 25.00 8.00 39 39 8.33 20/05/2008
01-02-64-058 TRAVERTINO R. 30X60 AMAR 2,972.26 704.40 28 28 990.75 14/07/2008
01-02-64-059 TRAVERTINO R. 30X20 OSC 1,253.42 1,153.80 112 112 417.81 31/03/2008
01-02-64-068 TRAVERTINO 45X45 R. 71.51 33.83 57 56 23.84 11/03/2008
01-02-69-001 TRAVERTINO IVORY 40X40 RUSTICO 31.36 .00 .00 303 ****** .00 1,178 10.45 31/03/2008 03/04/2006 855,
01-02-69-002 TRAVERTINO IVORY 40X60 RUSTICO 23.52 .00 .00 230 ****** .00 1,193 7.84 31/03/2008 03/04/2006 855,
01-02-69-004 TRAVERTINO IVORY 45.7X45.7 RUS 201.82 796.54 481 ****** 825,752.22 481 67.27 15/07/2008 09/06/2006
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 4
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:38
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
01-02-69-005 TRAVERTINO IVORY 40X20 RUSTICO 7.84 .00 .00 72 ****** .00 1,120 2.61 31/03/2008 03/04/2006 855,
01-02-69-006 TRAVERTINO IVORY 20X20 RUSTICO 7.84 .00 .00 72 ****** .00 1,120 2.61 31/03/2008 03/04/2006 855,
01-02-69-007 PATRON TRAVERTINO IVORY R. 1.44 4.96 420 691 58,881 .48 30/04/2008 15/05/2007 1153,
01-02-72-001 CREMA MARFIL 40X40 PROY 360.32 4,273.76 1447 849.73 3,631,532.26 1,446 120.11 14/07/2008 26/06/2008
01-02-72-005 CREMA MARFIL 40X30 PROY 549.84 149.88 33 33 183.28 19/06/2008
01-02-72-009 CREMA MARFIL 40X60 PROY 613.68 3,254.88 647 845.70 2,752,643.88 646 204.56 10/07/2008 26/06/2008
01-03-16-003 CALIZA APOMAZADA 30.5 X 30.5 159.66 324.37 247 247 53.22 08/07/2008
01-03-16-005 CALIZA C. APOM./EST. 40.6X20.3 151.52 13.56 10 10 50.51 22/04/2008
01-03-16-006 CALIZA C.APOM./EST. 40.6X61 69.84 15.11 26 26 23.28 30/04/2008
01-03-16-007 CALIZA APOM. 40.6 X40.6 52.91 109.55 252 251 17.64 25/04/2008
01-03-16-008 CALIZA APOM. 30.5X15.2 9.85 92.14 1140 1,138 3.28 30/04/2008
01-03-16-009 CALIZA C. 61X30.5 APOM. 22.00 267.69 1484 1,480 7.33 02/04/2008
01-03-16-010 CALIZA C. 40.6X30.5 APOM./EST. 1.86 -.00 .00 .62 30/04/2008
01-03-16-011 CALIZA C. 20.3X20.3 APOM. 73.27 124.62 207 206 24.42 31/05/2008
01-03-16-013 CALIZA C. 61X61 APOM./EST. 4.47 .01 .00 1.49 23/05/2008
01-03-16-017 CORALINA 16"X16" APOM. 167.85 39.02 28 28 55.95 15/04/2008
01-03-16-021 CORALINA 12"X12" APOM. NUEVA 116.47 8.19 8 8 38.82 10/07/2008
01-03-16-023 CORALINA 24"X24" APOM/EST. 139.40 .14 .00 46.47 10/04/2008
01-03-16-034 CORALINA 8"X8" APOM. NUEVA 8.65 .00 .00 2.88 27/06/2008
01-03-22-002 CREMA MARFIL APOM. 40X60 4,684.36 2.60 .00 801.61 2,084.18 1,561.45 12/06/2008 18/01/2008
01-03-22-003 CREMA MARFIL APOM. 30X60 90.00 .00 .00 848.09 .00 30.00 11/06/2008 02/03/2007
01-03-64-001 TRAVERTINO 40X40 APOM. 463.56 46.23 12 12 154.52 20/06/2008
01-03-64-014 TRAVERTINO 60X60 APOM. .72 .00 .00 .24 10/06/2008
01-03-64-020 TRAVERTINO 30X20 APOM 1,291.16 169.78 16 15 430.39 15/07/2008
01-03-70-001 TRAV.AMAR.45.7X45.7 APOM.C.CUT 54.72 645.99 1440 ****** 842,589.75 1,438 18.24 07/07/2008 29/05/2008
01-04-16-003 CORALINA 12"X12"X3/4" 54.60 46.62 104 102 18.20 02/04/2008
01-04-64-002 TRAVERTINO 30X60 AL ACIDO 45.92 .18 .00 15.31 15/07/2008
01-04-64-013 TRAVERTINO 30X20 AL ACIDO 50.00 112.66 274 273 16.67 25/03/2008
01-05-16-011 CORALINA 30.5X30.5 ENV. 114.98 .12 .00 38.33 08/05/2008
01-05-16-012 CALIZA C. 12"X24" ENV. 1.86 5.95 390 327 .62 10/05/2008
01-05-16-020 CORALINA 12"X12" ENVEJ 278.81 .47 .00 92.94 27/03/2008
01-05-22-001 CREMA MARFIL ENVEJECIDO 40X40 572.52 .08 .00 ****** 169.16 190.84 30/05/2008 01/03/2008
01-05-22-009 CREMA MARFIL ENVEJ. 60X60 250.92 .00 .00 ****** .00 83.64 25/04/2008 01/03/2008
01-05-22-010 CREMA MARFIL 40X60 ENVEJ. 515.04 .00 .00 ****** .00 171.68 28/05/2008 22/07/2007
01-05-22-012 CREMA MARFIL 45.7X45.7 ENV. 33.00 .00 .00 ****** 5.69 11.00 05/03/2008 01/03/2008
01-05-22-013 CREMA MARFIL 40X30 ENVEJ. 239.40 .00 .00 79.80 09/06/2008
01-05-22-015 PATRON CREMA MARFIL ENVJ. 76.00 .00 .00 ****** .00 25.33 09/05/2008 30/04/2008
01-05-61-001 CARIBBEAN BLOND ENVEJ. 40 X 40 460.88 32.08 8 8 153.63 15/07/2008
01-05-61-002 CARIBBEAN BLON ENVJ. 30 X 60 20.52 49.18 292 291 6.84 31/03/2008
01-05-61-003 CARIBBEAN BLOND 30X30 ENVEJ. 75.72 160.57 258 257 25.24 09/06/2008
01-05-61-005 CARIBBEAN BLOND 30X15 ENVEJ. 9.00 1.18 16 13 3.00 27/06/2008
01-05-61-013 CARIBEAND B. 40X30 ENVEJ. 359.64 -12.48 4 .00 4 119.88 10/05/2008
01-05-61-017 CARIBEAND BLOND 40X15 ENV. 36.00 .00 .00 12.00 14/05/2008
01-05-61-018 CARIBEAN B. 40X10 ENV. 5.60 33.00 718 718 1.87 09/06/2008
01-05-64-001 TRAVERTINO ENVJ. 40 X 40 567.84 31.48 6 6 189.28 14/05/2008
01-05-64-002 TRAVERTINO ENVEJ. 30 X 60 1,570.70 .55 .00 523.57 15/07/2008
01-05-64-003 TRAVERTINO 30X30 ENVEJ. 710.64 95.58 16 16 236.88 15/07/2008
01-05-64-005 TRAVERTINO ENVEJ. 30 X 15 519.95 488.21 114 114 173.32 19/05/2008
01-05-64-006 TRAVERTINO ENVEJ. 30 X 20 146.70 58.02 48 48 48.90 25/06/2008
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 5
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:38
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
01-05-64-007 TRAVERTINO ENVEJ. 20 X 20 51.48 31.32 74 73 17.16 30/06/2008
01-05-64-009 TRAVERTINO ENVJ. 40 X 60 1.68 .24 17 .56 14/03/2008
01-05-64-013 TRAVERTINO ENVEJ. 20X60 511.20 .40 .00 170.40 31/05/2008
01-05-64-015 TRAVERTINO ENVEJ. 60X60 394.12 .20 .00 131.37 07/06/2008
01-05-64-016 TRAVERTINO 30X10 ENVEJ. 7.80 102.06 1596 1,595 2.60 14/05/2008
01-05-64-021 TRAVERTINO 30 X40 ENV 95.96 208.24 264 264 31.99 06/06/2008
01-05-64-023 TRAVERT. 30X30 ENVEJ. OSCURO 130.27 216.93 203 202 43.42 16/04/2008
01-05-64-024 TRAVERTINO 40X40 ENV OSC 10.76 .28 3 3.59 14/03/2008
01-05-64-027 TRAVERTINO 40X10 ENV 74.44 106.72 174 173 24.81 09/06/2008
01-05-64-028 TRAVERTINO 40X15 ENV 11.70 37.04 386 385 3.90 09/06/2008
01-05-64-030 TRAVERTINO 60X10 ENV. 225.18 36.60 19 19 75.06 31/05/2008
01-05-64-032 TRAVERTINO 20X10 ENVEJ. 5.50 .00 .00 1.83 21/05/2008
01-05-64-035 TRAVERTINO 20X20 ENV.AM. 100.00 43.60 53 52 33.33 13/06/2008
01-05-64-036 TRAVERTINO 20X25 ENV.OSC. .65 .00 .00 .22 30/06/2008
01-05-69-001 TRAVERTINO PATRON C.C. ENV. 357.60 .28 .00 ****** 317.27 119.20 24/06/2008 13/08/2007
01-05-70-003 TRAV.AMAR.40.6X40.6ENV.C.C.PAT 14.01 .00 .00 ****** .00 4.67 31/03/2008 15/01/2007
01-05-70-004 TRAV.AMAR.ENV.40.6X20.3C.C.PAT 4.59 .02 .00 ****** 23.71 1.53 30/04/2008 15/01/2007
01-05-70-007 TRAVERT.AM.C.C.PATRON ENV.B.C. 408.32 784.20 234 700 443 136.11 15/07/2008 30/06/2008 1572,
01-05-71-002 GALALA ANTIQUE 60X60 ENV. 90.72 577.80 777 441 ****** 728,437.86 1,369 30.24 15/07/2008 14/01/2008 1174,
01-05-71-006 ISIS CREAM ANT.60X60 ENV. 1,097.56 1,383.48 153 ****** 1,683,334.49 153 365.85 25/06/2008 24/04/2008
01-06-16-001 CALIZA C. 10X10 TOMBOLA 93.76 .04 .00 31.25 10/06/2008
01-06-64-001 TRAVERTINO BOLEADO 10X10 79.61 115.70 177 176 26.54 05/07/2008
02-01-00-003 MARMOL MARRON EMPERADOR 110.69 17.76 19 18 36.90 14/07/2008
02-01-00-004 MARMOL CREMA MARFIL ESPANOL 14.80 2.78 22 16 4.93 19/05/2008
02-01-00-005 MARMOL BLANCO CARRARA 233.24 12.13 6 6 77.75 08/07/2008
02-01-00-008 MARMOL ROJO ALICANTE 17.56 14.36 99 97 5.85 15/07/2008
02-01-00-011 MARMOL ROSA BELLISIMO 12.52 4.60 44 38 4.17 25/06/2008
02-01-00-013 MARMOL NEGRO MARQUINA 47.33 .02 .00 15.78 15/07/2008
02-01-00-014 GRANITO ROSA PORRINO 9.26 64.19 845 843 3.09 07/07/2008
02-01-00-015 GRANITO NEGRO SUDAFRICA 13.69 3.96 35 26 4.56 01/07/2008
02-01-00-017 GRANITO VERDE UBATUBA 34.55 3.13 11 10 11.52 19/06/2008
02-01-00-020 GRANITO VERDE EUCALIPTO 10.56 .02 .00 3.52 08/03/2008
02-01-00-028 GRANITO ROJO MULTICOLOR 43.43 1.41 3 2 14.48 02/07/2008
02-01-00-029 GRANITO NEW VENEZIAN GOLD 427.16 211.46 60 60 142.39 30/06/2008
02-01-00-032 GRANITO BLANCO CRISTAL 9.49 .39 5 3.16 23/06/2008
02-01-00-034 LABRADOR CLARO/BLUE PEARL .68 1.66 297 179 .23 11/07/2008
02-01-00-039 MARRON BALTICO .19 .01 6 .06 12/07/2008
02-01-00-040 MARMOL AMARILLO ELO/SIERRA 4.75 11.94 306 282 1.58 23/06/2008
02-01-00-041 MARMOL BRECCIA ONICIATA 24.48 1.49 7 4 8.16 05/07/2008
02-01-00-043 GRANITO ROSA BETA 106.43 29.51 33 33 35.48 30/06/2008
02-01-00-045 GRANITO NEGRO ABSOLUTO 125.60 .46 .00 41.87 08/07/2008
02-01-00-051 EMPRESS GREEN DARK 1.17 .34 35 .39 30/04/2008
02-01-00-053 MARMOL AMARILLO SIERRA 1.62 .01 .00 .54 08/05/2008
02-01-00-054 EMPRESS GREEN MEDIUN 1.55 7.05 553 549 .52 01/07/2008
02-01-00-055 EMPRESS GREEN COMERCIAL 9.38 .00 .00 3.13 23/06/2008
02-01-00-056 CREMA MARFIL ESPANOL SELECTO 175.70 565.52 392 392 58.57 15/07/2008
02-01-00-057 GRANITO BLANCO KASHMIR 6.07 41.90 842 824 2.02 11/07/2008
02-01-00-058 CREMA MARFIL COMERCIAL 381.91 240.22 76 76 127.30 15/07/2008
02-01-00-068 PIEZAS ONIX 1.45 .00 .00 .48 11/04/2008
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 6
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:38
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
02-01-00-070 BLANCO THASSOS 5.15 13.41 317 307 1.72 08/07/2008
02-01-00-071 MARMOL BLANCO THASSOS 2.18 .00 .00 .73 25/03/2008
02-01-00-075 GIALLO ANTICO 2C. 3.93 .01 .00 1.31 14/07/2008
02-01-00-080 VERDE MARIPOSA 62.36 12.72 24 23 20.79 27/06/2008
02-01-00-081 GRANITO TIFFANY 6.00 12.68 257 244 2.00 05/06/2008
02-01-00-085 MARMOL BOTTICINO ITALIANO 34.75 6.08 21 21 11.58 14/07/2008
02-01-00-087 GRANITO NUEVO CECILIA 65.10 14.28 26 26 21.70 27/06/2008
02-01-00-089 GRANITO JUPARANA LEVANTINA 3.25 -.10 3 .00 1.08 24/04/2008
02-01-00-090 GRANITO SAMOA 25.57 2.89 13 9 8.52 11/07/2008
02-01-00-093 GRANITO CAPAO BONITO 30.10 36.97 149 145 10.03 01/07/2008
02-01-00-095 GRANITO AMARILLO ICARAI 42.92 11.07 31 31 14.31 12/07/2008
02-01-00-102 AMARILLO MARACUJA 16.75 18.63 135 131 5.58 15/07/2008
02-01-00-104 CINZA CORUMBA 5.79 4.22 88 84 1.93 11/06/2008
02-01-00-107 GIALLO ORNAMENTAL 2.94 6.67 276 248 .98 16/07/2008
02-01-00-108 BLANCO ITAUNAS 44.61 29.03 79 79 14.87 15/07/2008
02-01-00-112 SAMBA WHITE 2.92 .00 .00 .97 29/04/2008
02-01-00-116 GRANITO NEGRO SAHARA 47.64 .32 .00 15.88 12/07/2008
02-01-00-118 GRANITO BLANCO AQUALUX 16.54 1.71 12 7 5.51 10/06/2008
02-01-00-120 GRANITO JUPARANA FANTASIA 1.04 .00 .00 .35 30/04/2008
02-01-00-122 SPANISH GOLD/AMARILLO MARES 17.09 4.31 30 28 5.70 08/07/2008
02-01-00-124 GREY GREEN 9.39 .00 .00 3.13 16/06/2008
02-01-00-131 GRANITO PARADISO CLASICO 1.39 .00 .00 .46 12/05/2008
02-01-00-133 GRANITO NEW VENEZIAN GOL LIGHT 5.30 4.02 92 92 1.77 23/05/2008
02-01-00-134 GRANITO NEW VENEZIAN GOLD 3CM. 70.30 17.73 30 29 23.43 11/07/2008
02-01-00-137 BLANCO CASTILLA 90.70 2.20 2 2 30.23 10/06/2008
02-01-00-138 GRANITO BLANCO COLONIAL GOLD 67.99 30.53 54 53 22.66 08/04/2008
02-01-00-139 GRANITO VERDE COTO PULIDO 82.75 17.56 25 25 27.58 10/07/2008
02-01-00-140 GRANITO COTO ENVEJECIDO 173.62 139.33 97 97 57.87 12/07/2008
02-01-00-142 TOPES ROJO DRAGON 4.39 2.27 62 55 1.46 14/07/2008
02-01-00-147 ZOCALOS LAJAS BLACK P. .78 .00 .00 .26 26/05/2008
02-01-00-150 MADURA GOLD 14.47 2.98 25 16 4.82 19/05/2008
02-01-00-152 GRANITO BLCO. ROMANO P. 24.90 8.44 41 39 8.30 10/07/2008
02-01-00-154 GRANITO COLONIAL DREAM 1.90 1.94 124 64 .63 30/06/2008
02-01-00-155 MARMOL BLCO. PERLINO 1.28 .96 91 .43 14/06/2008
02-01-00-157 TRAVERTINO ORO 12.27 1.48 14 9 4.09 19/05/2008
02-01-00-158 GRANITO BLANCO COLONIAL .78 .00 .00 .26 19/04/2008
02-01-00-160 VERDE COTTO PULIDO A 2CM 4.14 1.30 38 29 1.38 17/04/2008
02-01-00-161 TRAVERTINO ROJO 17.29 .09 .00 5.76 30/06/2008
02-01-00-162 MARMOL ONIX ITALIANO 60.50 .00 .00 20.17 30/06/2008
02-01-00-163 ONICE MIELE .96 7.11 903 889 .32 29/04/2008
02-01-00-164 PIETRA SERENA MATE 2.93 .00 .00 .98 27/06/2008
02-01-00-166 GRANITO BLUE IN THE NIGTH .91 1.91 256 134 .30 12/03/2008
02-01-00-167 MARMOL TRAVERTINO AVORY 8.34 2.82 41 29 2.78 18/06/2008
02-01-00-168 GRANITO KASHMIR GOLD 7.01 2.63 45 34 2.34 07/07/2008
02-01-00-169 GRANITO OLD FIELD COMERCIAL 1.65 2.14 158 147 .55 08/05/2008
02-01-00-170 GRANITO WHITE NEPAL 65.24 .01 .00 21.75 28/06/2008
02-01-00-171 G. BLANCO SIENA 32.62 .00 .00 10.87 14/07/2008
02-01-00-174 G. DUCK YELLOW 14.94 20.55 167 163 4.98 30/04/2008
02-01-00-178 VERDE MARIPOSA A 3CM. 35.34 .62 2 11.78 12/07/2008
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 7
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:39
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
02-01-00-180 G. VYARA 38.45 2.82 8 6 12.82 01/07/2008
02-01-00-181 G. MARIPOSA ORO 3CM. 34.11 4.05 14 14 11.37 14/07/2008
02-01-00-182 M. ISIS CREAM 125.88 34.02 32 32 41.96 12/07/2008
02-01-00-183 G. SANTA CECILIA A 3CM. 9.62 37.15 470 468 3.21 23/06/2008
02-01-00-184 M. ISIS CREAM ENV. 19.44 .00 .00 6.48 10/05/2008
02-01-00-186 M. GALALA 24.79 63.82 314 310 8.26 11/07/2008
02-01-00-187 M. CREMA MARFIL CLASICO 29.19 .99 4 9.73 23/06/2008
02-01-00-188 G. NEGRO ADSOLUTO ENVEJ. 7.48 1.08 17 16 2.49 26/05/2008
02-01-00-189 G. GIALLO VICENZA A 3CM. 66.98 4.12 7 7 22.33 19/05/2008
02-01-00-191 M.VERDE UBATUBA A 3CM. 10.52 1.02 11 11 3.51 11/07/2008
02-01-01-047 ZOCALOS ROSA REAL P. 2.10 7.40 429 406 .70 11/06/2008
02-01-01-048 PIEZAS ROSA REAL CAT.2 A 3CM. .69 .00 .00 .23 30/04/2008
02-01-01-049 PIEZAS ROSA REAL CAT. 2 A 2CM. .16 .00 .00 .05 13/03/2008
02-01-16-082 PIEZAS CORALINA CAT. 2 A 4.5 20.16 .47 2 6.72 29/05/2008
02-01-22-002 ZOCALOS CREMA MARFIL 162.54 103.19 77 77 54.18 05/07/2008
02-01-22-008 ZOCALOS CREMA MARFIL 40X7 .04 .15 453 .01 06/05/2008
02-01-22-012 ZOCALOS CREMA MARFIL S/C 18.72 .63 4 6.24 08/04/2008
02-01-22-030 CREMA MARFIL PULIDO A 3CM 80.54 287.66 435 434 26.85 15/07/2008
02-01-64-001 TRAVERTINO P. V.N 45.84 33.63 89 87 15.28 14/07/2008
02-01-64-002 TRAVERTINO VN 9.53 8.70 111 102 3.18 08/05/2008
02-01-64-016 PIEZAS TRAVERTINO VN MT2 S/C 55.20 114.46 252 251 18.40 05/07/2008
02-01-64-025 PIEZAS TRAVERTINO CAT.1, 2CM, 232.25 36.50 19 18 77.42 12/07/2008
02-01-64-026 PIEZAS TRAVERTINO VN CAT.2 M2 198.88 4.56 2 2 66.29 12/07/2008
02-01-64-031 ZOCALOS TRAVERTINO P. MT2 79.67 6.66 10 9 26.56 12/07/2008
02-01-64-036 TRAVERTINO P. CAT. 2 A 3C. 28.35 .48 2 9.45 19/06/2008
02-01-64-037 PIEZAS TRAVERTINO CAT. 2 A 4.5 1.45 .00 .00 .48 23/05/2008
02-01-64-044 ZOC. TRAVERT. P. 40X7 BIS 1.04 2.74 322 235 .35 23/05/2008
02-01-64-048 ZOC. TRAVERT. 30X9 2.46 23.09 1146 1,142 .82 25/06/2008
02-01-64-052 ZOC. TRAVERT. P. 30X7 BIS 1.43 .84 71 .48 27/06/2008
02-01-64-059 ZOC. TRAVERT. 60X10 BIS .36 11.22 3802 3,727 .12 30/06/2008
02-01-66-001 PIEZAS PORTORO MT2 .13 .51 488 .04 19/05/2008
02-01-66-008 PIEZAS PORTORO CAT. 1 A 3CM. 10.50 .00 .00 3.50 11/04/2008
02-01-72-004 M. CREMA MARFIL ZOCALOS 3.28 .00 .00 1.09 23/06/2008
02-02-16-057 PIEZAS CALIZA CORALIAN A 3 CM 7.56 .00 .00 2.52 17/06/2008
02-02-16-130 PIEZAS CALIZA CATEG.1 A 3CM. 159.38 4,655.16 3563 3,563 53.13 30/06/2008
02-02-16-131 PIEZAS CALIZA R. CATEGORIA 2 2.89 .02 .00 .96 31/05/2008
02-02-16-132 PIEZAS CALIZA R. CATEGORIA 3 M .05 2.04 4967 4,880 .02 24/03/2008
02-02-16-133 PIEZAS CALIZA R. CATEGORIA 4 M .14 3.31 2886 2,617 .05 04/06/2008
02-02-16-137 PIEZAS CALIZA C. CATEG.2 A 3CM 536.99 371.16 84 84 179.00 09/07/2008
02-02-16-139 PIEZAS CALIZA C.CATEG.1 A 2CM. 3,484.23 575.33 20 20 1,161.41 15/07/2008
02-02-16-141 ZOCALOS CALIZA C. 1.10 81.40 9044 8,999 .37 28/04/2008
02-02-16-142 PSA.CALIZA C.CAT.2 A 4.5 1,200.73 2,127.98 216 216 400.24 15/07/2008
02-02-16-143 PSA. CORALINA CAT.1 A 4.5 C 5,795.03 5,115.04 107 107 1,931.68 15/07/2008
02-02-16-144 PIEZAS CALIZA C. CATEG.2 A 2CM 109.26 76.57 85 84 36.42 04/07/2008
02-02-16-145 PZAS.CALIZA CAT.2DE 5-9NO USAR 45.58 2.72 7 5 15.19 24/03/2008
02-02-16-149 PIEZAS CALIZA C. R. CAT.1 >4.5 7.54 .95 15 2.51 30/06/2008
02-02-16-167 PS.CORALINA CAT.1 A 3.8CM. 16.91 158.11 1140 1,140 5.64 30/06/2008
02-02-16-196 CALIZA C. CAT.1 A 2CM (NO USAR 350.55 87.49 30 30 116.85 08/05/2008
02-02-16-197 CALIZA CORALINA CAT.1 MT3 2.48 3.48 170 147 .83 18/03/2008
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 8
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:39
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
02-02-64-001 PIEZAS TRAVERTINO VN RUSTICAS 14.00 21.43 186 183 4.67 07/03/2008
02-02-64-003 PIEZAS TRAVERT. CAT.2, 3CM.R. 37.20 45.85 150 147 12.40 10/07/2008
02-02-64-004 PIEZAS TRAVERTINO CAT. 1 A 3CM 26.93 34.17 154 154 8.98 24/03/2008
02-02-64-006 PIEZAS TRAVERTINO CAT.1 A 2CM 82.07 .03 .00 27.36 26/05/2008
02-02-64-008 P. TRAVERTINO RUST CAT2 A 2CM 19.70 1.90 11 6 6.57 30/04/2008
02-02-64-015 SPLIT FACE TRAV.A 10CM.ALT.(NO 152.50 35.00 27 27 50.83 28/03/2008
02-02-64-143 PZAS. TRAVETINO CAT.1 A 4.5 .82 .01 1 .00 .27 19/03/2008
02-03-16-001 PS.CORALINA APOM/EST.CAT.1 A 2 4.26 36.42 1042 1,030 1.42 31/05/2008
02-03-16-002 PS. CALIZA APOM/EST.CAT.2 4.5 30.00 5.41 22 20 10.00 12/07/2008
02-03-16-006 PIEZAS CALIZA APOM. CAT.2 >4.5 .41 .72 216 .14 26/06/2008
02-03-16-007 PIEZAS CALIZA CT.2 3C. APOM 32.38 65.60 247 244 10.79 08/07/2008
02-03-16-009 PS.CORAL.CAT.2A2C.APOM(NO USAR 3.27 .00 .00 1.09 11/03/2008
02-03-16-010 PS. CORALINA APOM.CAT.1 >4.5 7.73 .00 .00 2.58 30/05/2008
02-03-16-011 PS. CORALINA APOM/EST CAT1 A 2 2.00 15.98 974 915 .67 14/03/2008
02-03-16-012 P. CORALINA CAT.2 A 2CM APOM. 2.96 23.67 975 947 .99 08/07/2008
02-03-16-014 PZA. CORALINA APOM/EST 4.5CM 1.61 1.75 132 75 .54 07/03/2008
02-03-16-015 PZS.CALIZA CAT.2DE 5-9(NO USAR 43.13 10.48 29 28 14.38 17/04/2008
02-03-22-002 PIEZAS CREMA M. APOM. 12.39 3.18 31 29 4.13 09/06/2008
02-03-64-002 PZS.TRAVERT. APOM.CAT. 2 A 2CM 303.89 35.71 14 14 101.30 03/07/2008
02-03-64-006 PZ.TRAVERT. APOM.S/C A 2C,. 18.77 .00 .00 6.26 29/05/2008
02-04-22-001 CREMA MARFIL AL ACIDO 15.00 .52 4 5.00 19/03/2008
02-04-61-002 ZOCALOS CARIBEAND B. AL ACIDO 54.12 6.72 15 13 18.04 27/05/2008
02-04-61-003 PIEZAS CARIBEAN B. S/C A 2C. 1.60 .00 .00 .53 14/05/2008
02-04-64-001 PZAS.TRAV.AL ACIDO CAT.2 A 3 6.87 1.03 18 17 2.29 15/07/2008
02-04-64-002 PZAS. TRAV. AL ACIDO CAT 2 A 2 3.84 22.64 719 698 1.28 15/07/2008
02-05-00-001 TOPES CREMA MARFIL ENVEJ. 86.52 48.47 68 67 28.84 05/06/2008
02-05-00-002 MARMOL ROJO ALICANTE ENV. 3.40 .00 .00 1.13 23/05/2008
02-05-00-005 M. GALALA ENV. 78.19 .00 .00 26.06 31/05/2008
02-05-16-001 PIEZAS CALIZA ENVEJ. 3/4 113.98 26.62 28 27 37.99 08/07/2008
02-05-16-003 CALIZA ENV. >4.5 .49 .00 .00 .16 29/04/2008
02-05-16-004 PIEZAS CALIZA ENV.CAT.2 A 2CM. .56 .00 .00 .19 28/03/2008
02-05-22-001 PIEZAS CREMA MARFIL ENVEJ. 185.82 4.88 3 2 61.94 14/07/2008
02-05-61-001 PIEZAS CARIBBEAN BLOND ENVEJ. 1.05 29.53 3431 3,369 .35 27/05/2008
02-05-61-002 PS.CARIBBEAN B.ENV.CAT.2 4.5 .84 .00 .00 .28 27/05/2008
02-05-61-003 PS.CARIBBEAN B.ENV.CAT.2 A 3C. 2.78 .30 13 .93 25/03/2008
02-05-61-004 ZOCALOS CARIBBEAN BLOND ENVEJ. 47.60 .00 .00 15.87 28/05/2008
02-05-64-002 PIEZAS TRAV.ENV.CAT.2 A 4.5 1.88 4.63 300 260 .63 27/06/2008
02-05-64-004 PIEZAS TRAVERT.ENV./CAT.2 A 2C 93.34 205.40 268 267 31.11 15/07/2008
02-05-64-005 ZOCALOS TRAVERT. ENVEJ. 41.26 40.52 119 118 13.75 07/07/2008
02-05-64-008 PIEZAS TRAVERT.ENV. CAT. 2 A 3 10.10 -.24 2 .00 3.37 27/06/2008
02-05-64-009 ZOCALO TRAVERTINO ENVEJECIDO 46.42 .07 .00 15.47 14/05/2008
02-05-64-010 TRAVERTINO ENVEJ. CAT.1 A 2CM 499.18 19.66 4 4 166.39 07/06/2008
03-00-00-003 RESINA 1.00 .00 .00 .33 05/04/2008
03-00-00-048 FUNDAS 50 LB LAT GRIS 317 1.00 .00 .00 270 32,940 .33 19/03/2008 01/12/2004 414,
03-00-00-049 FUNDAS 50 LB LAT BLANCO 317 74.00 1,634.00 2693 270 3,139 24.67 10/07/2008 25/04/2008 414,
03-00-00-053 CUBETAS 20 LITR LAT 73 2.00 46.00 2806 108 9,394 .67 14/03/2008 31/10/2003 414,
03-00-00-061 FUNDAS 25 LIB LAT 1685 362.00 355.00 119 100 153 120.67 15/07/2008 14/03/2008 414,
03-00-00-063 IMPERMEABILIZANTE DRAI 1 LIT. 10.00 .00 .00 3.33 08/07/2008
03-00-00-075 CUBETAS DE 5 LIT PEQ. 310 6.00 393.00 7991 25 8,499 2.00 10/06/2008 25/04/2008 414,
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 9
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:39
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
03-00-00-081 RESINA AGER 2.00 .00 .00 .67 12/05/2008
03-00-00-082 RESINA TENAX PECTRO 2.00 .00 .00 .67 04/03/2008
03-00-00-099 ENDURECEDOR BLCO. 25K. 1.00 .00 .00 .33 28/03/2008
03-00-00-130 ROLLOS DE FIBRA DE VIDRIO 1.00 .00 .00 .33 18/04/2008
04-00-00-001 MARMOL LOCO LOCAL 177.90 366.91 251 250 59.30 15/07/2008
04-00-00-003 CALIZA CORALINA LOCA 414.00 13.98 4 3 138.00 06/06/2008
04-00-00-004 SACOS PERRILLA 18.00 .00 .00 6.00 19/05/2008
04-00-00-007 CORALINA LOCA LOCAL 1,070.00 435.00 49 49 356.67 14/06/2008
04-00-00-008 CALIZA LOCA P/EXP. 10,101.95 10.58 .00 3,367.32 11/07/2008
05-00-00-004 TRANSPORTE 18.00 -18.00 122 .00 122 6.00 16/07/2008
06-00-00-021 PLANCHAS DE GRANITO 10.50 .50 5 3.50 18/03/2008
06-00-00-023 BLOQUES DE EXPORTACION 7.37 1.03 17 16 2.46 10/07/2008
06-00-00-024 PLANCHA MARMOL I 519.64 21.61 5 4 173.21 30/06/2008
06-00-00-025 PLANCHA MARMOL II 235.81 23.14 11 11 78.60 04/07/2008
06-00-00-026 PLANCHA MARMOL III 193.89 .00 .00 64.63 25/06/2008
06-00-00-027 PLANCHA MARMOL IV 1.60 .00 .00 .53 13/03/2008
06-00-00-028 PLANCHA MARMOL V 15.28 .00 .00 5.09 13/06/2008
06-00-00-029 PLANCHA GRANITO I 182.59 .01 .00 60.86 31/05/2008
06-00-00-030 PLANCHA GRANITO II 509.83 5.18 1 .00 1 169.94 14/07/2008
06-00-00-031 PLANCHA GRANITO III 288.44 18.23 7 7 96.15 14/07/2008
06-00-00-032 PLANCHA GRANITO IV 217.75 .00 .00 72.58 30/06/2008
06-00-00-040 BLOQUES IRREGULARES 69.00 103.29 182 182 23.00 31/03/2008
06-00-00-045 PLANCHAS M.BLANCO CARRARA 16.30 .00 .00 5.43 08/07/2008
06-00-00-122 PLANCHAS M.ISIS CREAM 10.83 .00 .00 3.61 30/06/2008
06-00-00-255 PLANCHA G. COLONIAL DREAM 6.37 .00 .00 2.12 30/06/2008
06-01-00-001 PLANCHA G.ROSA PORRIÑO 5.10 .00 .00 1.70 30/06/2008
07-00-00-001 MILHEIRO RAINHA NATURAL 24X41 393.00 6,651.00 2064 16.03 106,620.19 2,064 131.00 19/04/2008 01/09/2003
08-01-00-104 ESTREMOZ BEIGE DNK 127 41X41 54.97 32.78 72 173.98 5,703.15 71 18.32 15/07/2008 01/07/2003
08-01-00-105 ESTREMOZ CINZA DNK128 41X41 160.25 432.47 329 173.98 75,239.39 328 53.42 30/04/2008 01/07/2003
08-02-01-072 CENEF CALPE CALDERA -3 35.00 19.00 66 28.64 544.17 66 11.67 26/06/2008 28/10/2002
08-02-01-107 CALPE BLANCO 20X20 35.00 3.72 12 204.30 760.00 10 11.67 12/06/2008 28/10/2002
08-03-00-032 PISCIS VERDE 20X20 1.00 33.52 4089 168.91 5,661.77 4,026 .33 19/03/2008 31/01/2000
08-03-00-033 ACUARIO VERDE 20X20 1.00 24.60 3001 168.91 4,155.11 2,928 .33 19/03/2008 31/01/2000
08-05-00-004 LAVABO L-202 CREMA MARFIL 1.00 2.00 3001 ****** 14,618.20 2,928 .33 28/04/2008 01/07/2003
09-00-00-009 LAJAS MULTICOLOR 30X60 319.55 228.55 87 568.33 129,891.18 87 106.52 11/07/2008 28/08/2007
09-00-00-010 LAJAS QUARTIZITE PINK 60X60 2.88 568.80 24095 973.45 553,698.87 24,061 .96 30/04/2008 24/04/2008
09-00-00-012 LAJAS PURPLE 40X40 47.68 37.20 95 861.80 32,059.05 94 15.89 18/04/2008 07/03/2008
09-00-00-014 LAJAS BLACK 40X40 92.96 361.78 474 47 545.99 197,526.89 535 30.99 24/06/2008 28/08/2007 824,
09-00-00-019 TUMBLE QUARTZITE WHITE 15X15 47.70 .07 .00 790.74 57.33 15.90 29/05/2008 01/08/2003
09-00-00-020 LAJAS P.BATEIG AZUL APOM.60X30 61.92 65.86 129 ****** 70,901.63 128 20.64 10/06/2008 09/08/2006
09-00-00-023 LAJAS YELLOWISH QUARTZ 30X60 93.78 1,575.84 2050 ****** 1,710,042.00 2,048 31.26 03/07/2008 24/04/2008
09-00-00-024 LAJAS PINK QUARTZITE 30X60 S/C 6.84 850.90 15176 482 ****** 1,119,922.76 23,757 2.28 03/07/2008 24/04/2008 824,
09-00-00-028 MULTICOLOR VERDE 40X40 19.20 130.24 827 514.10 66,955.75 826 6.40 14/04/2008 16/06/2007
09-00-00-030 YELLOWISH QUARTZ 20X40 1.84 298.78 19810 852.66 254,757.96 19,758 .61 15/05/2008 15/02/2008
09-00-00-032 TEAK HIGH HONED 60X60 704.16 213.60 37 963.16 205,730.98 36 234.72 07/07/2008 04/10/2007
09-00-00-039 SPLIT FACE QUARZITA WHITE 60.00 3.00 6 ****** 4,310.84 6 20.00 24/06/2008 07/03/2008
09-00-00-040 QUARZITA LOCA YELOW 378.00 173.00 55 501.10 86,691.10 55 126.00 11/03/2008 07/03/2008
09-00-00-051 LAJAS PURPLE 32X62 88.00 52.67 73 675.95 35,600.53 72 29.33 14/04/2008 07/03/2008
09-00-00-053 LAJAS NEGRAS 30X60 32.76 793.24 2954 826 675.94 536,183.44 6,029 10.92 27/06/2008 25/04/2008 1501,
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 10
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:39
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
09-00-00-063 RAINBOU SANDBLAST F.S. 15X60 29.97 196.56 800 968.09 190,288.28 797 9.99 11/07/2008 10/06/2008
10-02-16-001 PLANCHAS CALIZA C. 2CM. 239.84 8.41 4 4 79.95 15/07/2008
10-02-16-003 PLANCHAS CALIZA C. 4.5CM. 221.30 3.58 1 .00 1 73.77 25/06/2008
10-02-16-008 PLANCHAS CALIZA A 3.8CM. 44.22 .00 .00 14.74 30/06/2008
11-02-16-001 PIEZAS CORALINA CAT.2 A 4.5CM. 28.70 .00 .00 9.57 30/04/2008
11-02-16-006 PIEZAS CORALINA CAT.3 MT3 7.37 .03 .00 2.46 07/07/2008
11-02-16-007 PIEZAS CORALINA CAT.4 MT3 .58 5.29 1112 1,051 .19 28/05/2008
11-02-16-008 PIEZAS CORALINA CAT.5 MT3. 243.02 .00 .00 81.01 15/07/2008
11-02-16-009 PIEZAS CORALINA CAT.2 MT3 .06 .00 .00 .02 28/05/2008
11-02-16-011 PIEZAS COROLINA CAT.6>4.5 M3 8.56 .00 .00 2.85 20/05/2008
14-01-00-002 M.ROSA R./TRAV./R.A.2.5/SC 1.5 682.79 42.36 7 7 227.60 11/07/2008
14-01-22-001 M. CREMA M.2.5/S/C A 1CM.P. 14.12 372.53 3218 3,213 4.71 28/06/2008
14-01-22-005 M.CREMA M.PATRON S/C.A 1CM.P. 4.50 .00 .00 1.50 28/06/2008
14-01-27-001 M. ROJO A. 2.5/SC. A 1 1.62 5.70 429 376 .54 04/04/2008
14-01-27-003 M. ROJO ALICANTE PATRON S/C .81 2.34 352 301 .27 04/07/2008
14-01-31-001 M. MARRON E. PATRON A 1CM. P. 3.96 .96 29 1.32 08/07/2008
14-01-48-002 M.PATRON AMARILLO S. S/C 8.48 13.28 191 187 2.83 28/06/2008
14-01-48-003 M. AMARILLO S. 2.5/S/C A 1CM. .28 9.40 4109 3,934 .09 30/05/2008
14-01-64-002 M. TRAV. 10/S/C A 1.2 P. 1.89 29.34 1893 1,871 .63 17/04/2008
14-02-00-001 M. LAJAS N. 5/S/C R. 20.97 89.55 520 517 6.99 08/07/2008
14-02-00-002 M. LAJAS NEGRA/VDE, 5/S.C 3.15 323.46 12527 12,509 1.05 07/03/2008
14-02-00-003 M. PATRON LAJAS MULTICOLOR 49.95 .09 .00 16.65 21/05/2008
14-02-00-004 M. LAJAS MULTICOLOR 10/S/C 9.00 .03 .00 3.00 17/04/2008
14-02-00-006 M. LAJAS MULTICOLOR 5/S/C 7.65 10.08 160 159 2.55 20/05/2008
14-02-00-007 M. BOTICCINO 4.8/S/C A 1C. 220.00 9.36 5 4 73.33 14/04/2008
14-02-00-008 M. LAJAS PURPURA 5/S/C A 1CM. 572.00 224.37 47 47 190.67 14/04/2008
14-02-00-010 M. LAJAS NEGRA 2.5/S/C .54 .00 .00 .18 30/06/2008
14-02-16-004 M. CORALINA 5/S/C A 2CM.R. 12.78 90.42 863 859 4.26 11/07/2008
14-02-16-005 M. CORALINA 2.5/S/C R. 17.58 30.80 213 208 5.86 06/06/2008
14-02-22-001 M. CREMA M. 2/HUESITOS A 2CM. 11.54 .00 .00 3.85 05/07/2008
14-03-16-001 M. CORALINA 5/S.C A 2 APOM 21.96 52.65 292 288 7.32 26/06/2008
14-03-64-002 M.TRAV. 10/S/C. A 1.2 APOM. 7.20 24.75 419 406 2.40 26/05/2008
14-03-64-003 M.TRAV.2.5/S/C. A 1.2 APOM. 37.72 44.75 144 142 12.57 26/06/2008
14-03-64-004 M.TRAV. 5/S/C. A 1.2 APOM. 13.01 23.17 217 215 4.34 16/06/2008
14-05-00-002 M.CREMA M./AMA.S.2.5/S/C,1C.EN 33.26 .00 .00 11.09 28/06/2008
14-05-64-002 M. TRAV. 10/S/C A 1.2 ENVEJ 12.49 155.53 1519 1,514 4.16 31/05/2008
14-05-64-005 M.TRAVERTINO 15X5 S/C ENV. 2CM 5.94 13.50 277 267 1.98 31/05/2008
14-06-22-001 M. CREMA M. 2.5/TUMB 1CM.R. 100.51 683.59 829 829 33.50 26/05/2008
14-06-22-002 M. CREMA M.2.3/TUMB. A 1.5CM 284.15 82.08 35 35 94.72 30/04/2008
14-06-22-007 M. CREMA MARFIL TUMB./TRITUR. 9.99 102.92 1256 1,245 3.33 24/05/2008
14-06-22-008 M. CREMA M./CARIB.B. TUMB. 25.49 20.28 97 95 8.50 29/05/2008
14-06-27-001 M. ROJO ALIC./TRAV. TUMB. 10.58 3.49 40 34 3.53 10/06/2008
14-06-48-001 M. AMARILLO S.PATRON/TUMB. 8.22 21.84 323 311 2.74 30/06/2008
14-06-61-001 M.CARIB. B. PATRON TOMB. 107.38 234.72 266 265 35.79 02/07/2008
14-06-61-002 M. CARIBEAND B.2.5/TUMB .74 24.73 4054 3,934 .25 27/05/2008
14-06-61-003 M. CARIBEAN B.5/TUMB 4.90 .00 .00 1.63 15/07/2008
14-06-64-003 TACO TRAV. 10/TUMB. A 1.4 R. 8.00 .00 .00 2.67 27/05/2008
14-06-64-004 M. TRAV.10/TUMB./EST. A 1.2 82.89 73.74 108 107 27.63 14/07/2008
14-06-64-007 M.TRAV.2.5/TUMB/EST A 1.2 5.17 26.67 629 613 1.72 21/06/2008
M
ipprrp013 M A R M O T E C H, S. A. (C) Pag. 11
Sistema de Inventario de Producto Terminado 16/07/2008
Dias de Inventarios 10:39
Desde 01/03/2008 Hasta 30/06/2008
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ventas Dias de Valor Cantidad Costo Dias Con Promedio / 3 Meses Fecha Fecha
Codigo Descripcion Del Periodo Existencia Inventario Exceso 2 dias Ordenada REAL Total Orden Ventas Venta Compra ORDENES
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
14-06-64-008 M. TRAV. PATRON TUMB./EST 48.42 10.15 25 25 16.14 10/07/2008
15-02-16-004 SPLIT FACE CORALINA A 10CM.ALT 419.00 489.50 142 142 139.67 12/07/2008
15-02-16-005 SPLIT FACE CORALINA IREEG. 91.08 26.93 36 34 30.36 27/05/2008
16-01-64-001 PIEZAS TRAV. 9.8 X 9.8 14.40 4.99 42 33 4.80 02/07/2008
16-02-16-001 CORALINA 9.8X9.8 S/C 16.00 219.12 1670 1,669 5.33 06/06/2008
16-03-22-001 PIEZAS CREMA MARFIL APOM. 63.00 .00 .00 21.00 04/07/2008
16-05-64-001 TRAVERTINO 9.8X9.8 S/C/ENV. 92.23 6.62 8 7 30.74 29/04/2008
16-06-00-001 PIEZAS GALALA TUMB. 4.32 3.00 84 84 1.44 27/05/2008
16-06-00-002 ROJO ALICANTE 9.8X9.8 TUMB. 50.00 .00 .00 16.67 10/06/2008
16-06-16-002 CALIZA 20.3X20.3 TUMB. 188.66 .08 .00 62.89 30/06/2008
16-06-22-001 PIEZAS CREMA M. TUMB. 117.21 132.38 137 137 39.07 27/05/2008
=============================================================================================================================================================================================
Total Registros Impresos = 501
+14
View File
@@ -0,0 +1,14 @@
CALL busca_pt()
LET movi2[p_act].cod_n = pilas[curr1].cod_n
LET movi2[p_act].cod_grupo = pilas[curr1].cod_grupo
LET movi2[p_act].cod_tipo = pilas[curr1].cod_tipo
LET movi2[p_act].cod_sec = pilas[curr1].cod_sec
LET movi2[p_act].descrip_esp = pilas[curr1].descrip_esp
LET movi2[p_act].unidad_med = pilas[curr1].unidad_med
DISPLAY movi2[p_act].cod_n TO s_movi1.cod_n
DISPLAY movi2[p_act].cod_grupo TO s_movi1.cod_grupo
DISPLAY movi2[p_act].cod_tipo TO s_movi1.cod_tipo
DISPLAY movi2[p_act].cod_sec TO s_movi1.cod_sec
DISPLAY movi2[p_act].descrip_esp TO s_movi1.descrip_esp
+45
View File
@@ -0,0 +1,45 @@
FUNCTION busca_prod1()
DEFINE arr_prod ARRAY[500] OF RECORD
cod_n INTEGER,
cod_grupo INTEGER,
cod_tipo INTEGER,
cod_sec INTEGER,
descrip_esp CHAR(30),
unidad_med CHAR(5)
END RECORD
OPEN WINDOW busca_2 AT 8,4 WITH FORM "ipfmwd001" ATTRIBUTE (BORDER,FORM LINE
FIRST + 1,PROMPT LINE LAST)
CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
FROM cod_n,cod_grupo,cod_tipo,cod_sec
LET selec_pt =
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
" a.unidad_med FROM iptb00002 a ",
"WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY 5 "
PREPARE comando_p FROM selec_pt
DECLARE busca_2 CURSOR FOR comando_p
LET idx = 1
FOREACH busca_2 INTO arr_prod[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
DISPLAY ARRAY arr_prod TO s_prod.*
LET idx = ARR_CURR()
LET busca_p.cod_n = arr_prod[idx].cod_n
LET busca_p.cod_grupo = arr_prod[idx].cod_grupo
LET busca_p.cod_tipo = arr_prod[idx].cod_tipo
LET busca_p.cod_sec = arr_prod[idx].cod_sec
LET busca_p.descrip_esp = arr_prod[idx].descrip_esp
LET busca_p.unidad_med = arr_prod[idx].unidad_med
CLOSE WINDOW busca_2
END FUNCTION
+724
View File
@@ -0,0 +1,724 @@
SCHEMA decomarmol
GLOBALS
DEFINE p_iptb57 RECORD
numero_doc INT,
cod_mov LIKE iptb00057.cod_mov,
fecha DATE,
num_oc INT,
observacion VARCHAR(200),
tipo_cliente SMALLINT,
sec_cliente INT,
cliente VARCHAR(100),
bodega SMALLINT,
bodega_destino SMALLINT,
estado VARCHAR(50)
END RECORD,
arr_iptb58 DYNAMIC ARRAY OF 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
DEFINE nombreBodega,nombreBodegaDestino CHAR(30)
DEFINE nombreMov CHAR(40), valorOrden DEC(12,2)
DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
r_filename,inventario STRING, -- filename of Report Design Document including .4rp extension
r_output STRING, -- output format option
preview INTEGER, -- TRUE/FALSE, to set preview option
salida CHAR(40),
historico,servicios CHAR(1),
petiquetas ui.ComboBox,
k1 CHAR(2),
tipo_reporte CHAR(10)
DEFINE nombre_m CHAR(20),
USUARIOS, CLAVE CHAR(50),
progreso SMALLINT,
descripcion CHAR(70),
p_iptb01 RECORD LIKE iptb00001.*,
p_iptb02 RECORD LIKE iptb00002.*,
p_iptb06 RECORD LIKE iptb00006.*,
p_iptb14 RECORD LIKE iptb00014.*,
p_iptb19 RECORD LIKE iptb00019.*,
p_iptb20 RECORD LIKE iptb00020.*,
p_iptb21 RECORD LIKE iptb00021.*,
p_vetb25 RECORD LIKE vetb00025.*,
p_iptb22 RECORD LIKE iptb00022.*,
preciosm INTEGER, #RECORD LIKE iptb00014.*,
marcas RECORD LIKE iptb00019.*,
lj,tipo_inventario SMALLINT,
pflag CHAR(1),
fecha1 DATE,
selec_pt CHAR(1000),control_existencia,control_itbis,
normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off,respuesta
CHAR(3)
DEFINE dcmd,cmd,imprime,copia CHAR(150),archivo CHAR(80),impresor,impresor1 SMALLINT
DEFINE busca_p RECORD
cod_n INTEGER,
cod_grupo INTEGER,
cod_tipo INTEGER,
cod_sec INTEGER,
descrip_esp CHAR(30),
unidad_med CHAR(5)
END RECORD
DEFINE clientes ARRAY[50] OF RECORD
tipo_cliente LIKE vetb00004.tipo_cliente,
sec_cliente LIKE vetb00004.sec_cliente,
nombre LIKE vetb00004.nombre
END RECORD
DEFINE codigos RECORD
fecha DATE,
cod_n_a SMALLINT,
cod_grupo_a SMALLINT,
cod_tipo_a SMALLINT,
cod_sec_a SMALLINT,
cantidad INTEGER,
cod_n_h SMALLINT,
cod_grupo_h SMALLINT,
cod_tipo_h SMALLINT,
cod_sec_h SMALLINT
END RECORD
DEFINE movimientos RECORD
cod_mov LIKE iptb00006.cod_mov,
num_doc LIKE iptb00006.num_doc,
fecha LIKE iptb00006.fecha,
tipo LIKE iptb00006.tipo,
orden_compra LIKE iptb00006.orden_compra,
fact_no LIKE iptb00006.fact_no,
conduce_no LIKE iptb00006.conduce_no,
cod_sp LIKE iptb00006.cod_sp,
cod_sp_sec LIKE iptb00006.cod_sp_sec,
nom_sp CHAR(41),
cod_transp LIKE iptb00006.cod_transp,
sec_transp LIKE iptb00006.sec_transp,
placa LIKE iptb00006.placa,
cod_tarifa LIKE iptb00006.cod_tarifa,
bodega LIKE iptb00006.bodega,
departamento SMALLINT,
detalle LIKE iptb00006.detalle
END RECORD
DEFINE ultimo RECORD
cond_recep LIKE iptb00006.cond_recep,
uso_tiempo LIKE iptb00006.uso_tiempo
END RECORD
DEFINE datos1 RECORD
num_doc LIKE iptb00006.num_doc,
fecha LIKE iptb00006.fecha,
cod_seccion SMALLINT,
nom_seccion CHAR(20),
bodega LIKE iptb00006.bodega
END RECORD
DEFINE p_conteo RECORD
fecha LIKE iptb00006.fecha,
bodega LIKE iptb00006.bodega,
cod_n LIKE iptb00006.cod_n,
cod_grupo LIKE iptb00006.cod_grupo,
cod_tipo LIKE iptb00006.cod_tipo,
cod_sec LIKE iptb00006.cod_sec,
cantidad LIKE iptb00006.cantidad_2
END RECORD
DEFINE costos RECORD LIKE iptb00004.*
DEFINE datos RECORD
num_doc LIKE iptb00006.num_doc,
fecha LIKE iptb00006.fecha,
nom_dpto CHAR(30),
nom_dpto1 CHAR(30),
bodega LIKE iptb00006.bodega
END RECORD
DEFINE datos_gen RECORD
cod_mov LIKE iptb00006.cod_mov,
num_doc LIKE iptb00006.num_doc,
cod_sp LIKE iptb00006.cod_sp,
cod_sp_sec LIKE iptb00006.cod_sp_sec,
tipo LIKE iptb00006.tipo,
orden_compra LIKE iptb00006.orden_compra,
conduce_no LIKE iptb00006.conduce_no,
fact_no LIKE iptb00006.fact_no,
fecha LIKE iptb00006.fecha,
bodega LIKE iptb00006.bodega,
nom_sp CHAR(40), #LIKE cotb00001.nom_sp,
descrip_mov LIKE iptb00005.descrip_mov
END RECORD
DEFINE otros_mov RECORD
num_doc LIKE iptb00006.num_doc,
cod_cia LIKE iptb00006.cod_cia,
cod_mov LIKE iptb00006.cod_mov,
fact_no LIKE iptb00006.fact_no,
cod_transp LIKE iptb00006.cod_transp,
sec_transp LIKE iptb00006.sec_transp,
cod_tarifa LIKE iptb00006.cod_tarifa,
placa LIKE iptb00006.placa,
fecha LIKE iptb00006.fecha,
conduce_no LIKE iptb00006.conduce_no,
descrip_mov CHAR(40), #LIKE intb00005.descrip_mov,
bodega LIKE iptb00006.bodega,
bodega_destino SMALLINT,
detalle LIKE iptb00006.detalle,
cod_sp LIKE iptb00006.cod_sp,
cod_sp_sec LIKE iptb00006.cod_sp_sec,
departamento SMALLINT,
nombre_depto CHAR(30),
cod_mov1 SMALLINT,
entrada INT,
descrip_mov1 CHAR(40),
descrip4 CHAR(30),
factura int
END RECORD
DEFINE chequea RECORD
minima LIKE iptb00002.exist_min,
maxima LIKE iptb00002.exist_max
END RECORD
DEFINE p_unidad ARRAY [100] OF INTEGER
DEFINE selec2 CHAR(1000)
DEFINE p_cantidad,bandera SMALLINT
DEFINE p_fechas DATE
DEFINE nombre_dia ARRAY[7] OF char(10)
DEFINE nombre_mes ARRAY[12] OF char(10)
DEFINE nombre_ant CHAR(11)
DEFINE general decimal(12,2)
DEFINE numero_msg,curr1,p_cod_cia,p_bodega,longitud SMALLINT
#DEFINE arancel RECORD LIKE cotb00005.*
DEFINE status_m char(1)
DEFINE decide,p_param char(1)
DEFINE cant DECIMAL(12,5)
DEFINE tipo_papel smallint
DEFINE balance DECIMAL(12,5)
DEFINE cod_mov_ant LIKE iptb00006.cod_mov
DEFINE existe_comp,suplidor1,doc_existe,actual,mat_prima CHAR (1000)
DEFINE opt1,opt4,opt,existe,ya ,opera1,cambio CHAR(3)
DEFINE medida CHAR (3)
DEFINE fila smallint
DEFINE m_articulos RECORD LIKE iptb00002.*
DEFINE presentacion RECORD LIKE iptb00003.*
DEFINE p_companias RECORD LIKE companias.*
# DEFINE numero_msg LIKE msgtable.cod_msg
DEFINE articulos RECORD LIKE iptb00002.*
# DEFINE suplidor RECORD LIKE intb00008.*
DEFINE meses RECORD LIKE mestable.*,
regi INTEGER
DEFINE mensajes RECORD {LIKE msgtable.* }
cod_msg smallint,
desc_msg char(60),
us_crea char(9),
fech_crea char(16),
us_mod char(9),
fech_mod char(16)
END RECORD
DEFINE transacc RECORD LIKE iptb00005.*
DEFINE medidas RECORD LIKE intb00007.*
DEFINE nombre_cia,descrip1,descrip2,descrip3,descrip4 CHAR(30)
DEFINE c_sustituto RECORD LIKE intb00003.*
DEFINE c_equivalente RECORD LIKE intb00004.*
DEFINE criterio CHAR(1000)
DEFINE opc,selec,opt2 string
DEFINE cod_n_a,cod_grupo_a,cod_tipo_a,cod_sec_a SMALLINT
DEFINE p_act,idx,scr_l SMALLINT
DEFINE opcion,tipo_p CHAR(1)
DEFINE pilas ARRAY[100] OF RECORD
cod_n LIKE intb00003.cod_n,
cod_grupo LIKE intb00003.cod_grupo,
cod_tipo LIKE intb00003.cod_tipo,
cod_sec LIKE intb00003.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp
END RECORD
DEFINE prod1 DYNAMIC ARRAY OF RECORD
estado VARCHAR(20),
cod_n1 SMALLINT,
cod_grupo1 SMALLINT,
cod_tipo1 SMALLINT,
cod_sec1 SMALLINT,
descrip_esp1 CHAR(180),
unidad_med LIKE iptb00002.unidad_med,
bodega1 CHAR(50),
existencia DECIMAL(12,5),
cantidad_ordenes DEC(12,5),
disponible DEC(12,5),
reservado DEC(12,5),
transito DEC(12,5)
END RECORD
DEFINE prod11 DYNAMIC ARRAY OF RECORD
estado VARCHAR(20),
cod_n1 SMALLINT,
cod_grupo1 SMALLINT,
cod_tipo1 SMALLINT,
cod_sec1 SMALLINT,
descrip_esp1 CHAR(70),
unidad_med LIKE iptb00002.unidad_med,
existencia DECIMAL(12,5),
cantidad_ordenes DEC(12,5),
pventas DEC(12,5),
ventas VARCHAR(30),
precio DEC(12,2),
reservado DEC(12,5),
transito DEC(12,5),
fecha_llegada DATE,
fecha_ordenada DATE
END RECORD
DEFINE prod ARRAY[200] OF RECORD
cod_n1 SMALLINT,
cod_grupo1 SMALLINT,
cod_tipo1 SMALLINT,
cod_sec1 SMALLINT,
descrip_esp1 CHAR(70),
unidad_med LIKE iptb00002.unidad_med,
bodega LIKE iptb00002.bodega,
marca CHAR(10), #002.marca,
cod_cia LIKE iptb00002.cod_cia,
existencia DECIMAL(12,5),
exist_min DECIMAL(12,5),
dia_llegada LIKE iptb00002.dia_llegada
END RECORD
DEFINE movi2 DYNAMIC ARRAY OF RECORD
area SMALLINT,
descripcion_area VARCHAR(30),
cod_n LIKE intb00003.cod_n,
cod_grupo LIKE intb00003.cod_grupo,
cod_tipo LIKE intb00003.cod_tipo,
cod_sec LIKE intb00003.cod_sec,
cantidad_1 DEC(12,5),
cantidad_2 DEC(12,5),
cantidad_p DEC(12,5),
unidad_med LIKE iptb00002.unidad_med,
descrip_esp CHAR(80),
existencia DEC(12,5),
disponible DEC(12,5),
codigo_bloque CHAR(15),
id_kit INT
END RECORD
DEFINE art ARRAY[200] OF RECORD
cod_n1 SMALLINT,
cod_grupo1 SMALLINT,
cod_tipo1 SMALLINT,
cod_sec1 SMALLINT,
descrip_esp1 CHAR(30),
unidad_med LIKE iptb00002.unidad_med,
bodega LIKE intb00002.bodega,
existencia like intb00002.existencia,
pto_reorden LIKE intb00002.pto_reorden,
dia_llegada LIKE intb00002.dia_llegada,
#costo_mp LIKE cotb00002.costo_mp,
valor decimal(10,2)
END RECORD
DEFINE csmov1 DYNAMIC ARRAY OF RECORD
num_doc CHAR(11),
num_oc INT,
num_compra INT,
fecha_2 LIKE iptb00006.fecha,
entrada char(14),
salida char(14),
bodega1 CHAR(50),
balance char(14)
END RECORD
DEFINE csmov RECORD
num_doc LIKE iptb00006.num_doc,
fecha_1 LIKE iptb00006.fecha,
num_oc INT,
num_compra INT,
cantidad_2 LIKE iptb00006.cantidad_2,
cod_mov LIKE iptb00006.cod_mov,
bodega CHAR(50)
END RECORD
DEFINE datos_cons RECORD
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
unidad_med LIKE iptb00002.unidad_med,
bodega LIKE iptb00006.bodega,
fech_in DATE,
fech_fi DATE
END RECORD
DEFINE movi3 ARRAY[1000] OF RECORD
codigo CHAR(10),
cantidad_1 DECIMAL(12,5),
cantidad_2 DECIMAL(12,5),
diferencia DECIMAL(12,5),
descrip_esp LIKE iptb00002.descrip_esp,
unidad_med LIKE iptb00002.unidad_med
END RECORD
DEFINE movi_ant ARRAY[1000] OF RECORD
cod_n LIKE iptb00006.cod_n,
cod_grupo LIKE iptb00006.cod_grupo,
cod_tipo LIKE iptb00006.cod_tipo,
cod_sec LIKE iptb00006.cod_sec,
cant_ant LIKE iptb00006.cantidad_2
END RECORD
DEFINE movi ARRAY[500] OF RECORD
cod_n LIKE iptb00006.cod_n,
cod_grupo LIKE iptb00006.cod_grupo,
cod_tipo LIKE iptb00006.cod_tipo,
cod_sec LIKE iptb00006.cod_sec,
cantidad_1 LIKE iptb00006.cantidad_1,
cantidad_2 LIKE iptb00006.cantidad_2,
unidad_med LIKE iptb00002.unidad_med,
descrip_esp CHAR(40)
END RECORD
DEFINE ant_art RECORD
area SMALLINT,
cod_n LIKE cotb00002.cod_n,
cod_grupo LIKE cotb00002.cod_grupo,
cod_tipo LIKE cotb00002.cod_tipo,
cod_sec LIKE cotb00002.cod_sec
END RECORD
DEFINE c_articulos ARRAY[100] OF RECORD
cod_n LIKE cotb00002.cod_n,
cod_grupo LIKE cotb00002.cod_grupo,
cod_tipo LIKE cotb00002.cod_tipo,
cod_sec LIKE cotb00002.cod_sec,
descripcion CHAR(30)
# costo_mp LIKE cotb00002.costo_mp,
# fecha_act LIKE cotb00002.fecha_act
END RECORD
DEFINE consulta_mv ARRAY[200] OF RECORD
num_doc LIKE iptb00006.num_doc,
fecha LIKE iptb00006.fecha,
nombre char(7),
cantidad_1 LIKE iptb00006.cantidad_1,
cantidad_2 LIKE iptb00006.cantidad_1,
balance decimal(12,2)
END RECORD
DEFINE c_det_inv ARRAY[200] OF RECORD
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
existencia LIKE intb00002.existencia,
#costo_mp LIKE cotb00002.costo_mp,
valor DECIMAL(12,5)
END RECORD
DEFINE datos_cs RECORD
cod_n LIKE iptb00006.cod_n,
cod_grupo LIKE iptb00006.cod_grupo,
cod_tipo LIKE iptb00006.cod_tipo,
cod_sec LIKE iptb00006.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
fecha_in LIKE iptb00006.fecha,
fecha_fi LIKE iptb00006.fecha
END RECORD
#DEFINE medidas1 RECORD LIKE vetb00014.*
DEFINE otrab SMALLINT
DEFINE comp_fech,comp_fech1 DATE
DEFINE mes_control CHAR(2)
DEFINE mes_calc,dia SMALLINT
DEFINE fecha_c DATE
DEFINE c_ano,a_ano CHAR(4)
END GLOBALS
FUNCTION busca_prod1()
DEFINE arr_prod ARRAY[500] OF RECORD
cod_n INTEGER,
cod_grupo INTEGER,
cod_tipo INTEGER,
cod_sec INTEGER,
descrip_esp CHAR(30),
unidad_med CHAR(5)
END RECORD
OPEN WINDOW busca_2 AT 8,4 WITH FORM "ipfmwd001" ATTRIBUTE (BORDER,FORM LINE
FIRST + 1,PROMPT LINE LAST)
CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp
FROM cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp
LET selec_pt =
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
" a.unidad_med FROM iptb00002 a ",
"WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY 5 "
PREPARE comando_p FROM selec_pt
DECLARE busca_2 CURSOR FOR comando_p
LET idx = 1
FOREACH busca_2 INTO arr_prod[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
DISPLAY ARRAY arr_prod TO s_prod.*
LET idx = ARR_CURR()
LET busca_p.cod_n = arr_prod[idx].cod_n
LET busca_p.cod_grupo = arr_prod[idx].cod_grupo
LET busca_p.cod_tipo = arr_prod[idx].cod_tipo
LET busca_p.cod_sec = arr_prod[idx].cod_sec
LET busca_p.descrip_esp = arr_prod[idx].descrip_esp
LET busca_p.unidad_med = arr_prod[idx].unidad_med
# para el precio
LET p_vetb25.cod_n = arr_prod[idx].cod_n
LET p_vetb25.cod_grupo = arr_prod[idx].cod_grupo
LET p_vetb25.cod_tipo = arr_prod[idx].cod_tipo
LET p_vetb25.cod_sec = arr_prod[idx].cod_sec
LET descrip1 = arr_prod[idx].descrip_esp
LET medida = arr_prod[idx].unidad_med
CLOSE WINDOW busca_2
END FUNCTION
REPORT formu4(x,z)
DEFINE x RECORD
num_doc LIKE iptb00006.num_doc,
cod_cia LIKE iptb00006.cod_cia,
cod_mov LIKE iptb00006.cod_mov,
fact_no LIKE iptb00006.fact_no,
cod_transp LIKE iptb00006.cod_transp,
sec_transp LIKE iptb00006.sec_transp,
cod_tarifa LIKE iptb00006.cod_tarifa,
placa LIKE iptb00006.placa,
fecha LIKE iptb00006.fecha,
conduce_no LIKE iptb00006.conduce_no,
descrip_mov CHAR(40), #LIKE intb00005.descrip_mov,
bodega LIKE iptb00006.bodega,
detalle LIKE iptb00006.detalle,
cod_sp LIKE iptb00006.cod_sp,
cod_sp_sec LIKE iptb00006.cod_sp_sec,
departamento SMALLINT,
nombre_depto CHAR(30),
cod_mov1 SMALLINT,
entrada INT,
descrip_mov1 CHAR(40),
descrip4 CHAR(30)
END RECORD
DEFINE z RECORD
cod_n LIKE intb00003.cod_n,
cod_grupo LIKE intb00003.cod_grupo,
cod_tipo LIKE intb00003.cod_tipo,
cod_sec LIKE intb00003.cod_sec,
cantidad_1 LIKE iptb00006.cantidad_1,
cantidad_2 LIKE iptb00006.cantidad_2,
cantidad_p DEC(12,5),
unidad_med LIKE iptb00002.unidad_med,
descrip_esp CHAR(70)
END RECORD,
etiqueta,pcalle,purbanizacion,pcasa_num,ptelefono,pcelular,nombre,apellido CHAR(30),
plado1,plado2,plado3,pcantidad,pmedida DEC(12,5),
pprovincia SMALLINT,
nombre_provincia CHAR(30),
nombre_p,direccion_p CHAR(40),
total_unidades INT,
hora CHAR(5),
pobserva,pubica CHAR(60)
DEFINE usuario_c CHAR(9)
DEFINE signo CHAR(1)
DEFINE doce,normal,doble,doble_of,negras,negras_off CHAR(2)
DEFINE l,cuenta SMALLINT
OUTPUT
LEFT MARGIN 0
ORDER BY x.num_doc,z.cod_sec
FORMAT
BEFORE GROUP OF x.num_doc
LET doble = ASCII 14
LET doble_of = ASCII 20
LET negras = ASCII 27, ASCII 69
LET negras_off = ASCII 27, ASCII 70
SELECT unique us_crea INTO usuario_c
FROM iptb00006 WHERE num_doc = x.num_doc and
cod_mov = x.cod_mov and
us_crea = user
LET doce = ASCII 27, ASCII 77
LET normal = ASCII 27, ASCII 80
LET hora = time
PRINT doce
#PRINT COLUMN 1, negras,doble,p_companias.nombre CLIPPED
PRINT COLUMN 1,doble, "M A R M O T E C H, S. A.",doble_of
PRINT COLUMN 71,"No. ",doble,x.num_doc using "<<<<<<"
#LET l = (80 - LENGTH ("OTROS MOVIMIENTOS")) / 2
PRINT #COLUMN l, "OTROS MOVIMIENTOS",
COLUMN 71, x.fecha using "dd/mm/yyyy"
PRINT COLUMN 71, hora
LET l = (70 - LENGTH (x.descrip_mov)) / 2
PRINT COLUMN l-2, doble,negras,"(",x.cod_mov using "&&",") ",x.descrip_mov,doble_of
PRINT negras_off
IF x.cod_mov = 12 THEN
PRINT COLUMN 1, "Factura No: ",x.fact_no using "&&&&&&"
END IF
IF x.detalle is null THEN
LET x.detalle = "**************************************"
END IF
SELECT a.calle,a.casa_num,a.urbanizacion,b.telefono,b.telex,c.nom1_emp,c.apell1_emp,b.cod_provincia
INTO pcalle,pcasa_num,purbanizacion,ptelefono,pcelular,nombre,apellido,pprovincia
FROM vetb00005 a,vetb00004 b,vetb00028 d,adtb00003 c
WHERE a.tipo_cliente = x.cod_sp AND
a.sec_cliente = x.cod_sp_sec AND
a.tipo_cliente = d.tipo_cliente AND
a.sec_cliente = d.sec_cliente AND
a.tipo_cliente = b.tipo_cliente AND
a.sec_cliente = b.sec_cliente AND
d.sec_vend = c.num_emp
LET nombre_provincia = NULL
IF x.cod_mov = 30 OR x.cod_mov = 31 THEN
SELECT a.nombre_provincia INTO nombre_provincia
FROM vetb00020 a
WHERE a.cod_provincia = pprovincia
END IF
IF x.cod_mov = 55 THEN
SELECT unique a.nom_pais INTO nombre_provincia FROM cotb00018 a
WHERE a.cod_pais = pprovincia
END IF
LET nombre_p = null
LET direccion_p = null
SELECT a.nombre_proyecto,a.direccion_proyecto INTO nombre_p,direccion_p
FROM vetb00049 a
WHERE a.tipo_cliente = x.cod_sp AND
a.sec_cliente = x.cod_sp_Sec
SELECT a.direccion INTO pubica FROM prtb00012 a
WHERE a.num_oc = x.conduce_no AND a.fech_crea > datetime (2007-01-01 08:00) year to minute
# SELECT a.observacion INTO pobserva FROM prtb00014 a
# WHERE a.num_oc = x.conduce_no AND a.fech_crea > datetime (2007-01-01 08:00) year to minute
PRINT COLUMN 1, "CLIENTE : ",negras, x.descrip4," (",
x.cod_sp using "&&","-",
x.cod_sp_sec using "&&&&",")",negras_off
PRINT COLUMN 1, "DIRECCION: ",pcalle CLIPPED," ",pcasa_num CLIPPED," ",purbanizacion CLIPPED,
" TELEFONO: ",ptelefono CLIPPED," CELULAR: ",pcelular
PRINT COLUMN 1, "Proyecto : ",nombre_p CLIPPED, " DIRECCION: ",direccion_p CLIPPED
PRINT COLUMN 1, "Vendedor : ",nombre clipped," ",apellido
PRINT COLUMN 1, "Entrada : ",x.entrada USING "<<<<<<"," (",x.cod_mov1 USING "<<<",") ",x.descrip_mov1 CLIPPED
PRINT COLUMN 1, "Orden : ",x.conduce_no, COLUMN 20 #,"Observacion Orden: ",pobserva CLIPPED
PRINT COLUMN 1, "Ubicacion: ",pubica CLIPPED
IF x.cod_mov = 70 OR x.cod_mov = 71 OR x.cod_mov = 72 THEN
PRINT COLUMN 1, "DEPARTAMENTO: ",x.departamento USING "<<<<"," ",x.nombre_depto
END IF
PRINT doce
PRINT COLUMN 1,
"-----------------------------------------------------------------------------",
"-----------------"
PRINT COLUMN 2,doble, "PRODUCTO(S)",doble_of clipped
PRINT COLUMN 74, "CANTIDAD"
PRINT COLUMN 62, "CANTIDAD",
COLUMN 74, "PENDIENTE"
PRINT COLUMN 50, "UNIDADES",
COLUMN 62, "A DESPACHAR",
COLUMN 74, "CON ESTA TRANSACCION"
PRINT COLUMN 1,
"-----------------------------------------------------------------------------",
"-----------------"
SKIP 1 LINES
ON EVERY ROW
IF z.cod_n is not null and z.cod_grupo is not null and
z.cod_tipo is not null and z.cod_sec is not null THEN
PRINT COLUMN 2, z.cod_n using "&&","-",
COLUMN 4, z.cod_grupo using "&&","-",
COLUMN 6, z.cod_tipo using "&&&","-",
COLUMN 9, z.cod_sec using "&&&",
COLUMN 17, z.descrip_esp clipped," ";
IF cuenta = 1 THEN
LET signo = "+"
ELSE
LET signo = "-"
LET z.cantidad_2 = z.cantidad_2 * -1
END IF
IF z.cantidad_2 < 0 THEN
LET z.cantidad_2 = z.cantidad_2 * -1
END IF
PRINT COLUMN 48, z.cantidad_1 USING "###,###.#####",
COLUMN 56, z.cantidad_2 using "###,###.#####"," ",z.unidad_med,
COLUMN 75, z.cantidad_p using "###,###.#####"
DECLARE busca_d1 CURSOR FOR
SELECT a.etiqueta,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida
FROM iptb00025 a
WHERE a.cod_n = z.cod_n AND
a.cod_grupo = z.cod_grupo AND
a.cod_tipo = z.cod_tipo AND
a.cod_sec = z.cod_sec AND
a.cod_mov = X.cod_mov AND
a.num_Doc = x.num_doc
LET total_unidades = 0
FOREACH busca_d1 INTO etiqueta,plado1,plado2,plado3,pcantidad,pmedida
PRINT COLUMN 19,pcantidad USING "<,<<<"," ",etiqueta clipped," DE ",plado1 USING "<<.#####"," X ",
plado2 USING "<<.#####"," X ",plado3 USING "<<.#####"," = ",pmedida USING "<<<.#####"
LET total_unidades = total_unidades + pcantidad
END FOREACH
IF total_unidades > 0 THEN
PRINT COLUMN 19, "TOTAL UNIDADES ",total_unidades USING "<,<<<"
END IF
END IF
PAGE TRAILER
PRINT COLUMN 1, "OBSERVACIONES: ", UPSHIFT(x.detalle)
SKIP 1 LINE
PRINT COLUMN 1, "TRANSPORTISTA: ",descrip2
PRINT COLUMN 1, "PLACA : ",x.placa
SKIP 4 LINES
PRINT COLUMN 1, "------------------",
COLUMN 32, "------------------",
COLUMN 55, "------------------"
PRINT COLUMN 5, "Entregado Por",
COLUMN 34, "Recibido Por",
COLUMN 58, "Aprobado Por"
SKIP 1 LINE
PRINT COLUMN 2,
"Original: Contabilidad Copia: Vendedor Copia: Ventas Copia: Almacen"
PRINT normal
END REPORT
+2
View File
@@ -0,0 +1,2 @@
select sec_cliente from vetb00004
where sec_cliente not in (select sec_cliente from vetb00028)
+6
View File
@@ -0,0 +1,6 @@
for i in `cat lista`
do
sed -e 's/E L E C T R O D O M E S T I C O /E L E C T R O D O M E S T I C O S/g' < $i > /users/tmp/$i
echo $i
done
+32
View File
@@ -0,0 +1,32 @@
schema decomarmol
LAYOUT (TEXT="ccprrp003 Analisis Saldos",STYLE="basic")
GRID
{
<G Parametros > <G Totales >
Tipo de Venta [b] Total Cte. [t0 ]
Fecha de Corte [c ] Total 1-30 [t1 ]
Cliente [a ] [d ] Total 31-60 [t2 ]
Vendedor [k1 ] Total 61-90 [t3 ]
0 50 100 Total Mas 90 [t4 ]
[p000 ] Total Saldo [t5 ]
}
end
end
tables
cctb00001
attributes
PROGRESSBAR p000 = formonly.progreso,VALUEMIN=0,VALUEMAX=100,COLOR=GREEN;
k1 = formonly.sec_vend;
b = formonly.tipo_venta type char, autonext,
comments = "1 = Ventas Locales, 2 = Ventas de Exportacion";
c = formonly.fecha_corte type date, autonext, format = "dd/mm/yyyy",
comments = "Digite la fecha de Corte del Reporte";
a = formonly.tipo_cliente;
d = formonly.sec_cliente;
t0 = formonly.total_c type decimal(10,2);
t1 = formonly.total1 type decimal(10,2);
t2 = formonly.total2 type decimal(10,2);
t3 = formonly.total3 type decimal(10,2);
t4 = formonly.total4 type decimal(10,2);
t5 = formonly.total5 type decimal(10,2); end
+33
View File
@@ -0,0 +1,33 @@
database marmotech
screen size 24 by 80
{
cod_comp [f000 ]
nombre [f001 ]
rnc [f002 ]
direccion [f003 ]
telefono [f004 ]
fax [f005 ]
administrador [f006 ]
status_t [a]
us_crea [f007 ]
fech_crea [f008 ]
us_mod [f009 ]
fech_mod [f010 ]
}
end
tables
companias
attributes
f000 = companias.cod_comp;
f001 = companias.nombre,upshift;
f002 = companias.rnc,upshift;
f003 = companias.direccion,upshift;
f004 = companias.telefono;
f005 = companias.fax;
f006 = companias.administrador,upshift;
a = companias.status_t,noentry;
f007 = companias.us_crea,noentry;
f008 = companias.fech_crea,noentry;
f009 = companias.us_mod,noentry;
f010 = companias.fech_mod,noentry;
end
+7
View File
@@ -0,0 +1,7 @@
FUNCTION comprimeImagen(filedestino,tamano)
DEFINE filedestino, comando,tamano STRING
LET comando = 'magick convert ',filedestino,tamano,filedestino
RUN comando
END FUNCTION
+81
View File
@@ -0,0 +1,81 @@
DEFINE wconduces DYNAMIC ARRAY OF RECORD
numero INT,
factura INT,
fecha VARCHAR(10),
cliente VARCHAR(100),
almacen SMALLINT,
num_req INT
END RECORD,
idx INT
FUNCTION conduces(xnum_oc)
DEFINE wconduces DYNAMIC ARRAY OF RECORD
numero INT,
factura INT,
fecha VARCHAR(10),
cliente VARCHAR(100),
almacen SMALLINT,
num_req INT
END RECORD
DEFINE deconduces DYNAMIC ARRAY OF RECORD
num_doc INT,
area INT,
cod_n INT,
cod_grupo,cod_tipo,cod_sec INT,
descripcion VARCHAR(100),
cantidad DEC(12,5)
END RECORD,
pcodn,pcodgrupo,pcodtipo,pcodsec,xnum_oc,xconduce,xnum_req,xfactura INT
OPEN WINDOW w1 WITH FORM "svfmwd003"
INPUT BY NAME xnum_oc
AFTER INPUT
IF int_flag THEN
CALL msg(2)
EXIT INPUT
END IF
IF xnum_oc IS NULL THEN
CALL msg(16)
NEXT FIELD xnum_oc
END IF
DECLARE busca_conduce CURSOR FOR
SELECT DISTINCT a.num_oc,c.factura,CONVERT(CHAR(10),a.fecha,103),b.nombre,a.bodega,a.num_req
FROM iptb00006 a LEFT OUTER JOIN vetb00002 c ON a.cod_sp = c.tipo_cliente AND a.cod_sp_Sec = c.sec_cliente AND
a.num_doc = c.conduce,vetb00004 b
WHERE a.cod_sp = b.tipo_cliente AND a.cod_sp_sec = b.sec_cliente AND
a.num_oc = xnum_oc AND a.cod_mov IN (30,31,55,56) AND a.status_t IS NULL
ORDER BY a.num_oc
LET idx = 1
FOREACH busca_conduce INTO wconduces[idx].*
LET idx = idx + 1
END FOREACH
EXIT INPUT
END INPUT
IF int_flag THEN
LET xconduce=0
LET xnum_req = 0
LET xfactura = 0
LET int_flag = FALSE
RETURN xconduce,xnum_req,xfacturA
END IF
DISPLAY ARRAY wconduces TO sconduces.* #123641
AFTER DISPLAY
LET idx = arr_curr()
LET xconduce =wconduces[idx].numero
LET xnum_req = wconduces[idx].num_req
LET xfactura = wconduces[idx].factura
# CALL dconduces(wconduces[idx].numero,wconduces[idx].almacen) RETURNING deconduces
IF INT_FLAG THEN
LET INT_FLAG = FALSE
CONTINUE DISPLAY
ELSE
EXIT DISPLAY
END IF
END DISPLAY
CLOSE WINDOW w1
RETURN xconduce,xnum_req,xfactura
END FUNCTION
+19
View File
@@ -0,0 +1,19 @@
FUNCTION control_costos(pcodn,pcodgrupo,pcodtipo,pcodsec,pfecha)
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec SMALLINT,
costo_producto DEC(13,5),
pfecha DATE
LET costo_producto =0
SELECT AVG(a.material+a.labor+a.gastos) INTO costo_producto
FROM iptb00004 a
WHERE a.cod_n =pcodn AND
a.cod_grupo = pcodgrupo AND
a.cod_tipo = pcodtipo AND
a.cod_sec =pcodsec AND
a.fecha <=pfecha AND
a.status_t IS NULL
IF costo_producto IS NULL THEN
LET costo_producto = 0
END IF
RETURN costo_producto
END FUNCTION
+54
View File
@@ -0,0 +1,54 @@
01|12|1999|2|2|0|1|592.35||usacg01|1999-01-27 12:53|usacg01|1999-01-27 15:32|
01|12|1999|2|2|0|2|815.69||usacg01|1999-01-27 12:58|||
01|12|1999|2|2|0|3|968.92||usacg01|1999-01-27 13:09|||
01|12|1999|2|2|0|4|554.92||usacg01|1999-01-27 13:10|||
01|12|1999|2|2|0|5|1218.17||usacg01|1999-01-27 13:10|||
01|12|1999|2|2|0|6|818.46||usacg01|1999-01-27 13:11|||
01|12|1999|2|2|0|7|626.82||usacg01|1999-01-27 13:11|||
01|12|1999|2|2|0|9|745.04||usacg01|1999-01-27 13:17|usacg01|1999-01-29 10:00|
01|12|1999|2|2|0|10|778.56||usacg01|1999-01-27 13:17|||
01|12|1999|2|2|0|11|844.91||usacg01|1999-01-27 13:18|||
01|12|1999|2|2|0|12|1068.82||usacg01|1999-01-27 13:18|||
01|12|1999|2|2|0|13|974.98||usacg01|1999-01-27 13:19|||
01|12|1999|2|2|0|14|801.4||usacg01|1999-01-27 13:19|||
01|12|1999|2|2|0|15|963.09||usacg01|1999-01-27 13:19|||
01|12|1999|2|2|0|17|1269.22||usacg01|1999-01-27 13:21|||
01|12|1999|2|2|0|18|720.2||usacg01|1999-01-27 13:22|||
01|12|1999|2|2|0|19|1468.4||usacg01|1999-01-27 13:24|usacg01|1999-01-27 13:49|
01|12|1999|2|2|0|20|1069.02||usacg01|1999-01-27 13:35|||
01|12|1999|2|2|0|21|1269.02||usacg01|1999-01-27 13:36|||
01|12|1999|2|2|0|22|1089.99||usacg01|1999-01-27 13:36|||
1|12|1999|2|2|0|23|1534.05||usacg01|1999-01-27 13:37|||
01|12|1999|2|2|0|24|741.05||usacg01|1999-01-27 13:37|||
01|12|1999|2|2|0|25|823.43||usacg01|1999-01-27 13:37|||
01|12|1999|2|2|0|26|671.87||usacg01|1999-01-27 13:38|||
01|12|1999|2|2|0|27|1017.72||usacg01|1999-01-27 13:39|||
01|12|1999|2|2|0|28|979.3||usacg01|1999-01-27 13:39|||
01|12|1999|2|2|0|29|1091.4||usacg01|1999-01-27 13:40|||
01|12|1999|2|2|0|30|1166.8||usacg01|1999-01-27 13:41|||
01|12|1999|2|2|0|31|940.6||usacg01|1999-01-27 13:41|||
01|12|1999|2|2|0|32|1062.4||usacg01|1999-01-27 13:41|||
01|12|1999|2|2|0|33|547.71||usacg01|1999-01-27 13:42|||
01|12|1999|2|2|0|34|547.71||usacg01|1999-01-27 13:42|||
01|12|1999|2|2|0|35|790.48||usacg01|1999-01-27 13:43|||
01|12|1999|2|2|0|36|897.29||usacg01|1999-01-27 13:43|||
01|12|1999|2|2|0|37|734.43||usacg01|1999-01-27 13:44|||
01|12|1999|2|2|0|38|656.13||usacg01|1999-01-27 13:44|||
01|12|1999|2|2|0|39|688.03||usacg01|1999-01-27 13:45|||
01|12|1999|2|2|0|40|656.13||usacg01|1999-01-27 13:45|||
01|12|1999|2|2|0|41|688.03||usacg01|1999-01-27 13:46|||
01|12|1999|2|2|0|42|1278.18||usacg01|1999-01-27 13:47|||
01|12|1999|2|2|0|43|547.29||usacg01|1999-01-27 14:25|||
01|12|1999|2|2|0|44|1157.97||usacg01|1999-01-27 14:25|||
01|12|1999|2|2|0|45|1354.35||usacg01|1999-01-27 14:44|usacg01|1999-01-27 15:00|
01|12|1999|2|2|0|46|963.23||usacg01|1999-02-17 10:08|||
01|12|1999|2|2|0|47|1078.74||usacg01|1999-02-17 10:08|||
01|12|1999|2|2|0|48|1078.73||usacg01|1999-02-17 10:08|||
01|12|1999|2|2|0|49|1078.74||usacg01|1999-02-17 10:09|||
01|12|1999|2|2|0|50|628.41||usacg01|1999-07-27 15:55|usacg01|1999-07-28 09:16|
01|12|1999|2|2|0|51|963.56||usacg01|1999-07-27 15:55|usacg01|1999-07-28 09:17|
01|12|1999|2|2|0|52|1214.93||usacg01|1999-07-27 15:56|usacg01|1999-07-28 09:17|
01|12|1999|2|2|0|53|1331.17||usacg01|1999-08-14 16:02|||
01|12|1999|2|2|0|55|1190.61||usacg01|1999-08-24 17:35|||
01|12|1999|2|2|0|54|673.76||usacg01|1999-09-03 10:08|||
01|12|1999|2|2|0|56|699.17||usacg01|1999-09-03 10:14|||
+865
View File
@@ -0,0 +1,865 @@
_tmpboni2021_,0
account,226
actb00001,671
actb00002,1173
actb00004,1422
actb00005,1796
actb00010,2239
adtb00001,2913
adtb00002,3109
adtb00003,3334
adtb00004,4582
adtb00005,4930
adtb00006,5120
adtb00007,5314
adtb00008,5500
adtb00009,5690
adtb00010,5903
adtb00011,6091
adtb00012,6995
adtb00013,8693
adtb00014,9109
adtb00015,9513
adtb00016,10093
adtb00017,10548
adtb00018,11031
adtb00019,11827
adtb00020,12132
adtb00021,13076
adtb00022,13397
adtb00023,14196
adtb00024,14542
adtb00025,14743
adtb00026,14940
adtb00027,15555
adtb00028,15930
adtb00029,16117
adtb00030,16398
adtb00031,16470
adtb00032,16562
adtb00033,17168
adtb00036,17393
adtb00038,17669
adtb00040,17723
adtb00041,18020
adtb00042,18287
adtb00043,18487
adtb00045,18812
adtb00046,18947
adtb00047,19066
adtb00048,19385
adtb00049,19474
adtb00050,19583
adtb00051,19734
adtb00052,19914
adtb00053,20010
adtb00054,20207
adtb00055,20390
adtb00056,20625
altbd00001,20789
altbm00001,21034
bloques,21450
brand,21547
categorias,21722
category,21958
cctb00001,22089
cctb00002,23075
cctb00003,23354
cctb00004,23624
cctb00005,24035
cctb00008,24233
cctb00011,24595
cctb00012,25093
cctb00013,25320
cctb00019,25606
cctb00020,25695
cctb00021,26399
cctb00022,26788
cctb00023,27048
cctb00024,27436
cctb00025,27647
cctb00026,28085
cctb00027,28872
cctb00028,29480
cctb00029,29538
cctb00030,29712
cctb00031,30320
cctb00032,31078
cctb00033,31561
cctb00034,31900
cctb00035,32278
cctb00040,32965
cctb00041,33080
cctb00042,33184
cgtb00001,33794
cgtb00001b,34481
cgtb00002,35183
cgtb00003,35375
cgtb00004,35586
cgtb00005,36085
cgtb00006,36571
cgtb00007,37034
cgtb00008,37675
cgtb00009,37864
cgtb00010,38051
cgtb00011,38238
cgtb00012,38460
cgtb00013,38860
cgtb00014,39022
cgtb000149,39183
cgtb00015,39461
cgtb00016,39764
cgtb00017,40168
cgtb00018,40636
cgtb00019,41083
cgtb00020,41605
cgtb00021,41656
cgtb00022,41872
cgtb00023,42195
cgtb00030,42278
cgtb00031,42356
cgtb00032,42547
cgtb00033,42929
cgtb00034,43368
cgtb00035,43486
cgtb00036,43583
cgtb00039,43642
cgtb00040,43728
cgtb00041,43811
cgtb00042,43999
cgtb00043,44208
cgtb00044,44401
cgtb00045,44656
cgtb00046,45232
cgtb00050,45634
cgtb00051,45724
cgtb00055,45835
cgtb00056,46194
cgtb00057,46406
cgtb00058,46587
cgtb00059,46670
cgtb00060,46782
cgtb00061,46970
cgtb00062,47127
cgtb00063,47347
cgtb00064,47521
cgtb00065,47732
cgtb00066,48038
cgtb00067,48284
cgtb00068,48647
cgtb00069,48725
cgtb00070,48918
cgtb00071,49145
cgtb00072,49229
cgtb00073,49443
cgtb00074,49895
cgtb00075,49960
cgtb00077,50321
cgtb00083,50383
cgtb00084,50498
cgtb0067,50659
cgtb04,50802
cgtbh00004,51253
checkinout,51794
checkinout1,52405
checkinout2,52739
chequeo,53073
codigo20,53149
codigo21,53229
codigos,53330
codigos22,53427
color,53532
companias,53587
componentes_cocinas_gioto,54165
controlhoras,55001
correos,55324
cotb00001,55428
cotb00002,55975
cotb00003,56269
cotb00004,56461
cotb00005,56790
cotb00006,57012
cotb00007,57342
cotb00008,57575
cotb00009,57987
cotb00010,58350
cotb00011,58406
cotb00012,58901
cotb00013,59280
cotb00014,59631
cotb00015,60285
cotb00016,60846
cotb00017,61243
cotb00018,61593
cotb00019,61781
cotb00020,62048
cotb00021,62289
cotb00022,62554
cotb00023,62764
cotb00024,62956
cotb00025,63202
cotb00026,63693
cotb00027,64100
cotb00028,64295
cotb00029,64317
cotb00030,64937
cotb00031,65097
cotb00032,65348
cotb00033,65780
cotb00034,66367
cotb00035,66799
cotb00036,67263
cotb00037,67456
cotb00038,67893
cotb00039,68327
cotb00040,68709
cotb00041,68920
cotb00042,69109
cotb00044,69461
cotb00050,69605
cotb00051,69764
cotb00052,69951
cotb00053,70314
cotb00054,70633
cotb00055,71292
cotb00056,71529
cotb00057,71851
cotb00058,72544
cotb00059,72963
cotb00060,73498
cotb00061,73767
cotb00062,73845
cotb00063,74287
cotb00064,74571
cotb00065,74896
cotb00066,75229
cotb00067,75928
cotb00068,76430
cotb00069,77455
cotb00070,77998
cotb00071,78055
cotb00072,78373
cotb00073,78587
cotb00074,78806
cotb00075,79052
cotb00076,79741
cotb00077,80090
cotb00078,80168
cotb00079,80402
cotizacion,80480
cotizacion_detalle,81383
cotizaciones_log,82158
country,83622
cpprrp0062,83669
cptb00001,83815
cptb00002,84529
cptb00003,84826
cptb00004,85397
cptb00005,85986
cptb00006,86465
cptb00007,86945
cttb00001,87055
cttb00002,87338
cttb00003,87519
cttb00004,88136
cttb00006,88217
cttb00007,88564
cttb00008,88762
cttb00009,89109
cttb00010,89469
cttb00011,89687
cttb00012,89984
cttb00013,90360
cttb00014,90796
cttb00015,91030
cttb00016,91345
cttb00017,91424
cttb00018,92035
cttb00021,92225
cttb00022,92434
cttb00023,92732
cttb00026,93036
cttb00027,93301
cttb00028,93453
cttb00029,93800
cttb00032,94044
cttb00033,94866
cttb00034,95001
cttb00036,95246
cttb00038,95626
cttb00039,95901
cttb00041,96026
cttb00042,96323
cttb000log1,96570
cttb000log2,96687
dashtable,97186
dbmail_results,97523
dbocodigos20,97560
demos,97656
departamentos,97929
detalles_cot_log,98112
dgii_rnc,98893
dgii_rnc3,99232
diatable,99472
documentos,99523
dstb00001,99712
dstb00002,100156
dstb00003,100457
dstb00004,100654
dstb00005,100895
dstb00006,101318
dstb00007,101544
emailmarketing,101747
emventas,102003
encuesta,102113
etiquetas,102696
familia,103228
familia_sub,103377
inrp00002,103498
intb00001,103756
intb00002,104123
intb00003,104608
intb00004,105008
intb00005,105408
intb00006,105736
intb00007,106553
intb00008,106759
intb00009,107141
intb00010,107307
intb00011,107401
intb00012,107814
intb00013,108239
intb00014,108615
intb00015,108928
intb00018,109312
intb00019,109796
intb00020,110326
intb00022,111211
intb00023,111643
intb00026,111857
intb00040,112204
intb00041,112577
intb00042,112975
intb00043,113335
intb00043_,113461
intb00043a,113586
intb00044,113714
inventario_p,113872
inventory,114236
iptb00001,114288
iptb00002,114628
iptb00003,115961
iptb00004,116232
iptb00005,116821
iptb00006,117610
iptb00007,118902
iptb00008,119116
iptb00009,119921
iptb00010,120397
iptb00011,120909
iptb00012,121336
iptb00013,121836
iptb00014,122075
iptb00015,122397
iptb00016,122582
iptb00017,123387
iptb00018,124194
iptb00019,124407
iptb00020,124598
iptb00021,124841
iptb00022,125032
iptb00023,125254
iptb00024,125372
iptb00025,125607
iptb00026,126158
iptb00027,126424
iptb00028,126529
iptb00029,126659
iptb00030,126861
iptb00031,127063
iptb00032,127450
iptb00033,127837
iptb00034,128700
iptb00035,128768
iptb00036,128877
iptb00038,128937
iptb00039,129221
iptb00040,129502
iptb00041,129875
iptb00042,130273
iptb00043,130621
iptb00044,130674
iptb00045,130957
iptb00046,131048
iptb00047,131137
iptb00048,131224
iptb00049,131280
iptb00050,131699
iptb00051,132441
iptb00052,132521
iptb00053,132815
iptb00054,133281
iptb00055,133725
iptb00056,133813
iptb00057,134277
iptb00058,134822
iptb00059,135347
iptb00066,135432
iptb025,136237
iptbexistencia,136673
ircodigos,136959
irtb00001,137089
irtb00002,137431
irtb00005,137955
irtb00006,138313
irtb00007,139098
irtb00008,139599
irtb00009,140128
irtb00010,140636
irtb00011,140836
irtb00012,141253
irtb00013,141678
irtb00014,142050
irtb00016,142238
irtb00017,142551
irtb00018,142935
irtb00027,142990
irtb00029,143450
irtb00030,143654
irtb00040,143856
irtb00041,144229
irtb00042,144627
istb00002,144987
istb00006,145576
lajas,146285
lajas14,146374
lajas2,146471
lajas2_,146564
lineitem,146661
listaprecio,146802
localizacion,147082
localizaciones,147180
mallas9,147971
marzo_,148068
mestable,148153
molduras23,148355
msgtable,148467
nc,148621
nombre_cta,149129
notb00001,149163
notb00002,149246
notb00003,149744
notb00004,150079
notb00005,150292
notb00006,150511
notb00007,150862
notb00008,151253
notb00009,151698
notb00010,151914
notb00011,152262
notb00012,152650
notb00013,152805
notb00014,152992
notb00015,153072
notb00016,153458
notb00017,153901
notb00018,154091
notb00019,154286
notb00020,154538
notb00021,154897
notb00022,155149
notb00023,155592
notb00024,155935
notb00025,156122
notb00026,156176
notb00028,156228
notb00029,156519
notb00033,156970
notb00050,157634
notb00088,157841
notb00116,158284
notb0019,158392
notb03,158635
notbcuenta,158936
notbingresos,159021
ntb00005,159080
ordenesinstalacionfacturadas,159397
orders,159990
orderstatus,160669
paises,160789
pda5,160841
permisos,161263
pgtb00003,161381
prdtable,161658
precios,161927
preciosc,162147
premios,162275
product,162479
product_collection,162612
prordenlog,162696
prordenstatus,163012
prtb00001,163375
prtb00002,163472
prtb00003,163770
prtb00004,164071
prtb00005,164231
prtb00006,164420
prtb00007,164718
prtb00008,165202
prtb00009,165479
prtb00010,165762
prtb00011,166121
prtb00012,166451
prtb00013,167597
prtb00014,168444
prtb00015,168644
prtb00016,168932
prtb00017,169127
prtb00018,169357
prtb00019,169675
prtb00020,169806
prtb00021,169886
prtb00022,170551
prtb00023,171079
prtb00024,171348
prtb00025,171400
prtb00026,171684
prtb00027,172081
prtb00028,172274
prtb00029,172540
prtb00030,172941
prtb00031,173082
prtb00032,173431
prtb00033,173565
prtb00034,173905
prtb00035,173961
prttb00001,174079
prttb00002,174242
ptordenesgral,174326
ptventasgral,175677
ptventasgralh,177831
query,179709
ranking,180092
repitecodigo,180418
repitecodigotmp,180606
seg0000,180673
seg0001,181229
seg0002,182015
seg0003,182089
seg0004,182177
seg0005,182226
seg0006,182337
seg0007,182416
seg0008,182583
seg0009,182632
seqreg,182687
signon,182738
sucursales,182790
suplidor,183160
supplier,183294
svtb00001,183509
svtb00002,184832
svtb00003,184959
svtb00005,185221
svtb00006,185641
svtb00007,185760
svtb00008,186571
svtb00009,186899
tbperfil_mail,187071
tempadtb00003,187535
templateproductos_roca,189717
tetb00001,190685
tetb00002,191007
tetb00003,191219
tetb00004,191449
tetb00005,191688
tetb00006,191932
tetb00007,192144
tmp2iptb00012,192364
tmp3iptb00012,192948
tmp_kit,193532
tmpactualiza,193787
tmparchivos,194011
tmpbalances,194157
tmpbalances1,194350
tmpbonifica,194514
tmpbono20a,194757
tmpbono20c,195279
tmpbonocancelados,195767
tmpbonos2020,196367
tmpcam,196868
tmpcambiosalario,196999
tmpcambiosalario1,197098
tmpccprrp027,197201
tmpccrp48,197538
tmpcctb00001_15,198101
tmpcctb01,199282
tmpcctb01_01,199953
tmpcgtb011,201035
tmpcheckinout,201271
tmpcheckinout1,201627
tmpcheckinout2,201994
tmpclase,202361
tmpclase1,202416
tmpclasificacion,202478
tmpclientes,202719
tmpcod11,203156
tmpcod12,203226
tmpcodigorepetido,203296
tmpcodigos,203500
tmpcodigos1,203609
tmpcodigosdeptos,203803
tmpcodsec,204289
tmpcomprobanteb02,204345
tmpcostos,204492
tmpcostos1,204828
tmpcostosferia,205018
tmpcotizaciones,205324
tmpcotos_97,205518
tmpcuadre,205780
tmpcxc,206011
tmpcxctrx,206111
tmpdepartamentoplanta,206283
tmpdescuento,206409
tmpdespiece,206560
tmpdetallefact,206981
tmpdiasinv,207253
tmpdirecciones,207559
tmpduplicados,208350
tmpempresas1,208533
tmpequipos,208884
tmpexcel,209072
tmpfacturas,209131
tmpfacturas_ext,209554
tmpfempleados,209697
tmpfichas,209886
tmpfotos,210559
tmpfotosdelta,211245
tmpgrupo,211445
tmpinstalacioncodigos,211504
tmpinventario,211700
tmpinventariofisico,212028
tmpinvm,212441
tmpipprrp013,212735
tmpiptb00002,213202
tmpiptb00004,214196
tmpiptb00006,214520
tmpiptb00012,215942
tmpiptb00027,216508
tmpiptb012,216625
tmpirt002,217155
tmpirtb00009,217648
tmpliquidados,218207
tmpmaquinas_deptos,218465
tmpmaquinast,218819
tmpmatprima,219362
tmpmedida,219504
tmpnomina,219563
tmpnotascr,219838
tmpnotb08,220158
tmpofertas,220611
tmpordenes,220774
tmpplanchas,220909
tmpprecios,221106
tmpprecios_costos,221363
tmppreciosferia,221647
tmppreciosg1,221997
tmppreciosg2,222240
tmppreciosm1,222483
tmppreciosm2,222724
tmpprodminima,222965
tmpproductos,223287
tmpproductosroca,223439
tmpproductostienda,224293
tmpprogramas,225185
tmppuestos,225287
tmpregalia2020,225388
tmpregalias,225991
tmprepuestocuenta,226366
tmprepuestos,226715
tmprepuestoscuentas,227066
tmprepuestosincuenta,227372
tmprepuestossincuenta,227763
tmpsalarios,228511
tmpsdoutlet,228569
tmpseg000,228828
tmpseg0000,229242
tmpseg0001,229711
tmptipo,230450
tmptipocuenta,230506
tmpvacaciones2037,230636
tmpventas,230964
tmpventas43,231080
tmpvetb00002,231342
tmpvetb00003,232782
tmpvetb00051,233249
tmpvetb00051b,234211
tmpvolantes,235201
tmrequisiciones,235346
topics,235476
travertino,235602
userinfo,235738
usuarios,236867
vacaciones,236956
ventas,237350
ventas_dash1,237988
ventas_soporte,238044
verecep_detalles,238138
verecep_master,238353
vetb00001,239238
vetb00002,239453
vetb00003,240691
vetb00004,241259
vetb00005,244826
vetb00006,245175
vetb00007,245722
vetb00008,245944
vetb00009,246133
vetb00010,246329
vetb00011,246575
vetb00012,246937
vetb00013,247220
vetb00014,247766
vetb00015,248128
vetb00016,248599
vetb00017,248827
vetb00018,248879
vetb00019,249089
vetb00020,249412
vetb00021,249643
vetb00022,250038
vetb00023,250432
vetb00024,250686
vetb00025,251158
vetb00025b,251671
vetb00025c,252133
vetb00026,252595
vetb00027,252650
vetb00028,253100
vetb00029,253350
vetb00030,253716
vetb00031,253988
vetb00032,254407
vetb00033,254790
vetb00034,255038
vetb00035,255856
vetb00036,256267
vetb00037,256594
vetb00038,257172
vetb00039,257538
vetb00040,257885
vetb00041,258203
vetb00042,258398
vetb00043,258756
vetb00044,259061
vetb00045,259139
vetb00046,259614
vetb00047,260009
vetb00048,260106
vetb00049,260325
vetb00050,260598
vetb00052,262252
vetb00053,262508
vetb00054,262585
vetb00055,262831
vetb00056,263049
vetb00057,263244
vetb00058,263544
vetb00059,264584
vetb00060,264668
vetb00061,265255
vetb00062,265407
vetb00063,265640
vetb00064,265766
vetb00065,265984
vetb00066,266188
vetb00067,266389
vetb00068,266965
vetb00069,267385
vetb00070,267492
vetb00071,267604
vetb00072,268027
vetb00073,268216
vetb00075,268383
vetb00076,272163
vetb00078,272352
vetb00079,272606
vetb00080,272734
vetb00081,272956
vetb00083,273262
vetb00084,274468
vetb00085,274555
vetb00086,274848
vetb00087,275063
vetb00088,275526
vetb00090,275894
vetb00091,276076
vetb00092,276660
vetb00093,277042
vetb00094,277219
vetb00095,277474
vetb00096,277792
vetb00097,277895
vetb00098,278219
vetb00099,278251
vetb00100,280260
vetb00101,280441
vetb00102,280544
vetb00103,280740
vetb00104,281170
vetb00105,281228
vetb00106,281289
vetb00107,281435
vetb00108,281711
vetb00109,281998
vetb00110,282227
vetb00111,282393
viejo1,282515
view_ordenes,282697
viewcuentaordenes,283606
volantes,284025
vw_regproduccion,284308
vwanalisisventas,285026
vwanalitico,285878
vwanaliticoh,286714
vwclientesnocompran,287496
vwcodigosnotienencosto,287844
vwcodigosnuevos,288129
vwcomisiones,288807
vwcompras,289930
vwconduces,290750
vwconducesr,291479
vwcontactosclientes,292265
vwcostosproductos,292514
vwdevoluciones,292951
vwdevoluciones_count,293770
vwestado,293999
vwestadoordenes,294172
vwheadcount,295385
vwinconteopda,295643
vwipconteopda,296135
vwipprodterm,296651
vwipprodtermusuario,297569
vwiptiposmov,298458
vwirconteopda,298554
vwmargenordenes,299046
vwmatprima,299256
vwmatprima_scosto,299976
vwmatprimausuario,300789
vwordenescocinas,301674
vwprecios,302288
vwprodterm_scosto,302554
vwproduccion,304072
vwproduccionf,304931
vwproducciont,306177
vwproductos,306913
vwproductosprecioscostos,307308
vwprovincias,307924
vwptventasgral,308772
vwrepuestos,310466
vwrepuestosmaquinas,311344
vwrequisicionesautorizadas,311505
vwretrabajo,312216
vwseguimientoclientes,313237
vwvaloresordenes,314752
xemail,314988
File diff suppressed because one or more lines are too long
File diff suppressed because it is too large Load Diff
Binary file not shown.
+41
View File
@@ -0,0 +1,41 @@
INSERT INTO analisis
SELECT b.cod_cia,' ', d.factura,d.orden,d.fecha_factura,m.nom1_emp,d.tipo_cliente,d.sec_cliente,j.nombre,
b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,
B.nomenclatura,x1.producto,x2.descripcion,' ',
b.descrip_esp,b.unidad_med, x3.descripcion,
x.descrip,y.nombre_provincia,'1','TIPO NEGOCIO',
f.cantidad,f.cantidad*f.precio,'0','0','0',
' ',
'0','0','0','0','0','0','0','0',(f.precio*x4.cantidad_2*-1),'0','0','0','0',
p.ano,p.mes,'0','0','0','0','0','0','0','0','0','0','0'
FROM iptb00002 b,vetb00002 d,vetb00003 f,OUTER iptb00024 x2,
vetb00004 j,prdtable p,adtb00003 m,vetb00008 x,OUTER vetb00020 y,OUTER vetb00009 z,vetb00059 x3,iptb00020 x1,
iptb00006 x4
WHERE
(b.cod_n = f.cod_n and b.cod_grupo = f.cod_grupo and b.cod_tipo = f.cod_tipo and
b.cod_sec = f.cod_sec) AND
(b.cod_n = x4.cod_n and b.cod_grupo = x4.cod_grupo and b.cod_tipo = x4.cod_tipo and
b.cod_sec = x4.cod_sec) AND
x4.cod_mov in (12,13) AND
d.factura = x4.fact_no AND
b.cod_tipo = x2.cod_tipo and
b.cod_n = x2.cod_n AND
p.ano = pano and # p.mes = pmes AND
x1.cod_n = b.cod_n AND
j.cod_zona = x.cod_zona AND
j.cod_provincia = y.cod_provincia AND
j.cod_zona = z.cod_zona AND
j.cod_provincia = z.cod_provincia AND
d.sec_vend = m.num_emp AND
X4.fecha between p.fecha_inicio AND p.fecha_corte AND d.factura = f.factura AND
d.tipo_cliente = j.tipo_cliente and
d.sec_cliente = j.sec_cliente and
d.ventas = x3.ventas AND
f.status_t IS NULL AND
(b.cod_n = f.cod_n and b.cod_grupo = f.cod_grupo and b.cod_tipo = f.cod_tipo and
b.cod_sec = f.cod_sec) AND
d.status_t IS NULL AND
x4.status_t IS NULL
+80
View File
@@ -0,0 +1,80 @@
# Property of Four Js*
# (c) Copyright Four Js 1995, 2013. All Rights Reserved.
# * Trademark of Four Js Development Tools Europe Ltd
# in the United States and elsewhere
#
# Four Js and its suppliers do not warrant or guarantee that these
# samples are accurate and suitable for your purposes. Their inclusion is
# purely for information purposes only.
DEFINE tree DYNAMIC ARRAY OF RECORD
NAME STRING,
parentId STRING,
id STRING,
hasChildren BOOLEAN
END RECORD
MAIN
DEFINE id INTEGER
OPEN FORM f FROM arg_val(0)
DISPLAY FORM f
CALL expand(0)
DISPLAY ARRAY tree TO tree.* ATTRIBUTE(UNBUFFERED)
BEFORE DISPLAY CALL DIALOG.setSelectionMode("tree", 1)
ON EXPAND(id)
DISPLAY "expand id:", id, " arr_curr:", arr_curr()
CALL expand(id)
ON COLLAPSE(id)
DISPLAY "collapse id:", id, " arr_curr:", arr_curr()
CALL collapse(id)
END DISPLAY
END MAIN
FUNCTION collapseAll()
DEFINE p INT
LET p = 1
WHILE p < tree.getLength()
CALL collapse(p)
LET p = p + 1
END WHILE
END FUNCTION
FUNCTION collapse(p)
DEFINE p INT
DEFINE id STRING
LET id = tree[p].id
WHILE p < tree.getLength()
IF tree[p + 1].parentId <> id THEN EXIT WHILE END IF
CALL collapse(p + 1)
CALL tree.deleteElement(p + 1)
END WHILE
END FUNCTION
FUNCTION expand(p)
DEFINE NAME, id, parentId STRING
DEFINE p INT
DEFINE i INT
IF p == 0 THEN
LET parentId = 0
LET NAME = "Root"
ELSE
LET parentId = tree[p].id
LET NAME = "Node"
END IF
FOR i = 1 TO 4
LET p = p + 1
CALL tree.insertElement(p)
LET id = parentId || "." || i
LET tree[p].id = id
LET tree[p].parentId = parentId
LET tree[p].name = NAME || " " || i
IF i MOD 2 THEN
LET tree[p].hasChildren = TRUE
ELSE
LET tree[p].hasChildren = FALSE
END IF
END FOR
END FUNCTION
+43
View File
@@ -0,0 +1,43 @@
# Property of Four Js*
# (c) Copyright Four Js 1995, 2013. All Rights Reserved.
# * Trademark of Four Js Development Tools Europe Ltd
# in the United States and elsewhere
#
# Four Js and its suppliers do not warrant or guarantee that these
# samples are accurate and suitable for your purposes. Their inclusion is
# purely for information purposes only.
LAYOUT
GRID
{
<Tree tree >
Name
[name ]
[name ]
[name ]
[name ]
[name ]
[name ]
[name ]
[name ]
[name ]
[name ]
[name ]
}
END
END
ATTRIBUTES
name = FORMONLY.name;
PHANTOM FORMONLY.parentId;
PHANTOM FORMONLY.id;
PHANTOM FORMONLY.hasChildren;
TREE tree:
IMAGEEXPANDED = "open",
IMAGECOLLAPSED = "folder",
IMAGELEAF = "file",
ISNODECOLUMN = hasChildren;
INSTRUCTIONS
SCREEN RECORD tree(name, parentId, id, hasChildren)
+36
View File
@@ -0,0 +1,36 @@
{
=============================================================================
Formulario : edfmrp000
Objetivo : Captura de valores para impresion de las entradas
de PRODUCTOS TERMINADOS
Programa : edprrp000
Autor : JUAN F. SOTO
Fecha : FEBRERO 20, 1998.
=============================================================================
}
database decomarmol
screen size 24 by 80
{
Entrada [en ]
Fecha Inicial [a ]
Fecha Final [b ]
Codigo Mov. [k ]
Afecta [f]
Detalle [dt ]
}
end
tables
iptb00006
attributes
en = formonly.entra type char,picture = "ED.##-###/####",comments
= "Digite la secuencia dentro del mes de la entrada de diario";
dt = formonly.detalle,upshift;
a = formonly.fecha1 type date,format = "dd/mm/yy",
comments = "Digite Fecha Inicial para Rango de Entrada de Diario";
f = formonly.afecta type char,upshift,include=("S","N"),comments =
"Digite <S> En Caso de que Afecte Contabilidad, <N> En Caso Contrario";
b = formonly.fecha2 type date,format = "dd/mm/yy",
comments = "Digite Fecha Final para Rango de Entrada de Diario";
k = iptb00006.cod_mov;
end
+740
View File
@@ -0,0 +1,740 @@
{
-------------------------------------------------------------------------------
PROGRAMA : EDPRRP000
OBJETIVO : Listar las Entrada de Diario PRODUCTOS TERMINADOS
PROGRAMADOR : JUAN F. SOTO
FECHA REALIZACION : FEBRERO 20, 1998.
-------------------------------------------------------------------------------
}
DATABASE marmotech
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,material,material6,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 iptb00006.cod_mov,
cod_cia LIKE iptb00006.cod_cia,
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
unidad_med LIKE iptb00002.unidad_med,
descrip_mov LIKE intb00005.descrip_mov,
consumo LIKE iptb00006.cantidad_2,
material LIKE iptb00004.material,
labor LIKE iptb00004.labor,
gastos LIKE iptb00004.gastos,
cmaterial LIKE iptb00005.cuenta_1,
clabor LIKE iptb00005.cuenta_2,
cgastos LIKE iptb00005.cuenta_3,
cuenta_cia LIKE iptb00022.cuenta_no,
nombre_cia LIKE iptb00022.descripcion,
departamento LIKE iptb00022.departamento
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 edfmrp000 FROM "edfmrp000"
DISPLAY FORM edfmrp000
CALL pantalla()
DISPLAY "edprrp506" AT 4,3
DISPLAY "Entrada de Diario de Costos Prod " 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,c.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
" c.descrip_esp,c.unidad_med,d.descrip_mov,SUM(a.cantidad_2), ",
" MAX(b.material),MAX(b.labor),Max(b.gastos),d.cuenta_1, ",
" d.cuenta_2,d.cuenta_3,e.cuenta_no,e.descripcion,e.departamento ",
"FROM iptb00006 a,iptb00002 c,iptb00005 d, iptb00022 e,OUTER iptb00004 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_mov = d.cod_mov AND b.ventas = 1 ",
" AND c.cod_cia = e.cod_cia AND ",criterio CLIPPED,
"GROUP BY a.cod_mov,c.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
" c.descrip_esp,c.unidad_med,d.descrip_mov, .cuenta_1, ",
" d.cuenta_2,d.cuenta_3,e.cuenta_no,e.descripcion,e.departamento "
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:\\archivo1 > %USPRINT%"
RUN "type C:\\archivo > %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,BLUE)
DISPLAY fecha AT 4,70 ATTRIBUTE (BLUE)
DISPLAY "Sistema de Contabilidad General" AT 5,24
DISPLAY hora AT 6,73 ATTRIBUTE(BLUE)
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 iptb00006.cod_mov,
cod_cia LIKE iptb00006.cod_cia,
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
unidad_med LIKE iptb00002.unidad_med,
descrip_mov LIKE intb00005.descrip_mov,
consumo LIKE iptb00006.cantidad_2,
material LIKE iptb00004.material,
labor LIKE iptb00004.labor,
gastos LIKE iptb00004.gastos,
cmaterial LIKE iptb00005.cuenta_1,
clabor LIKE iptb00005.cuenta_2,
cgastos LIKE iptb00005.cuenta_3,
cuenta_cia LIKE iptb00022.cuenta_no,
nombre_cia LIKE iptb00022.descripcion,
departamento LIKE iptb00022.departamento
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_material,total_labor,total_gastos,t_t_total,t_t_t_total,
t_total_material,t_total_labor,t_total_gastos,t_cantidad
DECIMAL (12,2)
DEFINE ttotal_material,ttotal_labor,ttotal_gastos,tt_t_total,tt_t_t_total,
tt_total_material,tt_total_labor,tt_total_gastos,tt_cantidad
DECIMAL (12,2)
DEFINE total1,material2,material1,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_cia,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,"edprrp506",
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
BEFORE GROUP OF x.cod_cia
PRINT COLUMN 1,x.nombre_cia
PRINT COLUMN 1, "--------------------------------------------------",
"--------------------------------------------------",
"----------------------------------------"
PRINT COLUMN 109, "Gasto",
COLUMN 136, "Costo"
PRINT COLUMN 4, "Movimiento",
COLUMN 49, "Cantidad",
3 spaces, "Material",
4 spaces, "Total",
9 spaces, "Labor",
4 spaces, "Total",
6 spaces, "Indirecto",
4 spaces, "Total",
9 spaces, "Total"
PRINT COLUMN 1, "--------------------------------------------------",
"--------------------------------------------------",
"----------------------------------------"
BEFORE GROUP OF x.cod_mov
LET t_cantidad = 0
LET t_t_t_total = 0
LET total_material = 0
LET total_labor = 0
LET total_gastos = 0
LET t_total_material = 0
LET t_total_labor = 0
LET t_total_gastos = 0
LET t_t_total = 0
PRINT COLUMN 1, x.cod_mov using "&&",
COLUMN 7, x.descrip_mov
SKIP 1 LINE
PRINT COLUMN 4, "Productos "
BEFORE GROUP OF x.cod_n
SKIP 1 LINE
LET tt_cantidad = 0
LET tt_t_t_total = 0
LET ttotal_material = 0
LET ttotal_labor = 0
LET ttotal_gastos = 0
LET tt_total_material = 0
LET tt_total_labor = 0
LET tt_total_gastos = 0
LET tt_t_total = 0
ON EVERY ROW
IF x.consumo IS NOT NULL THEN
LET t_cantidad = t_cantidad + x.consumo
LET total_material = x.material * x.consumo
LET total_labor = x.labor * x.consumo
LET total_gastos = x.gastos * x.consumo
LET t_t_total = total_material + total_labor + total_gastos
LET t_t_t_total = t_t_total + t_t_t_total
LET tt_cantidad = tt_cantidad + x.consumo
LET ttotal_material = x.material * x.consumo
LET ttotal_labor = x.labor * x.consumo
LET ttotal_gastos = x.gastos * x.consumo
LET tt_t_total = ttotal_material + total_labor + total_gastos
LET tt_t_t_total = tt_t_total + tt_t_t_total
LET t_total_material = t_total_material + total_material
LET t_total_labor = t_total_labor + total_labor
LET t_total_gastos = t_total_gastos + total_gastos
LET tt_total_material = tt_total_material + ttotal_material
LET tt_total_labor = tt_total_labor + ttotal_labor
LET tt_total_gastos = tt_total_gastos + ttotal_gastos
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 53, x.material USING "#,###.#####",
COLUMN 69, total_material using "##,###,###.##",
COLUMN 86, x.labor using "###.#####",
COLUMN 96, total_labor using "#,###,###.##",
COLUMN 109, x.gastos using "###.#####",
COLUMN 116, total_gastos using "#,###,###.##",
COLUMN 121, t_t_total using "##,###,###.##"
END IF
AFTER GROUP OF x.cod_n
LET ttotal_material = GROUP SUM(x.material*x.consumo)
LET ttotal_labor = GROUP SUM(x.labor*x.consumo)
LET ttotal_gastos = GROUP SUM(x.gastos*x.consumo)
PRINT COLUMN 42, "--------------",
COLUMN 69, "--------------",
COLUMN 96, "----------",
COLUMN 116, "-------------",
COLUMN 121, "-------------"
PRINT negrillas_on
PRINT COLUMN 3, "Total ---->",
COLUMN 42, GROUP SUM(x.consumo) using "###,###,###.###",
COLUMN 69, ttotal_material USING "###,###,###.###",
COLUMN 96, ttotal_labor USING "###,###.###",
COLUMN 116, ttotal_gastos USING "##,###,###.###",
COLUMN 121, ttotal_material+ttotal_labor+
ttotal_gastos using "##,###,###.###"
PRINT negrillas_off
AFTER GROUP OF x.cod_cia
LET ttotal_material = GROUP SUM(x.material*x.consumo)
LET ttotal_labor = GROUP SUM(x.labor*x.consumo)
LET ttotal_gastos = GROUP SUM(x.gastos*x.consumo)
PRINT COLUMN 42, "--------------",
COLUMN 69, "--------------",
COLUMN 96, "----------",
COLUMN 116, "-------------",
COLUMN 121, "-------------"
PRINT negrillas_on
PRINT COLUMN 3, "Total ",x.nombre_cia CLIPPED,"---->",
COLUMN 42, GROUP SUM(x.consumo) using "###,###,###.###",
COLUMN 69, ttotal_material USING "###,###,###.###",
COLUMN 96, ttotal_labor USING "###,###.###",
COLUMN 116, ttotal_gastos USING "##,###,###.###",
COLUMN 121, ttotal_material+ttotal_labor+
ttotal_gastos using "##,###,###.###"
PRINT negrillas_off
SKIP TO TOP OF PAGE
END REPORT
REPORT xentrada(x,fecha1,fecha2,entrada,detalle1)
DEFINE x RECORD
cod_mov LIKE iptb00006.cod_mov,
cod_cia LIKE iptb00006.cod_cia,
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
unidad_med LIKE iptb00002.unidad_med,
descrip_mov LIKE intb00005.descrip_mov,
consumo LIKE iptb00006.cantidad_2,
material LIKE iptb00004.material,
labor LIKE iptb00004.labor,
gastos LIKE iptb00004.gastos,
cmaterial LIKE iptb00005.cuenta_1,
clabor LIKE iptb00005.cuenta_2,
cgastos LIKE iptb00005.cuenta_3,
cuenta_cia LIKE iptb00022.cuenta_no,
nombre_cia LIKE iptb00022.descripcion,
departamento LIKE iptb00022.departamento
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_cia,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_cia
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.material*x.consumo)
LET total_cia = total_cia + GROUP SUM (x.labor*x.consumo)
LET total_cia = total_cia + GROUP SUM (x.gastos*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,x.departamento,null,null,
null,null,detalle1,null,0,total_cia,null,user,
current,null,null)
ELSE
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,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
#------------------------------------------------------------------------
LET total_m = GROUP SUM (x.material*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.cmaterial
LET p_cuenta = x.cmaterial
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,x.departamento,
null,null,null,null,detalle1,null,total_m,0,
null,user,current,null,null)
ELSE
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,
null,null,null,null,detalle1,null,0,total_m,
null,user,current,null,null)
END IF
END IF
END IF
LET total_l = GROUP SUM (x.labor*x.consumo)
IF total_l != 0 THEN
SELECT a.descripcion INTO nombre_cta
FROM cgtb00001 a
WHERE a.cuenta_no = x.clabor
LET credito = credito + total_l
LET p_cuenta = x.clabor
PRINT COLUMN 2, p_cuenta,
COLUMN 10, x.departamento USING "<<<<",
COLUMN 18, nombre_cta CLIPPED;
IF total_l < 0 THEN
PRINT COLUMN 50, total_l USING "###,###,##&.&&"
ELSE
PRINT COLUMN 65, total_l USING "###,###,##&.&&"
END IF
IF afecta = "S" THEN
IF total_l < 0 THEN
LET total_l = total_l * -1
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,null,
null,
null,null,detalle1,null,total_l,0,null,user,
current,null,null)
ELSE
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,null,
null,
null,null,detalle1,null,0,total_l,null,user,
current,null,null)
END IF
END IF
END IF
LET total_g = GROUP SUM (x.gastos*x.consumo)
IF total_g != 0 THEN
SELECT a.descripcion INTO nombre_cta
FROM cgtb00001 a
WHERE a.cuenta_no = x.cgastos
LET credito = credito + total_g
LET p_cuenta = x.cgastos
PRINT COLUMN 2, p_cuenta,
COLUMN 10, x.departamento USING "<<<<",
COLUMN 18, nombre_cta CLIPPED;
IF total_g < 0 THEN
PRINT COLUMN 50, total_g USING "###,###,##&.&&"
ELSE
PRINT COLUMN 65, total_g USING "###,###,##&.&&"
END IF
IF afecta = "S" THEN
IF total_g < 0 THEN
LET total_g = total_g * -1
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,null,
null,
null,null,detalle1,null,total_g,0,null,user,
current,null,null)
ELSE
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,null,
null,
null,null,detalle1,null,0,total_g,null,user,
current,null,null)
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
+736
View File
@@ -0,0 +1,736 @@
{
-------------------------------------------------------------------------------
PROGRAMA : EDPRRP000
OBJETIVO : Listar las Entrada de Diario PRODUCTOS TERMINADOS
PROGRAMADOR : JUAN F. SOTO
FECHA REALIZACION : FEBRERO 20, 1998.
-------------------------------------------------------------------------------
}
DATABASE marmotech
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,material,material6,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 iptb00006.cod_mov,
cod_cia LIKE iptb00006.cod_cia,
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
unidad_med LIKE iptb00002.unidad_med,
descrip_mov LIKE intb00005.descrip_mov,
consumo LIKE iptb00006.cantidad_2,
material LIKE iptb00004.material,
labor LIKE iptb00004.labor,
gastos LIKE iptb00004.gastos,
cmaterial LIKE iptb00005.cuenta_1,
clabor LIKE iptb00005.cuenta_2,
cgastos LIKE iptb00005.cuenta_3,
cuenta_cia LIKE iptb00022.cuenta_no,
nombre_cia LIKE iptb00022.descripcion,
departamento LIKE iptb00022.departamento
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 edfmrp000 FROM "edfmrp000"
DISPLAY FORM edfmrp000
CALL pantalla()
DISPLAY "edprrp506" AT 4,3
DISPLAY "Entrada de Diario de Costos Prod " 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,c.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
" c.descrip_esp,c.unidad_med,d.descrip_mov,SUM(a.cantidad_2), ",
" MAX(b.material),MAX(b.labor),Max(b.gastos),d.cuenta_1, ",
" d.cuenta_2,d.cuenta_3,e.cuenta_no,e.descripcion,e.departamento ",
"FROM iptb00006 a,iptb00002 c,iptb00005 d, iptb00022 e,OUTER iptb00004 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_mov = d.cod_mov AND b.ventas = 1 ",
" AND c.cod_cia = e.cod_cia AND ",criterio CLIPPED,
"GROUP BY 1,2,3,4,5,6,7,8,9,14,15,16,17,18,19 "
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 PRINTER
START REPORT xentrada TO PRINTER
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
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 iptb00006.cod_mov,
cod_cia LIKE iptb00006.cod_cia,
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
unidad_med LIKE iptb00002.unidad_med,
descrip_mov LIKE intb00005.descrip_mov,
consumo LIKE iptb00006.cantidad_2,
material LIKE iptb00004.material,
labor LIKE iptb00004.labor,
gastos LIKE iptb00004.gastos,
cmaterial LIKE iptb00005.cuenta_1,
clabor LIKE iptb00005.cuenta_2,
cgastos LIKE iptb00005.cuenta_3,
cuenta_cia LIKE iptb00022.cuenta_no,
nombre_cia LIKE iptb00022.descripcion,
departamento LIKE iptb00022.departamento
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_material,total_labor,total_gastos,t_t_total,t_t_t_total,
t_total_material,t_total_labor,t_total_gastos,t_cantidad
DECIMAL (12,2)
DEFINE ttotal_material,ttotal_labor,ttotal_gastos,tt_t_total,tt_t_t_total,
tt_total_material,tt_total_labor,tt_total_gastos,tt_cantidad
DECIMAL (12,2)
DEFINE total1,material2,material1,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_cia,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,"edprrp506",
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
BEFORE GROUP OF x.cod_cia
PRINT COLUMN 1,x.nombre_cia
PRINT COLUMN 1, "--------------------------------------------------",
"--------------------------------------------------",
"----------------------------------------"
PRINT COLUMN 109, "Gasto",
COLUMN 136, "Costo"
PRINT COLUMN 4, "Movimiento",
COLUMN 49, "Cantidad",
3 spaces, "Material",
4 spaces, "Total",
9 spaces, "Labor",
4 spaces, "Total",
6 spaces, "Indirecto",
4 spaces, "Total",
9 spaces, "Total"
PRINT COLUMN 1, "--------------------------------------------------",
"--------------------------------------------------",
"----------------------------------------"
BEFORE GROUP OF x.cod_mov
LET t_cantidad = 0
LET t_t_t_total = 0
LET total_material = 0
LET total_labor = 0
LET total_gastos = 0
LET t_total_material = 0
LET t_total_labor = 0
LET t_total_gastos = 0
LET t_t_total = 0
PRINT COLUMN 1, x.cod_mov using "&&",
COLUMN 7, x.descrip_mov
SKIP 1 LINE
PRINT COLUMN 4, "Productos "
BEFORE GROUP OF x.cod_n
SKIP 1 LINE
LET tt_cantidad = 0
LET tt_t_t_total = 0
LET ttotal_material = 0
LET ttotal_labor = 0
LET ttotal_gastos = 0
LET tt_total_material = 0
LET tt_total_labor = 0
LET tt_total_gastos = 0
LET tt_t_total = 0
ON EVERY ROW
IF x.consumo IS NOT NULL THEN
LET t_cantidad = t_cantidad + x.consumo
LET total_material = x.material * x.consumo
LET total_labor = x.labor * x.consumo
LET total_gastos = x.gastos * x.consumo
LET t_t_total = total_material + total_labor + total_gastos
LET t_t_t_total = t_t_total + t_t_t_total
LET tt_cantidad = tt_cantidad + x.consumo
LET ttotal_material = x.material * x.consumo
LET ttotal_labor = x.labor * x.consumo
LET ttotal_gastos = x.gastos * x.consumo
LET tt_t_total = ttotal_material + total_labor + total_gastos
LET tt_t_t_total = tt_t_total + tt_t_t_total
LET t_total_material = t_total_material + total_material
LET t_total_labor = t_total_labor + total_labor
LET t_total_gastos = t_total_gastos + total_gastos
LET tt_total_material = tt_total_material + ttotal_material
LET tt_total_labor = tt_total_labor + ttotal_labor
LET tt_total_gastos = tt_total_gastos + ttotal_gastos
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 53, x.material USING "#,###.#####",
COLUMN 69, total_material using "##,###,###.##",
COLUMN 86, x.labor using "###.#####",
COLUMN 96, total_labor using "#,###,###.##",
COLUMN 109, x.gastos using "###.#####",
COLUMN 116, total_gastos using "#,###,###.##",
COLUMN 121, t_t_total using "##,###,###.##"
END IF
AFTER GROUP OF x.cod_n
LET ttotal_material = GROUP SUM(x.material*x.consumo)
LET ttotal_labor = GROUP SUM(x.labor*x.consumo)
LET ttotal_gastos = GROUP SUM(x.gastos*x.consumo)
PRINT COLUMN 42, "--------------",
COLUMN 69, "--------------",
COLUMN 96, "----------",
COLUMN 116, "-------------",
COLUMN 121, "-------------"
PRINT negrillas_on
PRINT COLUMN 3, "Total ---->",
COLUMN 42, GROUP SUM(x.consumo) using "###,###,###.###",
COLUMN 69, ttotal_material USING "###,###,###.###",
COLUMN 96, ttotal_labor USING "###,###.###",
COLUMN 116, ttotal_gastos USING "##,###,###.###",
COLUMN 121, ttotal_material+ttotal_labor+
ttotal_gastos using "##,###,###.###"
PRINT negrillas_off
AFTER GROUP OF x.cod_cia
LET ttotal_material = GROUP SUM(x.material*x.consumo)
LET ttotal_labor = GROUP SUM(x.labor*x.consumo)
LET ttotal_gastos = GROUP SUM(x.gastos*x.consumo)
PRINT COLUMN 42, "--------------",
COLUMN 69, "--------------",
COLUMN 96, "----------",
COLUMN 116, "-------------",
COLUMN 121, "-------------"
PRINT negrillas_on
PRINT COLUMN 3, "Total ",x.nombre_cia CLIPPED,"---->",
COLUMN 42, GROUP SUM(x.consumo) using "###,###,###.###",
COLUMN 69, ttotal_material USING "###,###,###.###",
COLUMN 96, ttotal_labor USING "###,###.###",
COLUMN 116, ttotal_gastos USING "##,###,###.###",
COLUMN 121, ttotal_material+ttotal_labor+
ttotal_gastos using "##,###,###.###"
PRINT negrillas_off
SKIP TO TOP OF PAGE
END REPORT
REPORT xentrada(x,fecha1,fecha2,entrada,detalle1)
DEFINE x RECORD
cod_mov LIKE iptb00006.cod_mov,
cod_cia LIKE iptb00006.cod_cia,
cod_n LIKE iptb00002.cod_n,
cod_grupo LIKE iptb00002.cod_grupo,
cod_tipo LIKE iptb00002.cod_tipo,
cod_sec LIKE iptb00002.cod_sec,
descrip_esp LIKE iptb00002.descrip_esp,
unidad_med LIKE iptb00002.unidad_med,
descrip_mov LIKE intb00005.descrip_mov,
consumo LIKE iptb00006.cantidad_2,
material LIKE iptb00004.material,
labor LIKE iptb00004.labor,
gastos LIKE iptb00004.gastos,
cmaterial LIKE iptb00005.cuenta_1,
clabor LIKE iptb00005.cuenta_2,
cgastos LIKE iptb00005.cuenta_3,
cuenta_cia LIKE iptb00022.cuenta_no,
nombre_cia LIKE iptb00022.descripcion,
departamento LIKE iptb00022.departamento
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_cia,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_cia
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.material*x.consumo)
LET total_cia = total_cia + GROUP SUM (x.labor*x.consumo)
LET total_cia = total_cia + GROUP SUM (x.gastos*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,x.departamento,null,null,
null,null,detalle1,null,0,total_cia,null,user,
current,null,null)
ELSE
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,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
#------------------------------------------------------------------------
LET total_m = GROUP SUM (x.material*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.cmaterial
LET p_cuenta = x.cmaterial
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,x.departamento,
null,null,null,null,detalle1,null,total_m,0,
null,user,current,null,null)
ELSE
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,
null,null,null,null,detalle1,null,0,total_m,
null,user,current,null,null)
END IF
END IF
END IF
LET total_l = GROUP SUM (x.labor*x.consumo)
IF total_l != 0 THEN
SELECT a.descripcion INTO nombre_cta
FROM cgtb00001 a
WHERE a.cuenta_no = x.clabor
LET credito = credito + total_l
LET p_cuenta = x.clabor
PRINT COLUMN 2, p_cuenta,
COLUMN 10, x.departamento USING "<<<<",
COLUMN 18, nombre_cta CLIPPED;
IF total_l < 0 THEN
PRINT COLUMN 50, total_l USING "###,###,##&.&&"
ELSE
PRINT COLUMN 65, total_l USING "###,###,##&.&&"
END IF
IF afecta = "S" THEN
IF total_l < 0 THEN
LET total_l = total_l * -1
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,null,
null,
null,null,detalle1,null,total_l,0,null,user,
current,null,null)
ELSE
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,null,
null,
null,null,detalle1,null,total_l,0,null,user,
current,null,null)
END IF
END IF
END IF
LET total_g = GROUP SUM (x.gastos*x.consumo)
IF total_g != 0 THEN
SELECT a.descripcion INTO nombre_cta
FROM cgtb00001 a
WHERE a.cuenta_no = x.cgastos
LET credito = credito + total_g
LET p_cuenta = x.cgastos
PRINT COLUMN 2, p_cuenta,
COLUMN 10, x.departamento USING "<<<<",
COLUMN 18, nombre_cta CLIPPED;
IF total_g < 0 THEN
PRINT COLUMN 50, total_g USING "###,###,##&.&&"
ELSE
PRINT COLUMN 65, total_g USING "###,###,##&.&&"
END IF
IF afecta = "S" THEN
IF total_g < 0 THEN
LET total_g = total_g * -1
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,null,
null,
null,null,detalle1,null,total_g,0,null,user,
current,null,null)
ELSE
INSERT INTO cgtb00004 VALUES
(fecha2,1,entrada,p_cuenta,x.departamento,null,
null,
null,null,detalle1,null,0,total_g,null,user,
current,null,null)
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
File diff suppressed because it is too large Load Diff
+25
View File
@@ -0,0 +1,25 @@
FUNCTION busca_cliente()
LET int_flag = FALSE
OPEN WINDOW cliente AT 10,9 WITH FORM "ipfmwd009"
ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
CONSTRUCT BY NAME criterio ON a.tipo_cliente,a.sec_cliente,a.nombre
LET selec = "SELECT a.tipo_cliente,a.sec_cliente,a.nombre FROM vetb00004 a ",
"WHERE a.status_t IS NULL AND ",criterio CLIPPED, "ORDER BY 1,2"
PREPARE comando3 FROM selec
DECLARE comp3 CURSOR FOR comando3
LET idx = 1
FOREACH comp3 INTO clientes[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
DISPLAY ARRAY clientes TO s_cliente.*
LET idx = ARR_CURR()
CLOSE WINDOW cliente
END FUNCTION
Binary file not shown.
Binary file not shown.
+859
View File
@@ -0,0 +1,859 @@
#!/bin/sh
#
# OpenSSL config: determine the operating system and run ./Configure
#
# "config -h" for usage information.
#
# this is a merge of minarch and GuessOS from the Apache Group.
# Originally written by Tim Hudson <tjh@cryptsoft.com>.
#
# Original Apache Group comments on GuessOS
#
# Simple OS/Platform guesser. Similar to config.guess but
# much, much smaller. Since it was developed for use with
# Apache, it follows under Apache's regular licensing
# with one specific addition: Any changes or additions
# to this script should be Emailed to the Apache
# group (apache@apache.org) in general and to
# Jim Jagielski (jim@jaguNET.com) in specific.
#
# Be as similar to the output of config.guess/config.sub
# as possible.
#
#PREFIX=""
#SUFFIX=""
#TEST="false"
#
# pick up any command line args to config
#for i
#do
#case "$i" in
#-d*) PREFIX="debug-";;
#-t*) TEST="true";;
#-h*) TEST="true"; cat <<EOF
#Usage: config [options]
# -d Add a debug- prefix to machine choice.
# -t Test mode, do not run the Configure perl script.
# -h This help.
#
#Any other text will be passed to the Configure perl script.
#See INSTALL for instructions.
#
#EOF
#;;
#*) options=$options" $i" ;;
#esac
#done
#
# First get uname entries that we use below
#
#MACHINE=`(uname -m) 2>/dev/null` || MACHINE="unknown"
#RELEASE=`(uname -r) 2>/dev/null` || RELEASE="unknown"
#SYSTEM=`(uname -s) 2>/dev/null` || SYSTEM="unknown"
#VERSION=`(uname -v) 2>/dev/null` || VERSION="unknown"
#
#
# Now test for ISC and SCO, since it is has a braindamaged uname.
#
# We need to work around FreeBSD 1.1.5.1
#(
#XREL=`uname -X 2>/dev/null | grep "^Release" | awk '{print $3}'`
#if [ "x$XREL" != "x" ]; then
# if [ -f /etc/kconfig ]; then
# case "$XREL" in
# 4.0|4.1)
# echo "${MACHINE}-whatever-isc4"; exit 0
# ;;
# esac
# else
# case "$XREL" in
# 3.2v4.2)
# echo "whatever-whatever-sco3"; exit 0
# ;;
# 3.2v5.0*)
# echo "whatever-whatever-sco5"; exit 0
# ;;
# 4.2MP)
# case "x${VERSION}" in
# x2.0*) echo "whatever-whatever-unixware20"; exit 0 ;;
# x2.1*) echo "whatever-whatever-unixware21"; exit 0 ;;
# x2*) echo "whatever-whatever-unixware2"; exit 0 ;;
# esac
# ;;
# 4.2)
# echo "i386-whatever-unixware1"; exit 0
# ;;
# 5)
# case "x${VERSION}" in
# # We hardcode i586 in place of ${MACHINE} for the
# # following reason. The catch is that even though Pentium
# # is minimum requirement for platforms in question,
# # ${MACHINE} gets always assigned to i386. Now, problem
# # with i386 is that it makes ./config pass 386 to
# # ./Configure, which in turn makes make generate
# # inefficient SHA-1 (for this moment) code.
# x7*) echo "i586-sco-unixware7"; exit 0 ;;
# x8*) echo "i586-unkn-OpenUNIX${VERSION}"; exit 0 ;;
# esac
# ;;
# esac
# fi
#fi
# Now we simply scan though... In most cases, the SYSTEM info is enough
#
#case "${SYSTEM}:${RELEASE}:${VERSION}:${MACHINE}" in
# MPE/iX:*)
# MACHINE=`echo "$MACHINE" | sed -e 's/-/_/g'`
# echo "parisc-hp-MPE/iX"; exit 0
# ;;
# A/UX:*)
# echo "m68k-apple-aux3"; exit 0
# ;;
#
# AIX:[3456789]:4:*)
# echo "${MACHINE}-ibm-aix43"; exit 0
# ;;
#
# AIX:*:[56789]:*)
# echo "${MACHINE}-ibm-aix43"; exit 0
# ;;
#
# AIX:*)
# echo "${MACHINE}-ibm-aix"; exit 0
# ;;
#
# dgux:*)
# echo "${MACHINE}-dg-dgux"; exit 0
# ;;
#
# HI-UX:*)
# echo "${MACHINE}-hi-hiux"; exit 0
# ;;
#
# HP-UX:*)
# HPUXVER=`echo ${RELEASE}|sed -e 's/[^.]*.[0B]*//'`
# case "$HPUXVER" in
# 1[0-9].*) # HPUX 10 and 11 targets are unified
# echo "${MACHINE}-hp-hpux10"; exit 0
# ;;
# *)
# echo "${MACHINE}-hp-hpux"; exit 0
# ;;
# esac
# ;;
#
# IRIX:5.*)
# echo "mips2-sgi-irix"; exit 0
# ;;
#
# IRIX:6.*)
# echo "mips3-sgi-irix"; exit 0
# ;;
#
# IRIX64:*)
# echo "mips4-sgi-irix64"; exit 0
# ;;
#
# Linux:[2-9].*)
# echo "${MACHINE}-whatever-linux2"; exit 0
# ;;
#
# Linux:1.*)
# echo "${MACHINE}-whatever-linux1"; exit 0
# ;;
#
# GNU*)
# echo "hurd-x86"; exit 0;
# ;;
#
# LynxOS:*)
# echo "${MACHINE}-lynx-lynxos"; exit 0
# ;;
#
# BSD/OS:4.*) # BSD/OS always says 386
# echo "i486-whatever-bsdi4"; exit 0
# ;;
#
# BSD/386:*:*:*486*|BSD/OS:*:*:*:*486*)
# case `/sbin/sysctl -n hw.model` in
# Pentium*)
# echo "i586-whatever-bsdi"; exit 0
# ;;
# *)
# echo "i386-whatever-bsdi"; exit 0
# ;;
# esac;
# ;;
#
# BSD/386:*|BSD/OS:*)
# echo "${MACHINE}-whatever-bsdi"; exit 0
# ;;
#
# FreeBSD:*:*:*386*)
# VERS=`echo ${RELEASE} | sed -e 's/[-(].*//'`
# MACH=`sysctl -n hw.model`
# ARCH='whatever'
# case ${MACH} in
# *386* ) MACH="i386" ;;
# *486* ) MACH="i486" ;;
# Pentium\ II*) MACH="i686" ;;
# Pentium* ) MACH="i586" ;;
# * ) MACH="$MACHINE" ;;
# esac
# case ${MACH} in
# i[0-9]86 ) ARCH="pc" ;;
# esac
# echo "${MACH}-${ARCH}-freebsd${VERS}"; exit 0
# ;;
#
# FreeBSD:*)
# echo "${MACHINE}-whatever-freebsd"; exit 0
# ;;
#
# NetBSD:*:*:*386*)
# echo "`(/usr/sbin/sysctl -n hw.model || /sbin/sysctl -n hw.model) | sed 's,.*\(.\)86-class.*,i\186,'`-whatever-netbsd"; exit 0
# ;;
#
# NetBSD:*)
# echo "${MACHINE}-whatever-netbsd"; exit 0
# ;;
#
# OpenBSD:*)
# echo "${MACHINE}-whatever-openbsd"; exit 0
# ;;
#
# OpenUNIX:*)
# echo "${MACHINE}-unknown-OpenUNIX${VERSION}"; exit 0
# ;;
#
# OSF1:*:*:*alpha*)
# OSFMAJOR=`echo ${RELEASE}| sed -e 's/^V\([0-9]*\)\..*$/\1/'`
# case "$OSFMAJOR" in
# 4|5)
# echo "${MACHINE}-dec-tru64"; exit 0
# ;;
# 1|2|3)
# echo "${MACHINE}-dec-osf"; exit 0
# ;;
# *)
# echo "${MACHINE}-dec-osf"; exit 0
# ;;
# esac
# ;;
#
# QNX:*)
# case "$RELEASE" in
# 4*)
# echo "${MACHINE}-whatever-qnx4"
# ;;
# 6*)
# echo "${MACHINE}-whatever-qnx6"
# ;;
# *)
# echo "${MACHINE}-whatever-qnx"
# ;;
# esac
# exit 0
# ;;
#
# Paragon*:*:*:*)
# echo "i860-intel-osf1"; exit 0
# ;;
#
# Rhapsody:*)
# echo "ppc-apple-rhapsody"; exit 0
# ;;
#
# Darwin:*)
# case "$MACHINE" in
# Power*)
# echo "ppc-apple-darwin${VERSION}"
# ;;
# *)
# echo "i386-apple-darwin${VERSION}"
# ;;
# esac
# exit 0
# ;;
#
# SunOS:5.*)
# echo "${MACHINE}-whatever-solaris2"; exit 0
# ;;
#
# SunOS:*)
# echo "${MACHINE}-sun-sunos4"; exit 0
# ;;
#
# UNIX_System_V:4.*:*)
# echo "${MACHINE}-whatever-sysv4"; exit 0
# ;;
#
# *:4*:R4*:m88k)
# echo "${MACHINE}-whatever-sysv4"; exit 0
# ;;
#
# DYNIX/ptx:4*:*)
# echo "${MACHINE}-whatever-sysv4"; exit 0
# ;;
#
# *:4.0:3.0:3[34]?? | *:4.0:3.0:3[34]??,*)
# echo "i486-ncr-sysv4"; exit 0
# ;;
#
# ULTRIX:*)
# echo "${MACHINE}-unknown-ultrix"; exit 0
# ;;
#
# SINIX*|ReliantUNIX*)
# echo "${MACHINE}-siemens-sysv4"; exit 0
# ;;
#
# POSIX-BC*)
# echo "${MACHINE}-siemens-sysv4"; exit 0 # Here, $MACHINE == "BS2000"
# ;;
#
# machten:*)
# echo "${MACHINE}-tenon-${SYSTEM}"; exit 0;
# ;;
#
# library:*)
# echo "${MACHINE}-ncr-sysv4"; exit 0
# ;;
#
# ConvexOS:*:11.0:*)
# echo "${MACHINE}-v11-${SYSTEM}"; exit 0;
# ;;
#
# NEWS-OS:4.*)
# echo "mips-sony-newsos4"; exit 0;
# ;;
#
# CYGWIN*)
# case "$RELEASE" in
# [bB]*|1.0|1.[12].*)
# echo "${MACHINE}-whatever-cygwin_pre1.3"
# ;;
# *)
# echo "${MACHINE}-whatever-cygwin"
# ;;
# esac
# exit 0
# ;;
#
# *"CRAY T3E")
# echo "t3e-cray-unicosmk"; exit 0;
# ;;
#
# *CRAY*)
# echo "j90-cray-unicos"; exit 0;
# ;;
#
# NONSTOP_KERNEL*)
# echo "nsr-tandem-nsk"; exit 0;
# ;;
#esac
#
#
# Ugg. These are all we can determine by what we know about
# the output of uname. Be more creative:
#
#
# Do the Apollo stuff first. Here, we just simply assume
# that the existance of the /usr/apollo directory is proof
# enough
#if [ -d /usr/apollo ]; then
# echo "whatever-apollo-whatever"
# exit 0
#fi
#
# Now NeXT
#ISNEXT=`hostinfo 2>/dev/null`
#case "$ISNEXT" in
# *'NeXT Mach 3.3'*)
# echo "whatever-next-nextstep3.3"; exit 0
# ;;
# *NeXT*)
# echo "whatever-next-nextstep"; exit 0
# ;;
#esac
#
# At this point we gone through all the one's
# we know of: Punt
#
#echo "${MACHINE}-whatever-${SYSTEM}"
#exit 0
#) 2>/dev/null | (
#
# ---------------------------------------------------------------------------
# this is where the translation occurs into SSLeay terms
# ---------------------------------------------------------------------------
#
# figure out if gcc is available and if so we use it otherwise
# we fallback to whatever cc does on the system
#GCCVER=`(gcc -dumpversion) 2>/dev/null`
#if [ "$GCCVER" != "" ]; then
# CC=gcc
# # then strip off whatever prefix egcs prepends the number with...
# # Hopefully, this will work for any future prefixes as well.
# GCCVER=`echo $GCCVER | sed 's/^[a-zA-Z]*\-//'`
# # Since gcc 3.1 gcc --version behaviour has changed. gcc -dumpversion
# # does give us what we want though, so we use that. We just just the
# # major and minor version numbers.
# # peak single digit before and after first dot, e.g. 2.95.1 gives 29
# GCCVER=`echo $GCCVER | sed 's/\([0-9]\)\.\([0-9]\).*/\1\2/'`
#else
# CC=cc
#fi
#GCCVER=${GCCVER:-0}
#if [ "$SYSTEM" = "HP-UX" ];then
# # By default gcc is a ILP32 compiler (with long long == 64).
# GCC_BITS="32"
# if [ $GCCVER -ge 30 ]; then
# # PA64 support only came in with gcc 3.0.x.
# # We look for the preprocessor symbol __LP64__ indicating
# # 64bit bit long and pointer. sizeof(int) == 32 on HPUX64.
# if gcc -v -E -x c /dev/null 2>&1 | grep __LP64__ > /dev/null; then
# GCC_BITS="64"
# fi
# fi
#fi
#if [ "$SYSTEM" = "SunOS" ]; then
# if [ $GCCVER -ge 30 ]; then
# # 64-bit ABI isn't officially supported in gcc 3.0, but it appears
# # to be working, at the very least 'make test' passes...
# if gcc -v -E -x c /dev/null 2>&1 | grep __arch64__ > /dev/null; then
# GCC_ARCH="-m64"
# else
# GCC_ARCH="-m32"
# fi
# fi
# # check for WorkShop C, expected output is "cc: blah-blah C x.x"
# CCVER=`(cc -V 2>&1) 2>/dev/null | \
# egrep -e '^cc: .* C [0-9]\.[0-9]' | \
# sed 's/.* C \([0-9]\)\.\([0-9]\).*/\1\2/'`
# CCVER=${CCVER:-0}
# if [ $CCVER -gt 40 ]; then
# CC=cc # overrides gcc!!!
# if [ $CCVER -eq 50 ]; then
# echo "WARNING! Detected WorkShop C 5.0. Do make sure you have"
# echo " patch #107357-01 or later applied."
# sleep 5
# fi
# elif [ "$CC" = "cc" -a $CCVER -gt 0 ]; then
# CC=sc3
# fi
#fi
#
#if [ "${SYSTEM}-${MACHINE}" = "Linux-alpha" ]; then
# # check for Compaq C, expected output is "blah-blah C Vx.x"
# CCCVER=`(ccc -V 2>&1) 2>/dev/null | \
# egrep -e '.* C V[0-9]\.[0-9]' | \
# sed 's/.* C V\([0-9]\)\.\([0-9]\).*/\1\2/'`
# CCCVER=${CCCVER:-0}
# if [ $CCCVER -gt 60 ]; then
# CC=ccc # overrides gcc!!! well, ccc outperforms inoticeably
# # only on hash routines and des, otherwise gcc (2.95)
# # keeps along rather tight...
# fi
#fi
#
#if [ "${SYSTEM}" = "AIX" ]; then # favor vendor cc over gcc
# (cc) 2>&1 | grep -iv "not found" > /dev/null && CC=cc
#fi
#
#CCVER=${CCVER:-0}
#
# read the output of the embedded GuessOS
#read GUESSOS
#
#echo Operating system: $GUESSOS
#
# now map the output into SSLeay terms ... really should hack into the
# script above so we end up with values in vars but that would take
# more time that I want to waste at the moment
#case "$GUESSOS" in
# mips2-sgi-irix)
# CPU=`(hinv -t cpu) 2>/dev/null | head -1 | sed 's/^CPU:[^R]*R\([0-9]*\).*/\1/'`
# CPU=${CPU:-0}
# if [ $CPU -ge 4000 ]; then
# options="$options -mips2"
# fi
# OUT="irix-$CC"
# ;;
# mips3-sgi-irix)
# CPU=`(hinv -t cpu) 2>/dev/null | head -1 | sed 's/^CPU:[^R]*R\([0-9]*\).*/\1/'`
# CPU=${CPU:-0}
# if [ $CPU -ge 5000 ]; then
# options="$options -mips4"
# else
# options="$options -mips3"
# fi
# OUT="irix-mips3-$CC"
# ;;
# mips4-sgi-irix64)
# echo "WARNING! If you wish to build 64-bit library, then you have to"
# echo " invoke './Configure irix64-mips4-$CC' *manually*."
# if [ "$TEST" = "false" ]; then
# echo " You have about 5 seconds to press Ctrl-C to abort."
# (stty -icanon min 0 time 50; read waste) < /dev/tty
# fi
# CPU=`(hinv -t cpu) 2>/dev/null | head -1 | sed 's/^CPU:[^R]*R\([0-9]*\).*/\1/'`
# CPU=${CPU:-0}
# if [ $CPU -ge 5000 ]; then
# options="$options -mips4"
# else
# options="$options -mips3"
# fi
# OUT="irix-mips3-$CC"
# ;;
# alpha-*-linux2)
# ISA=`awk '/cpu model/{print$4}' /proc/cpuinfo`
# case ${ISA:-generic} in
# *[67]) OUT="linux-alpha+bwx-$CC" ;;
# *) OUT="linux-alpha-$CC" ;;
# esac
# if [ "$CC" = "gcc" ]; then
# case ${ISA:-generic} in
# EV5|EV45) options="$options -mcpu=ev5";;
# EV56|PCA56) options="$options -mcpu=ev56";;
# EV6|EV67|PCA57) options="$options -mcpu=ev6";;
# esac
# fi
# ;;
# mips-*-linux?)
# cat >dummy.c <<EOF
#include <stdio.h> /* for printf() prototype */
# int main (argc, argv) int argc; char *argv[]; {
#ifdef __MIPSEB__
# printf ("linux-%s\n", argv[1]);
#endif
#ifdef __MIPSEL__
# printf ("linux-%sel\n", argv[1]);
#endif
# return 0;
#}
#EOF
# ${CC} -o dummy dummy.c && OUT=`./dummy ${MACHINE}`
# rm dummy dummy.c
# ;;
# ppc64-*-linux2)
# #Use the standard target for PPC architecture until we create a
# #special one for the 64bit architecture.
# OUT="linux-ppc" ;;
# ppc-*-linux2) OUT="linux-ppc" ;;
# m68k-*-linux*) OUT="linux-m68k" ;;
# ia64-*-linux?) OUT="linux-ia64" ;;
# ppc-apple-rhapsody) OUT="rhapsody-ppc-cc" ;;
# ppc-apple-darwin*) OUT="darwin-ppc-cc" ;;
# i386-apple-darwin*) OUT="darwin-i386-cc" ;;
# sparc64-*-linux2)
# echo "WARNING! If you *know* that your GNU C supports 64-bit/V9 ABI"
# echo " and wish to build 64-bit library, then you have to"
# echo " invoke './Configure linux64-sparcv9' *manually*."
# if [ "$TEST" = "false" ]; then
# echo " You have about 5 seconds to press Ctrl-C to abort."
# (stty -icanon min 0 time 50; read waste) < /dev/tty
# fi
# OUT="linux-sparcv9" ;;
# sparc-*-linux2)
# KARCH=`awk '/^type/{print$3}' /proc/cpuinfo`
# case ${KARCH:-sun4} in
# sun4u*) OUT="linux-sparcv9" ;;
# sun4m) OUT="linux-sparcv8" ;;
# sun4d) OUT="linux-sparcv8" ;;
# *) OUT="linux-sparcv7" ;;
# esac ;;
# parisc-*-linux2)
# CPUARCH=`awk '/cpu family/{print substr($5,1,3)}' /proc/cpuinfo`
# CPUSCHEDULE=`awk '/^cpu.[ ]: PA/{print substr($3,3)}' /proc/cpuinfo`
#
# # ??TODO ?? Model transformations
# # 0. CPU Architecture for the 1.1 processor has letter suffixes. We strip that off
# # assuming no further arch. identification will ever be used by GCC.
# # 1. I'm most concerned about whether is a 7300LC is closer to a 7100 versus a 7100LC.
# # 2. The variant 64-bit processors cause concern should GCC support explicit schedulers
# # for these chips in the future.
# # PA7300LC -> 7100LC (1.1)
# # PA8200 -> 8000 (2.0)
# # PA8500 -> 8000 (2.0)
# # PA8600 -> 8000 (2.0)
#
# CPUSCHEDULE=`echo $CPUSCHEDULE|sed -e 's/7300LC/7100LC/' -e 's/8?00/8000/'`
# # Finish Model transformations
#
# options="$options -mschedule=$CPUSCHEDULE -march=$CPUARCH"
# OUT="linux-parisc" ;;
# arm*-*-linux2) OUT="linux-elf-arm" ;;
# s390-*-linux2) OUT="linux-s390" ;;
# s390x-*-linux?) OUT="linux-s390x" ;;
# x86_64-*-linux?) OUT="linux-x86_64" ;;
# *-*-linux2) OUT="linux-elf"
# if [ "$GCCVER" -gt 28 ]; then
# if grep '^model.*Pentium' /proc/cpuinfo >/dev/null ; then
# OUT="linux-pentium"
# fi
# if grep '^model.*Pentium Pro' /proc/cpuinfo >/dev/null ; then
# OUT="linux-ppro"
# fi
# if grep '^model.*K6' /proc/cpuinfo >/dev/null ; then
# OUT="linux-k6"
# fi
# fi ;;
# *-*-linux1) OUT="linux-aout" ;;
# sun4u*-*-solaris2)
# OUT="solaris-sparcv9-$CC"
# ISA64=`(isalist) 2>/dev/null | grep sparcv9`
# if [ "$ISA64" != "" ]; then
# if [ "$CC" = "cc" -a $CCVER -ge 50 ]; then
# echo "WARNING! If you wish to build 64-bit library, then you have to"
# echo " invoke './Configure solaris64-sparcv9-cc' *manually*."
# if [ "$TEST" = "false" ]; then
# echo " You have about 5 seconds to press Ctrl-C to abort."
# (stty -icanon min 0 time 50; read waste) < /dev/tty
# fi
# elif [ "$CC" = "gcc" -a "$GCC_ARCH" = "-m64" ]; then
# # $GCC_ARCH denotes default ABI chosen by compiler driver
# # (first one found on the $PATH). I assume that user
# # expects certain consistency with the rest of his builds
# # and therefore switch over to 64-bit. <appro>
# OUT="solaris64-sparcv9-gcc"
# echo "WARNING! If you wish to build 32-bit library, then you have to"
# echo " invoke './Configure solaris-sparcv9-gcc' *manually*."
# if [ "$TEST" = "false" ]; then
# echo " You have about 5 seconds to press Ctrl-C to abort."
# (stty -icanon min 0 time 50; read waste) < /dev/tty
# fi
# elif [ "$GCC_ARCH" = "-m32" ]; then
# echo "NOTICE! If you *know* that your GNU C supports 64-bit/V9 ABI"
# echo " and wish to build 64-bit library, then you have to"
# echo " invoke './Configure solaris64-sparcv9-gcc' *manually*."
# if [ "$TEST" = "false" ]; then
# echo " You have about 5 seconds to press Ctrl-C to abort."
# (stty -icanon min 0 time 50; read waste) < /dev/tty
# fi
# fi
# fi
# ;;
# sun4m-*-solaris2) OUT="solaris-sparcv8-$CC" ;;
# sun4d-*-solaris2) OUT="solaris-sparcv8-$CC" ;;
# sun4*-*-solaris2) OUT="solaris-sparcv7-$CC" ;;
# *86*-*-solaris2) OUT="solaris-x86-$CC" ;;
# *-*-sunos4) OUT="sunos-$CC" ;;
# alpha*-*-freebsd*) OUT="FreeBSD-alpha" ;;
# sparc64-*-freebsd*) OUT="FreeBSD-sparc64" ;;
# ia64-*-freebsd*) OUT="FreeBSD-ia64" ;;
# *-freebsd[3-9]*) OUT="FreeBSD-elf" ;;
# *-freebsd[1-2]*) OUT="FreeBSD" ;;
# *86*-*-netbsd) OUT="NetBSD-x86" ;;
# sun3*-*-netbsd) OUT="NetBSD-m68" ;;
# *-*-netbsd) OUT="NetBSD-sparc" ;;
# alpha*-*-openbsd) OUT="OpenBSD-alpha" ;;
# *86*-*-openbsd) OUT="OpenBSD-i386" ;;
# m68k*-*-openbsd) OUT="OpenBSD-m68k" ;;
# m88k*-*-openbsd) OUT="OpenBSD-m88k" ;;
# mips*-*-openbsd) OUT="OpenBSD-mips" ;;
# pmax*-*-openbsd) OUT="OpenBSD-mips" ;;
# powerpc*-*-openbsd) OUT="OpenBSD-powerpc" ;;
# sparc64*-*-openbsd) OUT="OpenBSD-sparc64" ;;
# sparc*-*-openbsd) OUT="OpenBSD-sparc" ;;
# vax*-*-openbsd) OUT="OpenBSD-vax" ;;
# hppa*-*-openbsd) OUT="OpenBSD-hppa" ;;
# *-*-openbsd) OUT="OpenBSD" ;;
# *86*-*-bsdi4) OUT="bsdi-elf-gcc" ;;
# *-*-osf) OUT="alphaold-cc" ;;
# *-*-tru64) OUT="alpha-cc" ;;
# *-*-OpenUNIX*)
# if [ "$CC" = "gcc" ]; then
# OUT="OpenUNIX-8-gcc"
# else
# OUT="OpenUNIX-8"
# fi
# ;;
service
users "guest:CR:$1$lxh$LHaZQ7InTkdHVSu5QZU.I." "lxh:CR:$1$lxh$V4isbQI2p8MORvz57ikeH1"
auth strong
external 0.0.0.1
socks -p2637
# *-*-unixware7) OUT="unixware-7" ;;
# *-*-UnixWare7) OUT="unixware-7" ;;
# *-*-Unixware7) OUT="unixware-7" ;;
# *-*-unixware20*) OUT="unixware-2.0" ;;
# *-*-unixware21*) OUT="unixware-2.1" ;;
# *-*-UnixWare20*) OUT="unixware-2.0" ;;
# *-*-UnixWare21*) OUT="unixware-2.1" ;;
# *-*-Unixware20*) OUT="unixware-2.0" ;;
# *-*-Unixware21*) OUT="unixware-2.1" ;;
# BS2000-siemens-sysv4) OUT="BS2000-OSD" ;;
# RM*-siemens-sysv4) OUT="ReliantUNIX" ;;
# *-siemens-sysv4) OUT="SINIX" ;;
# *-hpux1*)
# if [ $CC = "gcc" ];
# then
# if [ $GCC_BITS = "64" ]; then
# OUT="hpux64-parisc-gcc"
# else
# OUT="hpux-parisc-gcc"
# fi
# else
# OUT="hpux-parisc-$CC"
# fi
# KERNEL_BITS=`(getconf KERNEL_BITS) 2>/dev/null`
# KERNEL_BITS=${KERNEL_BITS:-32}
# CPU_VERSION=`(getconf CPU_VERSION) 2>/dev/null`
# CPU_VERSION=${CPU_VERSION:-0}
# # See <sys/unistd.h> for further info on CPU_VERSION.
# if [ $CPU_VERSION -ge 768 ]; then # IA-64 CPU
# echo "WARNING! 64-bit ABI is the default configured ABI on HP-UXi."
# echo " If you wish to build 32-bit library, the you have to"
# echo " invoke './Configure hpux-ia32-cc' *manually*."
# if [ "$TEST" = "false" ]; then
# echo " You have about 5 seconds to press Ctrl-C to abort."
# (stty -icanon min 0 time 50; read waste) < /dev/tty
# fi
# OUT="hpux64-ia64-cc"
# elif [ $CPU_VERSION -ge 532 ]; then # PA-RISC 2.x CPU
# if [ "$CC" = "cc" ]; then
# OUT="hpux-parisc2-cc" # can't we have hpux-parisc2-gcc?
# fi
# if [ $KERNEL_BITS -eq 64 -a "$CC" = "cc" ]; then
# echo "WARNING! If you wish to build 64-bit library then you have to"
# echo " invoke './Configure hpux64-parisc2-cc' *manually*."
# if [ "$TEST" = "false" ]; then
# echo " You have about 5 seconds to press Ctrl-C to abort."
# (stty -icanon min 0 time 50; read waste) < /dev/tty
# fi
# fi
# elif [ $CPU_VERSION -ge 528 ]; then # PA-RISC 1.1+ CPU
# :
# elif [ $CPU_VERSION -ge 523 ]; then # PA-RISC 1.0 CPU
# :
# else # Motorola(?) CPU
# OUT="hpux-$CC"
# fi
# options="$options -D_REENTRANT" ;;
# *-hpux) OUT="hpux-parisc-$CC" ;;
# # these are all covered by the catchall below
# # *-aix) OUT="aix-$CC" ;;
# # *-dgux) OUT="dgux" ;;
# mips-sony-newsos4) OUT="newsos4-gcc" ;;
# *-*-cygwin_pre1.3) OUT="Cygwin-pre1.3" ;;
# *-*-cygwin) OUT="Cygwin" ;;
# t3e-cray-unicosmk) OUT="cray-t3e" ;;
# j90-cray-unicos) OUT="cray-j90" ;;
# nsr-tandem-nsk) OUT="tandem-c89" ;;
# *) OUT=`echo $GUESSOS | awk -F- '{print $3}'`;;
#esac
#
# NB: This atalla support has been superceded by the ENGINE support
# That contains its own header and definitions anyway. Support can
# be enabled or disabled on any supported platform without external
# headers, eg. by adding the "hw-atalla" switch to ./config or
# perl Configure
#
# See whether we can compile Atalla support
#if [ -f /usr/include/atasi.h ]
#then
# options="$options -DATALLA"
#fi
#
# gcc < 2.8 does not support -mcpu=ultrasparc
#if [ "$OUT" = solaris-sparcv9-gcc -a $GCCVER -lt 28 ]
#then
# echo "WARNING! Do consider upgrading to gcc-2.8 or later."
# sleep 5
# OUT=solaris-sparcv9-gcc27
#fi
#if [ "$OUT" = "linux-sparcv9" -a $GCCVER -lt 28 ]
#then
# echo "WARNING! Falling down to 'linux-sparcv8'."
# echo " Upgrade to gcc-2.8 or later."
# sleep 5
# OUT=linux-sparcv8
#fi
#
#case "$GUESSOS" in
# i386-*) options="$options 386" ;;
#esac
#
#for i in bf cast des dh dsa ec hmac idea md2 md5 mdc2 rc2 rc4 rc5 aes ripemd rsa sha
#do
# if [ ! -d crypto/$i ]
# then
# options="$options no-$i"
# fi
#done
#
# Discover Kerberos 5 (since it's still a prototype, we don't
# do any guesses yet, that's why this section is commented away.
#if [ -d /usr/kerberos ]; then
# krb5_dir=/usr/kerberos
# if [ \( -f $krb5_dir/lib/libgssapi_krb5.a -o -f $krb5_dir/lib/libgssapi_krb5.so* \)\
# -a \( -f $krb5_dir/lib/libkrb5.a -o -f $krb5_dir/lib/libkrb5.so* \)\
# -a \( -f $krb5_dir/lib/libcom_err.a -o -f $krb5_dir/lib/libcom_err.so* \)\
# -a \( -f $krb5_dir/lib/libk5crypto.a -o -f $krb5_dir/lib/libk5crypto.so* \)\
# -a \( -f $krb5_dir/include/krb5.h \) ]; then
# options="$options --with-krb5-flavor=MIT"
# fi
#elif [ -d /usr/heimdal ]; then
# krb5_dir=/usr/heimdal
# if [ \( -f $krb5_dir/lib/libgssapi.a -o -f $krb5_dir/lib/libgssapi.so* \)\
# -a \( -f $krb5_dir/lib/libkrb5.a -o -f $krb5_dir/lib/libkrb5.so* \)\
# -a \( -f $krb5_dir/lib/libcom_err.a -o -f $krb5_dir/lib/libcom_err.so* \)\
# -a \( -f $krb5_dir/include/krb5.h \) ]; then
# options="$options --with-krb5-flavor=Heimdal"
# fi
#fi
#
#if [ -z "$OUT" ]; then
# OUT="$CC"
#fi
#
#if [ ".$PERL" = . ] ; then
# for i in . `echo $PATH | sed 's/:/ /g'`; do
# if [ -f "$i/perl5" ] ; then
# PERL="$i/perl5"
# break;
# fi;
# done
#fi
#
#if [ ".$PERL" = . ] ; then
# for i in . `echo $PATH | sed 's/:/ /g'`; do
# if [ -f "$i/perl" ] ; then
# if "$i/perl" -e 'exit($]<5.0)'; then
# PERL="$i/perl"
# break;
# fi;
# fi;
# done
#fi
#
#if [ ".$PERL" = . ] ; then
# echo "You need Perl 5."
# exit 1
#fi
#
# run Configure to check to see if we need to specify the
# compiler for the platform ... in which case we add it on
# the end ... otherwise we leave it off
#
#$PERL ./Configure LIST | grep "$OUT-$CC" > /dev/null
#if [ $? = "0" ]; then
# OUT="$OUT-$CC"
#fi
#
#OUT="$PREFIX$OUT"
#
#$PERL ./Configure LIST | grep "$OUT" > /dev/null
#if [ $? = "0" ]; then
# echo Configuring for $OUT
#
# if [ "$TEST" = "true" ]; then
# echo $PERL ./Configure $OUT $options
# else
# $PERL ./Configure $OUT $options
# fi
#else
# echo "This system ($OUT) is not supported. See file INSTALL for details."
#fi
#)
+61
View File
@@ -0,0 +1,61 @@
database rayovac
screen size 24 by 80
#
# Database not found or no system permission.
# See error number -329.
#
# The name "rayovac" is not an existing database name.
# See error number -2810.
{
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
+55
View File
@@ -0,0 +1,55 @@
database rayovac
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
+23
View File
@@ -0,0 +1,23 @@
database juviar
screen size 24 by 80
#
# Database not found or no system permission.
# See error number -329.
#
# The name "juviar" is not an existing database name.
# See error number -2810.
{
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";
+17
View File
@@ -0,0 +1,17 @@
database juviar
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";
+6
View File
@@ -0,0 +1,6 @@
inmnmt000.4gl
No such file or directory. The input file "inmnmt000.4gl" cannot be opened.
inprmt016.4gl
No such file or directory. The input file "inprmt016.4gl" cannot be opened.
+30
View File
@@ -0,0 +1,30 @@
FUNCTION actualizareqtrx(pnumdoc)
DEFINE pnumdoc INT,
cantidad_trx,cantidad_req_trx DEC(12,5),
cerrar BOOLEAN
#SUMA LA CANTIDAD EN LA TABLA DE TRANSACCIONES INVENTARIOS
SELECT ISNULL(SUM(a.cantidad_2),0) INTO cantidad_trx FROM iptb00006 a
WHERE a.numero_Doc = pnumdoc AND a.status_t IS NULL
IF cantidad_trx < 0 THEN
LET cantidad_trx = cantidad_trx * -1
END IF
#SUMA LA CANTIDAD EN LAS REQUISICIONES
SELECT ISNULL(SUM(a.cantidad_2),0) INTO cantidad_req_trx FROM iptb00058 a
WHERE a.numero_Doc = pnumdoc
DISPLAY "cantidades ",cantidad_trx," ",cantidad_req_trx
IF cantidad_trx >= cantidad_req_trx THEN
LET cerrar = TRUE
ELSE
LET cerrar = FALSE
END IF
RETURN cerrar
END FUNCTION
+40
View File
@@ -0,0 +1,40 @@
S^1^0^M^ipactualizareqtrx^MODULE^^
S^2^1^F^actualizareqtrx^^^public
F^0^C:\Users\luis_\Documents\fuentes\decomarmol\PROYECTOS\ipdir\ipactualizareqtrx.4gl
D^2^1^30^10^0^0
X^2^D^1^10^0^
S^3^2^P^pnumdoc^INTEGER^^
D^3^2^2^11^0^0
X^3^r^18^26^0^
X^3^r^10^26^0^
X^3^l^1^26^0^
X^3^D^2^11^0^
S^4^2^V^cantidad_trx^DECIMAL(12,5)^^
D^4^3^3^11^0^0
X^4^r^21^8^0^
X^4^r^20^23^0^
X^4^r^13^27^0^
X^4^l^13^12^0^
X^4^r^12^8^0^
X^4^l^9^45^0^
X^4^D^3^11^0^
S^5^2^V^cantidad_req_trx^DECIMAL(12,5)^^
D^5^3^3^24^0^0
X^5^r^21^24^0^
X^5^r^20^40^0^
X^5^l^17^45^0^
X^5^D^3^24^0^
S^6^2^V^cerrar^BOOLEAN^^
D^6^4^4^11^0^0
X^6^r^27^12^0^
X^6^l^24^12^0^
X^6^l^22^12^0^
X^6^D^4^11^0^
T^1^1^d^0^0^DEFINE
T^1^30^f^0^0^FUNCTION
T^2^4^d^0^0^DEFINE
T^12^14^c^0^0^IF
T^13^13^c^0^0^THEN
T^21^25^c^0^0^IF
T^22^22^c^0^0^THEN
T^23^24^c^0^0^ELSE
+51
View File
@@ -0,0 +1,51 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm fileVersion="31400" gstVersion="31408" name="managedform" uid="{b2fa7045-bc87-4030-a88f-caa7495d9d8b}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record name="sbusqueda" uid="{27bf1e71-6d5e-4dbd-807c-41c2e8f275ee}">
<RecordField defaultValue="NO" fieldIdRef="1" name="procesa" uid="{c1020a45-3bef-4960-b202-4c12a193b383}"/>
<RecordField fieldIdRef="15" name="estado" uid="{ba494f46-a6bc-46e4-902c-b2ffe4af7152}"/>
<RecordField fieldIdRef="2" name="num_doc" uid="{b1ba6077-ac0b-42f1-b641-85058081878d}"/>
<RecordField fieldIdRef="3" name="tipo_documento" uid="{4572f47f-03bc-47a9-a895-f8663a807782}"/>
<RecordField fieldIdRef="4" name="numeroid" uid="{cf191b06-333a-45fc-aa99-b4d573f2978f}"/>
<RecordField fieldIdRef="5" name="fechadoc" uid="{fb733254-f678-41b7-9500-a6975135c155}"/>
<RecordField fieldIdRef="6" name="nombre" uid="{b5e1f023-64a3-48e0-8390-e812ff796835}"/>
<RecordField fieldIdRef="7" name="observacion1" uid="{905dd063-2a37-483a-b79b-dd9746180d7f}"/>
<RecordField fieldIdRef="8" name="usuario" uid="{44a99621-2d53-4c17-ade9-8f237610b3f5}"/>
<RecordField fieldIdRef="9" name="cod_mov1" uid="{2e4dce79-d479-4f66-bd3a-872e96b92419}"/>
<RecordField fieldIdRef="10" name="us_crea" uid="{5126c8d1-c3af-4e26-be88-7df339613cfa}"/>
<RecordField fieldIdRef="12" name="rtipo_cliente" uid="{dddb5844-92d0-4fb4-8312-562be99008ee}"/>
<RecordField fieldIdRef="13" name="rsec_cliente" uid="{e2a436fa-aebb-44d1-9308-d7de756f98a8}"/>
<RecordField fieldIdRef="14" name="bodega" uid="{c54a090a-46f4-424c-b3f1-cebfde9fc349}"/>
<RecordField fieldIdRef="16" name="bodega_destino" uid="{e2c3816f-4a1f-4566-b70e-98718a2c9959}"/>
</Record>
<Record name="record1" uid="{53c9169a-e785-45e1-810c-afdc9fdd40aa}">
<RecordField fieldIdRef="11" name="etiqueta" uid="{778e9556-3ccb-4e67-b46d-7cdf41860cb6}"/>
</Record>
<Form gridHeight="16" gridWidth="180" name="form" text="Requisiciones Autorizadas">
<Grid gridHeight="10" gridWidth="177" name="grid1" posX="3" posY="4">
<Edit fieldId="11" gridHeight="1" gridWidth="88" name="etiqueta" posX="8" posY="1" tabIndex="-1" title="edit1" widget="Edit"/>
<Table gridHeight="6" gridWidth="176" name="table2" posX="1" posY="3" totalRows="5">
<CheckBox defaultValue="NO" fieldId="1" gridHeight="1" gridWidth="8" name="procesa" posX="0" posY="0" tabIndex="-1" title="Procesar" valueChecked="SI" valueUnchecked="NO" widget="CheckBox"/>
<Edit fieldId="15" gridHeight="1" gridWidth="20" name="estado" posX="8" posY="0" scroll="true" tabIndex="-1" title="Estado" widget="Edit"/>
<Edit fieldId="2" gridHeight="1" gridWidth="8" name="num_doc" posX="28" posY="0" tabIndex="-1" title="Orden" widget="Edit"/>
<ButtonEdit fieldId="3" gridHeight="1" gridWidth="8" name="tipo_documento" posX="36" posY="0" tabIndex="-1" title="Tipo Documento" widget="ButtonEdit"/>
<Edit fieldId="4" gridHeight="1" gridWidth="14" name="numeroid" posX="44" posY="0" tabIndex="-1" title="Numero Documento" widget="Edit"/>
<Edit fieldId="5" gridHeight="1" gridWidth="8" name="fechadoc" posX="58" posY="0" tabIndex="-1" title="Fecha" widget="Edit"/>
<Edit fieldId="6" gridHeight="1" gridWidth="8" name="nombre" posX="66" posY="0" tabIndex="-1" title="Cliente" widget="Edit"/>
<Edit fieldId="7" gridHeight="1" gridWidth="8" name="observacion1" posX="74" posY="0" tabIndex="-1" title="Observacion" widget="Edit"/>
<Edit fieldId="8" gridHeight="1" gridWidth="30" name="usuario" noEntry="true" posX="82" posY="0" scroll="true" tabIndex="-1" title="Usuario" widget="Edit"/>
<Edit fieldId="9" gridHeight="1" gridWidth="8" hidden="true" name="cod_mov1" posX="112" posY="0" tabIndex="-1" title="edit2" widget="Edit"/>
<Edit fieldId="10" gridHeight="1" gridWidth="8" hidden="true" name="us_crea" posX="120" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
<Edit fieldId="12" gridHeight="1" gridWidth="8" hidden="true" name="rtipo_cliente" posX="128" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
<Edit fieldId="13" gridHeight="1" gridWidth="8" hidden="true" name="rsec_cliente" posX="136" posY="0" tabIndex="-1" title="edit2" widget="Edit"/>
<Edit fieldId="14" gridHeight="1" gridWidth="8" hidden="true" name="bodega" posX="144" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
<Edit fieldId="16" gridHeight="1" gridWidth="8" hidden="true" name="bodega_destino" posX="152" posY="0" tabIndex="-1" title="edit2" widget="Edit"/>
</Table>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA1ADMAYwA5ADEANgA5AGEALQBlADcAOAA1AC0ANAA1AGUAMQAtADgAMQAwAGMALQBhAGYAZABjADkAZgBkAGQANAAwAGEAYQB9QFFmZnwmZnJAKZmZuZmZqgAAAAAAAAAAAQAAAEwAewAyADcAYgBmADEAZQA3ADEALQA2AGQANQBlAC0ANABkAGIAZAAtADgAMAA3AGMALQA0ADEAYwAyAGUAOABmADIANwA1AGUAZQB9AAAAAAAAAAAAAAAAAAAAAD9QYk3S8an8AQ==]]>
</DiagramLayout>
</ManagedForm>
+336
View File
@@ -0,0 +1,336 @@
{
PROGRAMA: ipautorizareq
OBJETIVO: Mostrar al usuario las requisiciones autorizadas
FECHA : Mayo 9, 2022
}
GLOBALS "ipprgb000.4gl"
DEFINE r INT,
arr_busqueda1 DYNAMIC ARRAY OF RECORD
procesar VARCHAR(3),
estado VARCHAR(20),
idestado INT,
num_oc INT,
tipo_documento VARCHAR(100),
numeroid INT,
fecha DATE,
nombre,observacion1,origen,destino,usuario VARCHAR(100),
vendedor VARCHAR(100),
archivo VARCHAR(200),
cod_mov1 INT,
us_crea VARCHAR(50),
rtipo_cliente,rsec_cliente,bodega,bodega_destino INT
END RECORD,
nombreusuario,email,vendedor VARCHAR(100),
tienedespiece BOOLEAN,
cuentaimp INT
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
FUNCTION ipautorizadas(xusuario)
DEFINE data RECORD
rnumeroDoc,rcodMov,rtipo_cliente,num_oc,tipo_cliente,sec_cliente,bodega,bodega_destino INT,
nombre VARCHAR(100)
END RECORD,
xusuario VARCHAR(50)
CALL arr_busqueda1.clear()
CALL buscadataReq(xusuario)
IF r = 1 THEN
RETURN data.*
END IF
OPEN WINDOW w1 WITH FORM "ipautorizareq"
INPUT ARRAY arr_busqueda1 FROM sbusqueda.* ATTRIBUTE(WITHOUT DEFAULTS)
BEFORE INPUT
DISPLAY 'REQUISICIONES TRANSACCIONES AUTORIZADAS' TO etiqueta
CALL DIALOG.setActionActive( "accept", FALSE )
{ BEFORE ROW
LET r = arr_curr()
IF arr_busqueda1[r].archivo IS NULL THEN
CALL DIALOG.setActionActive( "tfile", FALSE )
ELSE
CALL DIALOG.setActionActive( "tfile", TRUE )
END IF}
CALL estadosprocesos(1)
ON ACTION tfile
LET r = arr_curr()
IF arr_busqueda1[r].archivo IS NOT NULL THEN
CALL ui.Interface.frontCall("standard","launchURL", [arr_busqueda1[r].archivo], [] )
END IF
ON ACTION imprimir ATTRIBUTE(TEXT="Imprimir", IMAGE="printer")
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
CALL buscadoc(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
LET data.rnumeroDoc = arr_busqueda1[arr_curr()].numeroid
LET data.rcodMov = arr_busqueda1[arr_curr()].cod_mov1
LET data.rtipo_cliente = arr_busqueda1[arr_curr()].rtipo_cliente
LET data.sec_cliente =arr_busqueda1[arr_curr()].rsec_cliente
LET data.nombre =arr_busqueda1[arr_curr()].nombre
LET data.num_oc =arr_busqueda1[arr_curr()].num_oc
LET data.bodega = arr_busqueda1[arr_curr()].bodega
LET data.bodega_destino = arr_busqueda1[arr_curr()].bodega_destino
LET nombreUsuario = arr_busqueda1[arr_curr()].usuario
CALL impdocumento()
END IF
ON ACTION procesar ATTRIBUTE(TEXT="Procesa",IMAGE="")
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
LET data.rnumeroDoc = arr_busqueda1[arr_curr()].numeroid
LET data.rcodMov = arr_busqueda1[arr_curr()].cod_mov1
LET data.rtipo_cliente = arr_busqueda1[arr_curr()].rtipo_cliente
LET data.sec_cliente =arr_busqueda1[arr_curr()].rsec_cliente
LET data.nombre =arr_busqueda1[arr_curr()].nombre
LET data.num_oc =arr_busqueda1[arr_curr()].num_oc
LET data.bodega = arr_busqueda1[arr_curr()].bodega
LET data.bodega_destino = arr_busqueda1[arr_curr()].bodega_destino
EXIT INPUT
END IF
ON CHANGE observacion1
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
UPDATE iptb00057 SET
observacion = arr_busqueda1[arr_curr()].observacion1,
us_mod = usuarios,fech_mod = getdate()
WHERE numero_doc = arr_busqueda1[arr_curr()].numeroid
END IF
ON CHANGE idestado
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
UPDATE iptb00057 SET idestado = arr_busqueda1[arr_curr()].idestado,
observacion = arr_busqueda1[arr_curr()].observacion1,
us_mod = usuarios,fech_mod = getdate()
WHERE numero_doc = arr_busqueda1[arr_curr()].numeroid
END IF
AFTER INPUT
IF int_flag THEN
LET data.rnumeroDoc = NULL
LET data.rcodMov = NULL
LET data.rtipo_cliente = NULL
LET data.sec_cliente =NULL
LET data.nombre =NULL
LET data.num_oc =NULL
LET data.bodega = NULL
LET data.bodega_destino = NULL
LET int_flag = FALSE
END IF
EXIT INPUT
END INPUT
CLOSE WINDOW w1
RETURN data.*
END FUNCTION
FUNCTION buscadataReq(pusuario)
DEFINE pusuario VARCHAR(50)
DECLARE buscar CURSOR FOR
SELECT ' ', b.estado,b.idestado,b.num_oc,CAST(a.cod_mov AS VARCHAR(10))||' '||a.descrip_mov,b.numero_doc,
b.fecha,c.nombre,
b.observacion,(SELECT p1.descripcion FROM intb00009 p1 WHERE p1.cod_bodega = b.bodega) AS ORIGEN,
(SELECT p2.descripcion FROM intb00009 p2 WHERE p2.cod_bodega = b.bodega_destino),' ','('||ISNULL(CAST(f.sec_vend AS VARCHAR(10)),'')||')'||isnull(k.nom1_emp,'')||' '||k.apell1_emp,b.url_destino, b.cod_mov,b.us_crea,
b.tipo_cliente,b.sec_cliente,b.bodega,b.bodega_destino
FROM iptb00005 a,iptb00057 b LEFT OUTER JOIN vetb00004 c ON c.tipo_cliente = b.tipo_cliente AND
c.sec_cliente = b.sec_cliente
LEFT OUTER JOIN prtb00012 f ON f.num_oc = b.num_oc
LEFT OUTER JOIN adtb00003 k ON k.num_emp = f.sec_vend
INNER JOIN iptb00048 d ON d.bodega = b.bodega AND d.usuario = pusuario
WHERE a.cod_mov = b.cod_mov AND
b.estado = 'AUTORIZADA' #AND
# ESTA EN COMENTARIO PORQUE SE SUPONE QUE EL PROGRAMA IPPRMT044 CIERRA LAS REQUISICIONES
# b.numero_doc NOT IN (SELECT DISTINCT c.numero_doc FROM iptb00006 c WHERE c.cod_mov = a.cod_mov AND
# c.numero_doc = b.numero_doc AND c.status_t IS NULL)
AND b.status_t IS NULL
LET r = 1
CALL arr_busqueda1.clear()
FOREACH buscar INTO arr_busqueda1[r].*
CALL usuarioSistema(arr_busqueda1[r].us_crea) RETURNING nombreUsuario,email
LET arr_busqueda1[r].usuario = nombreUsuario
LET r = r + 1
END FOREACH
END FUNCTION
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_iptb57.numero_doc,p_iptb57.cod_mov,p_iptb57.fecha,p_iptb57.num_oc,p_iptb57.tipo_cliente,p_iptb57.sec_cliente,
p_iptb57.cliente,p_iptb57.bodega,p_iptb57.bodega_destino,p_iptb57.estado,
p_iptb57.url_file,p_iptb57.observacion,nombreMov,nombreBodega,vendedor
FROM iptb00057 a INNER JOIN iptb00005 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_iptb57.bodega_destino IS NOT NULL THEN
SELECT a.descripcion INTO nombreBodegaDestino FROM intb00009 a WHERE a.cod_bodega = p_iptb57.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,b.factor_conv,
c.id_etiqueta,
c.lado_1,c.lado_2,c.lado_3,c.cantidad,c.medida
FROM iptb00058 a INNER JOIN iptb00001 b ON 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
LEFT OUTER JOIN iptb00060 c ON c.cod_n =b.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_iptb58.clear()
LET tienedespiece = FALSE
FOREACH buscardetalle INTO arr_iptb58[idx].area,
arr_iptb58[idx].cod_n,
arr_iptb58[idx].cod_grupo,
arr_iptb58[idx].cod_tipo,
arr_iptb58[idx].cod_sec,
arr_iptb58[idx].descripcion,
arr_iptb58[idx].unidad_med,
arr_iptb58[idx].cantidad_1,
arr_iptb58[idx].cantidad,
arr_iptb58[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
FUNCTION impdocumento()
DEFINE idx_l INT,
xcodigo VARCHAR(50)
LET r_filename = "ipprmt020_1.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_iptb58.getLength()
IF arr_iptb58[idx].cod_Sec IS NOT NULL THEN
LET xcodigo =arr_iptb58[idx].cod_n USING '&&&&&','-',
arr_iptb58[idx].cod_grupo USING '&&&&&','-',
arr_iptb58[idx].cod_tipo USING '&&&&&&','-',
arr_iptb58[idx].cod_sec USING '&&&&&&&'
OUTPUT TO REPORT requiere(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
END IF
END FOR
FINISH REPORT requiere
END FUNCTION
REPORT requiere(x,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 RECORD
numero_doc INT,
cod_mov smallint,
fecha DATE,
num_oc INT,
observacion VARCHAR(200),
tipo_cliente SMALLINT,
sec_cliente INT,
cliente VARCHAR(100),
bodega SMALLINT,
bodega_destino SMALLINT,
estado VARCHAR(50),
ruta_documento ,
url_file ,
idestado VARCHAR(200)
END RECORD,
etiqueta VARCHAR(100),
total_cantidad,total_medida DEC(12,5)
ORDER BY codigo
FORMAT
FIRST PAGE HEADER
SELECT a.nombre INTO p_companias.nombre FROM companias a
LET hora = CURRENT
PRINTX p_companias.nombre,hora,x.*,nombreMov,nombreBodega,
nombreBodegaDestino,nombreUsuario,vendedor
BEFORE GROUP OF codigo
PRINTX dEtalle.*
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
+11
View File
@@ -0,0 +1,11 @@
fgl2p ipprcs001.4gl
fgl2p ipprcs002.4gl
fgl2p ipprcs003.4gl
fgl2p ipprcs004.4gl
fgl2p ipprcs006.4gl
fgl2p ipprcs007.4gl
fgl2p ipprcs041.4gl
fgl2p ipmncs000.4gl
fgl2p ipmncs001.4gl
fgl2p -o ipmncs000.42r ipmncs000.42m ipmncs001.42m ipprcs041.42m msg.42m seg000.42m ipprcs001.42m ipprcs002.42m ipprcs006.42m ipprcs004.42m
+65
View File
@@ -0,0 +1,65 @@
fglform ipfmcs001.per
fglform ipfmcs002.per
fglform ipfmcs004.per
fglform ipfmcs006.per
fglform ipfmcs007.per
fglform ipfmcs017.per
fglform ipfmcs041.per
fglform ipfmmt002.per
fglform ipfmmt003.per
fglform ipfmmt004.per
fglform ipfmmt005.per
fglform ipfmmt006.per
fglform ipfmmt007.per
fglform ipfmmt008.per
fglform ipfmmt009.per
fglform ipfmmt010.per
fglform ipfmmt011.per
fglform ipfmmt013.per
fglform ipfmmt014.per
fglform ipfmmt017.per
fglform ipfmmt018.per
fglform ipfmmt044.per
fglform ipfmmt054.per
fglform ipfmmt899.per
fglform ipfmrp001.per
fglform ipfmrp002.per
fglform ipfmrp003.per
fglform ipfmrp004.per
fglform ipfmrp005.per
fglform ipfmrp006.per
fglform ipfmrp007.per
fglform ipfmrp008.per
fglform ipfmrp009.per
fglform ipfmrp010.per
fglform ipfmrp011.per
fglform ipfmrp012.per
fglform ipfmrp013.per
fglform ipfmrp014.per
fglform ipfmrp015.per
fglform ipfmrp016.per
fglform ipfmrp017.per
fglform ipfmrp018.per
fglform ipfmrp019.per
fglform ipfmrp020.per
fglform ipfmrp021.per
fglform ipfmrp022.per
fglform ipfmrp023.per
fglform ipfmrp024.per
fglform ipfmrp025.per
fglform ipfmrp026.per
fglform ipfmrp027.per
fglform ipfmrp028.per
fglform ipfmrp029.per
fglform ipfmrp030.per
fglform ipfmrp032.per
fglform ipfmrp033.per
fglform ipfmwd001.per
fglform ipfmwd002.per
fglform ipfmwd003.per
fglform ipfmwd004.per
fglform ipfmwd005.per
fglform ipfmwd006.per
fglform ipfmwd007.per
fglform ipfmwd008.per
fglform ipfmwd009.per
+61
View File
@@ -0,0 +1,61 @@
database marmotech
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
Codigo Unidades Cantidad Descripcion Und.
\gp---------------------------------------------------------------------------q\g
[b ][f06 ][f07 ][g ][f08]
[b ][f06 ][f07 ][g ][f08]
[b ][f06 ][f07 ][g ][f08]
[b ][f06 ][f07 ][g ][f08]
\gb---------------------------------------------------------------------------d\g
}
end
tables
iptb00006,
cotb00001,
intb00001,
intb00005
attributes
f00 = iptb00006.num_doc,
comments =
"Digite el Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos";
p1 = iptb00006.cod_sp,picture = "##",autonext,
comments = "Digite el Codigo del Suplidor";
f01 = iptb00006.cod_sp_sec,picture = "####",
comments = "Digite el Codigo del Suplidor";
f02 = iptb00006.orden_compra,
comments = "Digite el Numero de la Orden de Compras";
f03 = iptb00006.conduce_no,
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04 = iptb00006.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 = iptb00006.cantidad_1,
comments = "Digite la Cantidad Pedida ";
f07 = iptb00006.cantidad_2,
comments = "Digite la Cantidad Llegada desde el Suplidor";
f08 = intb00001.unidad_med,noentry;
a = cotb00001.nom_sp,noentry;
b = formonly.codigo,noentry;
g = formonly.descrip_esp,noentry;
i = iptb00006.uso_tiempo,autonext;
| fglform: The label 'i' was not defined in the form.
| See error number -2840.
d = iptb00006.bodega,noentry;
t = iptb00006.cod_mov,autonext,comments =
"Digite Codigo Movimiento de Entrada (01 - Local 02 - Exterior)",
include = (34 to 35);
t1 = intb00005.descrip_mov,noentry;
INSTRUCTIONS
screen record s_movi1[4] (codigo,cantidad_1,cantidad_2,descrip_esp,
unidad_med)
delimiters " "
end
+59
View File
@@ -0,0 +1,59 @@
database marmotech
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
Codigo Unidades Cantidad Descripcion Und.
\gp---------------------------------------------------------------------------q\g
[b ][f06 ][f07 ][g ][f08]
[b ][f06 ][f07 ][g ][f08]
[b ][f06 ][f07 ][g ][f08]
[b ][f06 ][f07 ][g ][f08]
\gb---------------------------------------------------------------------------d\g
}
end
tables
iptb00006,
cotb00001,
intb00001,
intb00005
attributes
f00 = iptb00006.num_doc,
comments =
"Digite el Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos";
p1 = iptb00006.cod_sp,picture = "##",autonext,
comments = "Digite el Codigo del Suplidor";
f01 = iptb00006.cod_sp_sec,picture = "####",
comments = "Digite el Codigo del Suplidor";
f02 = iptb00006.orden_compra,
comments = "Digite el Numero de la Orden de Compras";
f03 = iptb00006.conduce_no,
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04 = iptb00006.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 = iptb00006.cantidad_1,
comments = "Digite la Cantidad Pedida ";
f07 = iptb00006.cantidad_2,
comments = "Digite la Cantidad Llegada desde el Suplidor";
f08 = intb00001.unidad_med,noentry;
a = cotb00001.nom_sp,noentry;
b = formonly.codigo,noentry;
g = formonly.descrip_esp,noentry;
i = iptb00006.uso_tiempo,autonext;
d = iptb00006.bodega,noentry;
t = iptb00006.cod_mov,autonext,comments =
"Digite Codigo Movimiento de Entrada (01 - Local 02 - Exterior)",
include = (34 to 35);
t1 = intb00005.descrip_mov,noentry;
INSTRUCTIONS
screen record s_movi1[4] (codigo,cantidad_1,cantidad_2,descrip_esp,
unidad_med)
delimiters " "
end
+51
View File
@@ -0,0 +1,51 @@
database decomarmol
screen size 24 by 80
{
Producto Terminado [a ]-[b ]-[c ]-[d ] [a1 ]
\g_______________________________________________________________________\g
Existencia Existencia Dia de
Producto Cia Actual Minima Llegada
\g-----------------------------------------------------------------------\g
[e ][f ][g ][h ] [j] [f008 ] [f009 ] [f01]
Descripcion: [k ] Unidad: [l ] Bodega: [m]
Nomenclatura: [f004 ]
[e ][f ][g ][h ] [j] [f008 ] [f009 ] [f01]
Descripcion: [k ] Unidad: [l ] Bodega: [m]
Nomenclatura: [f004 ]
[e ][f ][g ][h ] [j] [f008 ] [f009 ] [f01]
Descripcion: [k ] Unidad: [l ] Bodega: [m]
Nomenclatura: [f004 ]
}
end
tables
iptb00002,intb00001
attributes
a = iptb00002.cod_n,autonext,
comments = "Digite el nivel del Productos";
b = iptb00002.cod_grupo,autonext,
comments = "Digite el grupo del Productos";
c = iptb00002.cod_tipo,autonext,
comments = "Digite el tipo del Productos";
d = iptb00002.cod_sec,autonext,
comments = "Digite la secuencia del Productos";
a1 = intb00001.descrip_esp,noentry;
e = formonly.cod_n1,noentry;
f = formonly.cod_grupo1,noentry;
g = formonly.cod_tipo1,noentry;
h = formonly.cod_sec1,noentry;
j = iptb00002.cod_cia,noentry;
f008 = formonly.existencia,noentry;
f009 = iptb00002.exist_min,noentry;
f01 = iptb00002.dia_llegada,noentry;
k = formonly.descrip_esp1,noentry;
l = intb00001.unidad_med,noentry;
m = iptb00002.bodega,noentry;
f004 = formonly.marca,noentry;
instructions
delimiters " "
screen record consart[3] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
unidad_med,bodega,marca,cod_cia,existencia,
exist_min,dia_llegada)
end
+75
View File
@@ -0,0 +1,75 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="decomarmol" fileVersion="31400" gstVersion="31405" name="ManagedForm" uid="{39e294a0-a719-49ab-aff8-ad5cbe57a377}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="consart" order="" uid="{ee32761f-cd1b-47fa-9cc7-36ef49aae216}" where="">
<RecordField colName="" fieldIdRef="20" name="estado" sqlTabName="" table_alias_name="" uid="{3728a341-d6bc-462a-b137-bf69c48dd55b}"/>
<RecordField colName="cod_n1" fieldIdRef="6" name="cod_n1" sqlTabName="formonly" table_alias_name="" uid="{d6ab163a-398e-498d-a0e1-6ea750a3e218}"/>
<RecordField colName="cod_grupo1" fieldIdRef="7" name="cod_grupo1" sqlTabName="formonly" table_alias_name="" uid="{865bf10a-8dc6-4482-a768-70efc74eca4a}"/>
<RecordField colName="cod_tipo1" fieldIdRef="8" name="cod_tipo1" sqlTabName="formonly" table_alias_name="" uid="{6050e8e1-a893-4eab-a0b9-168b1807e787}"/>
<RecordField colName="cod_sec1" fieldIdRef="9" name="cod_sec1" sqlTabName="formonly" table_alias_name="" uid="{a0465479-26ba-45c7-940a-7b6579c4d40f}"/>
<RecordField colName="descrip_esp1" fieldIdRef="11" name="descrip_esp1" sqlTabName="formonly" table_alias_name="" uid="{a667c237-9b8e-4fed-8509-ecb68960e1db}"/>
<RecordField colName="unidad_med" fieldIdRef="12" fieldType="TABLE_COLUMN" name="iptb00002.unidad_med" sqlTabName="iptb00002" sqlType="CHAR" table_alias_name="" uid="{e05d3986-979f-4bec-9db9-ddc0fced49ff}"/>
<RecordField colName="" fieldIdRef="16" name="bodega1" sqlTabName="" table_alias_name="" uid="{6f1dfefb-5faf-4250-bf3a-ade77d982b79}"/>
<RecordField colName="existencia" fieldIdRef="10" name="existencia" sqlTabName="formonly" table_alias_name="" uid="{a6513ed0-0316-4e56-86ce-b52e6c9a913e}"/>
<RecordField colName="" fieldIdRef="15" name="cantidad_orden" sqlTabName="" table_alias_name="" uid="{e0703236-0d3f-49f8-8457-822899f5ea61}"/>
<RecordField colName="" fieldIdRef="17" name="disponible" sqlTabName="" table_alias_name="" uid="{df7259f7-f7c2-4fb3-b582-8a78e7eb8abb}"/>
<RecordField colName="" fieldIdRef="18" name="reservado" sqlTabName="" table_alias_name="" uid="{066bddd4-e890-45de-bf73-1a1f5f3056ee}"/>
<RecordField colName="" fieldIdRef="19" name="transito" sqlTabName="" table_alias_name="" uid="{90733f33-6f99-4840-8af6-9d9fd9f56919}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{844808d8-86eb-4898-8ca8-24d47d0a4165}" where="">
<RecordField colName="fech_fi" fieldIdRef="13" name="fech_fi" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{c65ad654-205a-4aed-af0c-f6261d925757}"/>
<RecordField colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldIdRef="0" name="inventario" sqlTabName="formonly" table_alias_name="" uid="{c27b1cfa-ffa7-4093-831c-8e9cd78b2b6c}"/>
<RecordField colName="cod_n" fieldIdRef="1" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{f3e4b894-d3d3-4417-87c1-7d7de6575db0}"/>
<RecordField colName="cod_grupo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{399eaa79-3dd9-4c02-b8db-8592200882b0}"/>
<RecordField colName="cod_tipo" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{822b14dc-87d3-4447-b1a0-83749c7b014b}"/>
<RecordField colName="cod_sec" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{5a301b46-d3cf-47a4-8634-bb58da4e0b58}"/>
<RecordField colName="descrip_esp" fieldIdRef="5" name="descrip_esp" sqlTabName="formonly" table_alias_name="" uid="{229438bd-7691-4450-b565-e0100e3600eb}"/>
<RecordField colName="" fieldIdRef="14" name="bodega" sqlTabName="" table_alias_name="" uid="{45aa8009-57a0-4155-bc46-7e0469dcb37c}"/>
</Record>
<Form gridHeight="21" gridWidth="186" name="ipfmcs004" style="basic" text="CONSULTA EXISTENCIAS">
<Grid gridHeight="20" gridWidth="186" name="Grid1" posX="0" posY="0">
<Group gridHeight="6" gridWidth="122" name="Group1" posX="1" posY="1">
<Label posX="1" posY="1" text="Fecha"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_fi" fieldId="13" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="12" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" table_alias_name="" widget="DateEdit"/>
<Label posX="28" posY="1" text="INVENTARIO"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldId="0" gridHeight="1" gridWidth="33" include="MATERIA PRIMA|PRODUCTOS TERMINADOS" items="MATERIA PRIMA, PRODUCTOS TERMINADOS" name="inventario" posX="40" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="ComboBox">
<Item name="MATERIA PRIMA" text="MATERIA PRIMA"/>
<Item name="PRODUCTOS TERMINADOS" text="PRODUCTOS TERMINADOS"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="Label1" posX="28" posY="2" text="Bodega"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="14" gridHeight="1" gridWidth="33" items="" name="bodega" posX="40" posY="2" sqlTabName="" tabIndex="16" table_alias_name="" title="ComboBox1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="9" name="Label2" posX="1" posY="4" text="Productos"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n" comment="Digite el nivel del Productos" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="11" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el grupo del Productos" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="18" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el tipo del Productos" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="26" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite la secuencia del Productos" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="33" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp" fieldId="5" gridHeight="1" gridWidth="33" name="descrip_esp" posX="40" posY="4" scroll="true" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="Edit"/>
<Button gridHeight="1" gridWidth="10" image="" name="foto" posX="82" posY="4" tabIndex="21" text="Foto"/>
<Button gridHeight="1" gridWidth="10" name="ordendisponible" posX="96" posY="4" tabIndex="22" text="Ordenes"/>
<Button gridHeight="1" gridWidth="10" name="reservado" posX="110" posY="4" tabIndex="23" text="Reservados"/>
</Group>
<Group gridHeight="11" gridWidth="185" name="Group2" posX="1" posY="8">
<Table gridHeight="9" gridWidth="183" name="Table1" posX="1" posY="1" style="detalle" totalRows="8" unitWidth="characters" width="100">
<FFImage aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="20" gridHeight="1" gridWidth="8" name="estado" posX="0" posY="0" sqlTabName="" table_alias_name="" widget="FFImage"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n1" fieldId="6" gridHeight="1" gridWidth="12" name="cod_n1" posX="8" posY="0" scroll="true" sqlTabName="formonly" tabIndex="8" table_alias_name="" title="PRODUCTO" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_grupo1" fieldId="7" gridHeight="1" gridWidth="12" name="cod_grupo1" posX="20" posY="0" scroll="true" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_tipo1" fieldId="8" gridHeight="1" gridWidth="12" name="cod_tipo1" posX="32" posY="0" scroll="true" sqlTabName="formonly" tabIndex="10" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_sec1" fieldId="9" gridHeight="1" gridWidth="12" name="cod_sec1" picture="fileopen" posX="44" posY="0" scroll="true" sqlTabName="formonly" tabIndex="11" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp1" fieldId="11" gridHeight="1" gridWidth="54" name="descrip_esp1" posX="56" posY="0" sqlTabName="formonly" tabIndex="12" table_alias_name="" title="DESCRIPCION" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.unidad_med" posX="110" posY="0" sqlTabName="iptb00002" sqlType="CHAR" tabIndex="13" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="16" gridHeight="1" gridWidth="8" name="bodega1" posX="116" posY="0" sqlTabName="" tabIndex="15" table_alias_name="" title="BODEGA" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="existencia" fieldId="10" gridHeight="1" gridWidth="13" name="existencia" posX="124" posY="0" sqlTabName="formonly" tabIndex="14" table_alias_name="" title="EXISTENCIA" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="15" gridHeight="1" gridWidth="8" name="cantidad_orden" posX="137" posY="0" sqlTabName="" tabIndex="17" table_alias_name="" title="CANTIDAD ORDEN" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="8" name="disponible" posX="145" posY="0" sqlTabName="" tabIndex="18" table_alias_name="" title="DISPONIBLE" widget="Edit"/>
<ButtonEdit action="reservas" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="8" name="reservado" posX="153" posY="0" sqlTabName="" tabIndex="19" table_alias_name="" title="RESERVADO" widget="ButtonEdit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="19" gridHeight="1" gridWidth="8" name="transito" posX="161" posY="0" sqlTabName="" tabIndex="20" table_alias_name="" title="TRANSITO" widget="Edit"/>
</Table>
</Group>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA4ADQANAA4ADAAOABkADgALQA4ADYAZQBiAC0ANAA4ADkAOAAtADgAYwBhADgALQAyADQAZAA0ADcAZAAwAGEANAAxADYANQB9QCQAADwAAFJAJAAAPAAAUgAAAAAAAAAAAQAAAEwAewBlAGUAMwAyADcANgAxAGYALQBjAGQAMQBiAC0ANAA3AGYAYQAtADkAYwBjADcALQAzADYAZQBmADQAOQBhAGEAZQAyADEANgB9wG/gAF+gAITAUgAANgAASz9gYk3S8an8AQ==]]>
</DiagramLayout>
</ManagedForm>
+58
View File
@@ -0,0 +1,58 @@
{
===============================================================================
FORMULARIO : IPFMCS004
OBJETIVO : CAPTURAR CODIGOS DE PRODUCTOS PARA BUSCAR
SU EXISTENCIA.
DISENO : JUAN F. SOTO
FECHA : AGOSTO 1997
ASESOR : JOSE ALFREDO PAULINO
===============================================================================
}
SCHEMA decomarmol
LAYOUT (TEXT="CONSULTA EXISTENCIAS",STYLE="basic")
GRID
{
<G >
Fecha [fe ] INVENTARIO [inv ]
Productos [a ]-[b ]-[c ]-[d ] [a1 ]
<g >
<t >
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
[e ][f ][g ][h ][k ][l ][f008 ]
}
end
END
tables
iptb00002,intb00001
attributes
COMBOBOX inv = formonly.inventario,INCLUDE=("MATERIA PRIMA","PRODUCTOS TERMINADOS");
a = iptb00002.cod_n,
comments = "Digite el nivel del Productos";
b = iptb00002.cod_grupo,autonext,
comments = "Digite el grupo del Productos";
c = iptb00002.cod_tipo,autonext,
comments = "Digite el tipo del Productos";
d = iptb00002.cod_sec,autonext,
comments = "Digite la secuencia del Productos";
a1 = formonly.descrip_esp,scroll;
e = formonly.cod_n1,TITLE="PRODUCTO";
f = formonly.cod_grupo1;
g = formonly.cod_tipo1;
h = formonly.cod_sec1;
f008 = formonly.existencia,TITLE="EXISTENCIA";
k = formonly.descrip_esp1,TITLE="DESCRIPCION";
l = intb00001.unidad_med;
DATEEDIT fe = formonly.fech_fi type date,format = "dd/mm/yyyy";
instructions
delimiters " "
screen record consart[7] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
unidad_med,existencia)
end
+89
View File
@@ -0,0 +1,89 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="31405" name="ManagedForm" uid="{ba2dcc2e-7464-46eb-a6b6-d6709e04202d}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="consart" order="" uid="{841bae49-2eb2-4ca2-9940-aa5a1d621843}" where="">
<RecordField colName="" fieldIdRef="24" name="estado" sqlTabName="" table_alias_name="" uid="{9025befd-7b49-4d51-bc1c-34de75f6df71}"/>
<RecordField colName="cod_n1" fieldIdRef="7" name="cod_n1" sqlTabName="formonly" table_alias_name="" uid="{d43a1444-0fb1-4524-85cb-f7c0a4e0378f}"/>
<RecordField colName="cod_grupo1" fieldIdRef="8" name="cod_grupo1" sqlTabName="formonly" table_alias_name="" uid="{a58b7eaf-1c48-4087-a414-092fdff3f0c1}"/>
<RecordField colName="cod_tipo1" fieldIdRef="9" name="cod_tipo1" sqlTabName="formonly" table_alias_name="" uid="{0d306b18-d5d0-4677-a987-2956382fd4b0}"/>
<RecordField colName="cod_sec1" fieldIdRef="10" name="cod_sec1" sqlTabName="formonly" table_alias_name="" uid="{18aa2b5f-1a1e-409c-bee5-9615a2558fac}"/>
<RecordField colName="descrip_esp1" fieldIdRef="13" name="descrip_esp1" sqlTabName="formonly" table_alias_name="" uid="{be556afa-bdfc-4e62-be87-e8924e52d9b9}"/>
<RecordField colName="unidad_med" fieldIdRef="14" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" sqlType="CHAR" table_alias_name="" uid="{16dc11a9-1a37-4df0-8726-3314d8c2c41a}"/>
<RecordField colName="existencia" fieldIdRef="11" name="existencia" sqlTabName="formonly" sqlType="FLOAT" table_alias_name="" uid="{f9b26b63-df5a-42ed-a968-ad9eebdc2d8c}"/>
<RecordField colName="cantidad_ordenes" fieldIdRef="12" name="cantidad_ordenes" sqlTabName="formonly" sqlType="FLOAT" table_alias_name="" uid="{9768e94e-ac15-493b-ab5d-ed87b0d5773c}"/>
<RecordField colName="" fieldIdRef="20" name="pventas" sqlTabName="" sqlType="FLOAT" table_alias_name="" uid="{e401d4f7-f7e0-4062-a486-22abbec42309}"/>
<RecordField colName="ventas" fieldIdRef="16" name="ventas" sqlTabName="formonly" table_alias_name="" uid="{f8bddaff-a5f2-481e-8503-318b566f9d25}"/>
<RecordField colName="precio" fieldIdRef="17" name="precio" sqlTabName="formonly" table_alias_name="" uid="{c5504c78-6d8a-4a7a-aa52-85d42a3129ae}"/>
<RecordField colName="" fieldIdRef="21" name="reservado" sqlTabName="" table_alias_name="" uid="{508da58a-4bbe-4dbf-a434-7760c21b2d67}"/>
<RecordField colName="" fieldIdRef="22" name="Transito" sqlTabName="" table_alias_name="" uid="{ee7fcde4-ea7c-4d72-b194-e87794db9c47}"/>
<RecordField colName="" fieldIdRef="25" name="fecha_llegada" sqlTabName="" table_alias_name="" uid="{d41c0a7e-8012-4fd5-878b-5d97c9327a5e}"/>
<RecordField colName="" fieldIdRef="26" name="fecha_ordenada" sqlTabName="" table_alias_name="" uid="{b62ca1a5-4c38-40a6-9ba4-2d83d7e837fa}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{4616191b-7b7f-4983-82db-232c11ba990f}" where="">
<RecordField colName="fech_fi" fieldIdRef="15" name="fech_fi" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{c0a284fe-4dad-4739-b295-c0913354c8d7}"/>
<RecordField colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldIdRef="1" name="inventario" sqlTabName="formonly" table_alias_name="" uid="{f2f54a53-791e-40a2-a753-ab280e557a85}"/>
<RecordField colName="cod_n" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{32603d69-b994-46ff-9e4b-3faa755d4586}"/>
<RecordField colName="cod_grupo" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{66799fe3-670d-4e8f-bef1-d991b0b4d632}"/>
<RecordField colName="cod_tipo" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{447ff516-386e-43f0-b3e0-20d8d7cc6fcd}"/>
<RecordField colName="cod_sec" fieldIdRef="5" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{bb061484-c43d-4a04-b157-174a2860c633}"/>
<RecordField colName="descrip_esp" fieldIdRef="6" name="descrip_esp" sqlTabName="formonly" table_alias_name="" uid="{1c8aef7f-a310-4033-baca-54c0b2f8a564}"/>
<RecordField colName="" defaultValue="SI" fieldIdRef="18" name="chexistencia" sqlTabName="" table_alias_name="" uid="{0d7684e2-8dc2-4abe-b21c-618e7607fcec}"/>
<RecordField colName="" defaultValue="NO" fieldIdRef="19" name="chordenes" sqlTabName="" table_alias_name="" uid="{3da73ca7-ee45-424b-a434-bc0b3ec7f076}"/>
<RecordField colName="" fieldIdRef="23" name="progreso" sqlTabName="" table_alias_name="" uid="{c025b8a1-acfc-45e2-b790-f9f5e84f1a42}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record1" order="" uid="{c5a4fe00-dbf7-4fb2-9788-038056c7b596}" where="">
<RecordField colName="" defaultValue="SI" fieldIdRef="18" name="chexistencia" sqlTabName="" table_alias_name="" uid="{bffb3cfe-f98e-4d39-8fe6-ca219aeca278}"/>
</Record>
<Form gridHeight="15" gridWidth="254" name="ipfmcs004_1" style="basic" text="CONSULTA EXISTENCIAS">
<Grid gridHeight="15" gridWidth="254" name="Grid1" posX="0" posY="0">
<Group gridHeight="5" gridWidth="83" name="Group1" posX="1" posY="0">
<Label posX="1" posY="1" text="Fecha"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_fi" fieldId="15" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="8" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" table_alias_name="" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="10" name="Label1" posX="20" posY="1" text="INVENTARIO"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldId="1" gridHeight="1" gridWidth="33" include="MATERIA PRIMA|PRODUCTOS TERMINADOS" items="MATERIA PRIMA, PRODUCTOS TERMINADOS" name="inventario" posX="40" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="ComboBox">
<Item name="MATERIA PRIMA" text="MATERIA PRIMA"/>
<Item name="PRODUCTOS TERMINADOS" text="PRODUCTOS TERMINADOS"/>
</ComboBox>
<Label gridHeight="1" gridWidth="8" name="Label2" posX="1" posY="3" text="Productos"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n" comment="Digite el nivel del Productos" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="10" posY="3" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el grupo del Productos" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="17" posY="3" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el tipo del Productos" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="24" posY="3" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite la secuencia del Productos" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="32" posY="3" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp" fieldId="6" gridHeight="1" gridWidth="33" name="descrip_esp" posX="40" posY="3" scroll="true" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="Edit"/>
</Group>
<CheckBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="SI" fieldId="18" gridHeight="1" gridWidth="19" name="chexistencia" posX="88" posY="1" sqlTabName="" tabIndex="18" table_alias_name="" text="Incluye Existencia" title="CheckBox1" valueChecked="SI" valueUnchecked="NO" widget="CheckBox"/>
<CheckBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="NO" fieldId="19" gridHeight="1" gridWidth="32" name="chordenes" posX="88" posY="2" sqlTabName="" tabIndex="19" table_alias_name="" text="Incluye Cantidades Ordenes PEdidos" title="CheckBox2" valueChecked="SI" valueUnchecked="NO" widget="CheckBox"/>
<ProgressBar aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="23" gridHeight="1" gridWidth="20" name="progreso" posX="91" posY="3" sqlTabName="" table_alias_name="" title="ProgressBar1" widget="ProgressBar"/>
<Button gridHeight="1" gridWidth="10" name="foto" posX="132" posY="3" tabIndex="25" text="Fotos"/>
<Button gridHeight="1" gridWidth="10" name="bexistencia" posX="143" posY="3" tabIndex="24" text="Almacenes"/>
<Button gridHeight="1" gridWidth="10" name="reservado" posX="158" posY="3" tabIndex="23" text="Reservados"/>
<Button gridHeight="1" gridWidth="10" name="ordendisponible" posX="172" posY="3" tabIndex="29" text="Ordenes"/>
<Button gridHeight="1" gridWidth="10" image="lingua.png" name="btransito" posX="186" posY="3" tabIndex="28" text="Fecha Llegada"/>
<Group gridHeight="10" gridWidth="253" name="Group2" posX="1" posY="5">
<Table gridHeight="7" gridWidth="251" name="Table1" posX="1" posY="1" style="detalle" totalRows="6" unitWidth="characters" width="139">
<FFImage aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="24" gridHeight="1" gridWidth="8" name="estado" posX="0" posY="0" sqlTabName="" table_alias_name="" widget="FFImage"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n1" fieldId="7" gridHeight="1" gridWidth="12" name="cod_n1" posX="8" posY="0" sqlTabName="formonly" tabIndex="8" table_alias_name="" title="PRODUCTO" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_grupo1" fieldId="8" gridHeight="1" gridWidth="12" name="cod_grupo1" posX="20" posY="0" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_tipo1" fieldId="9" gridHeight="1" gridWidth="12" name="cod_tipo1" posX="32" posY="0" sqlTabName="formonly" tabIndex="10" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_sec1" fieldId="10" gridHeight="1" gridWidth="12" name="cod_sec1" posX="44" posY="0" sqlTabName="formonly" tabIndex="11" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp1" fieldId="13" gridHeight="1" gridWidth="54" name="descrip_esp1" posX="56" posY="0" scroll="true" sqlTabName="formonly" tabIndex="12" table_alias_name="" title="DESCRIPCION" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" fieldId="14" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.unidad_med" posX="110" posY="0" sqlTabName="intb00001" sqlType="CHAR" tabIndex="13" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="existencia" fieldId="11" format="(((,(((,((&amp;.##)" gridHeight="1" gridWidth="20" name="existencia" posX="115" posY="0" sqlTabName="formonly" sqlType="FLOAT" tabIndex="14" table_alias_name="" title="EXISTENCIA" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cantidad_ordenes" fieldId="12" format="(((,(((,(&amp;&amp;.##)" gridHeight="1" gridWidth="16" name="cantidad_ordenes" posX="135" posY="0" sqlTabName="formonly" sqlType="FLOAT" tabIndex="15" table_alias_name="" title="CANTIDAD ORDEN" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="20" format="(((,(((,(&amp;&amp;.##)" gridHeight="1" gridWidth="16" name="pventas" posX="151" posY="0" sqlTabName="" sqlType="FLOAT" tabIndex="20" table_alias_name="" title="Disponible" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="ventas" fieldId="16" gridHeight="1" gridWidth="20" name="ventas" posX="167" posY="0" scroll="true" sqlTabName="formonly" tabIndex="16" table_alias_name="" title="TIPO VENTAS" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="precio" fieldId="17" gridHeight="1" gridWidth="15" name="precio" posX="187" posY="0" sqlTabName="formonly" tabIndex="17" table_alias_name="" title="PRECIO" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="21" gridHeight="1" gridWidth="8" name="reservado" posX="202" posY="0" sqlTabName="" tabIndex="21" table_alias_name="" title="Reservado" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="22" gridHeight="1" gridWidth="8" name="Transito" posX="210" posY="0" sqlTabName="" tabIndex="22" table_alias_name="" title="transito" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="25" gridHeight="1" gridWidth="8" name="fecha_llegada" posX="218" posY="0" sqlTabName="" tabIndex="26" table_alias_name="" title="Fecha recibida" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="26" gridHeight="1" gridWidth="8" name="fecha_ordenada" posX="226" posY="0" sqlTabName="" tabIndex="27" table_alias_name="" title="Fecha Ordenada" widget="Edit"/>
</Table>
</Group>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA4ADQAMQBiAGEAZQA0ADkALQAyAGUAYgAyAC0ANABjAGEAMgAtADkAOQA0ADAALQBhAGEANQBhADEAZAA2ADIAMQA4ADQAMwB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewA0ADYAMQA2ADEAOQAxAGIALQA3AGIANwBmAC0ANAA5ADgAMwAtADgAMgBkAGIALQAyADMAMgBjADEAMQBiAGEAOQA5ADAAZgB9QCQAAEEAAGFAJAAAQQAAYQAAAAAAAAAAAQAAAEwAewBjADUAYQA0AGYAZQAwADAALQBkAGIAZgA3AC0ANABmAGIAMgAtADkANwA4ADgALQAwADMAOAAwADUANgBjADcAYgA1ADkANgB9QDQAAEEAAGFANAAAQQAAYQAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+63
View File
@@ -0,0 +1,63 @@
{
===============================================================================
FORMULARIO : IPFMCS004
OBJETIVO : CAPTURAR CODIGOS DE PRODUCTOS PARA BUSCAR
SU EXISTENCIA.
DISENO : JUAN F. SOTO
FECHA : AGOSTO 1997
ASESOR : JOSE ALFREDO PAULINO
===============================================================================
}
SCHEMA decomarmol
LAYOUT (TEXT="CONSULTA EXISTENCIAS",STYLE="basic")
GRID
{
<G >
Fecha [fe ] INVENTARIO [inv ]
Lista Precios[list ]
Productos [a ]-[b ]-[c ]-[d ] [a1 ]
<g >
<t >
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
}
end
END
tables
iptb00002,intb00001
ATTRIBUTES
COMBOBOX list = formonly.cod_lista,ITEMS=(("1","GENERAL"),("2","PRECIOS FERIA")),default=1;
COMBOBOX inv = formonly.inventario,INCLUDE=("MATERIA PRIMA","PRODUCTOS TERMINADOS");
a = iptb00002.cod_n,
comments = "Digite el nivel del Productos";
b = iptb00002.cod_grupo,autonext,
comments = "Digite el grupo del Productos";
c = iptb00002.cod_tipo,autonext,
comments = "Digite el tipo del Productos";
d = iptb00002.cod_sec,autonext,
comments = "Digite la secuencia del Productos";
a1 = formonly.descrip_esp,scroll;
e = formonly.cod_n1,TITLE="PRODUCTO";
f = formonly.cod_grupo1;
g = formonly.cod_tipo1;
h = formonly.cod_sec1;
f008 = formonly.existencia,TITLE="EXISTENCIA";
f009 = formonly.cantidad_ordenes,TITLE="CANTIDAD ORDEN";
k = formonly.descrip_esp1,TITLE="DESCRIPCION",scroll;
l = intb00001.unidad_med;
DATEEDIT fe = formonly.fech_fi type date,format = "dd/mm/yyyy";
P1 = formonly.ventas,TITLE="TIPO VENTAS",scroll;
p2 = formonly.precio,TITLE="PRECIO";
instructions
delimiters " "
screen record consart[7] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
unidad_med,existencia,cantidad_ordenes,ventas,precio)
end
+73
View File
@@ -0,0 +1,73 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="decomarmol" fileVersion="31400" gstVersion="31409" name="ManagedForm" uid="{39e294a0-a719-49ab-aff8-ad5cbe57a377}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="consart" order="" uid="{ee32761f-cd1b-47fa-9cc7-36ef49aae216}" where="">
<RecordField colName="" fieldIdRef="20" name="estado" sqlTabName="" table_alias_name="" uid="{3728a341-d6bc-462a-b137-bf69c48dd55b}"/>
<RecordField colName="cod_n1" fieldIdRef="6" name="cod_n1" sqlTabName="formonly" table_alias_name="" uid="{d6ab163a-398e-498d-a0e1-6ea750a3e218}"/>
<RecordField colName="cod_grupo1" fieldIdRef="7" name="cod_grupo1" sqlTabName="formonly" table_alias_name="" uid="{865bf10a-8dc6-4482-a768-70efc74eca4a}"/>
<RecordField colName="cod_tipo1" fieldIdRef="8" name="cod_tipo1" sqlTabName="formonly" table_alias_name="" uid="{6050e8e1-a893-4eab-a0b9-168b1807e787}"/>
<RecordField colName="cod_sec1" fieldIdRef="9" name="cod_sec1" sqlTabName="formonly" table_alias_name="" uid="{a0465479-26ba-45c7-940a-7b6579c4d40f}"/>
<RecordField colName="descrip_esp1" fieldIdRef="11" name="descrip_esp1" sqlTabName="formonly" table_alias_name="" uid="{a667c237-9b8e-4fed-8509-ecb68960e1db}"/>
<RecordField colName="unidad_med" fieldIdRef="12" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" sqlType="CHAR" table_alias_name="" uid="{e05d3986-979f-4bec-9db9-ddc0fced49ff}"/>
<RecordField colName="" fieldIdRef="16" name="bodega1" sqlTabName="" table_alias_name="" uid="{6f1dfefb-5faf-4250-bf3a-ade77d982b79}"/>
<RecordField colName="existencia" fieldIdRef="10" name="existencia" sqlTabName="formonly" table_alias_name="" uid="{a6513ed0-0316-4e56-86ce-b52e6c9a913e}"/>
<RecordField colName="" fieldIdRef="15" name="cantidad_orden" sqlTabName="" table_alias_name="" uid="{e0703236-0d3f-49f8-8457-822899f5ea61}"/>
<RecordField colName="" fieldIdRef="17" name="disponible" sqlTabName="" table_alias_name="" uid="{df7259f7-f7c2-4fb3-b582-8a78e7eb8abb}"/>
<RecordField colName="" fieldIdRef="18" name="reservado" sqlTabName="" table_alias_name="" uid="{066bddd4-e890-45de-bf73-1a1f5f3056ee}"/>
<RecordField colName="" fieldIdRef="19" name="transito" sqlTabName="" table_alias_name="" uid="{90733f33-6f99-4840-8af6-9d9fd9f56919}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{844808d8-86eb-4898-8ca8-24d47d0a4165}" where="">
<RecordField colName="fech_fi" fieldIdRef="13" name="fech_fi" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{c65ad654-205a-4aed-af0c-f6261d925757}"/>
<RecordField colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldIdRef="0" name="inventario" sqlTabName="formonly" table_alias_name="" uid="{c27b1cfa-ffa7-4093-831c-8e9cd78b2b6c}"/>
<RecordField colName="cod_n" fieldIdRef="1" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{f3e4b894-d3d3-4417-87c1-7d7de6575db0}"/>
<RecordField colName="cod_grupo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{399eaa79-3dd9-4c02-b8db-8592200882b0}"/>
<RecordField colName="cod_tipo" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{822b14dc-87d3-4447-b1a0-83749c7b014b}"/>
<RecordField colName="cod_sec" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{5a301b46-d3cf-47a4-8634-bb58da4e0b58}"/>
<RecordField colName="descrip_esp" fieldIdRef="5" name="descrip_esp" sqlTabName="formonly" table_alias_name="" uid="{229438bd-7691-4450-b565-e0100e3600eb}"/>
<RecordField colName="" fieldIdRef="14" name="bodega" sqlTabName="" table_alias_name="" uid="{45aa8009-57a0-4155-bc46-7e0469dcb37c}"/>
</Record>
<Form gridHeight="21" gridWidth="170" name="ipfmcs004" style="basic" text="CONSULTA EXISTENCIAS">
<Grid gridHeight="20" gridWidth="170" name="Grid1" posX="0" posY="0">
<Group gridHeight="6" gridWidth="107" name="Group1" posX="1" posY="1">
<Label posX="1" posY="1" text="Fecha"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_fi" fieldId="13" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="12" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" table_alias_name="" widget="DateEdit"/>
<Label posX="28" posY="1" text="INVENTARIO"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldId="0" gridHeight="1" gridWidth="33" include="MATERIA PRIMA|PRODUCTOS TERMINADOS" items="MATERIA PRIMA, PRODUCTOS TERMINADOS" name="inventario" posX="40" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="ComboBox">
<Item name="MATERIA PRIMA" text="MATERIA PRIMA"/>
<Item name="PRODUCTOS TERMINADOS" text="PRODUCTOS TERMINADOS"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="Label1" posX="28" posY="2" text="Bodega"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="14" gridHeight="1" gridWidth="33" items="" name="bodega" posX="40" posY="2" sqlTabName="" tabIndex="16" table_alias_name="" title="ComboBox1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="9" name="Label2" posX="1" posY="4" text="Productos"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n" comment="Digite el nivel del Productos" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="11" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el grupo del Productos" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="18" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el tipo del Productos" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="26" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite la secuencia del Productos" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="33" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp" fieldId="5" gridHeight="1" gridWidth="33" name="descrip_esp" posX="40" posY="4" scroll="true" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="Edit"/>
<Button gridHeight="1" gridWidth="10" image="" name="foto" posX="82" posY="4" tabIndex="21" text="Foto"/>
</Group>
<Group gridHeight="11" gridWidth="169" name="Group2" posX="1" posY="8">
<Table gridHeight="9" gridWidth="167" name="Table1" posX="1" posY="1" style="detalle" totalRows="8" unitWidth="characters" width="100">
<FFImage aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="20" gridHeight="1" gridWidth="8" name="estado" posX="0" posY="0" sqlTabName="" table_alias_name="" widget="FFImage"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n1" fieldId="6" gridHeight="1" gridWidth="8" name="cod_n1" posX="8" posY="0" scroll="true" sqlTabName="formonly" tabIndex="8" table_alias_name="" title="PRODUCTO" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_grupo1" fieldId="7" gridHeight="1" gridWidth="8" name="cod_grupo1" posX="16" posY="0" scroll="true" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_tipo1" fieldId="8" gridHeight="1" gridWidth="8" name="cod_tipo1" posX="24" posY="0" scroll="true" sqlTabName="formonly" tabIndex="10" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_sec1" fieldId="9" gridHeight="1" gridWidth="8" name="cod_sec1" picture="fileopen" posX="32" posY="0" scroll="true" sqlTabName="formonly" tabIndex="11" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp1" fieldId="11" gridHeight="1" gridWidth="54" name="descrip_esp1" posX="40" posY="0" sqlTabName="formonly" tabIndex="12" table_alias_name="" title="DESCRIPCION" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00001.unidad_med" posX="94" posY="0" sqlTabName="intb00001" sqlType="CHAR" tabIndex="13" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="16" gridHeight="1" gridWidth="8" name="bodega1" posX="100" posY="0" sqlTabName="" tabIndex="15" table_alias_name="" title="BODEGA" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="existencia" fieldId="10" gridHeight="1" gridWidth="13" name="existencia" posX="108" posY="0" sqlTabName="formonly" tabIndex="14" table_alias_name="" title="EXISTENCIA" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="15" gridHeight="1" gridWidth="8" name="cantidad_orden" posX="121" posY="0" sqlTabName="" tabIndex="17" table_alias_name="" title="CANTIDAD ORDEN" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="8" name="disponible" posX="129" posY="0" sqlTabName="" tabIndex="18" table_alias_name="" title="DISPONIBLE" widget="Edit"/>
<ButtonEdit action="reservas" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="8" name="reservado" posX="137" posY="0" sqlTabName="" tabIndex="19" table_alias_name="" title="RESERVADO" widget="ButtonEdit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="19" gridHeight="1" gridWidth="8" name="transito" posX="145" posY="0" sqlTabName="" tabIndex="20" table_alias_name="" title="TRANSITO" widget="Edit"/>
</Table>
</Group>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewBlAGUAMwAyADcANgAxAGYALQBjAGQAMQBiAC0ANAA3AGYAYQAtADkAYwBjADcALQAzADYAZQBmADQAOQBhAGEAZQAyADEANgB9wG/gAD/AADjAUgAAJAAAID9gYk3S8an8AQAAAEwAewA4ADQANAA4ADAAOABkADgALQA4ADYAZQBiAC0ANAA4ADkAOAAtADgAYwBhADgALQAyADQAZAA0ADcAZAAwAGEANAAxADYANQB9QCQAACgAACJAJAAAKAAAIgAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+18
View File
@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm fileVersion="23200" gstVersion="2320f" name="ManagedForm" uid="{cb965181-93ba-43e6-955c-211bc5a93c07}">
<AGSettings/>
<Form gridHeight="34" gridWidth="99" name="Form" text="Form">
<VBox gridHeight="9" gridWidth="94" name="VBox1" posX="1" posY="1">
<Group gridHeight="7" gridWidth="94" name="Group1" posX="0" posY="1" text="Group1"/>
</VBox>
<VBox gridHeight="10" gridWidth="94" name="VBox2" posX="1" posY="11">
<Group gridHeight="8" gridWidth="94" name="Group2" posX="0" posY="1" text="Group2"/>
</VBox>
<VBox gridHeight="11" gridWidth="94" name="VBox3" posX="1" posY="22">
<Group gridHeight="9" gridWidth="94" name="Group3" posX="0" posY="1" text="Group3"/>
</VBox>
</Form>
<DiagramLayout>
<![CDATA[AAAAAg==]]>
</DiagramLayout>
</ManagedForm>
+73
View File
@@ -0,0 +1,73 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="decomarmol" fileVersion="31400" gstVersion="31409" name="ManagedForm" uid="{ba006795-dd56-4183-a465-0364314c1ce5}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="s_csmov" order="" uid="{425e8f13-2de6-4c39-9aee-b0d5a66b34fa}" where="">
<RecordField colName="num_doc" fieldIdRef="11" fieldType="TABLE_COLUMN" name="iptb00006.num_doc" sqlTabName="iptb00006" sqlType="INTEGER" table_alias_name="" uid="{02980e0d-42b2-4f17-a829-6650d62f3894}"/>
<RecordField colName="" fieldIdRef="17" name="num_oc" sqlTabName="" table_alias_name="" uid="{b0946f90-5eae-4a7e-9b18-645705ad0e1a}"/>
<RecordField colName="" fieldIdRef="18" name="num_compra" sqlTabName="" table_alias_name="" uid="{4941326c-86ad-4edf-be05-bca830964173}"/>
<RecordField colName="fecha" fieldIdRef="12" name="fecha" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{cd9654bf-f6cc-4ab9-8263-9dd218667837}"/>
<RecordField colName="entrada" fieldIdRef="13" name="entrada" sqlTabName="formonly" table_alias_name="" uid="{f9da4f87-8df6-4ace-9436-6031aa56db45}"/>
<RecordField colName="salida" fieldIdRef="14" name="salida" sqlTabName="formonly" table_alias_name="" uid="{b8772790-632b-4e51-b643-7d96308b8975}"/>
<RecordField colName="" fieldIdRef="8" name="bodega1" sqlTabName="" table_alias_name="" uid="{38abb214-f1ae-4797-84a7-7ba8d6fcaabd}"/>
<RecordField colName="balance" fieldIdRef="15" name="balance" sqlTabName="formonly" table_alias_name="" uid="{4db00920-7c27-4b98-9dcf-5011062700c8}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{4501acd0-a6de-43e5-a105-fa19f89923ad}" where="">
<RecordField colName="cod_n" fieldIdRef="2" name="cod_n" sqlTabName="formonly" sqlType="SMALLINT" table_alias_name="" uid="{92cf89df-2aed-4c95-9802-a8e1587273c1}"/>
<RecordField colName="cod_grupo" fieldIdRef="3" name="cod_grupo" sqlTabName="formonly" table_alias_name="" uid="{d1bfbdb1-871f-4c9b-b03f-fa02e9f49de3}"/>
<RecordField colName="cod_tipo" fieldIdRef="4" name="cod_tipo" sqlTabName="formonly" table_alias_name="" uid="{0278b961-5f1e-40df-b083-ce5cedc44185}"/>
<RecordField colName="cod_sec" fieldIdRef="5" name="cod_sec" sqlTabName="formonly" table_alias_name="" uid="{066c9e4e-d224-41e7-8231-96710498ee5d}"/>
<RecordField colName="descripcion" fieldIdRef="6" name="descripcion" sqlTabName="formonly" table_alias_name="" uid="{e06ab124-f4e5-400c-8194-3f7034f6ce66}"/>
<RecordField colName="unidad_med" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" sqlType="CHAR" table_alias_name="" uid="{934d0fe5-6d29-490a-8204-d2888610ef7f}"/>
<RecordField colName="historico" defaultValue="N" fieldIdRef="1" name="historico" sqlTabName="formonly" table_alias_name="" uid="{3f122b99-8c0b-46b4-b924-75c000131c36}"/>
<RecordField colName="fech_in" fieldIdRef="9" name="fech_in" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{6ece9bfc-b40e-4de6-8022-f1d5d9020c98}"/>
<RecordField colName="fech_fi" fieldIdRef="10" name="fech_fi" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{f1e92c40-5f7c-4ee3-aec3-2f3f7c573b1e}"/>
<RecordField colName="balance_ini" fieldIdRef="0" name="balance_ini" sqlTabName="formonly" table_alias_name="" uid="{2f0e9086-be7b-4938-8618-79ecc2215e40}"/>
<RecordField colName="cod_sec" fieldIdRef="16" name="bodega" sqlTabName="formonly" table_alias_name="" uid="{6a7182e6-eaed-4a89-970f-aee977ddc636}"/>
</Record>
<Form gridHeight="20" gridWidth="104" name="ipfmcs006" text="CONSULTA TRANSACCIONES">
<Grid gridHeight="19" gridWidth="104" name="Grid1" posX="0" posY="0">
<Group gridHeight="6" gridWidth="93" name="Group1" posX="1" posY="1">
<Label gridHeight="1" gridWidth="10" name="Label1" posX="1" posY="1" text="Producto :"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_n" fieldId="2" gridHeight="1" gridWidth="3" name="cod_n" posX="12" posY="1" sqlTabName="formonly" sqlType="SMALLINT" tabIndex="1" table_alias_name="" widget="Edit"/>
<Label posX="16" posY="1" text="-"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" fieldId="3" gridHeight="1" gridWidth="4" name="cod_grupo" posX="18" posY="1" required="true" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="Edit"/>
<Label posX="23" posY="1" text="-"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" fieldId="4" gridHeight="1" gridWidth="5" name="cod_tipo" posX="25" posY="1" required="true" sqlTabName="formonly" tabIndex="3" table_alias_name="" widget="Edit"/>
<Label posX="31" posY="1" text="-"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" fieldId="5" gridHeight="1" gridWidth="5" name="cod_sec" posX="33" posY="1" required="true" sqlTabName="formonly" tabIndex="4" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descripcion" fieldId="6" gridHeight="1" gridWidth="39" name="descripcion" noEntry="true" posX="41" posY="1" sqlTabName="formonly" tabIndex="5" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="83" posY="1" sqlTabName="intb00001" sqlType="CHAR" tabIndex="6" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="9" name="Label6" posX="52" posY="2" text="HISTORICO"/>
<RadioGroup aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="historico" defaultValue="N" fieldId="1" gridHeight="1" gridWidth="23" items="HISTORICO, ACTUAL" name="historico" posX="63" posY="2" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="RadioGroup">
<Item name="S" text="HISTORICO"/>
<Item name="N" text="ACTUAL"/>
</RadioGroup>
<Label gridHeight="1" gridWidth="14" name="Label3" posX="1" posY="3" text="Fecha Inicial:"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_in" fieldId="9" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_in" posX="16" posY="3" sqlTabName="formonly" sqlType="DATE" tabIndex="8" table_alias_name="" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="12" name="Label4" posX="28" posY="3" text="Fecha Final:"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_fi" fieldId="10" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="41" posY="3" sqlTabName="formonly" sqlType="DATE" tabIndex="9" table_alias_name="" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="16" name="Label5" posX="52" posY="3" text="BALANCE INICIAL:"/>
<FFLabel aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="balance_ini" fieldId="0" gridHeight="1" gridWidth="17" name="balance_ini" posX="69" posY="3" sqlTabName="formonly" table_alias_name="" widget="FFLabel"/>
<Label gridHeight="1" gridWidth="14" name="Label2" posX="1" posY="4" text="BODEGA:"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_sec" fieldId="16" gridHeight="1" gridWidth="24" items="" name="bodega" posX="16" posY="4" required="true" sqlTabName="formonly" tabIndex="17" table_alias_name="" widget="ComboBox"/>
</Group>
<Group gridHeight="11" gridWidth="101" name="Group2" posX="3" posY="8">
<Table gridHeight="9" gridWidth="99" name="Table1" posX="1" posY="1" totalRows="8" unitWidth="characters" width="79">
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="num_doc" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="iptb00006.num_doc" notNull="true" posX="0" posY="0" required="true" sqlTabName="iptb00006" sqlType="INTEGER" tabIndex="12" table_alias_name="" title="Documento" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="8" name="num_oc" posX="11" posY="0" sqlTabName="" tabIndex="18" table_alias_name="" title="Orden P" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="8" name="num_compra" posX="19" posY="0" sqlTabName="" tabIndex="19" table_alias_name="" title="Orden C" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fecha" fieldId="12" format="dd/mm/yy" gridHeight="1" gridWidth="8" name="fecha" posX="27" posY="0" sqlTabName="formonly" sqlType="DATE" tabIndex="11" table_alias_name="" title="FECHA" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="entrada" fieldId="13" gridHeight="1" gridWidth="14" name="entrada" posX="35" posY="0" sqlTabName="formonly" tabIndex="13" table_alias_name="" title="ENTRADAS" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="salida" fieldId="14" gridHeight="1" gridWidth="14" name="salida" posX="49" posY="0" sqlTabName="formonly" tabIndex="14" table_alias_name="" title="SALIDAS" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="8" gridHeight="1" gridWidth="12" name="bodega1" posX="63" posY="0" sqlTabName="" tabIndex="16" table_alias_name="" title="BODEGA" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="balance" fieldId="15" gridHeight="1" gridWidth="15" name="balance" posX="75" posY="0" sqlTabName="formonly" tabIndex="15" table_alias_name="" title="BALANCE" widget="Edit"/>
</Table>
</Group>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA0ADIANQBlADgAZgAxADMALQAyAGQAZQA2AC0ANABjADMAOQAtADkAYQBlAGUALQBiADAAZAA1AGEANgA2AGIAMwA0AGYAYQB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewA0ADUAMAAxAGEAYwBkADAALQBhADYAZABlAC0ANAAzAGUANQAtAGEAMQAwADUALQBmAGEAMQA5AGYAOAA5ADkAMgAzAGEAZAB9QCQAAAoAAAFAJAAACgAAAQAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+48
View File
@@ -0,0 +1,48 @@
schema decomarmol
LAYOUT (TEXT="CONSULTA TRANSACCIONES")
GRID
{
<G >
Producto :[a ]-[b ]-[c ]-[d ] [a1 ] [a2 ]
Bodega: [h ] HISTORICO [hh ]
Fecha Inicial:[f1 ] Fecha Final:[f2 ]BALANCE INICIAL:[bini ]
<G >
<t >
[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 ]
}
END
tables
intb00001,
iptb00002,
iptb00006
ATTRIBUTES
LABEL bini = formonly.balance_ini;
RADIOGROUP hh=formonly.historico,ITEMS=(("S","HISTORICO"),("N","ACTUAL")),default='N';
a = formonly.cod_n type smallint,autonext;
b = formonly.cod_grupo,autonext,required;
c = formonly.cod_tipo,autonext,required;
d = formonly.cod_sec,autonext,required;
a1 = formonly.descripcion,noentry;
a2 = intb00001.unidad_med,noentry;
h = iptb00006.bodega,autonext;
f1 = formonly.fech_in type date,format = "dd/mm/yyyy";
f2 = formonly.fech_fi type date,format = "dd/mm/yyyy";
d1 = iptb00006.num_doc;
d2 = formonly.fecha type date,format = "dd/mm/yy",TITLE="FECHA";
d4 = formonly.entrada,TITLE="ENTRADAS";
d5 = formonly.salida,TITLE="SALIDAS";
d6 = formonly.balance,TITLE="BALANCE";
instructions
screen record s_csmov[8] (num_doc,fecha,entrada,salida,balance)
delimiters " "
end
+122
View File
@@ -0,0 +1,122 @@
0.993
17^80^
PERIODO BASE DESDE AL
<Esc> Continua Consultando <Delete> Cancela Operacion

VENTAS D I A S DIAS INV.
PROD. TERMINADO DEL PERIODO EXISTENCIA INVENTARIO LLEGADA C/ORDEN

- - -

 O R D E N E S P E N D I E N T E S 
ORDEN CANT. ORDENADA CANT. RECIBIDA BALANCE ENTREGA

screenFields 19
f3^3^0^35^8^1^0^0^1^2^-32768^0^7^^Utilice el formato 'DDMMAA' o <Esc> Para Todas^^^dd/mm/yy^^Entry^^^0^^
35^0^8
f4^4^0^49^8^1^0^0^1^2^-32768^0^7^^Utilice el formato 'DDMMAA' o <Esc> Para Todas^^^dd/mm/yy^^Entry^^^0^^
49^0^8
a^1^6^1^2^1^0^0^1^1058^-32768^0^1^^Digite el NIVEL o <Esc> Para Todos^^^^^Entry^^^0^^
1^6^2
b^2^6^6^2^1^0^0^1^1058^-32768^0^1^^Digite el GRUPO o <Esc> Para Todos^^^^^Entry^^^0^^
6^6^2
c^3^6^11^3^1^0^0^1^1058^-32768^0^1^^Digite el TIPO o <Esc> Para Todos^^^^^Entry^^^0^^
11^6^3
d^4^6^17^3^1^0^0^1^1058^-32768^0^1^^Digite la SECUENCIA o <Esc> Para Todos^^^^^Entry^^^0^^
17^6^3
f5^5^6^22^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
22^6^14
f7^6^6^38^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
38^6^14
f8^7^6^54^4^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
54^6^4
f9^9^6^66^3^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
66^6^3
f20^8^6^74^5^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
74^6^5
f1^1^7^1^31^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
1^7^31
f2^2^7^34^3^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
34^7^3
f10^10^12^2^7^4^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
2^12^7
2^13^7
2^14^7
2^15^7
f11^11^12^12^13^4^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
12^12^13
12^13^13
12^14^13
12^15^13
f14^14^12^27^16^4^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
27^12^16
27^13^16
27^14^16
27^15^16
f12^12^12^46^15^4^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
46^12^15
46^13^15
46^14^15
46^15^15
f13^13^12^65^8^4^1^0^1^1^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
65^12^8
65^13^8
65^14^8
65^15^8
f15^15^16^46^15^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
46^16^15
formFields 19
cod_n^a
cod_grupo^b
cod_tipo^c
cod_sec^d
descrip_esp^f1
unidad_med^f2
fech_in^f3
fech_fi^f4
consumo1^f5
existe1^f7
dias2^f8
dias_orden^f20
dia_llegada^f9
num_oc^f10
ordenada^f11
cantidad^f12
fecha_llegada^f13
recibida^f14
remanente^f15
screenRecords 3
intb00001^4^0^1^1^0^0^0^0
cod_n^a
cod_grupo^b
cod_tipo^c
cod_sec^d
formonly^15^0^1^-1^0^0^0^0
descrip_esp^f1
unidad_med^f2
fech_in^f3
fech_fi^f4
consumo1^f5
existe1^f7
dias2^f8
dias_orden^f20
dia_llegada^f9
num_oc^f10
ordenada^f11
cantidad^f12
fecha_llegada^f13
recibida^f14
remanente^f15
sp1^5^1^0^4^2^12^72^4
num_oc^f10
ordenada^f11
recibida^f14
cantidad^f12
fecha_llegada^f13
keyLabels 0
+55
View File
@@ -0,0 +1,55 @@
database marmotech
screen size 24 by 80
{
PERIODO BASE DESDE [f3 ] AL [f4 ]
<Esc> Continua Consultando <Delete> Cancela Operacion
\g----------------------------------------------------------------------------\g
VENTAS D I A S DIAS INV.
PROD. TERMINADO DEL PERIODO EXISTENCIA INVENTARIO 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
+21
View File
@@ -0,0 +1,21 @@
0.993
2^46^[]
Periodo Base : Desde Al
Numeros de Dias
screenFields 3
f3^1^0^23^8^1^0^0^1^2^-32768^0^7^^Utilice el formato 'DDMMAA' o <Esc> Para Todas^^^dd/mm/yy^^Entry^^^0^^
23^0^8
f4^2^0^37^8^1^0^0^1^2^-32768^0^7^^Utilice el formato 'DDMMAA' o <Esc> Para Todas^^^dd/mm/yy^^Entry^^^0^^
37^0^8
k1^3^1^18^4^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
18^1^4
formFields 3
fech_in^f3
fech_fi^f4
dias1^k1
screenRecords 1
formonly^3^0^1^1^0^0^0^0
fech_in^f3
fech_fi^f4
dias1^k1
keyLabels 0
+17
View File
@@ -0,0 +1,17 @@
database marmotech
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
+71
View File
@@ -0,0 +1,71 @@
database decomarmol
screen size 24 by 80
{
\gp---------------------------------------------------------------------------q\g
\g|\gDocumento Numero [f000 ] Compania [r][c4 ] \g|\g
\g|\gCodigo Movimiento [m ] [m1 ] \g|\g
\g|\gFactura [fact ] Transportista [tr][tr1 ][des ] \g|\g
\g|\gTarifa [t ][t1 ] Placa [pl ] \g|\g
\g|\gfecha[f001 ]Bodega :[p1 ]Orden de Corte [oc ] \g|\g
\g|\gDetalle [det ] \g|\g
\g|\gCliente:[cl]-[cl1 ][nom ] \g|\g
\gb---------------------------------------------------------------------------d\g
Cantidad Cantidad
Codigo Unidades Afectar Unidad D e s c r i p c i o n
\g-----------------------------------------------------------------------------\g
[a][b][c ][d ][f03 ][f02 ][p ][k ]
[a][b][c ][d ][f03 ][f02 ][p ][k ]
[a][b][c ][d ][f03 ][f02 ][p ][k ]
[a][b][c ][d ][f03 ][f02 ][p ][k ]
\g-----------------------------------------------------------------------------\g
}
end
tables
iptb00006,
intb00001,
cotb00001
attributes
oc = iptb00006.conduce_no,
comments = "Digite le numero de orden de Corte";
det = iptb00006.detalle;
cl = iptb00006.cod_sp,autonext;
cl1 = iptb00006.cod_sp_sec,autonext;
nom = formonly.descrip4,noentry;
pl = iptb00006.placa,autonext,comments =
"Digite placa del vehiculo que transporta la mercancia";
fact = formonly.fact_no,autonext,comments =
"Introducir Numero de Factura de Ventas";
tr = iptb00006.cod_transp,autonext,comments =
"Introduzca Codigo Transportista";
tr1 = iptb00006.sec_transp,autonext,comments =
"Introduzca Codigo Transportista";
des = formonly.descrip2,noentry;
t = iptb00006.cod_tarifa,comments =
"Introduzca Codigo Tarifa",autonext;
t1 = formonly.descrip1,noentry;
f000 = iptb00006.num_doc,noentry;
r = iptb00006.cod_cia,autonext,include = (1 to 2), comments =
"01 - MARMOTECH ";
c4 = formonly.nombre_cia,noentry;
f001 = iptb00006.fecha, format = "dd/mm/yy",autonext,
comments = "Digite Fecha Documento";
a = iptb00006.cod_n,autonext,
comments = "Digite el NIVEL";
b = iptb00006.cod_grupo,autonext,
comments = "Digite el GRUPO";
c = iptb00006.cod_tipo,autonext,
comments = "Digite el TIPO";
d = iptb00006.cod_sec,autonext,
comments = "Digite la SECUENCIA ";
f03 = iptb00006.cantidad_1,noentry;
f02 = iptb00006.cantidad_2,autonext;
k = intb00001.descrip_esp,noentry;
p = intb00001.unidad_med,noentry;
p1 = iptb00006.bodega,autonext;
m = iptb00006.cod_mov,autonext,autonext,
comments = "Digite codigo del movimiento";
m1 = formonly.descrip_mov, noentry;
INSTRUCTIONS
SCREEN RECORD s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
cantidad_2,unidad_med,descrip_esp)
end
+122
View File
@@ -0,0 +1,122 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="sistemas" fileVersion="31400" gstVersion="31405" name="ManagedForm" uid="{dc63e924-e13d-4255-bd24-3a4f92373538}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="RecordPrincipal" order="" uid="{df2479f6-b4da-4f81-a537-8ab1ddc27425}" where="">
<RecordField colName="" defaultValue="02" fieldIdRef="3" name="pinventario" sqlTabName="" table_alias_name="" uid="{63f80fb2-1cb8-478c-a310-576fcda6d631}"/>
<RecordField colName="" fieldIdRef="1" name="pcodn" sqlTabName="" table_alias_name="" uid="{a8991154-b763-4fe2-91e7-e6af9d15bfca}"/>
<RecordField colName="" fieldIdRef="2" name="pcodgrupo" sqlTabName="" table_alias_name="" uid="{d051b1f7-f8cc-402e-8d50-718a2d50d84f}"/>
<RecordField colName="" fieldIdRef="4" name="pcodtipo" sqlTabName="" table_alias_name="" uid="{a02bce85-5967-48f7-b582-3399ee02e011}"/>
<RecordField colName="" fieldIdRef="5" name="pcodsec" sqlTabName="" table_alias_name="" uid="{bf8dbf8b-5173-4431-879b-c8cea5d275a3}"/>
<RecordField colName="" fieldIdRef="6" name="pfecha_inicial" sqlTabName="" sqlType="DATE" table_alias_name="" uid="{44318a2f-f31f-4ec5-b60d-47704d229142}"/>
<RecordField colName="" fieldIdRef="7" name="pfecha_final" sqlTabName="" sqlType="DATE" table_alias_name="" uid="{cdf3db32-baf8-469b-a1e5-1d96a627fe74}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record1" order="" uid="{c61b14fc-1d3d-4d50-8d8a-049614bcdd17}" where="">
<RecordField colName="" fieldIdRef="9" name="proveedor" sqlTabName="" table_alias_name="" uid="{2561dfd3-eee6-4e44-9dd7-26f5207e9aaa}"/>
<RecordField colName="" fieldIdRef="18" name="pais" sqlTabName="" table_alias_name="" uid="{5b3f978f-4e97-4826-8230-d6e1059b1c2e}"/>
<RecordField colName="" fieldIdRef="10" name="num_oc" sqlTabName="" table_alias_name="" uid="{999d8772-2dbc-46e0-b1d0-4dd86e591869}"/>
<RecordField colName="" fieldIdRef="13" name="FechaOrden" sqlTabName="" table_alias_name="" uid="{fd422dd6-b5e8-4960-ad4b-308c67ac3aa4}"/>
<RecordField colName="" fieldIdRef="11" name="moneda" sqlTabName="" table_alias_name="" uid="{c946b982-c25e-434a-8f7f-6f936d87eab0}"/>
<RecordField colName="" fieldIdRef="14" name="precio" sqlTabName="" table_alias_name="" uid="{e3ee5c58-0347-4307-8ad6-d79c01cb441d}"/>
<RecordField colName="" fieldIdRef="12" name="unidad" sqlTabName="" table_alias_name="" uid="{ceebeff0-6ed6-4494-a9ba-d395a4d8954a}"/>
<RecordField colName="" fieldIdRef="15" name="cantidad" sqlTabName="" table_alias_name="" uid="{ec6f596c-b4ee-47f0-923c-b0802d523414}"/>
<RecordField colName="" fieldIdRef="16" name="descuento" sqlTabName="" table_alias_name="" uid="{4001036e-0ad3-4d50-bb62-a2b03b24b054}"/>
<RecordField colName="" fieldIdRef="17" name="totalItem" sqlTabName="" table_alias_name="" uid="{a80d7c7f-da14-4d92-9fd6-b6c9fcb9c45d}"/>
<RecordField colName="" fieldIdRef="19" name="costoLQ" sqlTabName="" table_alias_name="" uid="{dbb50559-2cab-4d75-896b-22aba2ffad6b}"/>
<RecordField colName="" fieldIdRef="20" name="costoSTD" sqlTabName="" table_alias_name="" uid="{aa4aaebf-930d-4764-8f99-b14cd53e599d}"/>
<RecordField colName="" fieldIdRef="29" name="factorLiquidacion" sqlTabName="" table_alias_name="" uid="{736dbab2-cdd2-481d-abd8-1420d191a336}"/>
<RecordField colName="" fieldIdRef="33" name="tasa" sqlTabName="" table_alias_name="" uid="{a3121ecb-6b2a-48b4-9d6d-87ec04bb2f25}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Inventarios" order="" uid="{a8988d9b-0a9c-4017-a1a7-60db93cf2497}" where="">
<RecordField colName="" fieldIdRef="26" name="consumo" sqlTabName="" table_alias_name="" uid="{1ebfb8bd-ebba-429c-b29c-c517547ce456}"/>
<RecordField colName="" fieldIdRef="22" name="diasInventario" sqlTabName="" table_alias_name="" uid="{4df39019-0512-4f17-a9ef-6938722b0ae1}"/>
<RecordField colName="" fieldIdRef="25" name="Existencia" sqlTabName="" table_alias_name="" uid="{8bdb599d-19a7-4d35-9e6b-49a2014a0c27}"/>
<RecordField colName="" fieldIdRef="24" name="salidas" sqlTabName="" table_alias_name="" uid="{0292f72b-388c-46c1-af44-fa22bf1b2730}"/>
<RecordField colName="" fieldIdRef="21" name="entradas" sqlTabName="" table_alias_name="" uid="{c7b2c038-43dd-4699-9d97-8798f472e6dc}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record2" order="" uid="{057cdfc2-bfb1-4511-b957-4f0901d15020}" where="">
<RecordField colName="" fieldIdRef="8" name="palmacen" sqlTabName="" table_alias_name="" uid="{34025a97-75af-4f6e-b335-c1910ffcf98a}"/>
<RecordField colName="" fieldIdRef="23" name="rank" sqlTabName="" table_alias_name="" uid="{5f216c95-6cd1-431f-8b3d-a03b0bcd94a1}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record3" order="" uid="{72bd3b32-3d1d-445f-89a6-2c1c618772ad}" where="">
<RecordField colName="" fieldIdRef="27" name="pmoneda" sqlTabName="" table_alias_name="" uid="{dfc1b394-4031-49b9-9784-d084ca9dca5f}"/>
<RecordField colName="" fieldIdRef="28" name="pprecio" sqlTabName="" table_alias_name="" uid="{b4cb1207-7e0f-4967-9ca7-11df8cc270f0}"/>
<RecordField colName="" fieldIdRef="30" name="pfactorPrecio" sqlTabName="" table_alias_name="" uid="{b0dd1316-cbb2-4949-b997-2ce00e8f4f64}"/>
<RecordField colName="" fieldIdRef="31" name="pcodlista" sqlTabName="" table_alias_name="" uid="{fd11243d-b5d8-468e-b191-3b29c4526110}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{16f1257b-01fb-4781-9593-673bdf80b365}" where="">
<RecordField colName="" fieldIdRef="32" name="descripcion" sqlTabName="" table_alias_name="" uid="{58926c7f-c57b-4705-a894-74ebf5a36725}"/>
</Record>
<Form gridHeight="81" gridWidth="149" name="ipfmcs042" text="HOJA VIDA PRODUCTO">
<VBox gridHeight="80" gridWidth="137" name="VBox1" posX="12" posY="1">
<Group gridHeight="17" gridWidth="137" name="GPrincipal" posX="0" posY="1" text="Parametros de Busqueda">
<Grid comment="Parametros Busqueda" gridHeight="10" gridWidth="118" name="Principal" posX="1" posY="1">
<Label gridHeight="1" gridWidth="10" justify="right" name="Label2" posX="4" posY="1" text="Inventario"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" comment="Tipo Inventario" defaultValue="02" fieldId="3" gridHeight="1" gridWidth="23" items="MATERIA PRIMA, PRODUCTOS TERMINADOS, REPUESTOS" name="pinventario" posX="15" posY="1" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="1" table_alias_name="" title="ComboBox1" widget="ComboBox">
<Item lstrtext="false" name="01" text="MATERIA PRIMA"/>
<Item lstrtext="true" name="02" text="PRODUCTOS TERMINADOS"/>
<Item lstrtext="false" name="03" text="REPUESTOS"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" justify="right" name="Label6" posX="44" posY="1" text="Rank"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="23" gridHeight="1" gridWidth="7" name="rank" posX="57" posY="1" sqlTabName="" tabIndex="25" table_alias_name="" title="Edit2" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" justify="right" name="Label1" posX="4" posY="4" text="PRODUCTO"/>
<ButtonEdit action="busca_producto" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="1" gridHeight="1" gridWidth="12" image="find" name="pcodn" posX="15" posY="4" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="2" table_alias_name="" title="ComboBox2" widget="ButtonEdit"/>
<ButtonEdit action="busca_producto" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="2" gridHeight="1" gridWidth="12" image="find" name="pcodgrupo" posX="29" posY="4" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="3" table_alias_name="" title="ComboBox2" widget="ButtonEdit"/>
<ButtonEdit action="busca_producto" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="4" gridHeight="1" gridWidth="12" image="find" name="pcodtipo" posX="43" posY="4" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="4" table_alias_name="" title="ComboBox2" widget="ButtonEdit"/>
<ButtonEdit action="busca_producto" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="5" gridHeight="1" gridWidth="12" image="find" name="pcodsec" posX="57" posY="4" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="5" table_alias_name="" title="ComboBox2" widget="ButtonEdit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="32" gridHeight="1" gridWidth="54" name="descripcion" posX="15" posY="5" sqlTabName="" tabIndex="32" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="9" justify="right" name="Label3" posX="5" posY="7" text="Fecha"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="6" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="pfecha_inicial" posX="15" posY="7" repeat="false" rowCount="3" sqlTabName="" sqlType="DATE" stepX="1" stepY="1" tabIndex="6" table_alias_name="" title="DateEdit1" widget="DateEdit"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="7" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="pfecha_final" posX="29" posY="7" repeat="false" rowCount="3" sqlTabName="" sqlType="DATE" stepX="1" stepY="1" tabIndex="7" table_alias_name="" title="DateEdit2" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="10" justify="right" name="Label4" posX="44" posY="7" text="Almacen"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="8" gridHeight="1" gridWidth="12" items="" name="palmacen" posX="57" posY="7" sqlTabName="" tabIndex="24" table_alias_name="" title="ComboBox6" widget="ComboBox"/>
</Grid>
</Group>
<Group gridChildrenInParent="false" gridHeight="24" gridWidth="137" name="Group1" posX="0" posY="18" text="Informacion Ordenes Compras">
<Table comment="Informacion Proveedores" gridHeight="6" gridWidth="135" name="arrproveedor" posX="1" posY="7" totalRows="5">
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="9" gridHeight="1" gridWidth="8" name="proveedor" posX="0" posY="0" sqlTabName="" tabIndex="8" table_alias_name="" title="Proveedor" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="8" name="pais" posX="8" posY="0" sqlTabName="" tabIndex="15" table_alias_name="" title="Pais" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="10" gridHeight="1" gridWidth="8" name="num_oc" posX="16" posY="0" sqlTabName="" tabIndex="9" table_alias_name="" title="Ordenes" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="13" gridHeight="1" gridWidth="9" name="FechaOrden" posX="24" posY="0" sqlTabName="" tabIndex="10" table_alias_name="" title="Fecha Orden" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="11" gridHeight="1" gridWidth="8" name="moneda" posX="33" posY="0" sqlTabName="" tabIndex="18" table_alias_name="" title="Moneda" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Si la orden es internacional es el FOB" fieldId="14" gridHeight="1" gridWidth="8" name="precio" posX="41" posY="0" sqlTabName="" tabIndex="11" table_alias_name="" title="Precio" unhidable="true" unmovable="true" unsortable="true" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="12" gridHeight="1" gridWidth="8" name="unidad" posX="49" posY="0" sqlTabName="" tabIndex="19" table_alias_name="" title="Medida" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="15" gridHeight="1" gridWidth="8" name="cantidad" posX="57" posY="0" sqlTabName="" tabIndex="12" table_alias_name="" title="Cantidad" unhidable="true" unmovable="true" unsortable="true" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="16" gridHeight="1" gridWidth="8" name="descuento" posX="65" posY="0" sqlTabName="" tabIndex="13" table_alias_name="" title="Descuento" unhidable="true" unmovable="true" unsortable="true" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="8" name="totalItem" posX="73" posY="0" sqlTabName="" tabIndex="14" table_alias_name="" title="Total" unhidable="true" unmovable="true" unsortable="true" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="19" gridHeight="1" gridWidth="11" name="costoLQ" posX="81" posY="0" sqlTabName="" tabIndex="16" table_alias_name="" title="Costo Liquidado" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="El costo Std se refiere al perido de la fecha de la orden de compras" fieldId="20" gridHeight="1" gridWidth="8" name="costoSTD" posX="92" posY="0" sqlTabName="" tabIndex="17" table_alias_name="" title="Costo STD" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="29" gridHeight="1" gridWidth="12" name="factorLiquidacion" posX="100" posY="0" sqlTabName="" tabIndex="29" table_alias_name="" title="Factor Liquidacion" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="33" gridHeight="1" gridWidth="8" name="tasa" posX="112" posY="0" sqlTabName="" tabIndex="33" table_alias_name="" title="Tasa" widget="Edit"/>
</Table>
</Group>
<Group gridHeight="19" gridWidth="137" name="Group3" posX="0" posY="42" text="Informacion Inventarios">
<Grid gridHeight="6" gridWidth="115" name="Group2" posX="2" posY="2">
<Label gridHeight="1" gridWidth="10" justify="right" name="lentradas" posX="2" posY="1" text="Entradas"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="21" gridHeight="1" gridWidth="10" name="entradas" posX="14" posY="1" sqlTabName="" tabIndex="20" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="14" justify="right" name="Label7" posX="38" posY="1" text="Existencia Al Periodo"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="25" gridHeight="1" gridWidth="10" name="Existencia" posX="53" posY="1" sqlTabName="" tabIndex="22" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="13" justify="right" name="LFecha" posX="38" posY="2" text=""/>
<Label gridHeight="1" gridWidth="10" justify="right" name="Label8" posX="2" posY="3" text="Salidas"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="24" gridHeight="1" gridWidth="10" name="salidas" posX="14" posY="3" sqlTabName="" tabIndex="21" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="14" justify="right" name="lconsumo" posX="38" posY="3" text="Consumo"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="26" gridHeight="1" gridWidth="10" name="consumo" posX="53" posY="3" sqlTabName="" tabIndex="26" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="14" justify="right" name="Label5" posX="38" posY="4" text="Dias Inventarios"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="22" gridHeight="1" gridWidth="10" name="diasInventario" posX="53" posY="4" sqlTabName="" tabIndex="23" table_alias_name="" title="Edit2" widget="Edit"/>
</Grid>
</Group>
<Group gridHeight="18" gridWidth="137" name="Group4" posX="0" posY="61" text="Informaciones Precios">
<Table gridHeight="6" gridWidth="50" name="arrPrecios" posX="1" posY="2" totalRows="5">
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="27" gridHeight="1" gridWidth="18" name="pmoneda" posX="0" posY="0" sqlTabName="" tabIndex="27" table_alias_name="" title="Moneda" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="28" gridHeight="1" gridWidth="9" name="pprecio" posX="18" posY="0" sqlTabName="" tabIndex="28" table_alias_name="" title="Precio" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="30" gridHeight="1" gridWidth="10" name="pfactorPrecio" posX="27" posY="0" sqlTabName="" tabIndex="30" table_alias_name="" title="Factor Precio" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="31" gridHeight="1" gridWidth="8" name="pcodlista" posX="37" posY="0" sqlTabName="" tabIndex="31" table_alias_name="" title="Tasa" widget="Edit"/>
</Table>
</Group>
</VBox>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA3ADIAYgBkADMAYgAzADIALQAzAGQAMQBkAC0ANAA0ADUAZgAtADgAOQBhADYALQAyAGMAMQBjADYAMQA4ADcANwAyAGEAZAB9wGXgAAV4AABAcSAABEgAAAAAAAAAAAAAAQAAAEwAewAwADUANwBjAGQAZgBjADIALQBiAGYAYgAxAC0ANAA1ADEAMQAtAGIAOQA1ADcALQA0AGYAMAA5ADAAMQBkADEANQAwADIAMAB9wGcgAAXIAABAcIAABCAAAAAAAAAAAAAAAQAAAEwAewBkAGYAMgA0ADcAOQBmADYALQBiADQAZABhAC0ANABmADgAMQAtAGEANQAzADcALQA4AGEAYgAxAGQAZABjADIANwA0ADIANQB9QD4AAAeAAABAPgAAB4AAAD+AYk3S8an8AQAAAEwAewAxADYAZgAxADIANQA3AGIALQAwADEAZgBiAC0ANAA3ADgAMQAtADkANQA5ADMALQA2ADcAMwBiAGQAZgA4ADAAYgAzADYANQB9QE4AAAeAAABATgAAB4AAAAAAAAAAAAAAAQAAAEwAewBhADgAOQA4ADgAZAA5AGIALQAwAGEAOQBjAC0ANAAwADEANwAtAGEAMQBhADcALQA2ADAAZABiADkAMwBjAGYAMgA0ADkANwB9wGagAAWoAABAQIAABCAAAD+CbpeNT988AQAAAEwAewBjADYAMQBiADEANABmAGMALQAxAGQAMwBkAC0ANABkADUAMAAtADgAZAA4AGEALQAwADQAOQA2ADEANABiAGMAZABkADEANwB9QG/gAAf4AABAOwAABsAAAD98rAgxJul5AQ==]]>
</DiagramLayout>
</ManagedForm>
+31
View File
@@ -0,0 +1,31 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm gstVersion="22800" name="ManagedForm" uid="{420fc53a-7128-42b0-b9b5-b95359cba202}">
<AGSettings/>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record1" order="" uid="{595ebdcd-0550-426c-8aef-9b935f86dfa3}" where="">
<RecordField colName="" fieldIdRef="1" name="Edit1" sqlTabName="" table_alias_name="" uid="{1ec35f6f-0699-454e-8b09-19424eefd712}"/>
<RecordField colName="" fieldIdRef="2" name="Edit2" sqlTabName="" table_alias_name="" uid="{40390278-e50c-4ca1-9fd1-1b98847b6552}"/>
<RecordField colName="" fieldIdRef="3" name="Edit3" sqlTabName="" table_alias_name="" uid="{ac3c6754-d3fc-4528-bc59-7c4b02cf0a34}"/>
<RecordField colName="" fieldIdRef="4" name="Edit4" sqlTabName="" table_alias_name="" uid="{e01a0868-1130-4257-8c30-32d33c295f0e}"/>
<RecordField colName="" fieldIdRef="5" name="Edit5" sqlTabName="" table_alias_name="" uid="{12881a73-f00d-467f-8c0f-069e7b527541}"/>
<RecordField colName="" fieldIdRef="6" name="Edit6" sqlTabName="" table_alias_name="" uid="{70e2e17e-1249-4c0f-bc6a-14e683d8733c}"/>
<RecordField colName="" fieldIdRef="7" name="Edit7" sqlTabName="" table_alias_name="" uid="{9a791ad1-de5d-4acb-a6bf-5933e846591e}"/>
<RecordField colName="" fieldIdRef="8" name="Edit8" sqlTabName="" table_alias_name="" uid="{e8f5d74c-24f7-432d-9379-4eeee7cf67ad}"/>
</Record>
<Form gridHeight="25" gridWidth="80" name="Form" text="Form">
<Grid gridHeight="16" gridWidth="74" name="Grid1" posX="3" posY="1">
<Table gridHeight="11" gridWidth="73" name="Table1" posX="1" posY="3" totalRows="5">
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="1" gridHeight="1" gridWidth="8" name="Edit1" posX="0" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="1" table_alias_name="" title="Origen" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="2" gridHeight="1" gridWidth="8" name="Edit2" posX="8" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="2" table_alias_name="" title="Clase" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="3" gridHeight="1" gridWidth="8" name="Edit3" posX="16" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="3" table_alias_name="" title="Grupo" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="4" gridHeight="1" gridWidth="8" name="Edit4" posX="24" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="4" table_alias_name="" title="Tipo" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="5" gridHeight="1" gridWidth="8" name="Edit5" posX="32" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="5" table_alias_name="" title="Medida" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="6" gridHeight="1" gridWidth="8" name="Edit6" posX="40" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="6" table_alias_name="" title="Descripcion" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="7" gridHeight="1" gridWidth="8" name="Edit7" posX="48" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="7" table_alias_name="" title="Edit7" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="8" gridHeight="1" gridWidth="8" name="Edit8" posX="56" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="8" table_alias_name="" title="Edit8" widget="Edit"/>
</Table>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewAxAGUAYwAzADUAZgA2AGYALQAwADYAOQA5AC0ANAA1ADQAZQAtADgAYgAwADkALQAxADkANAAyADQAZQBlAGYAZAA3ADEAMgB9QCQAAAAAAABAQwAAAAAAAAAAAAAAAAAAAQAAAEwAewBlADgAZgA1AGQANwA0AGMALQAyADQAZgA3AC0ANAAzADIAZAAtADkAMwA3ADkALQA0AGUAZQBlAGUANwBjAGYANgA3AGEAZAB9QCQAAAAAAABAaOAAAAAAAAAAAAAAAAAAAQAAAEwAewBlADAAMQBhADAAOAA2ADgALQAxADEAMwAwAC0ANAAyADUANwAtADgAYwAzADAALQAzADIAZAAzADMAYwAyADkANQBmADAAZQB9QCQAAAAAAABAWsAAAAAAAAAAAAAAAAAAAQAAAEwAewAxADIAOAA4ADEAYQA3ADMALQBmADAAMABkAC0ANAA2ADcAZgAtADgAYwAwAGYALQAwADYAOQBlADcAYgA1ADIANwA1ADQAMQB9QCQAAAAAAABAYEAAAAAAAAAAAAAAAAAAAQAAAEwAewA1ADkANQBlAGIAZABjAGQALQAwADUANQAwAC0ANAAyADYAYwAtADgAYQBlAGYALQA5AGIAOQAzADUAZgA4ADYAZABmAGEAMwB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewBhAGMAMwBjADYANwA1ADQALQBkADMAZgBjAC0ANAA1ADIAOAAtAGIAYwA1ADkALQA3AGMANABiADAAMgBjAGYAMABhADMANAB9QCQAAAAAAABAVQAAAAAAAAAAAAAAAAAAAQAAAEwAewA5AGEANwA5ADEAYQBkADEALQBkAGUANQBkAC0ANABhAGMAYgAtAGEANgBiAGYALQA1ADkAMwAzAGUAOAA0ADYANQA5ADEAZQB9QCQAAAAAAABAZgAAAAAAAAAAAAAAAAAAAQAAAEwAewA3ADAAZQAyAGUAMQA3AGUALQAxADIANAA5AC0ANABjADAAZgAtAGIAYwA2AGEALQAxADQAZQA2ADgAMwBkADgANwAzADMAYwB9QCQAAAAAAABAYyAAAAAAAAAAAAAAAAAAAQAAAEwAewA0ADAAMwA5ADAAMgA3ADgALQBlADUAMABjAC0ANABjAGEAMQAtADkAZgBkADEALQAxAGIAOQA4ADgANAA3AGIANgA1ADUAMgB9QCQAAAAAAABAToAAAAAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+141
View File
@@ -0,0 +1,141 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="decomarmol" fileVersion="31400" gstVersion="31409" name="ManagedForm" uid="{d1b05674-a30a-4ff3-a265-cefa9dad0fb7}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{714977ff-1ed5-47e2-8537-b5a5b06a655d}" where="">
<RecordField colName="cod_cia" fieldIdRef="13" fieldType="TABLE_COLUMN" name="iptb00002.cod_cia" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{177513e2-c36a-4ff5-af79-402ea5142725}"/>
<RecordField colName="nombre_cia" fieldIdRef="16" name="nombre_cia" sqlTabName="formonly" table_alias_name="" uid="{b7e7ced3-e314-4fef-909f-8d17ec0a8d17}"/>
<RecordField colName="cod_n" fieldIdRef="9" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{d6d930d0-2bbf-40f1-ae6e-2da3e61792e3}"/>
<RecordField colName="cod_grupo" fieldIdRef="10" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{10d96f33-4f3f-4055-acbb-9eb73e6ed0eb}"/>
<RecordField colName="cod_tipo" fieldIdRef="11" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{b9e9bcb2-ad84-44b3-b30c-07b97e213da9}"/>
<RecordField colName="cod_sec" fieldIdRef="12" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{4bec1eeb-a7c7-4b42-9385-3faafe17668e}"/>
<RecordField colName="codid" fieldIdRef="1" name="codid" sqlTabName="formonly" table_alias_name="" uid="{9979ecf5-ef50-4c58-a603-1ec7be7324f2}"/>
<RecordField colName="producto" fieldIdRef="6" name="producto" sqlTabName="formonly" table_alias_name="" uid="{6b40ba5e-b0f4-406e-ad8b-3e7922a6a9a2}"/>
<RecordField colName="descrip_grupo" fieldIdRef="7" name="descrip_grupo" sqlTabName="formonly" table_alias_name="" uid="{0761afb1-d1dc-49a9-b74c-61c3394f860a}"/>
<RecordField colName="descrip_tipo" fieldIdRef="5" name="descrip_tipo" sqlTabName="formonly" table_alias_name="" uid="{df2bf420-a40d-4b32-a4c3-f57588e1ecdd}"/>
<RecordField colName="descrip_medida" fieldIdRef="8" name="descrip_medida" sqlTabName="formonly" table_alias_name="" uid="{eaef450b-8c53-40eb-a155-11450187f25a}"/>
<RecordField colName="descrip_ing" fieldIdRef="15" fieldType="TABLE_COLUMN" name="iptb00002.descrip_ing" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{3689a904-85f4-47dc-8d45-580f785df6ad}"/>
<RecordField colName="unidad_med" fieldIdRef="28" name="unidad_med" sqlTabName="formonly" table_alias_name="" uid="{f2b0199a-d2d1-4d70-8fe2-4a9aff094c18}"/>
<RecordField colName="nomenclatura" fieldIdRef="17" name="nomenclatura" sqlTabName="formonly" table_alias_name="" uid="{f631cd85-d9db-4420-a2e1-6d64be424642}"/>
<RecordField colName="" defaultValue="1" fieldIdRef="21" fieldType="NON_DATABASE" name="bodega" sqlTabName="" sqlType="SMALLINT" table_alias_name="" uid="{6b69fb36-fab6-43db-abca-3f5677ddb1f5}"/>
<RecordField colName="despiece" defaultValue="no" fieldIdRef="4" name="despiece" sqlTabName="formonly" table_alias_name="" uid="{8799162d-1f76-4184-9676-49216d23f409}"/>
<RecordField colName="control_existencia" defaultValue="SI" fieldIdRef="2" name="control_existencia" sqlTabName="formonly" table_alias_name="" uid="{606260be-4eb9-490b-a1f1-bbd8be26c113}"/>
<RecordField colName="control_itbis" defaultValue="SI" fieldIdRef="3" name="control_itbis" sqlTabName="formonly" table_alias_name="" uid="{ac9435ad-e3f9-4cf9-bfb0-fe8b3db5debb}"/>
<RecordField colName="exist_max" fieldIdRef="19" fieldType="TABLE_COLUMN" name="iptb00002.exist_max" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" table_alias_name="" uid="{9f8f3457-971a-43c9-addd-687945851cca}"/>
<RecordField colName="exist_min" fieldIdRef="20" fieldType="TABLE_COLUMN" name="iptb00002.exist_min" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" table_alias_name="" uid="{e1c035a9-3412-4ba0-b367-586c82a423a3}"/>
<RecordField colName="cantidad_2" fieldIdRef="18" name="cantidad_2" sqlTabName="formonly" table_alias_name="" uid="{09583fd3-d114-4dbb-8333-1d76b631fc7d}"/>
<RecordField colName="dia_llegada" fieldIdRef="22" fieldType="TABLE_COLUMN" name="iptb00002.dia_llegada" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{95c4e331-5779-4c9d-ae80-ffd2ac5fc36f}"/>
<RecordField colName="foto_producto" fieldIdRef="0" name="foto_producto" sqlTabName="formonly" table_alias_name="" uid="{0c9a055f-51b9-437c-8ab1-907cf4b29b8e}"/>
<RecordField colName="status_t" fieldIdRef="23" fieldType="TABLE_COLUMN" name="iptb00002.status_t" sqlTabName="iptb00002" sqlType="CHAR" table_alias_name="" uid="{8e6f6263-ece7-4925-995c-fa94299e2700}"/>
<RecordField colName="us_crea" fieldIdRef="24" fieldType="TABLE_COLUMN" name="iptb00002.us_crea" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{ab80ce9d-6069-4d14-8ae1-4c94500c70dd}"/>
<RecordField colName="us_mod" fieldIdRef="26" fieldType="TABLE_COLUMN" name="iptb00002.us_mod" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{954eb080-2c9f-4fdc-ac8d-cd8eae16ae9b}"/>
<RecordField colName="fech_crea" fieldIdRef="25" fieldType="TABLE_COLUMN" name="iptb00002.fech_crea" sqlTabName="iptb00002" sqlType="DATE" table_alias_name="" uid="{a2b750a6-3751-4935-9f4d-be93ee1fc9b2}"/>
<RecordField colName="fech_mod" fieldIdRef="27" fieldType="TABLE_COLUMN" name="iptb00002.fech_mod" sqlTabName="iptb00002" sqlType="DATE" table_alias_name="" uid="{d90221b4-97c6-45e3-8552-2403a606e16b}"/>
<RecordField colName="descrip_esp" fieldIdRef="29" fieldType="TABLE_COLUMN" name="iptb00002.descrip_esp" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{05bc630e-17e9-4307-9fc3-a502f3f6a7a8}"/>
<RecordField colName="" defaultValue="1" fieldIdRef="14" name="factor_conv" sqlTabName="" table_alias_name="" uid="{2a860713-9711-4c2e-9c0b-9e4038bc8412}"/>
<RecordField colName="" defaultValue="0" fieldIdRef="30" name="factor_ad" sqlTabName="" table_alias_name="" uid="{9f5fbb92-bb54-40b2-85e2-43f8320742fa}"/>
<RecordField colName="" fieldIdRef="31" name="fecha_desc" sqlTabName="" table_alias_name="" uid="{385ee992-0102-43b7-b1ba-33b3534ff073}"/>
<RecordField colName="" fieldIdRef="32" name="porc_desc" sqlTabName="" sqlType="FLOAT" table_alias_name="" uid="{bf1b03c8-1f84-4693-a649-64ce9e1b0121}"/>
<RecordField colName="" defaultValue="SI" fieldIdRef="33" name="desc_permitido" sqlTabName="" table_alias_name="" uid="{5d3cdb31-4039-48e7-85d6-2d70cf5823dc}"/>
</Record>
<Form gridHeight="26" gridWidth="135" name="ipfmmt002" text="MAESTRA PRODUCTOS">
<ActionDefaultList name="ActionDefaultList1">
<ActionDefault acceleratorName="enter" acceleratorName2="return" image="find" name="busca_foto" text="Buscar"/>
</ActionDefaultList>
<ToolBar name="ToolBar1">
<ToolBarItem image="new" name="adicionar" text="ADICIONAR"/>
<ToolBarItem image="find" name="consultar" text="CONSULTAR MODIFICAR"/>
<ToolBarItem image="exit" name="salir" text="SALIR"/>
</ToolBar>
<Grid gridHeight="25" gridWidth="131" name="Grid1" posX="1" posY="0">
<Group gridHeight="17" gridWidth="81" name="Group1" posX="2" posY="1">
<Label posX="1" posY="1" text="Origen"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_cia" comment="Digite 1 = Local 2 = Importado 3- Ptos. Material Importado" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" include="1|2|3" name="iptb00002.cod_cia" notNull="true" posX="22" posY="1" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="1" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="nombre_cia" fieldId="16" gridHeight="1" gridWidth="42" name="nombre_cia" noEntry="true" posX="26" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="2" text="Codigo Producto"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_n" comment="Digite el codigo de los productos" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="22" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el codigo de los productos " fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="29" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el codigo de los productos " fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="36" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite el codigo de los productos " fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="43" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="8" name="Label11" posX="50" posY="2" text="Codigo B"/>
<FFLabel aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="codid" fieldId="1" gridHeight="1" gridWidth="11" name="codid" posX="59" posY="2" sqlTabName="formonly" table_alias_name="" widget="FFLabel"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="producto" fieldId="6" gridHeight="1" gridWidth="20" name="producto" noEntry="true" posX="22" posY="3" sqlTabName="formonly" tabIndex="8" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_grupo" fieldId="7" gridHeight="1" gridWidth="24" name="descrip_grupo" posX="44" posY="3" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_tipo" fieldId="5" gridHeight="1" gridWidth="24" name="descrip_tipo" posX="22" posY="4" sqlTabName="formonly" tabIndex="10" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_medida" fieldId="8" gridHeight="1" gridWidth="20" name="descrip_medida" posX="48" posY="4" sqlTabName="formonly" tabIndex="11" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="5" text="Descripcion Espanol"/>
<ButtonEdit action="formar" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="descrip_esp" comment="Descripcion Producto" fieldId="29" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="46" image="refresh" name="iptb00002.descrip_esp" notNull="true" posX="22" posY="5" required="true" scroll="true" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="30" table_alias_name="" title="ButtonEdit1" widget="ButtonEdit"/>
<Label posX="1" posY="6" text="Descripcion Ingles"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="descrip_ing" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="46" name="iptb00002.descrip_ing" posX="22" posY="6" scroll="true" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="12" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="7" text="Unidad Medida"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="unidad_med" fieldId="28" gridHeight="1" gridWidth="4" include="UD|M2|M3|ML" items="UD, M2, M3, ML" name="unidad_med" posX="22" posY="7" sqlTabName="formonly" tabIndex="13" table_alias_name="" widget="ComboBox">
<Item name="UD" text="UD"/>
<Item name="M2" text="M2"/>
<Item name="M3" text="M3"/>
<Item name="ML" text="ML"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="Label4" posX="37" posY="7" text="Referencia"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="nomenclatura" fieldId="17" gridHeight="1" gridWidth="20" name="nomenclatura" posX="48" posY="7" sqlTabName="formonly" tabIndex="14" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="9" name="Label9" posX="59" posY="8" text="Despiece:"/>
<Label gridHeight="1" gridWidth="15" name="Label3" posX="2" posY="9" text="Bodega Recepcion"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Digite la bodega" defaultValue="1" fieldId="21" fieldType="NON_DATABASE" gridHeight="1" gridWidth="25" items="" length="1" name="bodega" posX="22" posY="9" required="true" sqlTabName="" sqlType="SMALLINT" tabIndex="15" table_alias_name="" widget="ComboBox"/>
<RadioGroup aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="despiece" defaultValue="no" fieldId="4" gridHeight="2" gridWidth="8" items="Si, no" name="despiece" posX="60" posY="9" sqlTabName="formonly" tabIndex="16" table_alias_name="" widget="RadioGroup">
<Item name="S" text="Si"/>
<Item name="N" text="no"/>
</RadioGroup>
<Label gridHeight="1" gridWidth="14" name="Label5" posX="2" posY="10" text="Factor Conversion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="1" fieldId="14" gridHeight="1" gridWidth="10" name="factor_conv" posX="22" posY="10" sqlTabName="" tabIndex="31" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label6" posX="37" posY="10" text="Adicional"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="0" fieldId="30" gridHeight="1" gridWidth="8" name="factor_ad" posX="50" posY="10" sqlTabName="" tabIndex="32" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label10" posX="37" posY="11" text="Descuento"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Indicar si el articulo es permitido colocar descuento o no" defaultValue="SI" fieldId="33" gridHeight="1" gridWidth="12" items="SI, NO" name="desc_permitido" posX="50" posY="11" sqlTabName="" tabIndex="35" table_alias_name="" title="ComboBox1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label posX="1" posY="13" text="Control Existencia"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_existencia" defaultValue="SI" fieldId="2" gridHeight="1" gridWidth="6" include="SI|NO" items="SI, NO" name="control_existencia" posX="22" posY="13" sqlTabName="formonly" tabIndex="17" table_alias_name="" widget="ComboBox">
<Item name="SI" text="SI"/>
<Item name="NO" text="NO"/>
</ComboBox>
<Label posX="34" posY="13" text="Control ITBIS"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_itbis" defaultValue="SI" fieldId="3" gridHeight="1" gridWidth="7" include="SI|NO" items="SI, NO" name="control_itbis" posX="48" posY="13" sqlTabName="formonly" tabIndex="18" table_alias_name="" widget="ComboBox">
<Item name="SI" text="SI"/>
<Item name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="6" name="Label7" posX="62" posY="13" text="Desc."/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Porciento Descuento cotizacion" fieldId="32" gridHeight="1" gridWidth="6" name="porc_desc" posX="69" posY="13" scroll="true" sqlTabName="" sqlType="FLOAT" tabIndex="34" table_alias_name="" title="Edit1" widget="Edit"/>
<Label posX="1" posY="14" text="Existencia Maxima"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="exist_max" comment="Digite la existencia Maxima en Almacen" fieldId="19" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="iptb00002.exist_max" posX="22" posY="14" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" tabIndex="19" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="11" name="Label1" posX="35" posY="14" text="Existencia Minima"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="exist_min" comment="Digite la existencia Minima en Almacen" fieldId="20" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="iptb00002.exist_min" posX="48" posY="14" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" tabIndex="20" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label8" posX="62" posY="14" text="Fecha"/>
<Label posX="1" posY="15" text="Existencia Actual"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cantidad_2" fieldId="18" gridHeight="1" gridWidth="12" name="cantidad_2" posX="22" posY="15" sqlTabName="formonly" tabIndex="21" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label2" posX="35" posY="15" text="Dia Llegada"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="dia_llegada" comment="Digite el dia de llegada del Producto " fieldId="22" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="iptb00002.dia_llegada" posX="48" posY="15" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="22" table_alias_name="" widget="Edit"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Fecha Vigencia Porciento Cotizacion" fieldId="31" gridHeight="1" gridWidth="10" name="fecha_desc" posX="62" posY="15" sqlTabName="" tabIndex="33" table_alias_name="" title="DateEdit1" widget="DateEdit"/>
</Group>
<Group gridHeight="6" gridWidth="42" name="Group2" posX="87" posY="1" text="Foto">
<FFImage aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoScale="true" colName="foto_producto" fieldId="0" gridHeight="3" gridWidth="36" name="foto_producto" posX="2" posY="1" sqlTabName="formonly" stretch="both" table_alias_name="" unitWidth="characters" widget="FFImage" width="36"/>
</Group>
<Group gridHeight="8" gridWidth="13" name="Group3" posX="87" posY="8">
<Button gridHeight="1" gridWidth="8" name="busca_foto" posX="2" posY="1" tabIndex="24"/>
</Group>
<Group gridHeight="5" gridWidth="76" name="Group4" posX="2" posY="19" text="AUDITORIA">
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" fieldId="23" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="iptb00002.status_t" noEntry="true" posX="2" posY="1" sqlTabName="iptb00002" sqlType="CHAR" tabIndex="25" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="2" text="Usuario creador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" fieldId="24" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.us_crea" noEntry="true" posX="19" posY="2" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="26" table_alias_name="" widget="Edit"/>
<Label posX="36" posY="2" text="Usuario modificador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" fieldId="26" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.us_mod" noEntry="true" posX="58" posY="2" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="27" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="3" text="Fecha Creacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" fieldId="25" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.fech_crea" noEntry="true" posX="19" posY="3" sqlTabName="iptb00002" sqlType="DATE" tabIndex="28" table_alias_name="" widget="Edit"/>
<Label posX="36" posY="3" text="Fecha Modificacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" fieldId="27" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.fech_mod" noEntry="true" posX="58" posY="3" sqlTabName="iptb00002" sqlType="DATE" tabIndex="29" table_alias_name="" widget="Edit"/>
</Group>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA3ADEANAA5ADcANwBmAGYALQAxAGUAZAA1AC0ANAA3AGUAMgAtADgANQAzADcALQBiADUAYQA1AGIAMAA2AGEANgA1ADUAZAB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+81
View File
@@ -0,0 +1,81 @@
SCHEMA decomarmol
ACTION DEFAULTS
ACTION busca_foto ( TEXT="Buscar", IMAGE="find", ACCELERATOR = Enter, ACCELERATOR2 = Return )
END
TOOLBAR
ITEM ADICIONAR (TEXT="ADICIONAR",IMAGE="new")
ITEM Consultar (TEXT="CONSULTAR MODIFICAR",IMAGE="find")
ITEM SALIR (TEXT="SALIR",IMAGE="exit")
LAYOUT (TEXT="MAESTRA PRODUCTOS")
GRID
{
<G ><G"Foto" >
Origen [p1][p4 ] [img ]
Codigo Producto [a ][b ][c ][e ] Codigo B [kk ]
[pro ][prgrupo ]
[dtipo ][prm ]
Descripcion Espanol [d ]
Descripcion Ingles [f ] <G >
Unidad Medida [k ] Producto [prod ] [sh ]
Bodega [l ] Despiece: [des66 ]
Control Existencia [s ]Control ITBIS [it1 ]
Existencia Maxima [exma ] Existencia Minima [f005 ]
Existencia Actual [f004 ] Dia de Llegada [m ]
<G "AUDITORIA" >
[q]
Usuario creador [f007 ]Usuario modificador [f009 ]
Fecha Creacion [f008 ]Fecha Modificacion [f010 ]
}
end
tables
iptb00002
ATTRIBUTES
IMAGE img = formonly.foto_producto,STRETCH =BOTH,AUTOSCALE;
BUTTON sh: busca_foto;
LABEL kk = formonly.codid;
COMBOBOX s = formonly.control_existencia, INCLUDE=("SI","NO"),default="SI";
COMBOBOX it1 = formonly.control_itbis,INCLUDE=("SI","NO"),default="SI";
des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no";
dtipo = formonly.descrip_tipo;
pro = formonly.producto,noentry;
prgrupo = formonly.descrip_grupo;
prm = formonly.descrip_medida;
a = iptb00002.cod_n, autonext,
comments = "Digite el codigo de los productos";
b = iptb00002.cod_grupo, autonext,
comments = "Digite el codigo de los productos ";
c = iptb00002.cod_tipo, autonext,
comments = "Digite el codigo de los productos ";
e = iptb00002.cod_sec,autonext,
comments = "Digite el codigo de los productos ";
p1 = iptb00002.cod_cia,include=(1,2,3),comments=
"Digite 1 = Local 2 = Importado 3- Ptos. Material Importado";
d = iptb00002.descrip_esp,upshift,scroll;
f = iptb00002.descrip_ing,upshift,scroll;
p4 = formonly.nombre_cia,noentry;
prod = formonly.nomenclatura,upshift;
f004 = formonly.cantidad_2;
exma = iptb00002.exist_max,
comments = "Digite la existencia Maxima en Almacen";
f005 = iptb00002.exist_min,
comments = "Digite la existencia Minima en Almacen";
l = iptb00002.bodega, comments ="Digite la bodega";
m = iptb00002.dia_llegada,comments="Digite el dia de llegada del Producto ";
q = iptb00002.status_t,noentry;
f007 = iptb00002.us_crea, noentry;
f008 = iptb00002.fech_crea, noentry;
f009 = iptb00002.us_mod, noentry;
f010 = iptb00002.fech_mod, noentry;
COMBOBOX k = formonly.unidad_med,upshift,include=('UD','M2','M3','ML');
instructions
delimiters " "
end
+56
View File
@@ -0,0 +1,56 @@
database decomarmol
screen size 24 by 80
{
Origen [p1][p4 ]
Codigo Producto [a ][b ][c ][e ]
[pro ][dtipo ]
Descripcion Espanol [d ]
Descripcion Ingles [f ]
Unidad Medida [k ]Producto [prod ]
Bodega [l ] Despiece:[des66 ]
Existencia Maxima [exma ] Existencia Minima [f005 ]
Existencia Actual [f004 ] Dia de Llegada [m ]
[q]
Usuario creador [f007 ] Usuario modificador [f009 ]
Fecha Creacion [f008 ] Fecha Modificacion [f010 ]
}
end
tables
iptb00002
attributes
des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no";
dtipo = formonly.descrip_tipo;
pro = formonly.producto,noentry;
a = iptb00002.cod_n, autonext,
comments = "Digite el codigo de los productos";
b = iptb00002.cod_grupo, autonext,
comments = "Digite el codigo de los productos ";
c = iptb00002.cod_tipo, autonext,
comments = "Digite el codigo de los productos ";
e = iptb00002.cod_sec,autonext,
comments = "Digite el codigo de los productos ";
p1 = iptb00002.cod_cia,include=(1,2,3),comments=
"Digite 1 = Local 2 = Importado 3- Ptos. Material Importado";
d = iptb00002.descrip_esp,upshift;
f = iptb00002.descrip_ing,upshift;
p4 = formonly.nombre_cia,noentry;
prod = formonly.nomenclatura,upshift;
f004 = formonly.cantidad_2;
exma = iptb00002.exist_max,
comments = "Digite la existencia Maxima en Almacen";
f005 = iptb00002.exist_min,
comments = "Digite la existencia Minima en Almacen";
l = iptb00002.bodega, comments ="Digite la bodega";
m = iptb00002.dia_llegada,comments="Digite el dia de llegada del Producto ";
q = iptb00002.status_t,noentry;
f007 = iptb00002.us_crea, noentry;
f008 = iptb00002.fech_crea, noentry;
f009 = iptb00002.us_mod, noentry;
f010 = iptb00002.fech_mod, noentry;
k = formonly.unidad_med,upshift;
instructions
delimiters " "
end
+56
View File
@@ -0,0 +1,56 @@
database decomarmol
screen size 24 by 80
{
Origen [p1][p4 ]
Codigo Producto [a ][b ][c ][e ]
[pro ][dtipo ]
Descripcion Espanol [d ]
Descripcion Ingles [f ]
Unidad Medida [k ]Producto [prod ]
Bodega [l ] Despiece:[des66 ]
Existencia Maxima [exma ] Existencia Minima [f005 ]
Existencia Actual [f004 ] Dia de Llegada [m ]
[q]
Usuario creador [f007 ] Usuario modificador [f009 ]
Fecha Creacion [f008 ] Fecha Modificacion [f010 ]
}
end
tables
iptb00002
attributes
des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no";
dtipo = formonly.descrip_tipo;
pro = formonly.producto,noentry;
a = iptb00002.cod_n, autonext,
comments = "Digite el codigo de los productos";
b = iptb00002.cod_grupo, autonext,
comments = "Digite el codigo de los productos ";
c = iptb00002.cod_tipo, autonext,
comments = "Digite el codigo de los productos ";
e = iptb00002.cod_sec,autonext,
comments = "Digite el codigo de los productos ";
p1 = iptb00002.cod_cia,include=(1,2,3),comments=
"Digite 1 = Local 2 = Importado 3- Ptos. Material Importado";
d = iptb00002.descrip_esp,upshift;
f = iptb00002.descrip_ing,upshift;
p4 = formonly.nombre_cia,noentry;
prod = formonly.nomenclatura,upshift;
f004 = formonly.cantidad_2;
exma = iptb00002.exist_max,
comments = "Digite la existencia Maxima en Almacen";
f005 = iptb00002.exist_min,
comments = "Digite la existencia Minima en Almacen";
l = iptb00002.bodega, comments ="Digite la bodega";
m = iptb00002.dia_llegada,comments="Digite el dia de llegada del Producto ";
q = iptb00002.status_t,noentry;
f007 = iptb00002.us_crea, noentry;
f008 = iptb00002.fech_crea, noentry;
f009 = iptb00002.us_mod, noentry;
f010 = iptb00002.fech_mod, noentry;
k = formonly.unidad_med,upshift;
instructions
delimiters " "
end
+88
View File
@@ -0,0 +1,88 @@
SCHEMA decomarmol
TOOLBAR
ITEM ADICIONAR (TEXT="ADICIONAR",IMAGE="new")
ITEM Consultar (TEXT="CONSULTAR MODIFICAR",IMAGE="find")
ITEM SALIR (TEXT="SALIR",IMAGE="exit")
LAYOUT
GRID
{
Origen [p1][p4 ]
Codigo Producto [a ][b ][c ][e ] Codigo Barra [kk ]
Clase [pro ]
Grupo [pg ]
Tipo [dtipo ]Medida[med ]
Descripcion Espanol [d ]
Descripcion Ingles [f ]
Unidad Medida [k ] Producto [prod ]
Bodega [l ] Despiece: [des66 ]
Control Existencia [s ]Control ITBIS [it1 ]
Existencia Maxima [exma ] Existencia Minima [f005 ]
Existencia Actual [f004 ] Dia de Llegada [m ]
Material [st ]Labor [lab ]Gastos [ga ]
Factor [fac ]
CODIGO ANTERIOR [a10 ][a11 ][a12 ][a13 ]
DESCRIPCION [a14 ]
[q]
Usuario creador [f007 ] Usuario modificador [f009 ]
Fecha Creacion [f008 ] Fecha Modificacion [f010 ]
}
end
tables
iptb00002
attributes
st = formonly.pmaterial;
lab = formonly.plabor;
ga = formonly.pgastos;
fac = formonly.pfactor;
pg =formonly.descrip_grupo;
med = formonly.descrip_medida;
LABEL kk = formonly.pcodid;
COMBOBOX s = formonly.control_existencia, INCLUDE=("SI","NO"),default="SI",required;
COMBOBOX it1 = formonly.control_itbis,INCLUDE=("SI","NO"),default="SI",required;
des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no",required;
dtipo = formonly.descrip_tipo;
pro = formonly.producto,noentry;
a = iptb00002.cod_n, autonext,
comments = "Digite el codigo de los productos";
b = iptb00002.cod_grupo, autonext,
comments = "Digite el codigo de los productos ";
c = iptb00002.cod_tipo, autonext,
comments = "Digite el codigo de los productos ";
e = iptb00002.cod_sec,autonext,
comments = "Digite el codigo de los productos ";
p1 = iptb00002.cod_cia,include=(1,2,3),comments=
"Digite 1 = Local 2 = Importado 3- Ptos. Material Importado";
d = iptb00002.descrip_esp,upshift,scroll;
f = iptb00002.descrip_ing,upshift;
p4 = formonly.nombre_cia,noentry;
prod = formonly.nomenclatura,upshift;
f004 = formonly.cantidad_2;
exma = iptb00002.exist_max,
comments = "Digite la existencia Maxima en Almacen";
f005 = iptb00002.exist_min,
comments = "Digite la existencia Minima en Almacen";
l = iptb00002.bodega, comments ="Digite la bodega",required,default=1;
m = iptb00002.dia_llegada,comments="Digite el dia de llegada del Producto ";
q = iptb00002.status_t,noentry;
f007 = iptb00002.us_crea, noentry;
f008 = iptb00002.fech_crea, noentry;
f009 = iptb00002.us_mod, noentry;
f010 = iptb00002.fech_mod, noentry;
a10 = formonly.pcodn;
a11 = formonly.pcodgrupo;
a12 = formonly.pcodtipo;
a13 = formonly.pcodsec;
a14 = formonly.descripcion;
COMBOBOX k = formonly.unidad_med,upshift,include=('UD','M2','M3','ML');
instructions
delimiters " "
end
+80
View File
@@ -0,0 +1,80 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="decomarmol" fileVersion="31400" gstVersion="31409" name="ManagedForm" uid="{dc7ed013-037e-4aa8-91ab-adebeb553c86}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{103fcccd-a59f-43d7-87a8-966387c2d5e2}" where="">
<RecordField colName="cod_mov" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00005.cod_mov" sqlTabName="iptb00005" sqlType="SMALLINT" table_alias_name="" uid="{9d90cb70-6401-4664-ba66-8930389a777c}"/>
<RecordField colName="cuenta_1" fieldIdRef="6" fieldType="TABLE_COLUMN" name="iptb00005.cuenta_1" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{b39d7a53-5638-42c8-a6ca-134faa84324a}"/>
<RecordField colName="descrip_mov" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00005.descrip_mov" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{52d0e644-9820-4871-bfef-82250afdc7cc}"/>
<RecordField colName="cuenta_2" fieldIdRef="7" fieldType="TABLE_COLUMN" name="iptb00005.cuenta_2" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{9f568e52-4c91-4024-8cad-8593ff193775}"/>
<RecordField colName="status_mov" fieldIdRef="5" fieldType="TABLE_COLUMN" name="iptb00005.status_mov" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{2df7db79-4940-471b-8988-f0d00c303199}"/>
<RecordField colName="cuenta_3" fieldIdRef="8" fieldType="TABLE_COLUMN" name="iptb00005.cuenta_3" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{3b17f8ee-03c7-40c6-aa03-30f63d2753e3}"/>
<RecordField colName="control_despacho" fieldIdRef="1" name="control_despacho" sqlTabName="formonly" table_alias_name="" uid="{621115fd-715f-45cc-a8ff-3d81b049e8ea}"/>
<RecordField colName="control_clientes" fieldIdRef="2" name="control_clientes" sqlTabName="formonly" table_alias_name="" uid="{721ee9fa-9610-4ee8-acd6-51dd20a494ef}"/>
<RecordField colName="status_t" fieldIdRef="13" fieldType="TABLE_COLUMN" name="iptb00005.status_t" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{daef6271-ac43-430b-b50c-a41db17b2877}"/>
<RecordField colName="us_crea" fieldIdRef="9" fieldType="TABLE_COLUMN" name="iptb00005.us_crea" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{58bbed3d-4471-44e9-b15c-d5547c1ee359}"/>
<RecordField colName="us_mod" fieldIdRef="11" fieldType="TABLE_COLUMN" name="iptb00005.us_mod" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{d2026d6b-247f-4a0e-af49-1bbdc6503430}"/>
<RecordField colName="fech_crea" fieldIdRef="10" fieldType="TABLE_COLUMN" name="iptb00005.fech_crea" sqlTabName="iptb00005" sqlType="DATE" table_alias_name="" uid="{530a77ce-9b79-44fb-b073-f0261894d745}"/>
<RecordField colName="fech_mod" fieldIdRef="12" fieldType="TABLE_COLUMN" name="iptb00005.fech_mod" sqlTabName="iptb00005" sqlType="DATE" table_alias_name="" uid="{9cd5557a-82e0-4cdc-9464-821caac4ea38}"/>
<RecordField colName="" defaultValue="NO" fieldIdRef="14" name="control_transferencia" sqlTabName="" table_alias_name="" uid="{846f20be-6c61-4e2c-9ce0-0bff3dc71fa1}"/>
<RecordField colName="" defaultValue="NO" fieldIdRef="15" name="control_devolucion" sqlTabName="" table_alias_name="" uid="{5735e76b-609a-43c8-a2db-ee49e6027362}"/>
<RecordField colName="" defaultValue="NO" fieldIdRef="16" name="control_departamento" sqlTabName="" table_alias_name="" uid="{26ced4a5-a992-4855-821d-7ffe7bea94a3}"/>
</Record>
<Form gridHeight="14" gridWidth="83" name="ipfmmt003">
<Grid gridHeight="12" gridWidth="82" name="Grid1" posX="0" posY="1">
<Label gridHeight="1" gridWidth="18" name="Label11" posX="1" posY="1" text="Codigo del movimiento"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_mov" comment="Digite el codigo del movimiento" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="iptb00005.cod_mov" notNull="true" posX="23" posY="1" required="true" sqlTabName="iptb00005" sqlType="SMALLINT" tabIndex="1" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="11" name="Label10" posX="1" posY="2" text="Descripcion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="descrip_mov" comment="Digite la descripcion del movimiento" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="40" name="iptb00005.descrip_mov" posX="23" posY="2" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="3" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="Label6" posX="65" posY="2" text="Material"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cuenta_1" comment="Digite el numero de la cuenta" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="iptb00005.cuenta_1" posX="73" posY="2" required="true" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="2" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="12" name="Label3" posX="1" posY="3" text="Status Movimiento"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_mov" comment="1.- Entradas 2.- Salidas" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="14" include="1|2" items="ENTRADAS, SALIDAS" name="iptb00005.status_mov" posX="23" posY="3" required="true" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="5" table_alias_name="" widget="ComboBox">
<Item lstrtext="false" name="1" text="ENTRADAS"/>
<Item lstrtext="false" name="2" text="SALIDAS"/>
</ComboBox>
<Label gridHeight="1" gridWidth="5" name="Label7" posX="65" posY="3" text="Labor"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cuenta_2" comment="Digite el numero de la cuenta" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="iptb00005.cuenta_2" posX="73" posY="3" required="true" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="4" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="16" name="Label9" posX="1" posY="4" text="Control Despacho"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_despacho" fieldId="1" gridHeight="1" gridWidth="8" include="SI|NO" items="SI, NO" name="control_despacho" posX="23" posY="4" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="ComboBox">
<Item name="SI" text="SI"/>
<Item name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="13" name="Label2" posX="33" posY="4" text="Control Devolucion"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="NO" fieldId="15" gridHeight="1" gridWidth="7" items="SI, NO" name="control_devolucion" posX="48" posY="4" sqlTabName="" tabIndex="15" table_alias_name="" title="ComboBox1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="6" name="Label8" posX="65" posY="4" text="Gastos"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cuenta_3" comment="Digite el numero de la cuenta" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="iptb00005.cuenta_3" posX="73" posY="4" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="6" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label1" posX="1" posY="5" text="Control Cliente"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_clientes" fieldId="2" gridHeight="1" gridWidth="8" include="SI|NO" items="SI, NO" name="control_clientes" posX="23" posY="5" sqlTabName="formonly" tabIndex="8" table_alias_name="" widget="ComboBox">
<Item name="SI" text="SI"/>
<Item name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="14" name="Label4" posX="33" posY="5" text="Control Transferencia"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="NO" fieldId="14" gridHeight="1" gridWidth="7" items="SI, NO" name="control_transferencia" posX="48" posY="5" sqlTabName="" tabIndex="14" table_alias_name="" title="ComboBox1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="14" name="Label15" posX="33" posY="6" text="Departamento"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="NO" fieldId="16" gridHeight="1" gridWidth="7" items="SI, NO" name="control_departamento" posX="48" posY="6" sqlTabName="" tabIndex="16" table_alias_name="" title="ComboBox1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="iptb00005.status_t" noEntry="true" posX="1" posY="8" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="9" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="15" name="Label13" posX="1" posY="9" text="Usuario creador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00005.us_crea" noEntry="true" posX="20" posY="9" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="10" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="14" name="Label5" posX="41" posY="9" text="Usuario Modificador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="14" name="iptb00005.us_mod" noEntry="true" posX="63" posY="9" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="11" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="14" name="Label14" posX="1" posY="10" text="Fecha creacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00005.fech_crea" noEntry="true" posX="20" posY="10" sqlTabName="iptb00005" sqlType="DATE" tabIndex="12" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="18" name="Label12" posX="41" posY="10" text="Fecha modificacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00005.fech_mod" noEntry="true" posX="63" posY="10" sqlTabName="iptb00005" sqlType="DATE" tabIndex="13" table_alias_name="" widget="Edit"/>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewAxADAAMwBmAGMAYwBjAGQALQBhADUAOQBmAC0ANAAzAGQANwAtADgANwBhADgALQA5ADYANgAzADgANwBjADIAZAA1AGUAMgB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+39
View File
@@ -0,0 +1,39 @@
SCHEMA decomarmol
screen size 24 by 80
{
Codigo del movimiento[f0] Material[f002 ]
Descripcion [f001 ] Labor [f003 ]
Status del movimiento[a] Gastos [f004 ]
Control Despacho [k1 ] Control Cliente [k2 ] Control Devolucion[de ]
[j]
Usuario creador [f005 ] Usuario modificador [f007 ]
Fecha creacion [f006 ] Fecha modificacion [f008 ]
}
end
tables
iptb00005
ATTRIBUTES
COMBOBOX de = formonly.control_devolucion,INCLUDE=("SI","NO");
COMBOBOX k1 = formonly.control_despacho,INCLUDE=("SI","NO");
COMBOBOX k2 = formonly.control_clientes,INCLUDE=("SI","NO");
f0 = iptb00005.cod_mov, autonext, required,
comments = "Digite el codigo del movimiento";
f001 = iptb00005.descrip_mov, autonext, upshift,
comments = "Digite la descripcion del movimiento";
a = iptb00005.status_mov, required, autonext, include = ("1","2"),
comments = "1.- Entradas 2.- Salidas" ;
f002 = iptb00005.cuenta_1, autonext, required,
comments = "Digite el numero de la cuenta";
f003 = iptb00005.cuenta_2, autonext,required,
comments = "Digite el numero de la cuenta";
f004 = iptb00005.cuenta_3, comments = "Digite el numero de la cuenta";
f005 = iptb00005.us_crea, noentry;
f006 = iptb00005.fech_crea, noentry;
f007 = iptb00005.us_mod, noentry;
f008 = iptb00005.fech_mod, noentry;
j = iptb00005.status_t, noentry;
instructions
delimiters " "
end
+35
View File
@@ -0,0 +1,35 @@
database decomarmol
screen size 24 by 80
{
Codigo del movimiento [f0] Material[f002 ]
Descripcion [f001 ] Labor [f003 ]
Status del movimiento [a] Gastos [f004 ]
[j]
Usuario creador [f005 ] Usuario modificador [f007 ]
Fecha creacion [f006 ] Fecha modificacion [f008 ]
}
end
tables
iptb00005
attributes
f0 = iptb00005.cod_mov, autonext, required,
comments = "Digite el codigo del movimiento";
f001 = iptb00005.descrip_mov, autonext, upshift,
comments = "Digite la descripcion del movimiento";
a = iptb00005.status_mov, required, autonext, include = ("1","2"),
comments = "1.- Entradas 2.- Salidas" ;
f002 = iptb00005.cuenta_1, autonext, required,
comments = "Digite el numero de la cuenta";
f003 = iptb00005.cuenta_2, autonext,required,
comments = "Digite el numero de la cuenta";
f004 = iptb00005.cuenta_3, comments = "Digite el numero de la cuenta";
f005 = iptb00005.us_crea, noentry;
f006 = iptb00005.fech_crea, noentry;
f007 = iptb00005.us_mod, noentry;
f008 = iptb00005.fech_mod, noentry;
j = iptb00005.status_t, noentry;
instructions
delimiters " "
end
+35
View File
@@ -0,0 +1,35 @@
database decomarmol
screen size 24 by 80
{
Codigo del movimiento [f0] Material[f002 ]
Descripcion [f001 ] Labor [f003 ]
Status del movimiento [a] Gastos [f004 ]
[j]
Usuario creador [f005 ] Usuario modificador [f007 ]
Fecha creacion [f006 ] Fecha modificacion [f008 ]
}
end
tables
iptb00005
attributes
f0 = iptb00005.cod_mov, autonext, required,
comments = "Digite el codigo del movimiento";
f001 = iptb00005.descrip_mov, autonext, upshift,
comments = "Digite la descripcion del movimiento";
a = iptb00005.status_mov, required, autonext, include = ("1","2"),
comments = "1.- Entradas 2.- Salidas" ;
f002 = iptb00005.cuenta_1, autonext, required,
comments = "Digite el numero de la cuenta";
f003 = iptb00005.cuenta_2, autonext,required,
comments = "Digite el numero de la cuenta";
f004 = iptb00005.cuenta_3, comments = "Digite el numero de la cuenta";
f005 = iptb00005.us_crea, noentry;
f006 = iptb00005.fech_crea, noentry;
f007 = iptb00005.us_mod, noentry;
f008 = iptb00005.fech_mod, noentry;
j = iptb00005.status_t, noentry;
instructions
delimiters " "
end
+48
View File
@@ -0,0 +1,48 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="marmotech" fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{c9d13456-a0ac-4aad-a46a-405a7d4b4b2f}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record name="record1" uid="{0d078335-950b-4c38-9fe6-fd4c0ac1c519}">
<RecordField colName="cod_cia" fieldIdRef="0" fieldType="TABLE_COLUMN" name="iptb00022.cod_cia" sqlTabName="iptb00022" uid="{39ae259d-68b5-4676-9839-36b1b557e63c}"/>
<RecordField colName="descripcion" fieldIdRef="1" fieldType="TABLE_COLUMN" name="iptb00022.descripcion" sqlTabName="iptb00022" uid="{f3175159-b2d6-447c-be2f-5dbba3fa8cbe}"/>
<RecordField colName="departamento" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00022.departamento" sqlTabName="iptb00022" uid="{1ee52191-9e7c-4da5-862c-6054e17b686b}"/>
<RecordField colName="nombre_dpto" fieldIdRef="4" name="nombre_dpto" sqlTabName="formonly" uid="{a00d1a36-2be7-4c9b-9056-c74dd629e752}"/>
<RecordField colName="cuenta_no" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00022.cuenta_no" sqlTabName="iptb00022" uid="{cb31c6bf-9ac6-4429-a6ac-d87a44659e43}"/>
<RecordField colName="nombre_cta" fieldIdRef="5" name="nombre_cta" sqlTabName="formonly" uid="{f7f89c3d-b297-4b62-abd0-2a25764d3d10}"/>
<RecordField colName="us_crea" fieldIdRef="6" fieldType="TABLE_COLUMN" name="iptb00022.us_crea" sqlTabName="iptb00022" uid="{a5e1386a-a27c-4426-b475-7c445f8114e4}"/>
<RecordField colName="us_mod" fieldIdRef="8" fieldType="TABLE_COLUMN" name="iptb00022.us_mod" sqlTabName="iptb00022" uid="{564c34d4-3d50-4ff1-ab8a-6b4b6877f395}"/>
<RecordField colName="fech_crea" fieldIdRef="7" fieldType="TABLE_COLUMN" name="iptb00022.fech_crea" sqlTabName="iptb00022" uid="{f58def7a-9287-4b2c-9cc4-f76b09393cb1}"/>
<RecordField colName="fech_mod" fieldIdRef="9" fieldType="TABLE_COLUMN" name="iptb00022.fech_mod" sqlTabName="iptb00022" uid="{847bf493-a371-412a-9ded-9d275ad03512}"/>
<RecordField fieldIdRef="12" name="cuenta_costo" uid="{28d79f6a-c7b9-4bb3-910a-fcce3c7544e6}"/>
<RecordField colName="nombre_cta" fieldIdRef="15" name="nombre_costo" sqlTabName="formonly" uid="{2b8424ba-47c1-452e-a598-caa6ea5b0a21}"/>
</Record>
<Form gridHeight="13" gridWidth="82" name="ipfmmt004">
<Grid gridHeight="11" gridWidth="80" name="grid1" posX="1" posY="1">
<Label gridHeight="1" gridWidth="6" name="label1" posX="3" posY="0" text="Origen"/>
<Edit colName="cod_cia" comment="Digite Codigo de Origen" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00022.cod_cia" posX="17" posY="0" sqlTabName="iptb00022" tabIndex="1" widget="Edit"/>
<Label gridHeight="1" gridWidth="11" name="label2" posX="3" posY="1" text="Descripcion"/>
<Edit case="upper" colName="descripcion" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="20" name="iptb00022.descripcion" posX="17" posY="1" sqlTabName="iptb00022" tabIndex="2" widget="Edit"/>
<Label gridHeight="1" gridWidth="13" name="label3" posX="3" posY="2" text="Departamento"/>
<Edit colName="departamento" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00022.departamento" posX="17" posY="2" sqlTabName="iptb00022" tabIndex="3" widget="Edit"/>
<Edit colName="nombre_dpto" fieldId="4" gridHeight="1" gridWidth="40" name="nombre_dpto" noEntry="true" posX="28" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="label4" posX="3" posY="3" text="Cuenta"/>
<Edit colName="cuenta_no" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="iptb00022.cuenta_no" posX="17" posY="3" sqlTabName="iptb00022" tabIndex="5" widget="Edit"/>
<Edit colName="nombre_cta" fieldId="5" gridHeight="1" gridWidth="40" name="nombre_cta" noEntry="true" posX="28" posY="3" sqlTabName="formonly" tabIndex="6" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label11" posX="3" posY="4" text="Cuenta Costo"/>
<Edit fieldId="12" gridHeight="1" gridWidth="10" name="cuenta_costo" posX="17" posY="4" tabIndex="-1" title="edit3" widget="Edit"/>
<Edit colName="nombre_cta" fieldId="15" gridHeight="1" gridWidth="40" name="nombre_costo" noEntry="true" posX="28" posY="4" sqlTabName="formonly" tabIndex="-1" widget="Edit"/>
<Label gridHeight="1" gridWidth="16" name="label5" posX="3" posY="8" text="Usuario Creador"/>
<Edit colName="us_crea" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="iptb00022.us_crea" noEntry="true" posX="20" posY="8" sqlTabName="iptb00022" tabIndex="7" widget="Edit"/>
<Label gridHeight="1" gridWidth="20" name="label6" posX="39" posY="8" text="Usuario Modificador"/>
<Edit colName="us_mod" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="iptb00022.us_mod" noEntry="true" posX="60" posY="8" sqlTabName="iptb00022" tabIndex="8" widget="Edit"/>
<Label gridHeight="1" gridWidth="14" name="label7" posX="3" posY="9" text="Fecha Creacion"/>
<Edit colName="fech_crea" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00022.fech_crea" noEntry="true" posX="20" posY="9" sqlTabName="iptb00022" tabIndex="9" widget="Edit"/>
<Label gridHeight="1" gridWidth="19" name="label8" posX="39" posY="9" text="Fecha Modificacion"/>
<Edit colName="fech_mod" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00022.fech_mod" noEntry="true" posX="59" posY="9" sqlTabName="iptb00022" tabIndex="10" widget="Edit"/>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewAwAGQAMAA3ADgAMwAzADUALQA5ADUAMABiAC0ANABjADMAOAAtADkAZgBlADYALQBmAGQANABjADAAYQBjADEAYwA1ADEAOQB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+27
View File
@@ -0,0 +1,27 @@
database marmotech
screen size 24 by 80
{
Origen [f000 ]
Descripcion [f001 ]
Departamento [f002 ] [nd ]
Cuenta [f003 ] [nc ]
Usuario Creador [f004 ] Usuario Modificador [f006 ]
Fecha Creacion [f005 ] Fecha Modificacion [f007 ]
}
end
tables
iptb00022
attributes
f000 = iptb00022.cod_cia,comments="Digite Codigo de Origen";
f001 = iptb00022.descripcion,upshift;
f002 = iptb00022.departamento;
f003 = iptb00022.cuenta_no;
nd = formonly.nombre_dpto,noentry;
nc = formonly.nombre_cta,noentry;
f004 = iptb00022.us_crea,noentry;
f005 = iptb00022.fech_crea,noentry;
f006 = iptb00022.us_mod,noentry;
f007 = iptb00022.fech_mod,noentry;
instructions delimiters " "
end
+27
View File
@@ -0,0 +1,27 @@
database marmotech
screen size 24 by 80
{
Origen [f000 ]
Descripcion [f001 ]
Departamento [f002 ] [nd ]
Cuenta [f003 ] [nc ]
Usuario Creador [f004 ] Usuario Modificador [f006 ]
Fecha Creacion [f005 ] Fecha Modificacion [f007 ]
}
end
tables
iptb00022
attributes
f000 = iptb00022.cod_cia,comments="Digite Codigo de Origen";
f001 = iptb00022.descripcion,upshift;
f002 = iptb00022.departamento;
f003 = iptb00022.cuenta_no;
nd = formonly.nombre_dpto,noentry;
nc = formonly.nombre_cta,noentry;
f004 = iptb00022.us_crea,noentry;
f005 = iptb00022.fech_crea,noentry;
f006 = iptb00022.us_mod,noentry;
f007 = iptb00022.fech_mod,noentry;
instructions delimiters " "
end
+27
View File
@@ -0,0 +1,27 @@
database marmotech
screen size 24 by 80
{
Origen [f000 ]
Descripcion [f001 ]
Departamento [f002 ] [nd ]
Cuenta [f003 ] [nc ]
Usuario Creador [f004 ] Usuario Modificador [f006 ]
Fecha Creacion [f005 ] Fecha Modificacion [f007 ]
}
end
tables
iptb00022
attributes
f000 = iptb00022.cod_cia,comments="Digite Codigo de Origen";
f001 = iptb00022.descripcion,upshift;
f002 = iptb00022.departamento;
f003 = iptb00022.cuenta_no;
nd = formonly.nombre_dpto,noentry;
nc = formonly.nombre_cta,noentry;
f004 = iptb00022.us_crea,noentry;
f005 = iptb00022.fech_crea,noentry;
f006 = iptb00022.us_mod,noentry;
f007 = iptb00022.fech_mod,noentry;
instructions delimiters " "
end
+59
View File
@@ -0,0 +1,59 @@
0.993
8^79^
Codigo del movimiento Material
Descripcion Labor
Status del movimiento Gastos
Usuario creador Usuario modificador
Fecha creacion Fecha modificacion
screenFields 11
f0^1^0^29^2^1^0^0^1^1058^-32768^0^1^^Digite el codigo del movimiento^^^^^Entry^^^0^^
29^0^2
f002^4^0^66^8^1^0^0^1^34^-32768^0^0^^Digite el numero de la cuenta^^^^^Entry^^^0^^
66^0^8
f001^2^1^14^40^1^0^0^1^514^-32768^0^0^^Digite la descripcion del movimiento^^^^^Entry^^^0^^
14^1^40
f003^5^1^66^8^1^0^0^1^34^-32768^0^0^^Digite el numero de la cuenta^^^^^Entry^^^0^^
66^1^8
a^3^2^29^1^1^0^0^1^34^-32768^0^0^^1.- Entradas 2.- Salidas^^1|2^^^Entry^^^0^^
29^2^1
f004^6^2^66^8^1^0^0^1^0^-32768^0^0^^Digite el numero de la cuenta^^^^^Entry^^^0^^
66^2^8
j^11^3^1^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
1^3^1
f005^7^6^19^16^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
19^6^16
f007^9^6^64^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
64^6^14
f006^8^7^19^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
19^7^16
f008^10^7^62^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
62^7^16
formFields 11
cod_mov^f0
descrip_mov^f001
status_mov^a
cuenta_1^f002
cuenta_2^f003
cuenta_3^f004
us_crea^f005
fech_crea^f006
us_mod^f007
fech_mod^f008
status_t^j
screenRecords 1
intb00005^11^0^1^1^0^0^0^0
cod_mov^f0
descrip_mov^f001
status_mov^a
cuenta_1^f002
cuenta_2^f003
cuenta_3^f004
us_crea^f005
fech_crea^f006
us_mod^f007
fech_mod^f008
status_t^j
keyLabels 0
+35
View File
@@ -0,0 +1,35 @@
database marmotech
screen size 24 by 80
{
Codigo del movimiento [f0] Material[f002 ]
Descripcion [f001 ] Labor [f003 ]
Status del movimiento [a] Gastos [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
+13
View File
@@ -0,0 +1,13 @@
0.993
2^24^[]
Ano Proceso
screenFields 1
f000^1^0^19^4^1^0^0^1^0^-32768^0^0^^Digite Ano a Cerrar^^^^^Entry^^^0^^
19^0^4
formFields 1
p_ano^f000
screenRecords 1
formonly^1^0^1^1^0^0^0^0
p_ano^f000
keyLabels 0
+12
View File
@@ -0,0 +1,12 @@
database marmotech
screen size 24 by 80
{
Ano Proceso [f000]
}
end
tables
iptb00002
attributes
f000 = formonly.p_ano,comments = "Digite Ano a Cerrar";
end
+69
View File
@@ -0,0 +1,69 @@
0.993
9^80^
Codigo Del Producto - - -
Precio Minimo
Precio De Lista
Usuario Creador Fecha Creacion
Usuario Modificador Fecha Modificacion
screenFields 13
a^1^1^23^1^1^0^0^1^32^-32768^0^1^^Digite Codigo Producto^^^^^Entry^^^0^^
23^1^1
b^2^1^27^1^1^0^0^1^32^-32768^0^1^^Digite Codigo Producto^^^^^Entry^^^0^^
27^1^1
c^3^1^31^2^1^0^0^1^32^-32768^0^1^^Digite Codigo Producto^^^^^Entry^^^0^^
31^1^2
d^4^1^36^3^1^0^0^1^32^-32768^0^1^^Digite Codigo Producto^^^^^Entry^^^0^^
36^1^3
des^1^2^23^51^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
23^2^51
un^2^2^76^3^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
76^2^3
f004^5^3^23^14^1^0^0^1^0^-32768^0^5^^Digite Precio Minimo^0^^^^Entry^^^0^^
23^3^14
f005^6^5^23^14^1^0^0^1^0^-32768^0^5^^Digite Precio De Lista^0^^^^Entry^^^0^^
23^5^14
f^7^6^2^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
2^6^1
f006^8^7^23^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
23^7^9
f007^9^7^54^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
54^7^16
f008^10^8^23^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
23^8^9
f009^11^8^54^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
54^8^16
formFields 13
cod_n^a
cod_grupo^b
cod_tipo^c
cod_sec^d
descripcion^des
precio_min^f004
precio_lista^f005
unidad^un
status_t^f
us_crea^f006
fech_crea^f007
us_mod^f008
fech_mod^f009
screenRecords 2
iptb00014^11^0^1^1^0^0^0^0
cod_n^a
cod_grupo^b
cod_tipo^c
cod_sec^d
precio_min^f004
precio_lista^f005
status_t^f
us_crea^f006
fech_crea^f007
us_mod^f008
fech_mod^f009
formonly^2^0^1^1^0^0^0^0
descripcion^des
unidad^un
keyLabels 0
+41
View File
@@ -0,0 +1,41 @@
{
================================================================================
FORMULARIO : IPFMMT007
OBJETIVO : Capturar Los Precios Minimos Y de Lista
DESENO : JUAN F. SOTO
FECHA : AGOSTO 25, 1997.
================================================================================
}
database marmotech
screen size 24 by 80
{
Codigo Del Producto [a]-[b]-[c ]-[d ]
[des ][un ]
Precio Minimo [f004 ]
Precio De Lista [f005 ]
[f]
Usuario Creador [f006 ] Fecha Creacion [f007 ]
Usuario Modificador [f008 ] Fecha Modificacion [f009 ]
}
end
tables
iptb00014
attributes
a = iptb00014.cod_n,required,comments = "Digite Codigo Producto";
b = iptb00014.cod_grupo,required,comments = "Digite Codigo Producto";
c = iptb00014.cod_tipo,required,comments = "Digite Codigo Producto";
d = iptb00014.cod_sec,required,comments = "Digite Codigo Producto";
des = formonly.descripcion;
f004 = iptb00014.precio_min,default = 0,comments = "Digite Precio Minimo";
f005 = iptb00014.precio_lista,default = 0,comments = "Digite Precio De Lista";
un = formonly.unidad;
f = iptb00014.status_t,noentry;
f006 = iptb00014.us_crea,noentry;
f007 = iptb00014.fech_crea,noentry;
f008 = iptb00014.us_mod,noentry;
f009 = iptb00014.fech_mod,noentry;
instructions
delimiters " "
end
+48
View File
@@ -0,0 +1,48 @@
database decomarmol
screen size 24 by 80
{
Fecha Del Conteo [f1 ]
Bodega [b1]
Producto [a ]-[b ]-[c ]-[d ]
[k1 ][k2 ]
Conteo [f3 ] Existencia S/Movimientos [f4 ]
\g------------------------------------------------------------------
Diferencia [p1 ]
Movimiento [b2][b3 ]
Documento [k20 ]
}
tables
iptb00002,
iptb00006
intb00002
attributes
f1 = formonly.fecha type date,reverse,format = "dd/mm/yyyy",
comments = "Digite Fecha Del Conteo Fisico";
a = iptb00002.cod_n,reverse,autonext,required,
comments = "Digite NIVEL Codificacion";
b = iptb00002.cod_grupo,reverse,autonext,required,
comments = "Digite GRUPO Codificacion";
c = iptb00002.cod_tipo,reverse,autonext,required,
comments = "Digite TIPO Codificacion";
d = iptb00002.cod_sec,reverse,autonext,required,
comments = "Digite SECUENCIA Codificacion";
k1 = formonly.descripcion,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
+48
View File
@@ -0,0 +1,48 @@
database decomarmol
screen size 24 by 80
{
Fecha Del Conteo [f1 ]
Bodega [b1]
Producto [a ]-[b ]-[c ]-[d ]
[k1 ][k2 ]
Conteo [f3 ] Existencia S/Movimientos [f4 ]
\g------------------------------------------------------------------
Diferencia [p1 ]
Movimiento [b2][b3 ]
Documento [k20 ]
}
tables
iptb00002,
iptb00006
intb00002
attributes
f1 = formonly.fecha type date,reverse,format = "dd/mm/yyyy",
comments = "Digite Fecha Del Conteo Fisico";
a = iptb00002.cod_n,reverse,autonext,required,
comments = "Digite NIVEL Codificacion";
b = iptb00002.cod_grupo,reverse,autonext,required,
comments = "Digite GRUPO Codificacion";
c = iptb00002.cod_tipo,reverse,autonext,required,
comments = "Digite TIPO Codificacion";
d = iptb00002.cod_sec,reverse,autonext,required,
comments = "Digite SECUENCIA Codificacion";
k1 = formonly.descripcion,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
+48
View File
@@ -0,0 +1,48 @@
database decomarmol
screen size 24 by 80
{
Fecha Del Conteo [f1 ]
Bodega [b1]
Producto [a ]-[b ]-[c ]-[d ]
[k1 ][k2 ]
Conteo [f3 ] Existencia S/Movimientos [f4 ]
\g------------------------------------------------------------------
Diferencia [p1 ]
Movimiento [b2][b3 ]
Documento [k20 ]
}
tables
iptb00002,
iptb00006
intb00002
attributes
f1 = formonly.fecha type date,reverse,format = "dd/mm/yyyy",
comments = "Digite Fecha Del Conteo Fisico";
a = iptb00002.cod_n,reverse,autonext,required,
comments = "Digite NIVEL Codificacion";
b = iptb00002.cod_grupo,reverse,autonext,required,
comments = "Digite GRUPO Codificacion";
c = iptb00002.cod_tipo,reverse,autonext,required,
comments = "Digite TIPO Codificacion";
d = iptb00002.cod_sec,reverse,autonext,required,
comments = "Digite SECUENCIA Codificacion";
k1 = formonly.descripcion,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
+54
View File
@@ -0,0 +1,54 @@
0.993
7^75^[]
Codigo de Barra
Descripcion
Unidad de Conversion
Usuario Creador Usuario Modificador
Fecha Creacion Fecha Modificacion
screenFields 10
f^1^1^23^1^1^0^0^1^2^-32768^0^0^#^Digite Codigo del Articulo^^^^^Entry^^^0^^
23^1^1
f001^2^1^26^12^1^0^0^1^2^-32768^0^0^74614618####^Digite Codigo del Articulo^^^^^Entry^^^0^^
26^1^12
c^3^1^40^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
40^1^1
f003^4^2^23^30^1^0^0^1^512^-32768^0^0^^Digite Descripcion del Articulo^^^^^Entry^^^0^^
23^2^30
f004^5^3^23^11^1^0^0^1^0^-32768^0^2^^Digite Unidades de Medida^^^^^Entry^^^0^^
23^3^11
a^6^4^1^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
1^4^1
f005^7^5^20^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
20^5^9
f007^9^5^58^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
58^5^9
f006^8^6^20^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
20^6^16
f008^10^6^58^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
58^6^16
formFields 10
cod^f
ean13^f001
cd^c
descripcion^f003
unidades^f004
status_t^a
us_crea^f005
fech_crea^f006
us_mod^f007
fech_mod^f008
screenRecords 1
iptb00012^10^0^1^1^0^0^0^0
cod^f
ean13^f001
cd^c
descripcion^f003
unidades^f004
status_t^a
us_crea^f005
fech_crea^f006
us_mod^f007
fech_mod^f008
keyLabels 0
+27
View File
@@ -0,0 +1,27 @@
database marmotech
screen size 24 by 80
{
Codigo de Barra [f][f001 ][c]
Descripcion [f003 ]
Unidad de Conversion [f004 ]
[a]
Usuario Creador [f005 ] Usuario Modificador[f007 ]
Fecha Creacion [f006 ] Fecha Modificacion [f008 ]
}
end
tables
iptb00012
attributes
f = iptb00012.cod,picture="#",comments="Digite Codigo del Articulo",autonext;
f001 = iptb00012.ean13,picture="74614618####",
comments="Digite Codigo del Articulo",autonext;
c = iptb00012.cd,noentry;
f003 = iptb00012.descripcion,upshift,comments="Digite Descripcion del Articulo";
f004 = iptb00012.unidades,comments="Digite Unidades de Medida";
a = iptb00012.status_t,noentry;
f005 = iptb00012.us_crea,noentry;
f006 = iptb00012.fech_crea,noentry;
f007 = iptb00012.us_mod,noentry;
f008 = iptb00012.fech_mod,noentry;
end
+30
View File
@@ -0,0 +1,30 @@
schema decomarmol
LAYOUT (TEXT="TIPOS PRODUCTOS")
GRID
{
Tipo Producto [f006]
Descripcion [f007 ]
Inventario [inv ]
[b]
Usuario Creador [f002 ] Usuario Modificador [f004 ]
Fecha Creacion [f003 ] Fecha Modificacion [f005 ]
}
end
tables
iptb00020,iptb00024
attributes
f006 = iptb00024.cod_tipo,noentry;
f007 = iptb00024.descripcion,upshift;
b = iptb00020.status_t,noentry;
f002 = iptb00020.us_crea,noentry;
f003 = iptb00020.fech_crea,noentry;
f004 = iptb00020.us_mod,noentry;
f005 = iptb00020.fech_mod,NOENTRY;
COMBOBOX inv = formonly.cod_inv,ITEMS=(("3","PRODUCTOS TERMINADOS"),("1","MATERIA PRIMA"),("7","REPUESTOS")),DEFAULT=3;
instructions
delimiters
" "
end
+30
View File
@@ -0,0 +1,30 @@
database decomarmol
screen size 24 by 80
{
Codigo Producto [f000 ]
Nombre [f001 ]
Tipo Producto [f006]
Descripcion [f007 ]
[b]
Usuario Creador [f002 ] Usuario Modificador [f004 ]
Fecha Creacion [f003 ] Fecha Modificacion [f005 ]
}
end
tables
iptb00020,iptb00024
attributes
f000 = iptb00020.cod_n;
f001 = iptb00020.producto,upshift;
f006 = iptb00024.cod_tipo;
f007 = iptb00024.descripcion,upshift;
b = iptb00020.status_t,noentry;
f002 = iptb00020.us_crea,noentry;
f003 = iptb00020.fech_crea,noentry;
f004 = iptb00020.us_mod,noentry;
f005 = iptb00020.fech_mod,noentry;
instructions
delimiters
" "
end
+30
View File
@@ -0,0 +1,30 @@
database decomarmol
screen size 24 by 80
{
Codigo Producto [f000 ]
Nombre [f001 ]
Tipo Producto [f006]
Descripcion [f007 ]
[b]
Usuario Creador [f002 ] Usuario Modificador [f004 ]
Fecha Creacion [f003 ] Fecha Modificacion [f005 ]
}
end
tables
iptb00020,iptb00024
attributes
f000 = iptb00020.cod_n;
f001 = iptb00020.producto,upshift;
f006 = iptb00024.cod_tipo;
f007 = iptb00024.descripcion,upshift;
b = iptb00020.status_t,noentry;
f002 = iptb00020.us_crea,noentry;
f003 = iptb00020.fech_crea,noentry;
f004 = iptb00020.us_mod,noentry;
f005 = iptb00020.fech_mod,noentry;
instructions
delimiters
" "
end
+42
View File
@@ -0,0 +1,42 @@
0.993
7^76^
Codigo Marca
Nombre
Usuario Creador Usuario Modificador
Fecha Creacion Fecha Modificacion
screenFields 7
f000^1^0^20^6^1^0^0^1^0^-32768^0^1^^^^^^^Entry^^^0^^
20^0^6
f001^2^1^20^30^1^0^0^1^512^-32768^0^0^^^^^^^Entry^^^0^^
20^1^30
b^3^2^1^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
1^2^1
f002^4^3^20^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
20^3^9
f004^6^3^59^8^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
59^3^8
f003^5^4^20^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
20^4^16
f005^7^4^59^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
59^4^16
formFields 7
marca^f000
nombre_marca^f001
status_t^b
us_crea^f002
fech_crea^f003
us_mod^f004
fech_mod^f005
screenRecords 1
iptb00019^7^0^1^1^0^0^0^0
marca^f000
nombre_marca^f001
status_t^b
us_crea^f002
fech_crea^f003
us_mod^f004
fech_mod^f005
keyLabels 0
+26
View File
@@ -0,0 +1,26 @@
database marmotech
screen size 24 by 80
{
Codigo Marca [f000 ]
Nombre [f001 ]
[b]
Usuario Creador [f002 ] Usuario Modificador [f004 ]
Fecha Creacion [f003 ] Fecha Modificacion [f005 ]
}
end
tables
iptb00019
attributes
f000 = iptb00019.marca;
f001 = iptb00019.nombre_marca,upshift;
b = iptb00019.status_t,noentry;
f002 = iptb00019.us_crea,noentry;
f003 = iptb00019.fech_crea,noentry;
f004 = iptb00019.us_mod,noentry;
f005 = iptb00019.fech_mod,noentry;
instructions
delimiters
" "
end
+46
View File
@@ -0,0 +1,46 @@
schema decomarmol
ACTION DEFAULTS
ACTION buscalista (TEXT="Busca Informacion",image="find")
ACTION guardar (TEXT="Actualiza Informacion",image="save")
ACTION limpia (TEXT="Limpia Screen",image="clear")
ACTION cancel (TEXT="Cancela operacion",image="stop")
ACTION conversion (TEXT="Conversion Moneda",image="dollar")
END
TOOLBAR
ITEM nuevo (TEXT="Adicionar", IMAGE="new", COMMENT="Adiciona Registro")
ITEM buscar (TEXT="Consulta grupos", IMAGE="find", COMMENT="Modifica Registro")
SEPARATOR
ITEM salir (TEXT="Salir", IMAGE="quit")
END
LAYOUT (TEXT="ADMINISTRACION GRUPOS",STYLE="basic")
GRID
{
Codigo [f0 ]
Descripcion[f001 ]
Inventario [inv ]
[j]
Usuario creador [f005 ] Usuario modificador [f007 ]
Fecha creacion [f006 ] Fecha modificacion [f008 ]
}
END
END
attributes
f0 = formonly.cod_grupo,noentry;
f001 = formonly.descripcion, autonext, upshift,
comments = "Digite la descripcion del Grupo";
f005 = formonly.us_crea, noentry;
f006 = formonly.fech_crea, noentry;
f007 = formonly.us_mod, noentry;
f008 = formonly.fech_mod, noentry;
j = formonly.status_t, NOENTRY;
COMBOBOX inv = formonly.tipo_inventairo,ITEMS=(("3","PRODUCTOS TERMINADOS"),("1","MATERIA PRIMA"),("7","REPUESTOS")),DEFAULT=3;
instructions
delimiters " "
end
+101
View File
@@ -0,0 +1,101 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="decomarmol" fileVersion="31400" gstVersion="31409" name="ManagedForm" uid="{e5b326a6-37c4-4ce8-acc0-8f7a593c8381}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{ed963bb2-cd86-40d7-bdf8-4ca1733e1db3}" where="">
<RecordField colName="ventas" defaultValue="1" fieldIdRef="0" fieldType="TABLE_COLUMN" name="iptb00004.ventas" sqlTabName="iptb00004" sqlType="CHAR" table_alias_name="" uid="{8139d60f-3db0-4c9b-b107-128f89812ee7}"/>
<RecordField colName="mes_ini" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00004.mes_ini" sqlTabName="iptb00004" sqlType="CHAR" table_alias_name="" uid="{15368959-d0d2-4c4d-9b08-6c2ba5772938}"/>
<RecordField colName="mes_fin" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00004.mes_fin" sqlTabName="iptb00004" sqlType="CHAR" table_alias_name="" uid="{6b37066f-4650-48f7-9bc1-bf9c3d5037c0}"/>
<RecordField colName="ano" fieldIdRef="6" fieldType="TABLE_COLUMN" name="iptb00004.ano" sqlTabName="iptb00004" sqlType="CHAR" table_alias_name="" uid="{1fcc4201-2485-48ff-97c1-a73a1faf5bec}"/>
<RecordField colName="cod_n" fieldIdRef="7" fieldType="TABLE_COLUMN" name="iptb00004.cod_n" sqlTabName="iptb00004" sqlType="SMALLINT" table_alias_name="" uid="{13e0b0a4-6260-44c7-9393-49088adc0d5f}"/>
<RecordField colName="cod_grupo" fieldIdRef="8" fieldType="TABLE_COLUMN" name="iptb00004.cod_grupo" sqlTabName="iptb00004" sqlType="SMALLINT" table_alias_name="" uid="{398e5e46-0e37-40eb-8e18-c3d86c7b5c9d}"/>
<RecordField colName="cod_tipo" fieldIdRef="9" fieldType="TABLE_COLUMN" name="iptb00004.cod_tipo" sqlTabName="iptb00004" sqlType="SMALLINT" table_alias_name="" uid="{1b4414d2-72b9-44b3-9571-377affe48091}"/>
<RecordField colName="cod_sec" fieldIdRef="10" fieldType="TABLE_COLUMN" name="iptb00004.cod_sec" sqlTabName="iptb00004" sqlType="SMALLINT" table_alias_name="" uid="{13141f53-6499-42ae-8efe-ce31cacf8e48}"/>
<RecordField colName="descripcion" fieldIdRef="11" name="descripcion" sqlTabName="formonly" table_alias_name="" uid="{719adaeb-57dc-442c-979a-9663a57f05d9}"/>
<RecordField colName="unidad_med" fieldIdRef="12" fieldType="TABLE_COLUMN" name="iptb00002.unidad_med" sqlTabName="iptb00002" sqlType="CHAR" table_alias_name="" uid="{37c08c64-9b79-4571-b352-7b5dc00c46e4}"/>
<RecordField colName="material" fieldIdRef="18" fieldType="TABLE_COLUMN" name="iptb00004.material" precisionDecimal="12" scaleDecimal="7" sqlTabName="iptb00004" sqlType="DECIMAL" table_alias_name="" uid="{37a7c4c0-3ba7-41c3-a00e-501fd4c921a6}"/>
<RecordField colName="labor" fieldIdRef="19" fieldType="TABLE_COLUMN" name="iptb00004.labor" precisionDecimal="12" scaleDecimal="7" sqlTabName="iptb00004" sqlType="DECIMAL" table_alias_name="" uid="{75274229-a98f-48e3-8a70-f06b8e88eb47}"/>
<RecordField colName="gastos" fieldIdRef="20" fieldType="TABLE_COLUMN" name="iptb00004.gastos" precisionDecimal="12" scaleDecimal="7" sqlTabName="iptb00004" sqlType="DECIMAL" table_alias_name="" uid="{746dbbbd-bec8-4377-86cf-90963e1ba6d6}"/>
<RecordField colName="status_t" fieldIdRef="13" fieldType="TABLE_COLUMN" name="iptb00004.status_t" sqlTabName="iptb00004" sqlType="CHAR" table_alias_name="" uid="{247d658d-7226-4d03-85fb-12d298763b12}"/>
<RecordField colName="us_crea" fieldIdRef="14" fieldType="TABLE_COLUMN" name="iptb00004.us_crea" sqlTabName="iptb00004" sqlType="CHAR" table_alias_name="" uid="{ba96b42a-94af-460a-a63a-9568e6ced2d1}"/>
<RecordField colName="us_mod" fieldIdRef="16" fieldType="TABLE_COLUMN" name="iptb00004.us_mod" sqlTabName="iptb00004" sqlType="CHAR" table_alias_name="" uid="{882b955e-fc2d-45bd-9451-faf18d0d2c03}"/>
<RecordField colName="fech_crea" fieldIdRef="15" fieldType="TABLE_COLUMN" name="iptb00004.fech_crea" qual1="YEAR" qualFraction="MINUTE" sqlTabName="iptb00004" sqlType="DATETIME" table_alias_name="" uid="{20318905-e82d-435e-bb76-89e1a179a448}"/>
<RecordField colName="fech_mod" fieldIdRef="17" fieldType="TABLE_COLUMN" name="iptb00004.fech_mod" qual1="YEAR" qualFraction="MINUTE" sqlTabName="iptb00004" sqlType="DATETIME" table_alias_name="" uid="{e74789c6-1afb-4393-8a5e-a1af15b8538a}"/>
<RecordField colName="" fieldIdRef="1" name="xmaterial_usd" sqlTabName="" table_alias_name="" uid="{05dbdc60-3b49-4c3a-a03a-275830ecbd98}"/>
<RecordField colName="" fieldIdRef="21" name="xlabor_usd" sqlTabName="" table_alias_name="" uid="{982ffdf0-c10a-485a-9399-291aa124aefd}"/>
<RecordField colName="" fieldIdRef="22" name="xgastos_usd" sqlTabName="" table_alias_name="" uid="{988ab0db-6fae-498d-bc48-25024dfe1b15}"/>
<RecordField colName="" fieldIdRef="23" name="xtasa" sqlTabName="" table_alias_name="" uid="{0e2987c7-1210-402d-a84e-45226593a4c2}"/>
</Record>
<Form gridHeight="24" gridWidth="84" name="ipfmmt013">
<Grid gridHeight="24" gridWidth="84" name="Grid1" posX="0" posY="0">
<Label gridHeight="1" gridWidth="6" name="Label1" posX="2" posY="8" text="Ventas"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="ventas" comment="1- LOCAL 2- EXPORTACION" defaultValue="1" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="22" include="1|2" items="VENTAS LOCALES" name="iptb00004.ventas" posX="19" posY="8" reverse="true" sqlTabName="iptb00004" sqlType="CHAR" tabIndex="1" table_alias_name="" widget="ComboBox">
<Item lstrtext="false" name="1" text="VENTAS LOCALES"/>
</ComboBox>
<Label gridHeight="1" gridWidth="11" name="Label2" posX="2" posY="9" text="Mes Inicial"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="mes_ini" comment="Digite el mes inicial" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="17" items="ENERO, FEBRERO, MARZO, ABRIL, MAYO, JUNIO, JULIO, AGOSTO, SEPTIEMBRE, OCTUBRE, NOVIEMBRE, DICIEMBRE" name="iptb00004.mes_ini" posX="19" posY="9" sqlTabName="iptb00004" sqlType="CHAR" tabIndex="2" table_alias_name="" widget="ComboBox">
<Item lstrtext="false" name="01" text="ENERO"/>
<Item lstrtext="false" name="02" text="FEBRERO"/>
<Item lstrtext="false" name="03" text="MARZO"/>
<Item lstrtext="false" name="04" text="ABRIL"/>
<Item lstrtext="false" name="05" text="MAYO"/>
<Item lstrtext="false" name="06" text="JUNIO"/>
<Item lstrtext="false" name="07" text="JULIO"/>
<Item lstrtext="false" name="08" text="AGOSTO"/>
<Item lstrtext="false" name="09" text="SEPTIEMBRE"/>
<Item lstrtext="false" name="10" text="OCTUBRE"/>
<Item lstrtext="false" name="11" text="NOVIEMBRE"/>
<Item lstrtext="false" name="12" text="DICIEMBRE"/>
</ComboBox>
<Label gridHeight="1" gridWidth="9" name="Label12" posX="37" posY="9" text="Mes Final"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="mes_fin" comment="Digite el mes final" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="18" items="ENERO, FEBRERO, MARZO, ABRIL, MAYO, JUNIO, JULIO, AGOSTO, SEPTIEMBRE, OCTUBRE, NOVIEMBRE, DICIEMBRE" name="iptb00004.mes_fin" posX="47" posY="9" reverse="true" sqlTabName="iptb00004" sqlType="CHAR" tabIndex="3" table_alias_name="" widget="ComboBox">
<Item lstrtext="false" name="01" text="ENERO"/>
<Item lstrtext="false" name="02" text="FEBRERO"/>
<Item lstrtext="false" name="03" text="MARZO"/>
<Item lstrtext="false" name="04" text="ABRIL"/>
<Item lstrtext="false" name="05" text="MAYO"/>
<Item lstrtext="false" name="06" text="JUNIO"/>
<Item lstrtext="false" name="07" text="JULIO"/>
<Item lstrtext="false" name="08" text="AGOSTO"/>
<Item lstrtext="false" name="09" text="SEPTIEMBRE"/>
<Item lstrtext="false" name="10" text="OCTUBRE"/>
<Item lstrtext="false" name="11" text="NOVIEMBRE"/>
<Item lstrtext="false" name="12" text="DICIEMBRE"/>
</ComboBox>
<Label gridHeight="1" gridWidth="11" name="Label3" posX="2" posY="10" text="Ano"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="ano" comment="Digite el ano" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="iptb00004.ano" posX="19" posY="10" reverse="true" sqlTabName="iptb00004" sqlType="CHAR" tabIndex="4" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="Label4" posX="2" posY="11" text="Codigo"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_n" comment="Digite el NIVEL" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="iptb00004.cod_n" posX="19" posY="11" reverse="true" sqlTabName="iptb00004" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el GRUPO" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="iptb00004.cod_grupo" posX="26" posY="11" reverse="true" sqlTabName="iptb00004" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el TIPO" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="iptb00004.cod_tipo" posX="33" posY="11" reverse="true" sqlTabName="iptb00004" sqlType="SMALLINT" tabIndex="7" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite la SECUENCIA" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00004.cod_sec" posX="40" posY="11" reverse="true" sqlTabName="iptb00004" sqlType="SMALLINT" tabIndex="8" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descripcion" fieldId="11" gridHeight="1" gridWidth="30" name="descripcion" noEntry="true" posX="48" posY="11" reverse="true" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="iptb00002.unidad_med" noEntry="true" posX="79" posY="11" reverse="true" sqlTabName="iptb00002" sqlType="CHAR" tabIndex="10" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label13" posX="2" posY="12" text="Costo USD$"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="1" gridHeight="1" gridWidth="11" name="xmaterial_usd" posX="26" posY="12" sqlTabName="" tabIndex="19" table_alias_name="" title="Edit1" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="21" gridHeight="1" gridWidth="11" name="xlabor_usd" posX="44" posY="12" sqlTabName="" tabIndex="20" table_alias_name="" title="Edit2" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="22" gridHeight="1" gridWidth="11" name="xgastos_usd" posX="63" posY="12" sqlTabName="" tabIndex="21" table_alias_name="" title="Edit3" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label14" posX="2" posY="13" text="Tasa"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="23" gridHeight="1" gridWidth="10" name="xtasa" posX="19" posY="13" sqlTabName="" tabIndex="22" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="15" name="Label5" posX="3" posY="15" text="Costo RD$: Material"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="material" fieldId="18" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="iptb00004.material" posX="19" posY="15" precisionDecimal="12" scaleDecimal="7" sqlTabName="iptb00004" sqlType="DECIMAL" tabIndex="11" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="5" name="Label10" posX="31" posY="15" text="Labor"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="labor" fieldId="19" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="iptb00004.labor" posX="38" posY="15" precisionDecimal="12" scaleDecimal="7" sqlTabName="iptb00004" sqlType="DECIMAL" tabIndex="12" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="Label11" posX="50" posY="15" text="Gastos"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="gastos" fieldId="20" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="iptb00004.gastos" posX="57" posY="15" precisionDecimal="12" scaleDecimal="7" sqlTabName="iptb00004" sqlType="DECIMAL" tabIndex="13" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="iptb00004.status_t" noEntry="true" posX="3" posY="16" sqlTabName="iptb00004" sqlType="CHAR" tabIndex="14" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="15" name="Label6" posX="2" posY="17" text="Usuario Creador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" fieldId="14" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="iptb00004.us_crea" noEntry="true" posX="21" posY="17" reverse="true" sqlTabName="iptb00004" sqlType="CHAR" tabIndex="15" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="19" name="Label8" posX="42" posY="17" text="Usuario Modificador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" fieldId="16" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="iptb00004.us_mod" noEntry="true" posX="64" posY="17" reverse="true" sqlTabName="iptb00004" sqlType="CHAR" tabIndex="16" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="14" name="Label7" posX="2" posY="18" text="Fecha Creacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00004.fech_crea" noEntry="true" posX="21" posY="18" qual1="YEAR" qualFraction="MINUTE" reverse="true" sqlTabName="iptb00004" sqlType="DATETIME" tabIndex="17" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="18" name="Label9" posX="42" posY="18" text="Fecha Modificacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" fieldId="17" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00004.fech_mod" noEntry="true" posX="64" posY="18" qual1="YEAR" qualFraction="MINUTE" reverse="true" sqlTabName="iptb00004" sqlType="DATETIME" tabIndex="18" table_alias_name="" widget="Edit"/>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewBlAGQAOQA2ADMAYgBiADIALQBjAGQAOAA2AC0ANAAwAGQANwAtAGIAZABmADgALQA0AGMAYQAxADcAMwAzAGUAMQBkAGIAMwB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+44
View File
@@ -0,0 +1,44 @@
database marmotech
screen size 24 by 80
{
Ventas [v] [v1 ]
Mes Inicial [f1] [g4 ] Mes Final [f2] [g5 ]
Ano [f002]
Codigo [a ][b ][c ][d ][e ] [g ]
Costo Standard: Material[m3 ]Labor[m4 ]Gastos[m5 ]
[j]
Usuario Creador [f006 ] Usuario Modificador [f008 ]
Fecha Creacion [f007 ] Fecha Modificacion [f009 ]
}
end
tables
iptb00004,iptb00002
attributes
v = iptb00004.ventas,reverse,include = ("1","2"),comments =
"1- LOCAL 2- EXPORTACION";
v1 = formonly.nombre_v,reverse,noentry,queryclear;
f1 = iptb00004.mes_ini,autonext,
comments = "Digite el mes inicial";
g4 = formonly.descrip1;
f2 = iptb00004.mes_fin,reverse,autonext,
comments = "Digite el mes final";
g5 = formonly.descrip2,reverse;
f002 = iptb00004.ano,autonext,reverse,comments = "Digite el ano";
a = iptb00004.cod_n,autonext,reverse,comments = "Digite el NIVEL";
b = iptb00004.cod_grupo,autonext,reverse,comments = "Digite el GRUPO";
c = iptb00004.cod_tipo,autonext,reverse,comments = "Digite el TIPO";
d = iptb00004.cod_sec,autonext,reverse,comments = "Digite la SECUENCIA";
e = formonly.descripcion,noentry,reverse;
g = iptb00002.unidad_med,noentry,reverse;
j = iptb00004.status_t,noentry;
f006 = iptb00004.us_crea,noentry,reverse;
f007 = iptb00004.fech_crea,noentry,reverse;
f008 = iptb00004.us_mod,noentry,reverse;
f009 = iptb00004.fech_mod,noentry,reverse;
m3 = iptb00004.material ,autonext;
m4 = iptb00004.labor ,autonext;
m5 = iptb00004.gastos ,autonext;
instructions
delimiters " "
end

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