NACE/DECOMARMOL
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

primer commit subida

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTOS/irdir/Configuration.4fd
+29
View File
@@ -0,0 +1,29 @@
<?xml version="1.0" encoding="UTF-8" ?>
<Form database_name="formonly" fourSTFile="" gstVersion="15a01" height="12" name="Form1" posX="0" posY="0" text="Configuration" width="59">
<Grid fontPitch="default" height="11" hidden="--------" lstrcomment="false" name="gr2" posX="2" posY="0" width="54">
<Label color="black" colorCondition="black" commentgroup="" flag_text_changed="TRUE" fontPitch="default" format="" geometry="" height="1" hidden="--------" justify="right" lstrcomment="false" lstrtext="false" miscellaneous="" name="lb1" posX="1" posY="0" sample="" sizePolicy="initial" style="" text="Report File" width="9"/>
<FormField colName="r_action" data_type="--------" fieldType="FORM_ONLY" name="" repeatDetails="" sqlTabName="formonly">
<RadioGroup color="black" colorCondition="black" commentgroup="" constraints="" data_type="--------" defaultValue="preview" fontPitch="default" formfieldname="formfield2" geometry="" height="2" hidden="--------" items="" lstrcomment="false" miscellaneous="" name="r_action" noEntry="--------" notNull="--------" orientation="vertical" posX="16" posY="7" repeatDetails="" required="--------" sizePolicy="initial" sortItem="" style="" tabIndex="2" width="10">
<Item lstrtext="" name="preview" text="Preview"/>
<Item lstrtext="false" name="save" text="Save On Disk"/>
</RadioGroup>
</FormField>
<Label color="black" colorCondition="black" commentgroup="" flag_text_changed="TRUE" fontPitch="default" format="" geometry="" height="1" hidden="--------" justify="right" lstrcomment="false" lstrtext="false" miscellaneous="" name="lb3" posX="1" posY="7" sample="" sizePolicy="initial" style="" text="Action" width="9"/>
<Label color="black" colorCondition="black" commentgroup="" flag_text_changed="TRUE" fontPitch="default" format="" geometry="" height="1" hidden="--------" justify="right" lstrcomment="false" lstrtext="false" miscellaneous="" name="lb2" posX="1" posY="2" sample="" sizePolicy="initial" style="" text="Output as" width="9"/>
<FormField colName="r_output" data_type="--------" fieldType="FORM_ONLY" name="" repeatDetails="" sqlTabName="formonly">
<RadioGroup color="black" colorCondition="black" commentgroup="" constraints="" data_type="--------" defaultValue="PDF" fontPitch="default" formfieldname="formfield1" geometry="" height="3" hidden="--------" items="" lstrcomment="false" miscellaneous="" name="r_output" noEntry="--------" notNull="--------" orientation="vertical" posX="16" posY="2" repeatDetails="" required="--------" sizePolicy="initial" sortItem="" style="" tabIndex="1" width="6">
<Item lstrtext="false" name="Image" text="Image"/>
<Item lstrtext="" name="PDF" text="PDF"/>
<Item lstrtext="false" name="SVG" text="SVG"/>
</RadioGroup>
</FormField>
<HLine geometry1="" height="1" name="hl2" posX="1" posY="1" repeatDetails="" width="50"/>
<HLine geometry1="" height="1" name="hl2_1" posX="1" posY="5" repeat="true" repeatDetails="" width="50"/>
<FormField colName="r_filename" data_type="--------" fieldType="FORM_ONLY" hrecindex="-1" name="" repeatDetails="" sqlTabName="formonly">
<ComboBox case="NONE" color="black" colorCondition="black" commentgroup="" constraints="" data_type="--------" defaultValue="ListDemo" fontPitch="default" formfieldname="formfield0" geometry1="" height="1" hidden="--------" initializer="" items="" lstrcomment="false" miscellaneous="" name="r_filename" noEntry="--------" notNull="--------" posX="16" posY="0" queryEditable="--------" required="--------" sample="" scroll="--------" sizePolicy="fixed" style="" tabIndex="3" width="34">
<Item lstrtext="false" name="irprrpcs008" text="Inventario Fisico"/>
<Item lstrtext="false" name="cgprrp001" text="Catalogo Cuentas"/>
</ComboBox>
</FormField>
</Grid>
</Form>
PROYECTOS/irdir/Copy of msg.42m
BIN
View File
Binary file not shown.
PROYECTOS/irdir/Copy of msgrp000.42m
BIN
View File
Binary file not shown.
PROYECTOS/irdir/Copy of seg000.42m
BIN
View File
Binary file not shown.
PROYECTOS/irdir/IMP
+396
View File
@@ -0,0 +1,396 @@
 E
irprrp002 E U R O S T O N E, S. A. Pag. 1
Sistema de Inventario de Repuestos 05/06/2002
Catalogo de Repuestos 19:31
N u m e r i c o AL 05/06/2002

------------------------------------------------------------------------------------------------------------------------------------------------
Dia de Existencia
codigo Descripcion Unidad Llegada S/Mvto.
------------------------------------------------------------------------------------------------------------------------------------------------
EF
1-0-20-001 ADATADORES MANGUERA FLEX. UD 1 .00
Total del grupo = 1
7-0-02-001 DISCO DIAM.400 SAO5 H7 UD 1 .00
7-0-02-002 DISCO DIAM.400 SNT8 H10 UD 1 .00
7-0-02-003 DISCO CURVO P/G.7" UD 1 .00
7-0-02-004 DISCO CURVO P/M.7" UD 1 .00
7-0-02-005 DISCO DE CARBURO DIAM.300 P/M. UD 1 .00
7-0-02-006 DISCO P/G.DIAM. 125MM UD 1 .00
7-0-02-007 DISCO P/M.DIAM. 125MM UD 1 .00
7-0-02-008 DISCO P/M DIAM 230MM UD 1 .00
7-0-02-009 DICO P/M DIAM.300MM TIPO B10 UD 1 .00
7-0-02-010 DISCO P/M.DIAM.500 TIPO B10G UD 1 .00
7-0-02-011 DISCO P/M.DIAM.625MM TIPO B110 UD 1 .00
7-0-02-012 DISCO P/M.DIAM.400 TIPO SAOS UD 1 .00
7-0-02-013 DISCO PLASTICO AEG UD 1 .00
7-0-02-014 DISCO SAID #120 UD 1 .00
7-0-02-015 DISCO SAID #220 UD 1 .00
7-0-02-016 DISCO SAID #220 DIAM.125 UD 1 .00
7-0-02-017 DISCO SAID #400 165X30 UD 1 .00
7-0-02-018 DISCO SAID #80 UD 1 .00
7-0-02-019 DISCO SAID #80 DIAM.125 UD 1 .00
7-0-02-020 DISCO SAIT #220 165X30 UD 1 .00
Total del grupo = 20
7-0-03-001 DISCO DE LIJA #60 UD 1 .00
7-0-03-002 DISCO DE LIJA #120 UD 1 .00
7-0-03-003 DISCO DE LIJA #220 UD 1 .00
7-0-03-004 DISCO DE LIJA #320 UD 1 .00
7-0-03-005 DISCO DE LIJA #400 UD 1 .00
7-0-03-006 DISCO DEE LIJA #500 UD 1 .00
7-0-03-007 DISCO DE LIJA #80 TAF MAX 600 UD 1 .00
7-0-03-008 DISCO DE LIJA #120 7" UD 1 .00
7-0-03-009 DISCO DE LIJA #220 7" UD 1 .00
7-0-03-010 DISCO DE LIJA #80 7" UD 1 .00
7-0-03-011 DISCO P/G DIAM. 7" UD 1 .00
7-0-03-012 DISCO DE LIJA TAF GR.120 UD 1 .00
7-0-03-013 DISCO DE LIJA TAF GR.220 UD 1 .00
7-0-03-014 DISCO DE LIJA TAF GR.80 UD 1 .00
7-0-03-015 DISKIT PN5282 P/DISCO DE LIJA UD 1 .00
7-0-03-016 DISCOS DE LIJA #3 D.100MM UND 1.00
7-0-03-017 DISCOS DE LIJA #4 UND 1.00
7-0-03-018 DISCOS DE LIJA #5 UND 1.00
7-0-03-019 DISCOS DE LIJA #6 UND 1.00
Total del grupo = 19
7-0-04-001 CORONA AGUJERO DIAM.30MM UD 1 .00
7-0-04-002 CORONA AGUJER0 DIAM.100MM P/G. UD 1 .00
 E
irprrp002 E U R O S T O N E, S. A. Pag. 2
Sistema de Inventario de Repuestos 05/06/2002
Catalogo de Repuestos 19:31
N u m e r i c o AL 05/06/2002

------------------------------------------------------------------------------------------------------------------------------------------------
Dia de Existencia
codigo Descripcion Unidad Llegada S/Mvto.
------------------------------------------------------------------------------------------------------------------------------------------------
7-0-04-003 CORREA DE LIJA P/BISELES G.150 UD 1 .00
7-0-04-004 FORETTO DIAM.30 L=100MM UND .00
7-0-04-005 FORETTO DIAM. 40L=100MM UND .00
7-0-04-006 FORETTO DIAM.50 L=100MM UND .00
7-0-04-007 FORETTO DIAM. 80 L=120 MM UND .00
7-0-04-008 LLAVE ALLEN 280/8 UND .00
7-0-04-009 LLAVE COMBINADA 17 UND .00
7-0-04-010 LLAVES MANGUERA FLEXIBLE UND 2.00
7-0-04-011 MOLETTA TIPO 1084 S/DIMEX UND 1.00
Total del grupo = 11
7-0-07-001 CARBON -100 PULIDORA MAQUITA PAR 1 .00
7-0-07-002 RODAMIENTO P/PULIDORA MAQUITA UND .00
Total del grupo = 2
7-0-09-001 BOLITAS RESBALADORAS NESPOLI UD 1 .00
7-0-09-002 CARBON NESPOLI PAR 1 .00
7-0-09-003 EJE 2-CABEZA ROSCADA & CUADRAD UD 1 .00
7-0-09-004 POTECIOMETRO P/CORTADORA UND .00
7-0-09-005 RUEDA DE MESA UND 2.00
7-0-09-006 TASTATORE-ARANDELA UND .00
7-0-09-007 VALVULA P/ENFRIAMIENTO ACEITE UND 1.00
Total del grupo = 7
7-0-11-001 ADAPTADOR P/MANGUERA FLEX.1/2 UD .00
7-0-11-002 ADAPTADOR P/MANGUERA FLEX.3/4 UD .00
7-0-11-003 CORREA DE LIJA P/BISELES G.80 UD 1 .00
7-0-11-004 MANGUERA FLEXIBLE PARA AGUA MT 1.07
7-0-11-005 MOLA A20 POS.2 UND 1.00
7-0-11-006 MOLA F20 POS 3/4 UND 1.00
7-0-11-007 MOLA F20 POS 5/6 UND 1.00
7-0-11-008 MOLA F40 POS.3 UND .00
7-0-11-009 MOLA F40 POS.6 UND .00
7-0-11-010 MOLA F40 POS.4 UND 1.00
7-0-11-011 MOLA F40 POS.5 UND 1.00
7-0-11-012 MOLA L20 P.2 UND 1.00
7-0-11-013 MOLA PLATORETO TIPO M14 100MM UND 2.00
7-0-11-014 MOLA V30 POS.2 UND 1.00
7-0-11-015 MOLA V30 POS.3 UND 1.00
7-0-11-016 MOLA V30 POS.4 UND 1.00
7-0-11-017 MOLA V30 POS.5 UND 1.00
7-0-11-018 MOLA V30 POS.6 UND 1.00
7-0-11-019 MOLA V40 POS.2 UND 1.00
7-0-11-020 MOLA V40 POS.3 UND 1.00
7-0-11-021 MOLA V40 POS.6 UND 1.00
7-0-11-022 MOLA V40.1 UND 1.00
7-0-11-023 PERNO P/CORREA UND .00
7-0-11-024 PERNO P/CORREA UND 1.00
7-0-11-025 PERNO PULEGIA UND 1.00
Total del grupo = 25
 E
irprrp002 E U R O S T O N E, S. A. Pag. 3
Sistema de Inventario de Repuestos 05/06/2002
Catalogo de Repuestos 19:31
N u m e r i c o AL 05/06/2002

------------------------------------------------------------------------------------------------------------------------------------------------
Dia de Existencia
codigo Descripcion Unidad Llegada S/Mvto.
------------------------------------------------------------------------------------------------------------------------------------------------
7-0-12-001 TORNILLO 3.5 UND 2.00
7-0-12-002 TORNILLO 5 UND 2.00
7-0-12-003 TORNILLO 5.5 UND 2.00
7-0-12-004 TORNILLO 6.5 UND 2.00
7-0-12-005 TORNILLO 7.5 UND 2.00
7-0-12-006 TORNILLO 8.5 UND 2.00
7-0-12-007 TORNILLO DE 3/4 EXAG. ALLEN UND 49.00
Total del grupo = 7
7-0-13-001 GOMA PROTECTORA AGUA MAQ. TECH 2.00
7-0-13-002 LIJA #120 UND 45.00
7-0-13-003 LIJA #220 UND 39.00
7-0-13-004 MOLA DIAM 100 UND .00
7-0-13-005 SOPORTE P/PIEDRAS CIRCULARES UND 2.00
7-0-13-006 INCOUDER UND 1.00
7-0-13-007 ADAPTADORES MANGUERA DE AIRE UND 5.00
7-0-13-008 TORNILLOS 8.8 CON ARANDELAS UND 2.00
7-0-13-009 TORNILLOS SIN CABEZA 7 CM UND 3.00
7-0-13-010 TORNILLOS SIN CABEZA 8 CM UND 1.00
Total del grupo = 10
7-0-14-001 CEPILLO FRANKFURT #46 UD 1 .00
7-0-14-002 CEPILLO FRANKFURT #6 UD 1 .00
7-0-14-003 CEPILLO FRANKFURT #60 UD 1 .00
Total del grupo = 3
7-0-15-001 PURIFICANTE SISTEMA DE RECICLA LIB 50.00
Total del grupo = 1
7-0-16-001 RODAMIENTO 6000C3 UND 1.00
7-0-16-002 RODAMIENTO 6002-2RSR UND 1.00
7-0-16-003 RODAMIENTO 6003-2RSR.C3 UND 2.00
7-0-16-004 RODAMIENTO 6006 2ZR C3 UND 1.00
7-0-16-005 RODAMIENTO 608Z P/PULIDORA HIT UND .00
7-0-16-006 RODAMIENTO 6201 2RZ1 UND 1.00
7-0-16-007 RODAMIENTO 6206 UND .00
7-0-16-008 RODAMIENTO 6306 2ZC3 UND 1.00
Total del grupo = 8
7-0-20-001 ADAPTADOR PVC HEMBRA 1 1/2 UD .00
7-0-20-002 ADAPTADOR PVC MACHO UD 1 .00
7-0-20-003 AMARES PLASTICOS UD 1 .00
7-0-20-004 ARENA SILICA UD 1 .00
7-0-20-005 BARILLA DE SOLDAR LB. 1 .00
7-0-20-006 BARRA ROSCADA 1/4 UD 1 .00
7-0-20-007 BISAGRAS TIPO LIBROS 4" UD 1 .00
7-0-20-008 BOMBILLOS 100 WATTS UD 1 .00
7-0-20-009 BOMBILLOS 40 WATTS UD 1 .00
 E
irprrp002 E U R O S T O N E, S. A. Pag. 4
Sistema de Inventario de Repuestos 05/06/2002
Catalogo de Repuestos 19:31
N u m e r i c o AL 05/06/2002

------------------------------------------------------------------------------------------------------------------------------------------------
Dia de Existencia
codigo Descripcion Unidad Llegada S/Mvto.
------------------------------------------------------------------------------------------------------------------------------------------------
7-0-20-010 BOTAS DE AGUA PAR 1 .00
7-0-20-011 CAJA ELECTRICA 2 X 4 X 1/2 UD 1 .00
7-0-20-012 CAMISETAS UD 1 .00
7-0-20-013 CARBON L59 PULIDORA WSA 1900 PAR 1 .00
7-0-20-014 CARBON R19 PAR 1 .00
7-0-20-015 CARBONES PULIDORA WSA900 PAR 1 .00
7-0-20-016 CEMENTO BLANCO LB. 1 .00
7-0-20-017 CIERRE PARA FLEJE UD 1 .00
7-0-20-018 CINTA METRICA TRUPER UD 1 .00
7-0-20-019 CINTA PARA EMPACAR EUROSTONE UD 1 .00
7-0-20-020 CINTA PARA MEDIR P."METRO" UD 1 .00
7-0-20-021 CODO PVC 1 1/2" PRESION UD 1 .00
7-0-20-022 CODO PVC 2 1/2 DRENAJE UD 1 .00
7-0-20-023 CODO PVC 2*2 PRESION UD 1 .00
7-0-20-024 CODO PVC PRESION DE 1/2 UD 1 .00
7-0-20-025 COUPLING PVC 1" UD 1 .00
7-0-20-026 ESMALTE AMARILLO GL .25
7-0-20-027 ESMALTE AZUL GL 1.00
7-0-20-028 ESPATULA TRUPPER 2" UND .00
7-0-20-029 ESPONJA ROJA UND 10.00
7-0-20-030 ESPONJA GR #4 AMARILLA UND 10.00
7-0-20-031 ESPONJA GR #5 BLANCA UND 10.00
7-0-20-032 ESPONJA GR #6 AZUL UND 11.00
7-0-20-033 FERREC POPULAR M500 GL .00
7-0-20-034 FIELTRO 8" UND 17.00
7-0-20-035 FILTRO DE ACEITE PZ-34 VOLVO UND 1.00
7-0-20-036 GOMA P/MONTACARGAS UND 1.00
7-0-20-037 GORRAS UND 16.00
7-0-20-038 GRASA CITGO DE 14 OZ-TUBO UND 8.00
7-0-20-039 GRASA SINTETICA SENTINEL UND 1.00
7-0-20-040 GUANTES PLASTICOS AMARILLO PAR .50
7-0-20-041 GUANTES PLASTICOS NEGROS PAR 1.00
7-0-20-042 LAMINA DE ALUMINIO DE 20CM UND 4.00
7-0-20-043 LAMINA ALUMINIO DE 73 CM UND 2.00
7-0-20-044 LAMPARA ELECTRONICA 20W UND 1.00
7-0-20-045 LAPIZA DE CERA UND 12.00
7-0-20-046 LAPIZ DE CARBON INDUSTRIAL UND 65.00
7-0-20-047 LENTES PROTECTORES UND 3.00
7-0-20-048 MALLA PLASTICA PARA REFORZAR 1.25
7-0-20-049 MANDIL PLASTICO UND 13.00
7-0-20-050 MANDILES DE TELA UND 2.00
7-0-20-051 MARCADORES DE CERA ROJO UND 7.00
7-0-20-052 MARCADORES INDUSTRIALES UND 33.00
7-0-20-053 MASCARILLAS DESECHABLES UND 131.00
7-0-20-054 MASKINTAPE 3/4 UND 7.00
7-0-20-055 NIPLE DE 1/2 UND 1.00
7-0-20-056 OXI...NO UND 1.00
7-0-20-057 OXIDO ROJO GL 1.00
7-0-20-058 PISTOLA P/SILICONE UND 3.00
7-0-20-059 PROTECTOR DE ROSTRO UND 1.00
7-0-20-060 REDUCCION DE 1/2 UND 1.00
7-0-20-061 REDUCCION DRENAJE 1 1/2 X 1 UND 1.00
7-0-20-062 ROLLO DE FLEJE UND 3.75
7-0-20-063 ROLLO DE BRILLO UND 1.50
 E
irprrp002 E U R O S T O N E, S. A. Pag. 5
Sistema de Inventario de Repuestos 05/06/2002
Catalogo de Repuestos 19:31
N u m e r i c o AL 05/06/2002

------------------------------------------------------------------------------------------------------------------------------------------------
Dia de Existencia
codigo Descripcion Unidad Llegada S/Mvto.
------------------------------------------------------------------------------------------------------------------------------------------------
7-0-20-064 SACO PLASTICO P/S RECICLAJE UND 4.00
7-0-20-065 SIFON 1 1/2 UND 1.00
7-0-20-066 SILICONE TRANSPARENTE - TUBO UND 38.00
7-0-20-067 SILICONE WAX UX-SL UND .00
7-0-20-068 TEE DE 1" UND 1.00
7-0-20-069 TEE DE 2" UND 1.00
7-0-20-070 THINNER GL 2.75
7-0-20-071 TUBOS FLUOSRESCENTES UND 4.00
Total del grupo = 71
7-1-11-001 ADAPTADOR P/MANGUERA FLEX.MPS UD 1 .00
7-4-11-001 CORREA MPS UD 1 .00
Total del grupo = 2
EPIEDRAS PARA PULIRF
7-0-01-001 CASSANI EVOLUTION GR20 UD 1 .00
7-0-01-002 DIAMANTE PARA BORDEADORA UD 1 .00
7-0-01-003 PIEDRA CASSANI #280 UND .00
7-0-01-004 PIEDRA CASSANI #30 UND .00
7-0-01-005 PIEDRA CASSANI #360 UND 72.00
7-0-01-006 PIEDRA CASSANI #60 UND 69.00
7-0-01-007 PIEDRA CASSANI #600 UND 93.00
7-0-01-008 PIEDRA CASSANI #00 UND 42.00
7-0-01-009 PIEDRA CASSANI #10X UND 4.00
7-0-01-010 PIEDRA CASSANI #120 UND 178.00
7-0-01-011 PIEDRA CASSANI #220 UND 126.00
7-0-01-012 PIEDRA COPA #120 UND 57.00
7-0-01-013 PIEDRA COPA #220 UND 49.00
7-0-01-014 PIEDRA COPA #320 UND 1.00
7-0-01-015 PIEDRA COPA #36 UND 37.00
7-0-01-016 PIEDRA COPA #400 UND .00
7-0-01-017 PIEDRA COPA #80 UND 30.00
7-0-01-018 PIEDRA FRANKFURT #10X UND .00
7-0-01-019 PIEDRA FRANKFURT #120 UND 50.00
7-0-01-020 PIEDRA FRANKFURT #220 UND 1.00
7-0-01-021 PIEDRA FRANKFURT #320 UND 60.00
7-0-01-022 PIEDRA FRANKFURT #360 UND .00
7-0-01-023 PIEDRA FRANKFURT #46 UND 31.00
7-0-01-024 PIEDRA FRANKFURT #80 UND 61.00
7-0-01-025 PIEDRA FRANKFURT 5X UND 63.00
7-0-01-026 PIEDRAS CIRCULARES #120 UND 4.00
7-0-01-027 PIEDRAS CIRCULARES #220 UND 1.00
7-0-01-028 PIEDRAS CIRCULARES #320 UND 4.00
7-0-01-029 PIEDRAS CIRCULARES #600 UND 5.00
7-0-01-030 PIEDRAS CIRCULARES 3/4 UND 1.00
7-0-01-031 PIEDRAS CIRCULARES GR-120 UND 16.00
7-0-01-032 PIEDRAS CIRCULARES GR-220 UND 22.00
7-0-01-033 PIEDRAS CIRCULARES GR-320 UND 15.00
7-0-01-034 PIEDRAS CIRCULARES GR-600 UND 21.00
7-0-01-035 PIEDRAS CIRCULARES GR-60 UND 22.00
 E
irprrp002 E U R O S T O N E, S. A. Pag. 6
Sistema de Inventario de Repuestos 05/06/2002
Catalogo de Repuestos 19:31
N u m e r i c o AL 05/06/2002

------------------------------------------------------------------------------------------------------------------------------------------------
Dia de Existencia
codigo Descripcion Unidad Llegada S/Mvto.
------------------------------------------------------------------------------------------------------------------------------------------------
7-0-01-036 PIEDRAS CIRCULARES GR-LUX UND 24.00
7-0-01-037 PIEDRAS CIRCULARES LUX P/G UND 2.00
7-0-01-038 PIEDRAS CIRCULARES LUX P/M UND 2.00
Total del grupo = 38
Total de Registros Impresos = 225
===================================================================================================================================

PROYECTOS/irdir/TESTREPORT.4pw
+11
View File
@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf8" ?>
<Workspace defaultApplication="2" id="0" version="2.0">
<Project id="1" label="TESTREPROT">
<Application externalDependencies=" helpers.42m||CompatCustom.42m||CaptionCustom.42m||EncodingCustom.42m||isotools.42m" id="2" label="CONTEO">
<File filePath="Configuration.4fd" id="5"/>
<File filePath="conteo.4gl" id="3"/>
<File filePath="conteo.rdd" id="6"/>
<File filePath="salidaimpresora.4gl" id="4"/>
</Application>
</Project>
</Workspace>
PROYECTOS/irdir/TESTREPORT.deps
+5
View File
@@ -0,0 +1,5 @@
<?xml version="1.0" encoding="utf8" ?>
<FileContentsDatabase version="1.0">
<File dependencies="" filePath="/home/juan/GENERO/PROYECTOS/irdir/conteo.4gl" references="" timestamp="20091130172406"/>
<File dependencies="" filePath="/home/juan/GENERO/PROYECTOS/irdir/salidaimpresora.4gl" references="" timestamp="20091127090016"/>
</FileContentsDatabase>
PROYECTOS/irdir/TopMenu.4st
+7
View File
@@ -0,0 +1,7 @@
<?xml version="1.0" encoding="ANSI_X3.4-1968"?>
<StyleList>
<Style name="Window.basic">
<StyleAttribute name="actionPanelPosition" value="none" />
<StyleAttribute name="ringMenuPosition" value="none" />
</Style>
</StyleList>
PROYECTOS/irdir/acmn00000.erc
+3
View File
@@ -0,0 +1,3 @@
acmn00000.4gl
No such file or directory. The input file "acmn00000.4gl" cannot be opened.
PROYECTOS/irdir/acmnmt000.erc
+3
View File
@@ -0,0 +1,3 @@
acmnmt000.4gl
No such file or directory. The input file "acmnmt000.4gl" cannot be opened.
PROYECTOS/irdir/ar
+9
View File
@@ -0,0 +1,9 @@
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
PROYECTOS/irdir/bin/CONTEO.42r
BIN
View File
Binary file not shown.
PROYECTOS/irdir/bin/Configuration.42f
+34
View File
@@ -0,0 +1,34 @@
<?xml version='1.0' encoding='UTF-8'?>
<Form name="Configuration" build="2.20.06-1369.77" text="Configuration" width="51" height="12">
<Grid name="gr2" width="51" height="12">
<Label name="lb1" width="9" text="Report File" justify="right" posY="0" posX="1" gridWidth="9"/>
<FormField name="formonly.r_filename" colName="r_filename" fieldId="0" sqlTabName="formonly" defaultValue="ListDemo" tabIndex="3">
<ComboBox width="32" sizePolicy="fixed" posY="0" posX="16" gridWidth="34">
<Item name="conteo" text="Inventario Fisico"/>
<Item name="CategorychartRevenueByCategoriesAndCustomers" text="Categorychart Revenue by Categories and Customers"/>
</ComboBox>
</FormField>
<HLine posY="1" posX="1" gridWidth="50"/>
<Label name="lb2" width="9" text="Output as" justify="right" posY="2" posX="1" gridWidth="9"/>
<FormField name="formonly.r_output" colName="r_output" fieldId="1" sqlTabName="formonly" defaultValue="PDF" tabIndex="1">
<RadioGroup width="6" posY="2" posX="16" gridWidth="6" gridHeight="3">
<Item name="Image" text="Image"/>
<Item name="PDF" text="PDF"/>
<Item name="SVG" text="SVG"/>
</RadioGroup>
</FormField>
<HLine posY="5" posX="1" gridWidth="50"/>
<Label name="lb3" width="9" text="Action" justify="right" posY="7" posX="1" gridWidth="9"/>
<FormField name="formonly.r_action" colName="r_action" fieldId="2" sqlTabName="formonly" defaultValue="preview" tabIndex="2">
<RadioGroup width="10" posY="7" posX="16" gridWidth="10" gridHeight="2">
<Item name="preview" text="Preview"/>
<Item name="save" text="Save On Disk"/>
</RadioGroup>
</FormField>
</Grid>
<RecordView tabName="formonly">
<Link colName="r_filename" fieldIdRef="0"/>
<Link colName="r_output" fieldIdRef="1"/>
<Link colName="r_action" fieldIdRef="2"/>
</RecordView>
</Form>
PROYECTOS/irdir/bin/conteo.42m
BIN
View File
Binary file not shown.
PROYECTOS/irdir/bin/conteo.4rp
+47
View File
@@ -0,0 +1,47 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" version="1.0">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength">
<report:FormatList>
<report:Format-SVG></report:Format-SVG>
<report:Format-PDF></report:Format-PDF>
<report:Format-image></report:Format-image>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../irdir/conteo.rdd" RWFglReportName="imprime"></report:Data>
<rtl:stylesheet>
<rtl:match nameConstraint="Report">
<PXML name="irprrpcs008.4rp">
<rtl:match nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded"></rtl:match>
<MINIPAGE name="MiniPage17" width="max" length="max">
<LAYOUTNODE name="Layout Node6" width="560.642" length="66.9887">
<MINIPAGE name="ENCABEZA" width="64.4166" length="575" fontSize="14" fontBold="true" layoutDirection="leftToRight">
<IMAGEBOX name="ImageBox2" x="15.5922" y="12.7774" width="102.702" anchorX="0" anchorY="0" url="../../mtech/mtech.jpg"></IMAGEBOX>
<WORDBOX name="nombre_cia Caption" x="16.637" y="142.542" width="{max(width(&quot;{nombre_cia.caption}&quot;),width(&quot;M&quot;)*20)}" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{nombre_cia.value}}"></WORDBOX>
<WORDBOX name="WordBox31" x="32.0527" y="181.656" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="CONTEO FISICO"></WORDBOX>
<PAGENOBOX name="PageNoBox4" x="15.4978" y="550" width="16.0225" alignment="baseline" baselineType="rightright" textAlignment="right"></PAGENOBOX>
<WORDBOX name="WordBox59" x="15.3173" y="459.022" alignment="baseline" baselineType="leftleft" text="PAGINA NO"></WORDBOX>
</MINIPAGE>
<MINIPAGE name="SENCABEZA" width="20.7528" length="581.751" bgColor="#d6d6a0" fontSize="12" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="TCODIGO" x="5" y="12.8395" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="CODIGO"></WORDBOX>
<WORDBOX name="TDESCRIPCION" x="5" y="90" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="DESCRIPCION"></WORDBOX>
<WORDBOX name="TTEORICO" x="5" y="330" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="TEORICO"></WORDBOX>
<WORDBOX name="TDIFERENCIA" x="5" y="400" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="DIFERENCIA"></WORDBOX>
<WORDBOX name="TFISICO" x="5" y="270" width="50" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="FISICO"></WORDBOX>
</MINIPAGE>
</LAYOUTNODE>
<MINIPAGE name="DETALLE" width="20" length="max" alignment="near" fontSize="9" layoutDirection="leftToRight">
<WORDBOX name="pcodigo Caption" x="48.6128" y="-1.77636e-15" width="91.0672" length="9.10672" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{pcodigo.value}}"></WORDBOX>
<WORDBOX name="x.descripcion Caption" x="48.6128" y="102.872" width="95.5841" alignment="far" baselineType="leftleft" text="{{x.descripcion.value}}"></WORDBOX>
<WORDBOX name="x.unidad_med Caption" x="48.6128" y="210" width="{max(width(&quot;{x.unidad_med.caption}&quot;),width(&quot;W&quot;)*4)}" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med.value}}"></WORDBOX>
<WORDBOX name="x.fisico Caption" x="63.5639" y="267.909" width="{max(width(&quot;{x.fisico.caption}&quot;),width(&quot;000,000,000.00&quot;))}" anchorX="1" anchorY="0" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.fisico.format(&quot;###,###.####&quot;)}}"></WORDBOX>
<WORDBOX name="x.teorico Caption" x="63.5639" y="330" width="{max(width(&quot;{x.teorico.caption}&quot;),width(&quot;000,000,000.00&quot;))}" anchorX="1" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.teorico.format(&quot;###,###.####&quot;)}}"></WORDBOX>
<WORDBOX name="x.diferencia Caption" x="63.5639" y="370" width="{max(width(&quot;{x.diferencia.caption}&quot;),width(&quot;000,000,000.00&quot;))}" anchorX="1" alignment="baseline" color="{{x.diferencia&lt;0?Color.RED:Color.BLACK}}" baselineType="rightright" textAlignment="right" text="{{x.diferencia.format(&quot;(((((,((#.###)&quot;)}}" trimText="right"></WORDBOX>
<LAYOUTNODE name="Layout Node2" width="min" length="21.5056" alignment="near" floatingBehavior="enclosed">
<WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*20" alignment="baseline" baselineType="leftleft" text="{{total_general.toString()}}"></WORDWRAPBOX>
</LAYOUTNODE>
</MINIPAGE>
</MINIPAGE>
</PXML>
</rtl:match>
</rtl:stylesheet>
</report:Report>
PROYECTOS/irdir/bin/desktop.ini
BIN
View File
Binary file not shown.
PROYECTOS/irdir/bin/salidaimpresora.42m
BIN
View File
Binary file not shown.
PROYECTOS/irdir/busca_c.sql
+3
View File
@@ -0,0 +1,3 @@
select cod_n,cod_grupo,cod_tipo,cod_Sec,count(*) from irtb00008
group by 1,2,3,4
having count(*) > 1
PROYECTOS/irdir/busca_m.sql
+3
View File
@@ -0,0 +1,3 @@
select cod_mov,max(num_doc) from intb00006
where num_doc < 1000
group by 1
PROYECTOS/irdir/cambia
+6
View File
@@ -0,0 +1,6 @@
for i in `cat lista`
do
sed -e 's/irtb00002/irtb00002/g' < $i > ../tmp/$i
echo $i
done
PROYECTOS/irdir/conteo.4gl
+101
View File
@@ -0,0 +1,101 @@
MAIN
DEFINE iconteo RECORD
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_Sec SMALLINT,
descripcion CHAR(40),
unidad_med CHAR(4),
fisico DEC(12,4),
teorico DEC(12,4),
diferencia DEC(12,4),
costo DEC(12,4),
valor1 DEC(12,4),
valor2 DEC(12,4),
usuario CHAR(40),
fechacrea DATETIME YEAR TO MINUTE
END RECORD,
pnombre_cia CHAR(30)
DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
r_filename STRING, -- filename of Report Design Document including .4rp extension
r_output STRING, -- output format option
preview INTEGER -- TRUE/FALSE, to set preview option
DEFER INTERRUPT
--pregunta al usuario por la salida del reporte
CALL selectOutput() RETURNING r_filename, r_output, preview
-- configure report engine; the functions prefixed fgl that are called here are part of the GRW API
IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
LET handler = fgl_report_commitCurrentSettings() -- commit changes
ELSE
EXIT PROGRAM
END IF
--run the report
IF handler IS NOT NULL THEN -- report engine was configured ok
START REPORT imprime TO "archivo"
CONNECT TO "decomarmol" USER "jsoto" USING "lmmjvsd2009"
LET pnombre_Cia = "M A R M O T E C H, S. A." # ESTO LO TENGO EN UNA TABLA, LA IGUALE AL VALOR PARA NO PASARTE ESTA ESTRUCTURA
DECLARE busca_conteo CURSOR FOR
SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,b.descrip_esp,b.unidad_med,a.cantidad,'0','0','0','0','0',a.us_crea,a.fech_crea
FROM irtb00002 AS b LEFT OUTER JOIN irtb00011 AS a
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 AND
a.cod_n = 7 and a.cod_grupo = 0 and a.cod_tipo = 0 and
a.cod_Sec between 3 and 13
and CAST(a.fecha AS DATE) = '11/18/2009'
ORDER by b.cod_n,b.cod_Grupo,b.cod_tipo,b.cod_sec
FOREACH busca_conteo INTO iconteo.*
OUTPUT TO REPORT imprime(iconteo.*,pnombre_cia)
END FOREACH
ELSE
EXIT PROGRAM
END IF
END MAIN
REPORT imprime(x,nombre_cia)
DEFINE x RECORD
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_Sec SMALLINT,
descripcion CHAR(40),
unidad_med CHAR(4),
fisico DEC(12,4),
teorico DEC(12,4),
diferencia DEC(12,4),
costo DEC(12,4),
valor1 DEC(12,4),
valor2 DEC(12,4),
usuario CHAR(40),
fechacrea DATETIME YEAR TO MINUTE
END RECORD,
nombre_cia CHAR(50),
pcodigo CHAR(20),
total_general dec(12,2)
ORDER EXTERNAL BY nombre_cia
FORMAT
PAGE HEADER
ON EVERY ROW
LET pcodigo = x.cod_n USING "&&","-",x.cod_grupo USING "&&&&","-",
x.cod_tipo USING "&&&&","-",x.cod_sec USING "&&&&"
# LET total_general = total_general + x.valor2
PRINTX pcodigo,x.*,nombre_cia,total_general
ON LAST ROW
LET total_general = SUM(x.valor2)
END REPORT
PROYECTOS/irdir/conteo.4rp
+59
View File
@@ -0,0 +1,59 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" version="1.0">
<report:Settings>
<report:FormatList>
<report:Format-SVG></report:Format-SVG>
<report:Format-PDF></report:Format-PDF>
<report:Format-image></report:Format-image>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="conteo.rdd" RWFglReportName="imprime"></report:Data>
<rtl:stylesheet>
<rtl:match nameConstraint="Report">
<PXML name="irprrpcs008.4rp">
<MINIPAGE name="Page Root" width="min" length="min" alignment="center">
<LAYOUTNODE name="Page Header" width="566.894" length="80" fontSize="14" fontBold="true" layoutDirection="topToBottom" baselineType="leftleft" port="anyPageHeader" floatingBehavior="enclosed">
<MINIPAGE name="MiniPage3" width="62.6853" alignment="center" layoutDirection="leftToRight" baselineType="leftleft" hidePageHeaderOnLastPage="true">
<WORDBOX name="WordBox10" x="36.6027" y="184.931" alignment="baseline" baselineType="leftleft" text="CONTEO FISICO"></WORDBOX>
<WORDWRAPBOX name="nombre_cia Value" x="3.57773" y="136.747" width="width(&quot;M&quot;)*20" anchorX="0" anchorY="0" alignment="center" baselineType="leftleft" text="{{nombre_cia}}"></WORDWRAPBOX>
<IMAGEBOX name="ImageBox1" x="6.96577" y="8.38799" length="39.7106" anchorX="0" anchorY="0" url="{{&quot;file:///F:/MASTER/IMAGENES/LOGO.JPG&quot;}}"></IMAGEBOX>
<PAGENOBOX name="PageNoBox1" y="490" alignment="baseline" baselineType="leftleft" textAlignment="right"></PAGENOBOX>
<WORDBOX name="WordBox28" y="403.816" alignment="baseline" baselineType="leftleft" text="Pagina No. "></WORDBOX>
</MINIPAGE>
<MINIPAGE name="SPAGEHEADER" width="max" length="36.8203" alignment="baseline" bgColor="#f3f3b6" floatingBehavior="enclosed" hidePageHeaderOnLastPage="true">
<MINIPAGE name="MiniPage9" width=".1cm" length="max" alignment="baseline" bgColor="#0d0d0d" fontBold="true" layoutDirection="leftToRight"></MINIPAGE>
<WORDBOX name="CODIGO" y="20" alignment="baseline" fontSize="10" baselineType="leftleft" text="CODIGOS"></WORDBOX>
<WORDBOX name="DESCRIPCION" x="118.44" y="20" alignment="baseline" fontSize="10" baselineType="leftleft" text="DESCRIPCION"></WORDBOX>
<WORDBOX name="FISICO" x="252.838" y="20" alignment="baseline" fontSize="10" baselineType="leftleft" text="FISICO"></WORDBOX>
<WORDBOX name="TEORICO" x="301.489" y="20" alignment="baseline" fontSize="10" baselineType="leftleft" text="TEORICO"></WORDBOX>
<WORDBOX name="DIFERENCIA" x="355.97" y="20" alignment="baseline" fontSize="10" baselineType="leftleft" text="DIFERENCIA"></WORDBOX>
<WORDBOX name="VALOR" x="439.511" y="20" alignment="baseline" fontSize="10" baselineType="leftleft" text="VALOR"></WORDBOX>
<WORDBOX name="VALOR2" x="489.802" y="20" alignment="baseline" fontSize="10" baselineType="leftleft" text="VALOR LIBRO"></WORDBOX>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="DETALLE" width="38.0675" length="max" layoutDirection="leftToRight">
<LAYOUTNODE name="Layout Node9" x="40" width="max" alignment="far" fontSize="9">
<WORDBOX name="pcodigo Value" y="20" alignment="baseline" baselineType="leftleft" text="{{pcodigo}}"></WORDBOX>
<WORDWRAPBOX name="x.descripcion Value" x="95" y="20" width="115.91" length="10.763" alignment="none" baselineType="leftleft" text="{{x.descripcion}}"></WORDWRAPBOX>
<DECIMALFORMATBOX name="x.valor2 Value" x="482.378" y="20.0488" anchorX="1" alignment="baseline" baselineType="leftleft" textAlignment="right" format="###,###,##&amp;.&amp;&amp;" value="{{x.valor2}}"></DECIMALFORMATBOX>
<DECIMALFORMATBOX name="x.valor1 Value" x="560" y="20" anchorX="1" alignment="baseline" baselineType="leftleft" textAlignment="right" format="###,###,##&amp;.&amp;&amp;" value="{{x.valor1}}"></DECIMALFORMATBOX>
<DECIMALFORMATBOX name="x.diferencia Value" x="418.679" y="20.7501" anchorX="1" alignment="baseline" color="{{x.diferencia.value&lt;0?Color.RED:Color.BLACK}}" baselineType="leftleft" textAlignment="right" format="{{&quot;---,---,--&amp;.&amp;&amp;&quot;}}" value="{{x.diferencia}}"></DECIMALFORMATBOX>
<DECIMALFORMATBOX name="x.teorico Value" x="360" y="20" anchorX="1" alignment="baseline" baselineType="leftleft" textAlignment="right" format="###,###,##&amp;.&amp;&amp;" value="{{x.teorico}}"></DECIMALFORMATBOX>
<WORDBOX name="x.unidad_med Value" x="216.748" y="19.0738" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med}}"></WORDBOX>
<DECIMALFORMATBOX name="x.fisico Value" x="310" y="20" anchorX="1" alignment="baseline" baselineType="leftleft" textAlignment="right" format="###,###,##&amp;.&amp;&amp;" value="{{x.fisico}}"></DECIMALFORMATBOX>
</LAYOUTNODE>
</MINIPAGE>
</rtl:match>
</rtl:match>
<LAYOUTNODE name="Layout Node10" y="max" width="max" length="min" alignment="baseline" baselineType="leftleft">
<MINIPAGE name="MiniPage9" width=".1cm" length="max" alignment="baseline" bgColor="#0d0d0d" fontBold="true" layoutDirection="leftToRight" baselineType="leftleft" hidePageFooterOnLastPage="true"></MINIPAGE>
<WORDBOX name="WordBox15" alignment="baseline" fontBold="true" baselineType="leftleft" text="TOTAL GENERAL"></WORDBOX>
<DECIMALFORMATBOX name="total_general Value" x="220" y="1" anchorX="1" alignment="baseline" fontBold="true" baselineType="leftleft" textAlignment="right" format="###,###,##&amp;.&amp;&amp;" value="{{total_general}}"></DECIMALFORMATBOX>
</LAYOUTNODE>
</MINIPAGE>
</PXML>
</rtl:match>
</rtl:stylesheet>
</report:Report>
PROYECTOS/irdir/conteo.rdd
+223
View File
@@ -0,0 +1,223 @@
S^1^0^M^conteo^MODULE
S^2^1^R^imprime^
F^0^conteo.4gl
D^2^63^101^8^0^0
X^2^D^63^8^0
X^2^c^55^26^0
X^2^c^39^19^0
S^3^2^P^x^RECORD
D^3^64^80^9^0^0
X^3^r^99^28^0
X^3^r^96^20^0
X^3^r^94^46^0
X^3^r^94^18^0
X^3^r^93^42^0
X^3^r^93^19^0
X^3^l^63^16^0
X^3^D^64^9^0
S^4^3^P^cod_n^SMALLINT
D^4^65^65^3^0^0
X^4^r^93^21^0
X^4^D^65^3^0
S^5^3^P^cod_grupo^SMALLINT
D^5^66^66^3^0^0
X^5^r^93^44^0
X^5^D^66^3^0
S^6^3^P^cod_tipo^SMALLINT
D^6^67^67^3^0^0
X^6^r^94^20^0
X^6^D^67^3^0
S^7^3^P^cod_sec^SMALLINT
D^7^68^68^3^0^0
X^7^r^94^48^0
X^7^D^68^3^0
S^8^3^P^descripcion^CHAR(40)
D^8^69^69^3^0^0
X^8^D^69^3^0
S^9^3^P^unidad_med^CHAR(4)
D^9^70^70^3^0^0
X^9^D^70^3^0
S^10^3^P^fisico^DECIMAL(12,4)
D^10^71^71^3^0^0
X^10^D^71^3^0
S^11^3^P^teorico^DECIMAL(12,4)
D^11^72^72^3^0^0
X^11^D^72^3^0
S^12^3^P^diferencia^DECIMAL(12,4)
D^12^73^73^3^0^0
X^12^D^73^3^0
S^13^3^P^costo^DECIMAL(12,4)
D^13^74^74^3^0^0
X^13^D^74^3^0
S^14^3^P^valor1^DECIMAL(12,4)
D^14^75^75^3^0^0
X^14^D^75^3^0
S^15^3^P^valor2^DECIMAL(12,4)
D^15^76^76^3^0^0
X^15^r^99^30^0
X^15^D^76^3^0
S^16^3^P^usuario^CHAR(40)
D^16^77^77^3^0^0
X^16^D^77^3^0
S^17^3^P^fechacrea^DATETIME YEAR TO MINUTE
D^17^78^78^3^0^0
X^17^D^78^3^0
S^18^2^P^nombre_cia^CHAR(50)
D^18^81^81^4^0^0
X^18^r^96^24^0
X^18^l^85^21^0
X^18^l^63^18^0
X^18^D^81^4^0
S^19^2^V^pcodigo^CHAR(20)
D^19^82^82^4^0^0
X^19^r^96^12^0
X^19^l^93^9^0
X^19^D^82^4^0
S^20^2^V^total_general^DECIMAL(12,2)
D^20^83^83^4^0^0
X^20^l^99^8^0
X^20^r^96^35^0
X^20^D^83^4^0
S^21^2^V^reportDef^base.report
D^21^0^0^0^0^0
S^22^1^F^main^
D^22^2^61^1^0^0
X^22^D^2^1^0
S^23^22^V^iconteo^RECORD
D^23^3^18^8^0^0
X^23^r^55^34^0
X^23^r^53^32^0
X^23^D^3^8^0
S^24^23^V^cod_n^SMALLINT
D^24^4^4^3^0^0
X^24^D^4^3^0
S^25^23^V^cod_grupo^SMALLINT
D^25^5^5^3^0^0
X^25^D^5^3^0
S^26^23^V^cod_tipo^SMALLINT
D^26^6^6^3^0^0
X^26^D^6^3^0
S^27^23^V^cod_sec^SMALLINT
D^27^7^7^3^0^0
X^27^D^7^3^0
S^28^23^V^descripcion^CHAR(40)
D^28^8^8^3^0^0
X^28^D^8^3^0
S^29^23^V^unidad_med^CHAR(4)
D^29^9^9^3^0^0
X^29^D^9^3^0
S^30^23^V^fisico^DECIMAL(12,4)
D^30^10^10^3^0^0
X^30^D^10^3^0
S^31^23^V^teorico^DECIMAL(12,4)
D^31^11^11^3^0^0
X^31^D^11^3^0
S^32^23^V^diferencia^DECIMAL(12,4)
D^32^12^12^3^0^0
X^32^D^12^3^0
S^33^23^V^costo^DECIMAL(12,4)
D^33^13^13^3^0^0
X^33^D^13^3^0
S^34^23^V^valor1^DECIMAL(12,4)
D^34^14^14^3^0^0
X^34^D^14^3^0
S^35^23^V^valor2^DECIMAL(12,4)
D^35^15^15^3^0^0
X^35^D^15^3^0
S^36^23^V^usuario^CHAR(40)
D^36^16^16^3^0^0
X^36^D^16^3^0
S^37^23^V^fechacrea^DATETIME YEAR TO MINUTE
D^37^17^17^3^0^0
X^37^D^17^3^0
S^38^22^V^pnombre_cia^CHAR(30)
D^38^19^19^3^0^0
X^38^r^55^44^0
X^38^l^41^10^0
X^38^D^19^3^0
S^39^22^V^handler^om.saxdocumenthandler
D^39^21^21^9^0^0
X^39^r^38^6^0
X^39^l^33^10^0
X^39^D^21^9^0
S^40^22^V^r_filename^STRING
D^40^22^22^10^0^0
X^40^r^30^38^0
X^40^l^27^33^0
X^40^D^22^10^0
S^41^22^V^r_output^STRING
D^41^23^23^11^0^0
X^41^r^31^35^0
X^41^l^27^45^0
X^41^D^23^11^0
S^42^22^V^preview^INTEGER
D^42^24^24^11^0^0
X^42^r^32^36^0
X^42^l^27^55^0
X^42^D^24^11^0
S^43^1^C^busca_conteo^base.cursor
D^43^42^42^14^0^0
X^43^u^53^14^0
X^43^D^42^14^0
S^44^0^V^sqlca^RECORD
F^1^/home/juan/fourjs/fgl220/lib/fgl.4gl
D^44^2^8^1^1^1
X^44^D^2^1^1
S^45^44^V^sqlcode^INTEGER
D^45^3^3^2^1^1
X^45^D^3^2^1
S^46^44^V^sqlerrm^VARCHAR(71)
D^46^4^4^2^1^1
X^46^D^4^2^1
S^47^44^V^sqlerrp^CHAR(7)
D^47^5^5^2^1^1
X^47^D^5^2^1
S^48^44^V^sqlerrd^ARRAY[6] OF INTEGER
D^48^6^6^2^1^1
X^48^D^6^2^1
S^49^44^V^sqlawarn^CHAR(7)
D^49^7^7^2^1^1
X^49^D^7^2^1
S^50^0^V^status^INTEGER
D^50^9^9^1^1^1
X^50^D^9^1^1
S^51^0^V^int_flag^INTEGER
D^51^9^9^9^1^1
X^51^D^9^9^1
S^52^0^V^quit_flag^INTEGER
D^52^9^9^19^1^1
X^52^D^9^19^1
S^53^0^F^fgl_report_commitcurrentsettings^
X^53^c^33^20^0
S^54^0^F^fgl_report_selectpreview^
X^54^c^32^11^0
S^55^0^F^fgl_report_selectdevice^
X^55^c^31^11^0
S^56^0^F^fgl_report_loadcurrentsettings^
X^56^c^30^7^0
S^57^0^F^selectoutput^
X^57^c^27^8^0
T^2^2^d^0^0^DEFINE
T^2^61^f^0^0^MAIN
T^3^24^d^0^0^DEFINE
T^3^18^d^0^0^RECORD
T^30^36^c^0^0^IF
T^31^33^c^0^0^THEN
T^34^35^c^0^0^ELSE
T^38^59^c^0^0^IF
T^39^56^c^0^0^THEN
T^53^56^l^0^0^FOREACH
T^57^58^c^0^0^ELSE
T^63^101^f^0^0^REPORT
T^64^83^d^0^0^DEFINE
T^64^80^d^0^0^RECORD
r^2^ORDER EXTERNAL^1
o^2^18^1
T^88^88^a^0^0^PAGE HEADER
T^92^96^a^0^0^ON EVERY ROW
x^96^0^
p^v^19
p^r^3
p^v^18
p^v^20
T^98^99^a^0^0^ON LAST ROW
PROYECTOS/irdir/conteo.zip
BIN
View File
Binary file not shown.
PROYECTOS/irdir/decomarmol.42d
+546
View File
@@ -0,0 +1,546 @@
account,0
actb00001,428
actb00002,879
actb00004,1119
actb00005,1454
adtb00001,1882
adtb00002,2103
adtb00003,2338
adtb00004,3827
adtb00005,4199
adtb00006,4392
adtb00007,4589
adtb00008,4778
adtb00009,4971
adtb00010,5267
adtb00011,5458
adtb00012,6341
adtb00013,7986
adtb00014,8301
adtb00015,8691
adtb00016,9068
adtb00017,9507
adtb00018,9947
adtb00019,10716
adtb00020,11010
adtb00021,11921
adtb00022,12226
adtb00023,12998
adtb00024,13332
adtb00025,13526
adtb00026,13716
adtb00027,14310
adtb00028,14672
adtb00029,14848
adtb00030,15088
adtb00032,15157
adtb00033,15743
adtb00036,15960
adtb00038,16226
adtb00040,16278
adtb00041,16565
adtb00042,16822
adtb00043,17015
adtb00045,17294
adtb00046,17424
altbd00001,17539
altbm00001,17776
bloques,18178
bono2011,18271
bono2011d,18743
category,18998
cctb00001,19124
cctb00002,19797
cctb00003,20066
cctb00005,20302
cctb00008,20493
cctb00011,20841
cctb00013,21468
cctb00019,21742
cctb00020,21828
cctb00021,22508
cctb00022,22883
cctb00023,23134
cctb00024,23508
cctb00025,23712
cctb00026,24136
cctb00027,24901
cctb00028,25488
cctb00029,25544
cctb00030,25712
cctb00031,26299
cctb00032,26801
cctb00033,27267
cctb00034,27594
cctb00040,27959
cctb00041,28070
cgtb00001,28170
cgtb00002,28834
cgtb00003,29019
cgtb00004,29222
cgtb00005,29715
cgtb00006,30085
cgtb00009,30509
cgtb00010,30689
cgtb00011,30869
cgtb00012,31129
cgtb00014,31535
cgtb00016,31690
cgtb00017,31975
cgtb00018,32549
cgtb00023,33020
cgtb00031,33257
cgtb00032,33441
cgtb00033,33823
cgtb00034,34260
cgtb00035,34412
cgtb00060,34474
cgtb00083,34655
cgtb00084,34766
cgtb04,34887
cgtbh00004,35320
chequeo,35843
codigo20,35916
codigo21,35992
codigos,36089
codigos22,36182
companias,36283
correos,36837
cotb00001,36937
cotb00002,37388
cotb00003,37671
cotb00004,37856
cotb00005,38173
cotb00006,38387
cotb00008,38763
cotb00010,39257
cotb00011,39309
cotb00012,39786
cotb00013,40151
cotb00014,40489
cotb00015,41248
cotb00017,41733
cotb00018,42070
cotb00019,42263
cotb00022,42533
cotb00024,42735
cotb00025,42950
cotb00027,43425
cotb00028,43615
cotb00029,43636
cotb00030,44234
cotb00031,44388
cotb00033,44628
cotb00034,45197
cotb00036,45613
cotb00038,45803
cotizacion,46221
cotizacion_detalle,47068
country,47668
cptb00001,47713
cptb00002,48219
cptb00003,48503
cptb00005,48955
cptb00006,49407
cptb00007,49860
cttb00001,49961
cttb00002,50234
cttb00003,50408
cttb00004,51004
cttb00006,51082
cttb00007,51416
cttb00008,51607
cttb00009,51942
cttb00010,52289
cttb00011,52499
cttb00012,52785
cttb00013,53148
cttb00014,53568
cttb00015,53793
cttb00016,54096
cttb00017,54172
cttb00018,54762
cttb00021,54945
cttb00022,55146
cttb00023,55433
cttb00026,55726
cttb00027,55981
cttb00028,56127
cttb00029,56462
cttb00032,56697
cttb00033,57488
cttb00034,57618
cttb00036,57854
cttb00038,58220
cttb00039,58485
cttb00041,58605
cttb00042,58891
cttb000log1,59129
cttb000log2,59242
dbocodigos20,59724
dgii_rnc,59816
dgii_rnc3,60143
diatable,60375
dstb00001,60424
dstb00002,60851
dstb00003,61139
dstb00004,61327
dstb00005,61557
empleados,61963
emventas,62671
inrp00002,62777
intb00001,63026
intb00002,63380
intb00003,63848
intb00004,64242
intb00005,64636
intb00006,64953
intb00007,65711
intb00008,65918
intb00009,66287
intb00010,66386
intb00011,66477
intb00012,66876
intb00013,67284
intb00014,67647
intb00015,67949
intb00018,68320
intb00019,68787
intb00020,69299
intb00022,70154
intb00023,70572
intb00026,70752
intb00040,71087
intb00041,71447
intb00042,71831
intb00043,72178
intb00043_,72303
intb00043a,72424
intb00044,72548
inventory,72701
iptb00001,72751
iptb00002,73079
iptb00003,73820
iptb00004,74081
iptb00005,74504
iptb00006,74989
iptb00007,76024
iptb00008,76230
iptb00010,77012
iptb00011,77445
iptb00012,77844
iptb00013,78338
iptb00014,78568
iptb00015,78881
iptb00017,78968
iptb00019,79746
iptb00020,79929
iptb00021,80163
iptb00022,80347
iptb00024,80561
iptb00025,80788
iptb00026,81294
iptb00027,81398
iptb00028,81499
iptb00029,81624
iptb00030,81819
iptb00031,82012
iptb00032,82067
iptb00033,82149
iptb00034,82999
iptb00040,83392
iptb00041,83752
iptb00042,84136
iptb00043,84483
iptb00044,84534
iptb00045,84807
iptb00046,84895
iptb00047,84981
iptb00048,85065
iptb00049,85119
iptb025,85524
iptbexistencia,85943
ircodigos,86220
irtb00001,86345
irtb00002,86675
irtb00005,87151
irtb00006,87468
irtb00007,88162
irtb00008,88645
irtb00009,89156
irtb00010,89465
irtb00011,89658
irtb00012,90061
irtb00013,90471
irtb00014,90828
irtb00016,91009
irtb00017,91311
irtb00018,91682
irtb00027,91734
irtb00029,92179
irtb00030,92376
irtb00040,92571
irtb00041,92931
irtb00042,93315
istb00002,93662
istb00005,94231
istb00006,94534
istb00013,95218
item,95563
lajas,95796
lajas14,95881
lajas2,95974
lajas2_,96063
lineitem,96156
listaprecio,96292
localizacion,96563
mallas9,96658
marzo_,96751
mestable,96832
molduras23,97026
msgtable,97134
nc,97282
notb00001,97767
notb00002,97847
notb00003,98413
notb00005,98738
notb00006,98949
notb00007,99289
notb00008,99716
notb00009,100147
notb00010,100355
notb00011,100728
notb00012,101100
notb00013,101249
notb00014,101429
notb00015,101506
notb00016,101882
notb00017,102313
notb00018,102470
notb00019,102658
notb00020,102901
notb00021,103251
notb00023,103494
notb00033,103887
notb0019,104538
notb03,104772
notbcuenta,105061
notbingresos,105143
ntb00005,105200
oportunidades,105506
orders,106110
orderstatus,106765
pda5,106881
permisos,107285
prdtable,107399
precios,107672
preciosc,107884
product,108007
prordenlog,108135
prordenstatus,108440
prtb00001,108639
prtb00002,108732
prtb00003,109019
prtb00004,109309
prtb00005,109463
prtb00006,109645
prtb00007,109932
prtb00008,110399
prtb00009,110666
prtb00010,110939
prtb00011,111285
prtb00012,111603
prtb00013,112486
prtb00014,113161
prtb00015,113354
prtb00016,113631
prtb00017,113817
prtb00018,114039
prtb00019,114346
prtb00020,114472
prtb00021,114549
prtb00022,115191
prtb00023,115670
prtb00024,115929
prtb00025,115979
prtb00026,116253
prtb00027,116636
prtb00028,116822
prtb00029,117079
prtb00031,117399
prtb00032,117736
prttb00001,117865
prttb00002,118022
ptordenesgral,118103
ptventasgral,119415
ptventasgralh,121270
query,123092
ranking,123459
repitecodigo,123773
repitecodigotmp,123955
seg0000,124020
seg0001,124363
seg0003,125002
seg0004,125327
seg0005,125426
seg0006,125597
seg0007,125673
seqreg,125779
sheet1_,125828
signon,126293
sucursales,126343
supplier,126700
svtb00001,126906
svtb00002,128057
svtb00003,128179
svtb00004,128432
svtb00005,129100
svtb00006,129506
svtb00007,129593
tetb00003,129730
tetb00006,129952
tmp2iptb00012,130156
tmp3iptb00012,130722
tmp_kit,131288
tmpactualiza,131533
tmpaumento,131749
tmpcam,131879
tmpcctb01,132004
tmpclase,132652
tmpclase1,132705
tmpclasificacion,132765
tmpclientes,132999
tmpcod11,133422
tmpcod12,133489
tmpcodigorepetido,133556
tmpcodigos,133754
tmpcodigos1,133859
tmpcodsec,134046
tmpcostos,134100
tmpcostos1,134423
tmpcostosferia,134606
tmpdetallefact,134903
tmpduplicados,135166
tmpempresas,135343
tmpexcel,135672
tmpfacturas,135729
tmpfempleados,136137
tmpferia2,136286
tmpferia3,136533
tmpferia5,136742
tmpgrupo,136914
tmpinventario,136971
tmpinventariofisico,137288
tmpinvm,137690
tmpiptb00002,137972
tmpiptb00006,138934
tmpiptb00012,139850
tmpiptb00027,140398
tmpiptb012,140511
tmpmatprima,141023
tmpmedida,141160
tmpofertas,141217
tmpordenes,141374
tmpplanchas,141505
tmppreciosferia,141695
tmppreciosg1,142034
tmppreciosg2,142269
tmppreciosm1,142504
tmppreciosm2,142737
tmpproductos,142970
tmptipo,143117
tmptipocuentas,143171
tmpventas,143294
tmpventas43,143406
tmpvetb00002,143659
tmpvetb00003,144634
travertino,145086
userinfo,145217
usuarios,146307
vacaciones,146393
ventas,146773
vetb00001,147388
vetb00002,147572
vetb00003,148625
vetb00004,149105
vetb00005,149797
vetb00006,150135
vetb00007,150666
vetb00008,150880
vetb00009,151062
vetb00010,151247
vetb00011,151498
vetb00012,151847
vetb00013,152080
vetb00014,152546
vetb00015,152909
vetb00016,153365
vetb00018,153593
vetb00019,153795
vetb00020,154108
vetb00022,154335
vetb00023,154825
vetb00024,155072
vetb00025,155528
vetb00025b,156032
vetb00025c,156478
vetb00026,156924
vetb00027,156977
vetb00028,157411
vetb00029,157672
vetb00030,158067
vetb00031,158288
vetb00042,158563
vetb00044,158869
vetb00045,159172
vetb00048,159568
vetb00049,159750
vetb00050,160011
vetb00051,161315
vetb00052,162101
vetb00053,162562
vetb00060,162620
vetb00061,162923
vetb00071,163070
vetb00072,163415
vetb00075,163576
vetb00076,163696
vetb00084,163883
vetb00085,163934
vetb00086,164217
vetb00087,164425
vetb00088,164851
vetb00090,165137
vetb00091,165313
vetb00092,165817
vetb00093,166185
vetb00094,166357
vetb00095,166603
vetb00096,166910
viejo1,167008
vwanalisisventas,167182
vwanalitico,168022
vwanaliticoh,168752
vwclientesnocompran,169512
vwcobros,169848
vwcodigosnuevos,170396
vwcomisiones,171053
vwcompras,172143
vwconduces,172607
vwcontactosclientes,173289
vwdevoluciones,173530
vwestado,174323
vwestadoordenes,174490
vwipconteopda,175310
vwipprodterm,175788
vwmatprima,176562
vwprecios,177258
vwproduccion,177515
vwproduccionf,178345
vwproductos,179552
vwprovincias,179934
vwrepuestos,180756
vwseguimientoclientes,181457
vwvacaciones,182940
vwventas,183837
vwventasvendedor,185256
PROYECTOS/irdir/decomarmol.4db
+7744
View File
File diff suppressed because one or more lines are too long
PROYECTOS/irdir/decomarmol.sch
+6633
View File
File diff suppressed because it is too large Load Diff
PROYECTOS/irdir/desktop.ini
BIN
View File
Binary file not shown.
PROYECTOS/irdir/eurostone.sch
+4810
View File
File diff suppressed because it is too large Load Diff
PROYECTOS/irdir/intb23.per
+23
View File
@@ -0,0 +1,23 @@
database marmotech
screen size 24 by 80
{
num_doc [f000 ]
cod_mov [f001 ]
status_t [a]
us_crea [f002 ]
fech_crea [f003 ]
us_mod [f004 ]
fech_mod [f005 ]
}
end
tables
intb00023
attributes
f000 = intb00023.num_doc;
f001 = intb00023.cod_mov;
a = intb00023.status_t;
f002 = intb00023.us_crea;
f003 = intb00023.fech_crea;
f004 = intb00023.us_mod;
f005 = intb00023.fech_mod;
end
PROYECTOS/irdir/intb6.per
+65
View File
@@ -0,0 +1,65 @@
database marmotech
screen size 24 by 80
{
num_doc [f000 ]
fecha [f001 ]
fact_no [f002 ]
conduce_no [f003 ]
orden_compra [f004 ]
tipo [a0]
cod_sp [f005 ]
cod_sp_sec [f006 ]
cod_mov [f007 ]
cod_n [f008 ]
cod_grupo [f009 ]
cod_tipo [f010 ]
cod_sec [f011 ]
cantidad_1 [f012 ]
cantidad_2 [f013 ]
depto_de [f014 ]
depto_a [f015 ]
cod_seccion [a1]
cond_recep [a]
uso_tiempo [b]
}
screen
{
bodega [f016 ]
status_t [c]
us_crea [f017 ]
fech_crea [f018 ]
us_mod [f019 ]
fech_mod [f020 ]
}
end
tables
intb00006
attributes
f000 = intb00006.num_doc;
f001 = intb00006.fecha;
f002 = intb00006.fact_no;
f003 = intb00006.conduce_no;
f004 = intb00006.orden_compra;
a0 = intb00006.tipo;
f005 = intb00006.cod_sp;
f006 = intb00006.cod_sp_sec;
f007 = intb00006.cod_mov;
f008 = intb00006.cod_n;
f009 = intb00006.cod_grupo;
f010 = intb00006.cod_tipo;
f011 = intb00006.cod_sec;
f012 = intb00006.cantidad_1;
f013 = intb00006.cantidad_2;
f014 = intb00006.depto_de;
f015 = intb00006.depto_a;
a1 = intb00006.cod_seccion;
a = intb00006.cond_recep;
b = intb00006.uso_tiempo;
f016 = intb00006.bodega;
c = intb00006.status_t;
f017 = intb00006.us_crea;
f018 = intb00006.fech_crea;
f019 = intb00006.us_mod;
f020 = intb00006.fech_mod;
end
PROYECTOS/irdir/iptb7.per
+23
View File
@@ -0,0 +1,23 @@
database marmotech
screen size 24 by 80
{
num_doc [f000 ]
cod_mov [f001 ]
status_t [a]
us_crea [f002 ]
fech_crea [f003 ]
us_mod [f004 ]
fech_mod [f005 ]
}
end
tables
iptb00007
attributes
f000 = iptb00007.num_doc;
f001 = iptb00007.cod_mov;
a = iptb00007.status_t;
f002 = iptb00007.us_crea;
f003 = iptb00007.fech_crea;
f004 = iptb00007.us_mod;
f005 = iptb00007.fech_mod;
end
PROYECTOS/irdir/ircs.bat
+9
View File
@@ -0,0 +1,9 @@
fgl2p irprcs001.4gl
fgl2p irprcs004.4gl
fgl2p irprcs006.4gl
fgl2p irprcs007.4gl
fgl2p irprcs031.4gl
fgl2p irmncs000.4gl
fgl2p irmncs001.4gl
fgl2p -o irmncs000.42r irmncs000.42m seg000.42m msg.42m irprcs001.42m irprcs004.42m irprcs006.42m irprcs007.42m irmncs001.42m
PROYECTOS/irdir/irfm.bat
+56
View File
@@ -0,0 +1,56 @@
fglform irfmcs001.per
fglform irfmcs004.per
fglform irfmcs006.per
fglform irfmcs007.per
fglform irfmcs031.per
fglform irfmmt001.per
fglform irfmmt002.per
fglform irfmmt003.per
fglform irfmmt004.per
fglform irfmmt006.per
fglform irfmmt007.per
fglform irfmmt009.per
fglform irfmmt010.per
fglform irfmmt011.per
fglform irfmmt012.per
fglform irfmmt013.per
fglform irfmmt014.per
fglform irfmmt036.per
fglform irfmmt056.per
fglform irfmmt057.per
fglform irfmmt067.per
fglform irfmmt068.per
fglform irfmmt099.per
fglform irfmrp001.per
fglform irfmrp002.per
fglform irfmrp003.per
fglform irfmrp004.per
fglform irfmrp005.per
fglform irfmrp006.per
fglform irfmrp007.per
fglform irfmrp008.per
fglform irfmrp009.per
fglform irfmrp010.per
fglform irfmrp013.per
fglform irfmrp014.per
fglform irfmrp015.per
fglform irfmrp016.per
fglform irfmrp017.per
fglform irfmrp018.per
fglform irfmrp019.per
fglform irfmrp020.per
fglform irfmrp021.per
fglform irfmrp023.per
fglform irfmrp026.per
fglform irfmrp027.per
fglform irfmrp030.per
fglform irfmrp031.per
fglform irfmrp038.per
fglform irfmrp039.per
fglform irfmrp040.per
fglform irfmrp041.per
fglform irfmwd001.per
fglform irfmwd017.per
fglform irfmwd066.per
fglform irfmwd067.per
fglform irfmwd068.per
PROYECTOS/irdir/irfmcs001.per
+73
View File
@@ -0,0 +1,73 @@
{----------------------------------------------------------------------------
AUTOR: JUAN FCO SOTO
FECHA:
DECRIPCION: FORMATO DE PANTALLA PARA EL REPORTE DE ENTRADA
MODIFICA: ING. JOSE ALFREDO PAULINO
FECHA: 15 DE OCTUBRE DEL 1992
DESCRIPCION: ADAPTACION PARA SISTEMA DE INVENTARIO DE HERRAMIENTAS
----------------------------------------------------------------------------
}
database decomarmol
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 ] \g|\g
\gb-------------------------------------------------------------------------d\g
C A N T I D A D Exceso o
Codigo Ordenada Recibida Diferencia Maquina
\gp---------------------------------------------------------------------------q\g
[b ] [f06 ][f07 ][c ] [ma ]
Descripcion: [g ] Unidad: [f08]
[b ] [f06 ][f07 ][c ] [ma ]
Descripcion: [g ] Unidad: [f08]
[b ] [f06 ][f07 ][c ] [ma ]
Descripcion: [g ] Unidad: [f08]
\gb---------------------------------------------------------------------------d\g
}
end
tables
irtb00006,
cotb00001,
irtb00002,
irtb00005
attributes
ma = irtb00006.maquina,noentry;
f00 = irtb00006.num_doc,
comments =
"Digite el Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos";
p1 = irtb00006.cod_sp,picture = "##",autonext,
comments = "Digite el Codigo del Suplidor";
f01 = irtb00006.cod_sp_sec,picture = "####",
comments = "Digite el Codigo del Suplidor";
f02 = irtb00006.orden_compra,
comments = "Digite el Numero de la Orden de Compras";
f03 = irtb00006.conduce_no,
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04 = irtb00006.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 = irtb00006.cantidad_1,
comments = "Digite la Cantidad Pedida ";
f07 = irtb00006.cantidad_2,
comments = "Digite la Cantidad Llegada desde el Suplidor";
f08 = irtb00002.unidad_med,noentry;
a = cotb00001.nom_sp,noentry;
b = formonly.codigo,noentry;
c = formonly.diferencia, noentry;
g = irtb00002.descrip_esp,noentry;
t = irtb00006.cod_mov,autonext,
comments =
"Digite Codigo Movimiento de Entrada (01 - Local 02 - Exterior)",
include = (1 to 2);
t1 = irtb00005.descrip_mov,noentry;
INSTRUCTIONS
screen record s_movi1[3] (codigo,cantidad_1,cantidad_2,diferencia,
descrip_esp,unidad_med,maquina)
delimiters " "
end
PROYECTOS/irdir/irfmcs004.per
+52
View File
@@ -0,0 +1,52 @@
database decomarmol
screen size 24 by 80
{
Codigo: [e]-[f]-[g ]-[h ]Descripcion Espanol [k ]
Descripcion Ingles [k1 ]
\g------------------------------------------------------------------------------
C o d i g o Existencia Dia Llegada Precio Prom. Valor
\g-------------------------------------------------------------------------------\g
[a]-[b]-[c ]-[d ][a4 ] [m ] [a5 ] [a6 ]
Descrip Esp: [a2 ] Unidad: [a3 ]
Descrip Ing: [a7 ]
[a]-[b]-[c ]-[d ][a4 ] [m ] [a5 ] [a6 ]
Descrip Esp: [a2 ] Unidad: [a3 ]
Descrip Ing: [a7 ]
[a]-[b]-[c ]-[d ][a4 ] [m ] [a5 ] [a6 ]
Descrip Esp: [a2 ] Unidad: [a3 ]
Descrip Ing: [a7 ]
}
tables
irtb00002,
intb00002,
cotb00015
attributes
e = irtb00002.cod_n,autonext,
comments = "Digite el NIVEL";
f = irtb00002.cod_grupo,autonext,
comments = "Digite el GRUPO";
g = irtb00002.cod_tipo,autonext,
comments = "Digite el TIPO";
h = irtb00002.cod_sec,autonext,
comments = "Digite la SECUENCIA";
k = irtb00002.descrip_esp,upshift;
k1 = irtb00002.descrip_ing,upshift;
a = formonly.cod_n1,noentry;
b = formonly.cod_grupo1,noentry;
c = formonly.cod_tipo1,noentry;
d = formonly.cod_sec1,noentry;
a2 = formonly.descrip_esp1,noentry;
a3 = irtb00002.unidad_med,noentry;
a4 = intb00002.existencia,noentry;
m = intb00002.dia_llegada,noentry;
a5 = cotb00015.precio,noentry;
a6 = formonly.valor,noentry;
a7 = formonly.descrip_esp2,noentry;
instructions
delimiters " "
screen record consart[3] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,
descrip_esp1,unidad_med,existencia,dia_llegada,precio,
descrip_esp2,valor)
end
PROYECTOS/irdir/irfmcs006.per
+43
View File
@@ -0,0 +1,43 @@
database decomarmol
LAYOUT (TEXT="CONSULTA TRANSACCIONES REPUESTOS")
GRID
{
<g >
Codigo Repuesto :[a ][b ][c ][d ][a1 ] [a2 ]
Fecha Inicial :[f1 ] Fecha Final:[f2 ]
<t >
[d2 ][d1 ][des ][d4 ][d5 ][d6 ]
[d2 ][d1 ][des ][d4 ][d5 ][d6 ]
[d2 ][d1 ][des ][d4 ][d5 ][d6 ]
[d2 ][d1 ][des ][d4 ][d5 ][d6 ]
[d2 ][d1 ][des ][d4 ][d5 ][d6 ]
[d2 ][d1 ][des ][d4 ][d5 ][d6 ]
[d2 ][d1 ][des ][d4 ][d5 ][d6 ]
[d2 ][d1 ][des ][d4 ][d5 ][d6 ]
}
END
tables
irtb00002,
irtb00006
attributes
a = irtb00002.cod_n,autonext;
b = irtb00002.cod_grupo,autonext;
c = irtb00002.cod_tipo,autonext;
d = irtb00002.cod_sec,autonext;
a1 = irtb00002.descrip_esp,noentry;
a2 = irtb00002.unidad_med,noentry;
des = formonly.descrip_mov;
DATEEDIT f1 = formonly.fech_in type date,format = "dd/mm/yyyy";
DATEEDIT f2 = formonly.fech_fi type date,format = "dd/mm/yyyy";
d1 = irtb00006.num_doc,TITLE="DOCUMENTO";
d2 = formonly.fecha type date,format = "dd/mm/yy",TITLE="FECHA";
d4 = formonly.entrada type decimal(8,2),TITLE="ENTRADAS";
d5 = formonly.salida type decimal(8,2),TITLE="SALIDAS";
d6 = formonly.balance type decimal(8,2),TITLE="BALANCE";
instructions
screen record s_csmov[8] (num_doc,fecha,descrip_mov,entrada,salida,balance)
delimiters " "
end
PROYECTOS/irdir/irfmcs007.per
+47
View File
@@ -0,0 +1,47 @@
database decomarmol
screen
{
Codigo Maquina [mq1][mq2 ] [mq3 ]
Fecha: Inicial [f1 ] Final [f2 ]
Repuesto [a]-[b ]-[b1]-[b2 ]
\g-----------------------------------------------------------------------------\g
Repuesto Fecha Docum. Cantidad Usa Acum.
\g-----------------------------------------------------------------------------\g
[co ][r1 ][f3 ][d ][c1 ][c2 ]
[co ][r1 ][f3 ][d ][c1 ][c2 ]
[co ][r1 ][f3 ][d ][c1 ][c2 ]
[co ][r1 ][f3 ][d ][c1 ][c2 ]
[co ][r1 ][f3 ][d ][c1 ][c2 ]
[co ][r1 ][f3 ][d ][c1 ][c2 ]
[co ][r1 ][f3 ][d ][c1 ][c2 ]
[co ][r1 ][f3 ][d ][c1 ][c2 ]
}
end
tables
irtb00006
irtb00009
irtb00002
attributes
mq1 = irtb00009.codigo,color=blue;
mq2 = irtb00009.nombre,color=blue,noentry;
mq3 = irtb00009.modelo,color=blue,noentry;
co = formonly.codigo_r;
f1 = formonly.fecha_in type date,color=blue,format = "dd/mm/yy";
f2 = formonly.fecha_fi type date,color=blue,format = "dd/mm/yy";
a = irtb00006.cod_n,color=blue,autonext,default = 7,noentry;
b = irtb00006.cod_grupo,color=blue,autonext;
b1 = irtb00006.cod_tipo,color=blue,autonext;
b2 = irtb00006.cod_sec,color=blue,autonext;
r1 = formonly.descripcion type char,upshift,color=blue;
f3 = irtb00006.fecha,color=blue,noentry,format = "dd/mm/yy";
d = irtb00006.num_doc,color=blue,noentry;
c1 = irtb00006.cantidad_2,color=blue,noentry;
c2 = formonly.balance1 type decimal,color=blue,noentry;
instructions
screen record p_pant[8](codigo_r,descripcion,fecha,
num_doc,cantidad_2,
balance1)
delimiters" "
end
PROYECTOS/irdir/irfmcs008.per
+101
View File
@@ -0,0 +1,101 @@
schema decomarmol
TOPMENU
GROUP g1 (TEXT="CONTEO FISICO")
COMMAND actualizarf (TEXT="Actualizacion Conteo PDA")
COMMAND Eliminarf (TEXT="Eliminar Conteo",IMAGE="cancel")
END
GROUP g2 (TEXT="INVENTARIO FISICO")
COMMAND actualizari (TEXT="Actualiza inventario",IMAGE="pda")
COMMAND eliminari (TEXT="Eliminar Inventario Fisico",IMAGE="cancel")
COMMAND imprimir (TEXT="Impresion",IMAGE="printer")
END
GROUP g3 (TEXT="DOCUMENTO")
COMMAND actualizard (TEXT="Actualziacion Documento")
COMMAND eliminard (TEXT="Eliminar Documento",IMAGE="cancel")
END
GROUP g4 (TEXT="Interrumpir")
COMMAND salir (TEXT="Salir Sistema",IMAGE="exit")
END
END
LAYOUT (TEXT="Visualizacion Conteo y Ajuste",STYLE="Basic")
GRID
{
<G Encabezado >
Fecha Conteo : [f1 ] Busca Fecha Conteo[fb ]
Numero Documento Ajuste: [doc ]Fecha Documento:[fd ]No. Registros: [no ]
Codigo Movimiento : [cod ][DESc ]
TIPO INVENTARIO : [tp ] Registros Sumarizados [rs ]
ALMACEN : [al ] Incluye Registros
SECCION : [se ] Que no esten en el conteo[ii ]
TRAMO O FILA : [fila ] Igualo Existencia En
Libro a Fisica? [fs ]
0 50 100
[p000 ]
<G Detalle >
<t >
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
[a ][b ][c ][d ][de ][u ][c1 ][c2 ][d1 ][p1 ][v1 ][v2 ][u1 ][f11 ][z1][z2 ][z3 ][kj ]
TOTAL AJUSTE [t1 ]
TOTAL FISICO[tf ]TOTAL TEORICO[fi ]
}
END
attributes
PROGRESSBAR p000 = formonly.progreso,VALUEMIN=0,VALUEMAX=100,COLOR=GREEN;
doc= formonly.num_doc;
COMBOBOX fb = formonly.busca_fecha;
DATEEDIT fd = formonly.fecha_doc type date,format="dd/mm/yyyy";
DATEEDIT f1 = formonly.xfecha type date,format="dd/mm/yyyy" ;
COD = formonly.cod_mov;
desc = formonly.descrip_mov;
CHECKBOX rs = formonly.sumarizo type char,NOT NULL,VALUECHECKED="S",VALUEUNCHECKED="N",default="N";
CHECKBOX ii = formonly.incluye type char,NOT NULL,VALUECHECKED="S",VALUEUNCHECKED="N",default="N";
CHECKBOX fs = formonly.igualo type char,NOT NULL,VALUECHECKED="S",VALUEUNCHECKED="N",default="N";
COMBOBOX tp = formonly.tipo_inventario,include = ("MATERIA PRIMA","PRODUCTOS TERMINADOS","REPUESTOS");
COMBOBOX al = formonly.almacen;
COMBOBOX se = formonly.seccion;
COMBOBOX fila = formonly.tramo;
a = formonly.cod_n, UNSORTABLE, TITLE="CLASE";
b = formonly.cod_grupo,UNSORTABLE, TITLE="GRUPO";
c = formonly.cod_tipo, UNSORTABLE,TITLE = "TIPO";
d = formonly.cod_sec, UNSORTABLE,TITLE = "SECUENCIA";
de = formonly.descripcion, NOENTRY,TITLE="DESCRIPCION";
u = formonly.unidad_med, NOENTRY,TITLE="UNIDAD MEDIDA";
c1 = formonly.fisico, TITLE = "FISICO",FORMAT="###,###.####";
c2 = formonly.teorico, UNSORTABLE,TITLE ="TEORICO",noentry,FORMAT="---,--#.####";
d1 = formonly.diferencia, UNSORTABLE,TITLE="DIFERENCIA",noentry,FORMAT="---,--#.##";
p1 = formonly.costo, UNSORTABLE,TITLE ="COSTO",noentry,FORMAT="###,###.####";
v1 = formonly.valor1, UNSORTABLE,TITLE="VALOR",noentry,FORMAT="---,---,--#.##";
v2 = formonly.valor2, UNSORTABLE,TITLE="VALOR DIF",noentry,FORMAT="-,---,--#.##";
t1 = formonly.total2, FORMAT="---,---,--#.##";
u1 = formonly.usuario,UNSORTABLE,noentry;
f11 = formonly.fechacrea,UNSORTABLE,noentry;
no = formonly.numero_registros,UNSORTABLE,noentry;
z1 = formonly.bodega,UNSORTABLE,noentry,TITLE="bodega";
z2 = formonly.cod_seccion,UNSORTABLE,noentry,TITLE="SECCION";
z3 = formonly.cod_tramo,UNSORTABLE,noentry,TITLE="TRAMO O FILA";
kj = formonly.trxid,UNSORTABLE,noentry;
fi = formonly.total_teorico,FORMAT="--,---,---,--#.##";
tf = formonly.total_fisico,FORMAT="--,---,---,--#.##";
INSTRUCTIONS
DELIMITERS " "
SCREEN RECORD sconteo[10](cod_n,cod_grupo,cod_tipo,cod_Sec,descripcion,unidad_med,fisico,teorico,diferencia,costo,valor1,valor2,usuario,fechacrea,bodega,cod_seccion,cod_tramo,trxid)
END
PROYECTOS/irdir/irfmcs031.42f
+119
View File
@@ -0,0 +1,119 @@
0.994^
18^77^1^[]^
18^^

 Tipo Movimiento 
 Documento Numero Orden 
 Fecha 
 Localidad 
 Transferida a 

CANTIDAD
Codigo Entregada Unidad D e s c r i p c i o n Maquina


Descripcion Maquina:
formFields 15
ff0^1^2^48^0^8^1^0^0^1^2^-32768^0^2^^Digite Orden Compras para devolver ^^^^^Entry^^^0^^^
48^2^8^
ff1^2^2^23^0^6^1^0^0^1^1058^-32768^0^2^^Digite Numero Documento^^^^^Entry^^^0^^^
23^2^6^
ff2^3^3^12^0^8^1^0^0^1^2^-32768^0^7^^Digite Fecha Documento^^^dd/mm/yy^^Entry^^^0^^^
12^3^8^
ff3^1^5^23^0^1^1^0^0^1^2^-32768^0^0^^Digite Codigo de la Localidad^^^^^Entry^^^0^^^
23^5^1^
ff4^2^4^23^0^1^1^0^0^1^2^-32768^0^0^^Digite Codigo Localidad^^^^^Entry^^^0^^^
23^4^1^
ff5^3^4^28^0^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
28^4^30^
ff6^4^5^28^0^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
28^5^30^
ff7^5^10^1^0^10^6^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^^
1^10^10^
1^11^10^
1^12^10^
1^13^10^
1^14^10^
1^15^10^
ff8^4^10^15^0^11^6^1^0^1^2^-32768^0^5^^Digite La Cantidad Entregada^^^^^Entry^^^0^^^
15^10^11^
15^11^11^
15^12^11^
15^13^11^
15^14^11^
15^15^11^
ff9^1^10^35^0^31^6^1^0^1^3^-32768^0^0^^^^^^^Entry^^^0^^^
35^10^31^
35^11^31^
35^12^31^
35^13^31^
35^14^31^
35^15^31^
ff10^2^10^29^0^3^6^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
29^10^3^
29^11^3^
29^12^3^
29^13^3^
29^14^3^
29^15^3^
ff11^6^1^23^0^2^1^0^0^1^2^-32768^0^1^^Digite Codigo Del Movimiento Correspondiente^^3:99^^^Entry^^^0^^^
23^1^2^
ff12^7^1^28^0^42^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
28^1^42^
ff13^5^10^69^0^3^6^1^0^1^2^-32768^0^1^^Digite El Codigo de La Maquina Que Corresponde a este Repuesto^^^^^Entry^^^0^^^
69^10^3^
69^11^3^
69^12^3^
69^13^3^
69^14^3^
69^15^3^
ff14^8^17^25^0^32^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
25^17^32^
aliasses 15
orden_compra^ff0^
num_doc^ff1^
fecha^ff2^
secc_a^ff3^
secc_de^ff4^
nom_seccion^ff5^
nom^ff6^
codigo^ff7^
cantidad_2^ff8^
descrip_esp^ff9^
unidad_med^ff10^
cod_mov^ff11^
descrip_mov^ff12^
maquina^ff13^
nombre^ff14^
screenRecords 4
irtb00002^2^0^1^6^0^0^0^0^
descrip_esp^ff9^
unidad_med^ff10^
irtb00006^5^0^1^-1^0^0^0^0^
orden_compra^ff0^
num_doc^ff1^
fecha^ff2^
cantidad_2^ff8^
maquina^ff13^
formonly^8^0^1^-1^0^0^0^0^
secc_a^ff3^
secc_de^ff4^
nom_seccion^ff5^
nom^ff6^
codigo^ff7^
cod_mov^ff11^
descrip_mov^ff12^
nombre^ff14^
s_movi1^5^1^0^6^1^10^72^6^
codigo^ff7^
cantidad_2^ff8^
unidad_med^ff10^
descrip_esp^ff9^
maquina^ff13^
keyLabels 0
PROYECTOS/irdir/irfmcs031.per
+63
View File
@@ -0,0 +1,63 @@
database marmotech
{
----------------------------------------------------------------------------
AUTOR: JUAN FCO SOTO
FECHA: Marzo 1, 1993.
DECRIPCION: FORMATO DE PANTALLA PARA movimientos (Repuestos)
----------------------------------------------------------------------------
}
screen size 24 by 80
{
\gp---------------------------------------------------------------------------q\g
\g|\g Tipo Movimiento [t ] [t1 ] \g|\g
\g|\g Documento Numero [f000 ] Orden [ord ] \g|\g
\g|\g Fecha [f001 ] \g|\g
\g|\g Localidad [s] [a1 ] \g|\g
\g|\g Transferida a [r] [a2 ] \g|\g
\gb---------------------------------------------------------------------------d\g
CANTIDAD
Codigo Entregada Unidad D e s c r i p c i o n Maquina
\g-----------------------------------------------------------------------------\g
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
\g-----------------------------------------------------------------------------\g
Descripcion Maquina: [n1 ]
}
end
tables
irtb00002,
irtb00002,
irtb00006
attributes
ord = irtb00006.orden_compra,autonext,comments =
"Digite Orden Compras para devolver ";
f000 = irtb00006.num_doc,autonext,
comments = "Digite Numero Documento";
f001 = irtb00006.fecha, format = "dd/mm/yy",autonext,
comments = "Digite Fecha Documento";
r = formonly.secc_a , autonext,
comments = "Digite Codigo de la Localidad";
s = formonly.secc_de,autonext,
comments = "Digite Codigo Localidad";
a1 = formonly.nom_seccion type char, noentry;
a2 = formonly.nom,noentry;
a = formonly.codigo;
f02 = irtb00006.cantidad_2,autonext,
comments = "Digite La Cantidad Entregada";
k = irtb00002.descrip_esp,noentry,autonext;
p = irtb00002.unidad_med,noentry;
t = formonly.cod_mov type smallint,autonext,include = (3 to 99),
comments = "Digite Codigo Del Movimiento Correspondiente";
t1 = formonly.descrip_mov,noentry;
m1 = irtb00006.maquina,autonext, comments =
"Digite El Codigo de La Maquina Que Corresponde a este Repuesto";
n1 = formonly.nombre,noentry;
INSTRUCTIONS
SCREEN RECORD s_movi1[6] (codigo,cantidad_2,unidad_med,descrip_esp,maquina)
end
PROYECTOS/irdir/irfmmt001.42f
+65
View File
@@ -0,0 +1,65 @@
0.994^
9^80^1^ ^
9^^
Codigo - - -
Descripcion Espanol
Descripcion Ingles
Unidad de Medida
Usuario Creador Usuario Modificador
Fecha Creacion Fecha Modificacion
formFields 12
ff0^1^0^21^0^1^1^0^0^1^1058^-32768^0^1^^Digite el NIVEL del bien o Servicio^^^^^Entry^^^0^^^
21^0^1^
ff1^2^0^25^0^1^1^0^0^1^1058^-32768^0^1^^Digite el GRUPO del bien o Servicio^^^^^Entry^^^0^^^
25^0^1^
ff2^3^0^29^0^2^1^0^0^1^1058^-32768^0^1^^Digite el TIPO del bien o Servicio^^^^^Entry^^^0^^^
29^0^2^
ff3^4^0^34^0^3^1^0^0^1^1058^-32768^0^1^^Digite el SECUENCIA del bien o Servicio^^^^^Entry^^^0^^^
34^0^3^
ff4^5^1^21^0^30^1^0^0^1^544^-32768^0^0^^Digite el nombre del Articulo en ESPANOL^^^^^Entry^^^0^^^
21^1^30^
ff5^6^2^21^0^30^1^0^0^1^512^-32768^0^0^^Digite el nombre del Articulo en INGLES^^^^^Entry^^^0^^^
21^2^30^
ff6^7^3^21^0^3^1^0^0^1^544^-32768^0^0^^Digite la unidad de medida del articulo^^^^^Entry^^^0^^^
21^3^3^
ff7^8^7^21^0^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
21^7^9^
ff8^9^8^21^0^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^sqlLen=3080^
21^8^16^
ff9^10^7^63^0^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
63^7^9^
ff10^11^8^63^0^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^sqlLen=3080^
63^8^16^
ff11^12^4^1^0^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
1^4^1^
aliasses 12
cod_n^ff0^
cod_grupo^ff1^
cod_tipo^ff2^
cod_sec^ff3^
descrip_esp^ff4^
descrip_ing^ff5^
unidad_med^ff6^
us_crea^ff7^
fech_crea^ff8^
us_mod^ff9^
fech_mod^ff10^
status_t^ff11^
screenRecords 1
irtb00002^12^0^1^1^0^0^0^0^
cod_n^ff0^
cod_grupo^ff1^
cod_tipo^ff2^
cod_sec^ff3^
descrip_esp^ff4^
descrip_ing^ff5^
unidad_med^ff6^
us_crea^ff7^
fech_crea^ff8^
us_mod^ff9^
fech_mod^ff10^
status_t^ff11^
keyLabels 0
PROYECTOS/irdir/irfmmt001.per
+40
View File
@@ -0,0 +1,40 @@
database marmotech
screen size 24 by 80
{
Codigo [b]-[c]-[d1]-[e01]
Descripcion Espanol [f004 ]
Descripcion Ingles [f005 ]
Unidad de Medida [a0 ]
[j]
Usuario Creador [f006 ] Usuario Modificador [f008 ]
Fecha Creacion [f007 ] Fecha Modificacion [f009 ]
}
end
tables
irtb00002
attributes
b = irtb00002.cod_n, autonext,
comments = "Digite el NIVEL del bien o Servicio";
c = irtb00002.cod_grupo, autonext,
comments = "Digite el GRUPO del bien o Servicio";
d1 = irtb00002.cod_tipo, autonext,
comments = "Digite el TIPO del bien o Servicio";
e01 = irtb00002.cod_sec, autonext,
comments = "Digite el SECUENCIA del bien o Servicio";
f004 = irtb00002.descrip_esp, upshift, required,
comments = "Digite el nombre del Articulo en ESPANOL";
f005 = irtb00002.descrip_ing, upshift,
comments = "Digite el nombre del Articulo en INGLES";
a0 = irtb00002.unidad_med, upshift, required,
comments = "Digite la unidad de medida del articulo";
f006 = irtb00002.us_crea, noentry;
f007 = irtb00002.fech_crea, noentry;
f008 = irtb00002.us_mod, noentry;
f009 = irtb00002.fech_mod, noentry;
j = irtb00002.status_t, noentry;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmmt002.per
+47
View File
@@ -0,0 +1,47 @@
database decomarmol
{----------------------------------------------------------------------------
AUTOR: JUAN FCO SOTO
FECHA: 15 DE OCTUBRE DEL 1992
DECRIPCION: FORMATO DE PANTALLA PARA maestra de repuestos
----------------------------------------------------------------------------
}
LAYOUT (TEXT="MAESTRA REPUESTOS")
GRID
{
<g >
Codigo [a][b ][c ][e ]
Descripcion Espanol [d ]
Descripcion Ingles [f ]
Unidad Medida [k ]
Existencia Inicial [f005 ]
Existencia Minima [f011 ]
Dia Llegada [p1 ] Categoria [g]
[q]
Usuario creador [f007 ] Usuario modificador [f009 ]
Fecha Creacion [f008 ] Fecha Modificacion [f010 ]
}
end
tables
irtb00002
ATTRIBUTES
a = irtb00002.cod_n, autonext,comments =
"Digite el NIVEL de repuestos";
b = irtb00002.cod_grupo,autonext,comments="Digite la UBICACION de repuestos";
c = irtb00002.cod_tipo, autonext, comments = "Digite el GRUPO de repuestos";
e = irtb00002.cod_sec,autonext,comments= "Digite la SECUENCIA de repuestos";
f005 = irtb00002.existencia,comments = "Digite la existencia actual";
f011 = irtb00002.exist_min,autonext;
p1 = irtb00002.dia_llegada,autonext,comments = "Digite Dia Llegada";
g = irtb00002.categoria,upshift,comments="Digite La Categoria del Repuesto";
d = formonly.descrip_esp,upshift,scroll;
f = formonly.descrip_ing,upshift,scroll;
k = formonly.unidad_med,upshift;
q = irtb00002.status_t,noentry;
f007 = irtb00002.us_crea, noentry;
f008 = irtb00002.fech_crea, noentry;
f009 = irtb00002.us_mod, noentry;
f010 = irtb00002.fech_mod, noentry;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmmt003.per
+35
View File
@@ -0,0 +1,35 @@
database decomarmol
screen size 24 by 80
{
Codigo del movimiento [f0] Cta. Db [f002 ]
Descripcion [f001 ] Cta. Cr. [f003 ]
Status del movimiento [a] Departa. [f004 ]
[j]
Usuario creador [f005 ] Usuario modificador [f007 ]
Fecha creacion [f006 ] Fecha modificacion [f008 ]
}
end
tables
irtb00005
attributes
f0 = irtb00005.cod_mov, autonext, required,
comments = "Digite el codigo del movimiento";
f001 = irtb00005.descrip_mov, autonext, upshift,
comments = "Digite la descripcion del movimiento";
a = irtb00005.status_mov, required, autonext, include = ("1","2","3"),
comments = "1.- Entradas 2.- Salidas 3- Transferencia" ;
f002 = irtb00005.cuenta_1, autonext, required,
comments = "Digite el numero de la cuenta";
f003 = irtb00005.cuenta_2, autonext,required,
comments = "Digite el numero de la cuenta";
f004 = irtb00005.cuenta_3, comments = "Digite el numero de la cuenta";
f005 = irtb00005.us_crea, noentry;
f006 = formonly.fech_crea, noentry;
f007 = irtb00005.us_mod, noentry;
f008 = formonly.fech_mod, noentry;
j = irtb00005.status_t, noentry;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmmt004.per
+40
View File
@@ -0,0 +1,40 @@
database decomarmol
screen size 24 by 80
{
Mes Inicial [f1] [g4 ]
Mes Final [f2] [g5 ]
Ano [f002]
Codigo [a]-[b ]-[c ]-[d ][e ] [g ]
Costo Estandar [f005 ]
[j]
Usuario Creador [f006 ] Usuario Modificador [f008 ]
Fecha Creacion [f007 ] Fecha Modificacion [f009 ]
}
end
tables
irtb00013,irtb00002
attributes
f1 = irtb00013.mes_ini,autonext,
comments = "Digite el mes inicial",default = 01,noentry;
g4 = formonly.descrip1 type char,default = "ENERO";
f2 = irtb00013.mes_fin,autonext,noentry,
comments = "Digite el mes final",default = 12;
g5 = formonly.descrip2 type char,default = "DICIEMBRE";
f002 = irtb00013.ano,autonext,comments = "Digite el ano";
a = irtb00013.cod_n,autonext,comments = "Digite el NIVEL";
b = irtb00013.cod_grupo,autonext,comments = "Digite el GRUPO";
c = irtb00013.cod_tipo,autonext,comments = "Digite el TIPO";
d = irtb00013.cod_sec,autonext,comments = "Digite la SECUENCIA";
e = irtb00002.descrip_esp,noentry;
g = irtb00002.unidad_med,noentry;
f005 = irtb00013.costo_st,comments = "Digite el costo";
j = irtb00013.status_t,noentry;
f006 = irtb00013.us_crea,noentry;
f007 = irtb00013.fech_crea,noentry;
f008 = irtb00013.us_mod,noentry;
f009 = irtb00013.fech_mod,noentry;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmmt006.per
+88
View File
@@ -0,0 +1,88 @@
{
----------------------------------------------------------------------------
FORMULARIO : IRFMMT006
OBJETIVO : Pantalla para la captura de reporte de entrada
MODULOS Q. UTILIZAN : irprmt006
PROGRAMADOR : Juan F. Soto
FECHA REALIZACION : Febrero 1, 1993
----------------------------------------------------------------------------
}
database decomarmol
TOOLBAR
ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Reporte Entradan")
ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
SEPARATOR
ITEM salir (TEXT="Salir", IMAGE="quit")
LAYOUT (TEXT="REPORTES ENTRADA", STYLE="basic")
GRID
{
<G Encabezado >
Movimiento:[t ][t1 ] Doc. No. [f00 ]
Orden Compra:[ti][f02 ] Suplidor:[p1]-[f01 ][a ]
Conduce:[f03 ] Factura No.[f04 ] Fecha:[f05 ]Dep[d100]
<G Detalle >
C A N T I D A D
Codigo Ordenada Recibida Maquina
[b][c][d ][f ][g ][f08][f06 ][f07 ][f09]
[b][c][d ][f ][g ][f08][f06 ][f07 ][f09]
[b][c][d ][f ][g ][f08][f06 ][f07 ][f09]
[b][c][d ][f ][g ][f08][f06 ][f07 ][f09]
[b][c][d ][f ][g ][f08][f06 ][f07 ][f09]
[b][c][d ][f ][g ][f08][f06 ][f07 ][f09]
Descripcion Maquina :[h ]
}
end
tables
irtb00006,
cotb00001,
irtb00002,
irtb00005
attributes
f00 = irtb00006.num_doc,noentry;
p1 = irtb00006.cod_sp,noentry;
f01 = irtb00006.cod_sp_sec,noentry;
f02 = irtb00006.orden_compra, autonext,
comments = "Digite el Numero de la Orden de Compras";
f03 = irtb00006.conduce_no, autonext,
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04 = irtb00006.fact_no, autonext,
comments = "Digite el Numero de la Factura del Suplidor";
f05 = formonly.fecha type date,format = "dd/mm/yyyy",default=today,
comments = "Digite la Fecha Correspondiente al Documento";
f06 = irtb00006.cantidad_1,
comments = "Digite la Cantidad Pedida ";
f07 = irtb00006.cantidad_2,
comments = "Digite la Cantidad Llegada desde el Suplidor";
f08 = irtb00002.unidad_med,noentry;
f09 = irtb00006.maquina,autonext,
comments = "Digite la maquina que pertence el repuesto";
h = formonly.nombre,noentry;
a = cotb00001.nom_sp,noentry;
b = irtb00006.cod_n,autonext,
comments = "Digite el Codigo De la herramienta";
c = irtb00006.cod_grupo,autonext,
comments = "Digite el Codigo De la herramienta";
d = irtb00006.cod_tipo,autonext,
comments = "Digite el Codigo De la herramienta";
f = irtb00006.cod_sec,autonext,
comments = "Digite el Codigo De la herramienta";
g = irtb00002.descrip_esp,noentry;
ti = formonly.tipo type char,autonext;
t = irtb00006.cod_mov,autonext;
d100 = formonly.sec_a,comments = "Digite Departamento Nomina";
t1 = irtb00005.descrip_mov,noentry;
INSTRUCTIONS
screen record s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
unidad_med,cantidad_1,cantidad_2,maquina)
end
PROYECTOS/irdir/irfmmt007.per
+27
View File
@@ -0,0 +1,27 @@
database decomarmol
screen size 24 by 80
{
Codigo de la Unidad [a0 ]
Descripcion [f000 ]
[j]
Usuario Creador [f001 ] Usuario Modificador [f003 ]
Fecha Creacion [f002 ] Fecha Modificacion [f004 ]
}
end
tables
intb00007
attributes
a0 = intb00007.codigo_unidad, upshift, autonext,
comments="Digite el codigo de la unidad de medida";
f000 = intb00007.descripcion, upshift,
comments="Digite el nombre de la unidad de medida";
f001 = intb00007.us_crea, noentry;
f002 = intb00007.fech_crea, noentry;
f003 = intb00007.us_mod, noentry;
f004 = intb00007.fech_mod, noentry;
j = intb00007.status_t, noentry;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmmt009.4fd
+50
View File
@@ -0,0 +1,50 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="decomarmol" fileVersion="23200" gstVersion="2320f" name="ManagedForm" uid="{880abc76-a5ca-4068-8928-35f1ad27d533}">
<AGSettings/>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{dca6f33c-3a18-4b8c-a78c-e6b7ea8cb404}" where="">
<RecordField colName="codigo" fieldIdRef="0" fieldType="TABLE_COLUMN" name="irtb00009.codigo" sqlTabName="irtb00009" sqlType="SMALLINT" table_alias_name="" uid="{a567507f-3f28-45fd-86d7-bcd6c222a7ef}"/>
<RecordField colName="nombre" fieldIdRef="1" fieldType="TABLE_COLUMN" name="irtb00009.nombre" sqlTabName="irtb00009" sqlType="VARCHAR" table_alias_name="" uid="{ebae22c0-049a-447f-9631-f6266799f8c0}"/>
<RecordField colName="unidad_med" fieldIdRef="2" fieldType="TABLE_COLUMN" name="irtb00009.unidad_med" sqlTabName="irtb00009" sqlType="VARCHAR" table_alias_name="" uid="{121d108f-42ff-4d7a-ae34-2bf557f96aa5}"/>
<RecordField colName="modelo" fieldIdRef="3" fieldType="TABLE_COLUMN" name="irtb00009.modelo" sqlTabName="irtb00009" sqlType="VARCHAR" table_alias_name="" uid="{d984f754-b6be-4178-97aa-8655e9971a40}"/>
<RecordField colName="serie" fieldIdRef="4" fieldType="TABLE_COLUMN" name="irtb00009.serie" sqlTabName="irtb00009" sqlType="VARCHAR" table_alias_name="" uid="{60487471-d3f5-46fb-8231-a61164e02c28}"/>
<RecordField colName="fabricante" fieldIdRef="5" fieldType="TABLE_COLUMN" name="irtb00009.fabricante" sqlTabName="irtb00009" sqlType="VARCHAR" table_alias_name="" uid="{b1263bbb-6ccf-412d-98d0-b8468e3ccf1f}"/>
<RecordField colName="status_t" fieldIdRef="10" fieldType="TABLE_COLUMN" name="irtb00009.status_t" sqlTabName="irtb00009" sqlType="VARCHAR" table_alias_name="" uid="{5c0a2a4f-132b-47f1-aa64-f55d3a201112}"/>
<RecordField colName="us_crea" fieldIdRef="6" fieldType="TABLE_COLUMN" name="irtb00009.us_crea" sqlTabName="irtb00009" sqlType="VARCHAR" table_alias_name="" uid="{2c2829f3-4a73-4b9b-bc28-267f573eceec}"/>
<RecordField colName="us_mod" fieldIdRef="8" fieldType="TABLE_COLUMN" name="irtb00009.us_mod" sqlTabName="irtb00009" sqlType="VARCHAR" table_alias_name="" uid="{9587f90b-a0bf-416c-a97f-790734234bff}"/>
<RecordField colName="fech_crea" fieldIdRef="7" fieldType="TABLE_COLUMN" name="irtb00009.fech_crea" qual1="YEAR" qualFraction="FRACTION(3)" sqlTabName="irtb00009" sqlType="DATETIME" table_alias_name="" uid="{cdae8379-cc6a-46e9-9474-b48daff67b04}"/>
<RecordField colName="fech_mod" fieldIdRef="9" fieldType="TABLE_COLUMN" name="irtb00009.fech_mod" qual1="YEAR" qualFraction="FRACTION(3)" sqlTabName="irtb00009" sqlType="DATETIME" table_alias_name="" uid="{93c461e0-fee8-49db-867a-9f5784bb58ce}"/>
</Record>
<Form gridHeight="16" gridWidth="90" name="irfmmt009" text="MAQUINAS">
<ToolBar name="menu">
<ToolBarItem image="new" name="adicionar" text="Adicionar"/>
<ToolBarItem image="find" name="buscar" text="Buscar"/>
<ToolBarItem image="quit" name="salir" text="Salir"/>
</ToolBar>
<Grid gridHeight="14" gridWidth="84" name="Grid1" posX="3" posY="1">
<Label gridHeight="1" gridWidth="6" name="Label1" posX="4" posY="1" text="Codigo"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="codigo" columnCount="" comment="Digite el codigo de la unidad de medida" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="irtb00009.codigo" posX="17" posY="1" rowCount="" sqlTabName="irtb00009" sqlType="SMALLINT" stepX="" stepY="" tabIndex="1" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="8" name="Label2" posX="4" posY="2" text="Nombre"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="nombre" columnCount="" comment="Digite el nombre de la unidad de medida" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="30" name="irtb00009.nombre" posX="17" posY="2" rowCount="" sqlTabName="irtb00009" sqlType="VARCHAR" stepX="" stepY="" tabIndex="2" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="Label3" posX="4" posY="3" text="Unidad"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="unidad_med" columnCount="" comment="Digite la unidad medida de la unidad de medida" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="irtb00009.unidad_med" posX="17" posY="3" rowCount="" sqlTabName="irtb00009" sqlType="VARCHAR" stepX="" stepY="" tabIndex="3" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="Label4" posX="4" posY="4" text="Modelo"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="modelo" columnCount="" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="irtb00009.modelo" posX="17" posY="4" rowCount="" sqlTabName="irtb00009" sqlType="VARCHAR" stepX="" stepY="" tabIndex="4" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="5" name="Label5" posX="4" posY="5" text="Serie"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="serie" columnCount="" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="irtb00009.serie" posX="17" posY="5" rowCount="" sqlTabName="irtb00009" sqlType="VARCHAR" stepX="" stepY="" tabIndex="5" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label6" posX="4" posY="6" text="Fabricante"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="fabricante" columnCount="" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="45" name="irtb00009.fabricante" posX="17" posY="6" rowCount="" sqlTabName="irtb00009" sqlType="VARCHAR" stepX="" stepY="" tabIndex="6" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" columnCount="" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="irtb00009.status_t" noEntry="true" posX="2" posY="7" rowCount="" sqlTabName="irtb00009" sqlType="VARCHAR" stepX="" stepY="" tabIndex="7" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="9" text="Usuario Creador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" columnCount="" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="irtb00009.us_crea" noEntry="true" posX="23" posY="9" rowCount="" sqlTabName="irtb00009" sqlType="VARCHAR" stepX="" stepY="" tabIndex="8" table_alias_name="" widget="Edit"/>
<Label posX="42" posY="9" text="Usuario Modificador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" columnCount="" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="irtb00009.us_mod" noEntry="true" posX="64" posY="9" rowCount="" sqlTabName="irtb00009" sqlType="VARCHAR" stepX="" stepY="" tabIndex="9" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="10" text="Fecha Creacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" columnCount="" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="irtb00009.fech_crea" noEntry="true" posX="23" posY="10" qual1="YEAR" qualFraction="FRACTION(3)" rowCount="" sqlTabName="irtb00009" sqlType="DATETIME" stepX="" stepY="" tabIndex="10" table_alias_name="" widget="Edit"/>
<Label posX="42" posY="10" text="Fecha Modificacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" columnCount="" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="irtb00009.fech_mod" noEntry="true" posX="64" posY="10" qual1="YEAR" qualFraction="FRACTION(3)" rowCount="" sqlTabName="irtb00009" sqlType="DATETIME" stepX="" stepY="" tabIndex="11" table_alias_name="" widget="Edit"/>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewBhADUANgA3ADUAMAA3AGYALQAzAGYAMgA4AC0ANAA1AGYAZAAtADgANgBkADcALQBiAGMAZAA2AGMAMgAyADIAYQA3AGUAZgB9QCAAAAQAAABAPZmZoQAAAAAAAAAAAAAAAQAAAEwAewAyAGMAMgA4ADIAOQBmADMALQA0AGEANwAzAC0ANABiADkAYgAtAGIAYwAyADgALQAyADYANwBmADUANwAzAGUAYwBlAGUAYwB9QCAAAAQAAABAYxmZnmAAAAAAAAAAAAAAAQAAAEwAewA2ADAANAA4ADcANAA3ADEALQBkADMAZgA1AC0ANAA2AGYAYgAtADgAMgAzADEALQBhADYAMQAxADYANABlADAAMgBjADIAOAB9QCAAAAQAAABAWQAABkAAAAAAAAAAAAAAAQAAAEwAewBlAGIAYQBlADIAMgBjADAALQAwADQAOQBhAC0ANAA0ADcAZgAtADkANgAzADEALQBmADYAMgA2ADYANwA5ADkAZgA4AGMAMAB9QCAAAAQAAABAR5mZn4AAAAAAAAAAAAAAAQAAAEwAewBkADkAOAA0AGYANwA1ADQALQBiADYAYgBlAC0ANAAxADcAOAAtADkANwBhAGEALQA4ADYANQA1AGUAOQA5ADcAMQBhADQAMAB9QCAAAAQAAABAVJmZnsAAAAAAAAAAAAAAAQAAAEwAewA5ADMAYwA0ADYAMQBlADAALQBmAGUAZQA4AC0ANAA5AGQAYgAtADgANgA3AGEALQA5AGYANQA3ADgANABiAGIANQA4AGMAZQB9QCAAAAQAAABAabMzOaAAAAAAAAAAAAAAAQAAAEwAewBkAGMAYQA2AGYAMwAzAGMALQAzAGEAMQA4AC0ANABiADgAYwAtAGEANwA4AGMALQBlADYAYgA3AGUAYQA4AGMAYgA0ADAANAB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewAxADIAMQBkADEAMAA4AGYALQA0ADIAZgBmAC0ANABkADcAYQAtAGEAZQAzADQALQAyAGIAZgA1ADUANwBmADkANgBhAGEANQB9QCAAAAQAAABAUDMzN0AAAAAAAAAAAAAAAQAAAEwAewA5ADUAOAA3AGYAOQAwAGIALQBhADAAYgBmAC0ANAAxADYAYwAtAGEAOQA3AGYALQA3ADkAMAA3ADMANAAyADMANABiAGYAZgB9QCAAAAQAAABAZUzM0iAAAAAAAAAAAAAAAQAAAEwAewBiADEAMgA2ADMAYgBiAGIALQA2AGMAYwBmAC0ANAAxADIAZAAtADkAOABkADAALQBiADgANAA2ADgAZQAzAGMAYwBmADEAZgB9QCAAAAQAAABAXWZmbcAAAAAAAAAAAAAAAQAAAEwAewA1AGMAMABhADIAYQA0AGYALQAxADMAMgBiAC0ANAA3AGYAMQAtAGEAYQA2ADQALQBmADUANQBkADMAYQAyADAAMQAxADEAMgB9QCAAAAQAAABAYOZmaqAAAAAAAAAAAAAAAQAAAEwAewBjAGQAYQBlADgAMwA3ADkALQBjAGMANgBhAC0ANAA2AGUAOQAtADkANAA3ADQALQBiADQAOABkAGEAZgBmADYANwBiADAANAB9QCAAAAQAAABAZ4AABeAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
PROYECTOS/irdir/irfmmt009.per
+36
View File
@@ -0,0 +1,36 @@
database decomarmol
screen size 24 by 80
{
Codigo [a0 ]
Nombre [f000 ]
Unidad [f008]
Modelo [f001 ]
Serie [f002 ]
Fabricante [f003 ]
[j]
Usuario Creador [f004 ] Usuario Modificador [f006 ]
Fecha Creacion [f005 ] Fecha Modificacion [f007 ]
}
end
tables
irtb00009
attributes
a0 = irtb00009.codigo, upshift, autonext,
comments="Digite el codigo de la unidad de medida";
f000 = irtb00009.nombre, upshift,
comments="Digite el nombre de la unidad de medida";
f008 = irtb00009.unidad_med, upshift,
comments="Digite la unidad medida de la unidad de medida";
f001 = irtb00009.modelo,UPSHIFT,autonext;
f002 = irtb00009.serie,upshift,autonext;
f003 = irtb00009.fabricante,upshift,autonext;
f004 = irtb00009.us_crea, noentry;
f005 = irtb00009.fech_crea, noentry;
f006 = irtb00009.us_mod, noentry;
f007 = irtb00009.fech_mod, noentry;
j = irtb00009.status_t, noentry;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmmt010.4fd
+74
View File
@@ -0,0 +1,74 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="decomarmol" fileVersion="23200" gstVersion="2320f" name="ManagedForm" uid="{4d07211b-cdf4-4d30-a4ec-195cbb9d91f2}">
<AGSettings/>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{486b137b-d376-419c-b21d-14bec63634fb}" where="">
<RecordField colName="cod_n" fieldIdRef="0" fieldType="TABLE_COLUMN" name="irtb00008.cod_n" sqlTabName="irtb00008" sqlType="SMALLINT" table_alias_name="" uid="{28daa544-a08f-4c03-b043-bb0f9d4382df}"/>
<RecordField colName="cod_grupo" fieldIdRef="1" fieldType="TABLE_COLUMN" name="irtb00008.cod_grupo" sqlTabName="irtb00008" sqlType="SMALLINT" table_alias_name="" uid="{306ae5c1-53e2-4ed2-8688-3e1510ddcdf1}"/>
<RecordField colName="cod_tipo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="irtb00008.cod_tipo" sqlTabName="irtb00008" sqlType="SMALLINT" table_alias_name="" uid="{c69602f0-c624-48d5-b6ad-f8463f024a9a}"/>
<RecordField colName="cod_sec" fieldIdRef="3" fieldType="TABLE_COLUMN" name="irtb00008.cod_sec" sqlTabName="irtb00008" sqlType="SMALLINT" table_alias_name="" uid="{d16ca716-7ab6-47f1-9dab-8debc925dbcd}"/>
<RecordField colName="descrip_esp" fieldIdRef="13" name="descrip_esp" sqlTabName="formonly" table_alias_name="" uid="{6384e09d-53b9-4837-95c9-aaebfe48491f}"/>
<RecordField colName="unidad_med" fieldIdRef="14" name="unidad_med" sqlTabName="formonly" table_alias_name="" uid="{fdebe895-2bcd-4e73-9be8-1ef48251f537}"/>
<RecordField colName="cod_maq" fieldIdRef="4" fieldType="TABLE_COLUMN" name="irtb00008.cod_maq" sqlTabName="irtb00008" sqlType="SMALLINT" table_alias_name="" uid="{46874910-5232-4f1d-afc0-f1a788f802dd}"/>
<RecordField colName="nombre" fieldIdRef="15" fieldType="TABLE_COLUMN" name="irtb00009.nombre" sqlTabName="irtb00009" sqlType="VARCHAR" table_alias_name="" uid="{057a8cb1-a9cf-4a63-9361-af350c912085}"/>
<RecordField colName="numero" fieldIdRef="5" fieldType="TABLE_COLUMN" name="irtb00008.numero" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{5a0fc2b3-3d95-4845-96b5-5c9736ef5997}"/>
<RecordField colName="serie" fieldIdRef="6" fieldType="TABLE_COLUMN" name="irtb00008.serie" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{4a541a45-bef5-420f-8d95-4dd2b7d683b3}"/>
<RecordField colName="distribuidor" fieldIdRef="7" fieldType="TABLE_COLUMN" name="irtb00008.distribuidor" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{5c3ba2ff-a0e7-43f9-8f47-1f31aef45577}"/>
<RecordField colName="fabricante" fieldIdRef="8" fieldType="TABLE_COLUMN" name="irtb00008.fabricante" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{f123ad8f-c0e1-423d-ad5a-82358e05b1dd}"/>
<RecordField colName="localizacion" fieldIdRef="9" fieldType="TABLE_COLUMN" name="irtb00008.localizacion" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{aeb465fe-12a7-4949-883d-adc28ed8b56b}"/>
<RecordField colName="material" fieldIdRef="10" fieldType="TABLE_COLUMN" name="irtb00008.material" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{310164f0-58b1-4f6b-a571-7b142f1d2752}"/>
<RecordField colName="dureza" fieldIdRef="11" fieldType="TABLE_COLUMN" name="irtb00008.dureza" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{50549275-9ed3-40e5-8581-b9cc07d40538}"/>
<RecordField colName="motor_elec" fieldIdRef="12" fieldType="TABLE_COLUMN" name="irtb00008.motor_elec" sqlTabName="irtb00008" sqlType="SMALLINT" table_alias_name="" uid="{bde7c416-8491-44fa-ab1e-7504f529688e}"/>
<RecordField colName="status_t" fieldIdRef="20" fieldType="TABLE_COLUMN" name="irtb00008.status_t" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{8e39fa59-0808-428d-8870-513a4b11f494}"/>
<RecordField colName="us_crea" fieldIdRef="16" fieldType="TABLE_COLUMN" name="irtb00008.us_crea" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{b9943e28-9149-481e-b653-595c0f97ea6c}"/>
<RecordField colName="us_mod" fieldIdRef="18" fieldType="TABLE_COLUMN" name="irtb00008.us_mod" sqlTabName="irtb00008" sqlType="VARCHAR" table_alias_name="" uid="{fae7f124-6327-4dbc-a982-0cd40e76e431}"/>
<RecordField colName="fech_crea" fieldIdRef="17" fieldType="TABLE_COLUMN" name="irtb00008.fech_crea" qual1="YEAR" qualFraction="FRACTION(3)" sqlTabName="irtb00008" sqlType="DATETIME" table_alias_name="" uid="{3ba30d41-4d7f-4704-b471-dc2ecba5a48b}"/>
<RecordField colName="fech_mod" fieldIdRef="19" fieldType="TABLE_COLUMN" name="irtb00008.fech_mod" qual1="YEAR" qualFraction="FRACTION(3)" sqlTabName="irtb00008" sqlType="DATETIME" table_alias_name="" uid="{92a4cf30-db96-481b-83d0-da8b37c2b831}"/>
</Record>
<Form gridHeight="31" gridWidth="87" name="irfmmt010" text="REPUESTOS MAQUINA">
<ToolBar name="ToolBar1">
<ToolBarItem image="new" name="adicionar"/>
<ToolBarItem image="find" name="buscar" text="Buscar"/>
<ToolBarItem image="quit" name="salir"/>
</ToolBar>
<Grid gridHeight="16" gridWidth="81" name="Grid1" posX="3" posY="3">
<Label gridHeight="1" gridWidth="15" name="Label1" posX="3" posY="0" text="Codigo Repuesto"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_n" columnCount="" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="irtb00008.cod_n" posX="24" posY="0" rowCount="" sqlTabName="irtb00008" sqlType="SMALLINT" stepX="" stepY="" tabIndex="1" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" columnCount="" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="irtb00008.cod_grupo" posX="29" posY="0" rowCount="" sqlTabName="irtb00008" sqlType="SMALLINT" stepX="" stepY="" tabIndex="2" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" columnCount="" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="irtb00008.cod_tipo" posX="34" posY="0" rowCount="" sqlTabName="irtb00008" sqlType="SMALLINT" stepX="" stepY="" tabIndex="3" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" columnCount="" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="irtb00008.cod_sec" posX="39" posY="0" rowCount="" sqlTabName="irtb00008" sqlType="SMALLINT" stepX="" stepY="" tabIndex="4" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp" columnCount="" fieldId="13" gridHeight="1" gridWidth="29" name="descrip_esp" noEntry="true" posX="43" posY="0" rowCount="" scroll="true" sqlTabName="formonly" stepX="" stepY="" tabIndex="5" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" columnCount="" fieldId="14" gridHeight="1" gridWidth="3" name="unidad_med" noEntry="true" posX="73" posY="0" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="6" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="14" name="Label2" posX="3" posY="1" text="Codigo Maquina"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_maq" columnCount="" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="irtb00008.cod_maq" posX="24" posY="1" rowCount="" sqlTabName="irtb00008" sqlType="SMALLINT" stepX="" stepY="" tabIndex="7" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="nombre" columnCount="" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="31" name="irtb00009.nombre" noEntry="true" posX="30" posY="1" rowCount="" sqlTabName="irtb00009" sqlType="VARCHAR" stepX="" stepY="" tabIndex="8" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="Label3" posX="3" posY="2" text="Numero"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="numero" columnCount="" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="21" name="irtb00008.numero" posX="24" posY="2" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="9" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="5" name="Label4" posX="3" posY="3" text="Serie"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="serie" columnCount="" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="21" name="irtb00008.serie" posX="24" posY="3" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="10" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="12" name="Label5" posX="3" posY="4" text="Distribuidor"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="distribuidor" columnCount="" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="45" name="irtb00008.distribuidor" posX="24" posY="4" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="11" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label6" posX="3" posY="5" text="Fabricante"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="fabricante" columnCount="" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="45" name="irtb00008.fabricante" posX="24" posY="5" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="12" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="12" name="Label7" posX="3" posY="6" text="Localizacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="localizacion" columnCount="" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="45" name="irtb00008.localizacion" posX="24" posY="6" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="13" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="8" name="Label8" posX="3" posY="7" text="Material"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="material" columnCount="" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="21" name="irtb00008.material" posX="24" posY="7" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="14" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="Label9" posX="3" posY="8" text="Dureza"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="dureza" columnCount="" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="10" name="irtb00008.dureza" posX="24" posY="8" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="15" table_alias_name="" widget="Edit"/>
<Label gridHeight="1" gridWidth="15" name="Label10" posX="3" posY="9" text="Motor Electrico"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="motor_elec" columnCount="" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="irtb00008.motor_elec" posX="24" posY="9" rowCount="" sqlTabName="irtb00008" sqlType="SMALLINT" stepX="" stepY="" tabIndex="16" table_alias_name="" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" columnCount="" fieldId="20" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="irtb00008.status_t" noEntry="true" posX="2" posY="10" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="17" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="11" text="Usuario Creador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" columnCount="" fieldId="16" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="irtb00008.us_crea" noEntry="true" posX="23" posY="11" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="18" table_alias_name="" widget="Edit"/>
<Label posX="42" posY="11" text="Usuario Modificador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" columnCount="" fieldId="18" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="irtb00008.us_mod" noEntry="true" posX="64" posY="11" rowCount="" sqlTabName="irtb00008" sqlType="VARCHAR" stepX="" stepY="" tabIndex="19" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="12" text="Fecha Creacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" columnCount="" fieldId="17" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="irtb00008.fech_crea" noEntry="true" posX="23" posY="12" qual1="YEAR" qualFraction="FRACTION(3)" rowCount="" sqlTabName="irtb00008" sqlType="DATETIME" stepX="" stepY="" tabIndex="20" table_alias_name="" widget="Edit"/>
<Label posX="42" posY="12" text="Fecha Modificacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" columnCount="" fieldId="19" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="irtb00008.fech_mod" noEntry="true" posX="64" posY="12" qual1="YEAR" qualFraction="FRACTION(3)" rowCount="" sqlTabName="irtb00008" sqlType="DATETIME" stepX="" stepY="" tabIndex="21" table_alias_name="" widget="Edit"/>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewAzADEAMAAxADYANABmADAALQA1ADgAYgAxAC0ANABmADYAYgAtAGEANQA3ADEALQA3AGIAMQA0ADIAZgAxAGQAMgA3ADUAMgB9QCAAAAQAAABAcCZmanAAAAAAAAAAAAAAAQAAAEwAewA1AGEAMABmAGMAMgBiADMALQAzAGQAOQA1AC0ANAA4ADQANQAtADkANgBiADUALQA1AGMAOQA3ADMANgBlAGYANQA5ADkANwB9QCAAAAQAAABAZUzM0iAAAAAAAAAAAAAAAQAAAEwAewA5ADIAYQA0AGMAZgAzADAALQBkAGIAOQA2AC0ANAA4ADEAYgAtADgAMwBkADAALQBkAGEAOABiADMANwBjADIAYgA4ADMAMQB9QCAAAAQAAABAd9mZn5AAAAAAAAAAAAAAAQAAAEwAewAzAGIAYQAzADAAZAA0ADEALQA0AGQANwBmAC0ANAA3ADAANAAtAGIANAA3ADEALQBkAGMAMgBlAGMAYgBhADUAYQA0ADgAYgB9QCAAAAQAAABAdsAABbAAAAAAAAAAAAAAAQAAAEwAewA2ADMAOAA0AGUAMAA5AGQALQA1ADMAYgA5AC0ANAA4ADMANwAtADkANQBjADkALQBhAGEAZQBiAGYAZQA0ADgANAA5ADEAZgB9QCAAAAQAAABAWQAABkAAAAAAAAAAAAAAAQAAAEwAewBkADEANgBjAGEANwAxADYALQA3AGEAYgA2AC0ANAA3AGYAMQAtADkAZABhAGIALQA4AGQAZQBiAGMAOQAyADUAZABiAGMAZAB9QCAAAAQAAABAVJmZnsAAAAAAAAAAAAAAAQAAAEwAewA1AGMAMwBiAGEAMgBmAGYALQBhADAAZQA3AC0ANAAzAGYAOQAtADgAZgA0ADcALQAxAGYAMwAxAGEAZQBmADQANQA1ADcANwB9QCAAAAQAAABAabMzOaAAAAAAAAAAAAAAAQAAAEwAewAyADgAZABhAGEANQA0ADQALQBhADAAOABmAC0ANABjADAAMwAtAGIAMAA0ADMALQBiAGIAMABmADkAZAA0ADMAOAAyAGQAZgB9QCAAAAQAAABAPZmZoQAAAAAAAAAAAAAAAQAAAEwAewAzADAANgBhAGUANQBjADEALQA1ADMAZQAyAC0ANABlAGQAMgAtADgANgA4ADgALQAzAGUAMQA1ADEAMABkAGQAYwBkAGYAMQB9QCAAAAQAAABAR5mZn4AAAAAAAAAAAAAAAQAAAEwAewAwADUANwBhADgAYwBiADEALQBhADkAYwBmAC0ANABhADYAMwAtADkAMwA2ADEALQBhAGYAMwA1ADAAYwA5ADEAMgAwADgANQB9QCAAAAQAAABAYxmZnmAAAAAAAAAAAAAAAQAAAEwAewA1ADAANQA0ADkAMgA3ADUALQA5AGUAZAAzAC0ANAAwAGUANQAtADgANQA4ADEALQBiADkAYwBjADAANwBkADQAMAA1ADMAOAB9QCAAAAQAAABAcUAABFAAAAAAAAAAAAAAAQAAAEwAewBiADkAOQA0ADMAZQAyADgALQA5ADEANAA5AC0ANAA4ADEAZQAtAGIANgA1ADMALQA1ADkANQBjADAAZgA5ADcAZQBhADYAYwB9QCAAAAQAAABAdIzM0fAAAAAAAAAAAAAAAQAAAEwAewA0AGEANQA0ADEAYQA0ADUALQBiAGUAZgA1AC0ANAAyADAAZgAtADgAZAA5ADUALQA0AGQAZAAyAGIANwBkADYAOAAzAGIAMwB9QCAAAAQAAABAZ4AABeAAAAAAAAAAAAAAAQAAAEwAewA4AGUAMwA5AGYAYQA1ADkALQAwADgAMAA4AC0ANAAyADgAZAAtADgAOAA3ADAALQA1ADEAMwBhADQAYgAxADEAZgA0ADkANAB9QCAAAAQAAABAc3MzOBAAAAAAAAAAAAAAAQAAAEwAewA0ADgANgBiADEAMwA3AGIALQBkADMANwA2AC0ANAAxADkAYwAtAGIAMgAxAGQALQAxADQAYgBlAGMANgAzADYAMwA0AGYAYgB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewBmAGEAZQA3AGYAMQAyADQALQA2ADMAMgA3AC0ANABkAGIAYwAtAGEAOQA4ADIALQAwAGMAZAA0ADAAZQA3ADYAZQA0ADMAMQB9QCAAAAQAAABAdaZma9AAAAAAAAAAAAAAAQAAAEwAewA0ADYAOAA3ADQAOQAxADAALQA1ADIAMwAyAC0ANABmADEAZAAtAGEAZgBjADAALQBmADEAYQA3ADgAOABmADgAMAAyAGQAZAB9QCAAAAQAAABAYOZmaqAAAAAAAAAAAAAAAQAAAEwAewBmAGQAZQBiAGUAOAA5ADUALQAyAGIAYwBkAC0ANABlADcAMwAtADkAYgBlADgALQAxAGUAZgA0ADgAMgA1ADEAZgA1ADMANwB9QCAAAAQAAABAXWZmbcAAAAAAAAAAAAAAAQAAAEwAewBhAGUAYgA0ADYANQBmAGUALQAxADIAYQA3AC0ANAA5ADQAOQAtADgAOAAzAGQALQBhAGQAYwAyADgAZQBkADgAYgA1ADYAYgB9QCAAAAQAAABAbhmZoSAAAAAAAAAAAAAAAQAAAEwAewBjADYAOQA2ADAAMgBmADAALQBjADYAMgA0AC0ANAA4AGQANQAtAGIANgBhAGQALQBmADgANAA2ADMAZgAwADIANABhADkAYQB9QCAAAAQAAABAUDMzN0AAAAAAAAAAAAAAAQAAAEwAewBmADEAMgAzAGEAZAA4AGYALQBjADAAZQAxAC0ANAAyADMAZAAtAGEAZAA1AGEALQA4ADIAMwA1ADgAZQAwADUAYgAxAGQAZAB9QCAAAAQAAABAa+ZmbWAAAAAAAAAAAAAAAQAAAEwAewBiAGQAZQA3AGMANAAxADYALQA4ADQAOQAxAC0ANAA0AGYAYQAtAGEAYgAxAGUALQA3ADUAMAA0AGYANQAyADkANgA4ADgAZQB9QCAAAAQAAABAclmZnjAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
PROYECTOS/irdir/irfmmt010.per
+46
View File
@@ -0,0 +1,46 @@
database decomarmol
screen size 24 by 80
{
Codigo Repuesto [a][b][c ][d ] [des ][un ]
Codigo Maquina [cod] [f000 ]
Numero [nu ]
Serie [se ]
Distribuidor [dis ]
Fabricante [fab ]
Localizacion [lo ]
Material [ma ]
Dureza [du ]
Motor Electrico [mo ]
[j]
Usuario Creador [f004 ] Usuario Modificador [f006 ]
Fecha Creacion [f005 ] Fecha Modificacion [f007 ]
}
end
tables
irtb00008,irtb00009
attributes
a = irtb00008.cod_n,autonext;
b = irtb00008.cod_grupo,autonext;
c = irtb00008.cod_tipo,autonext;
d = irtb00008.cod_sec ,autonext;
cod= irtb00008.cod_maq, autonext;
nu = irtb00008.numero,autonext,upshift;
se = irtb00008.serie,autonext,upshift;
dis= irtb00008.distribuidor,upshift,autonext;
fab= irtb00008.fabricante,autonext;
lo = irtb00008.localizacion,autonext,upshift;
ma = irtb00008.material,autonext,upshift;
du = irtb00008.dureza,autonext,upshift;
mo = irtb00008.motor_elec,autonext;
des = formonly.descrip_esp,noentry;
un = formonly.unidad_med,noentry;
f000 = irtb00009.nombre,noentry;
f004 = irtb00008.us_crea, noentry;
f005 = irtb00008.fech_crea, noentry;
f006 = irtb00008.us_mod, noentry;
f007 = irtb00008.fech_mod, noentry;
j = irtb00008.status_t, noentry;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmmt011.per
+43
View File
@@ -0,0 +1,43 @@
database decomarmol
screen size 24 by 80
{
Codigo Motor [mt ] Ciclo [c ]
Frame [fr ] Tipo [ti ]
Numero [n1 ] Modelo [mo ]
Fase [f] Marca [ma ]
Serie [ser ]
Revolucines x Min. [rpm ]
Horse Power [hp ]
Voltaje [v ]
Amperaje [a ]
[j]
Usuario Creador [f004 ] Usuario Modificador [f006 ]
Fecha Creacion [f005 ] Fecha Modificacion [f007 ]
}
end
tables
irtb00007
attributes
mt = irtb00007.codigo_m,autonext;
fr = irtb00007.frame,upshift,autonext;
n1 = irtb00007.numero,autonext;
f = irtb00007.fase_m,autonext;
ser = irtb00007.serie,autonext;
rpm= irtb00007.rpm_m,autonext;
hp = irtb00007.hp_m,autonext;
v = irtb00007.voltaje,autonext;
a = irtb00007.amperaje,autonext;
c = irtb00007.ciclo,autonext;
ti = irtb00007.tipo,autonext;
mo = irtb00007.modelo,autonext;
ma = irtb00007.marca,autonext;
f004 = irtb00007.us_crea, noentry;
f005 = irtb00007.fech_crea, noentry;
f006 = irtb00007.us_mod, noentry;
f007 = irtb00007.fech_mod, noentry;
j = irtb00007.status_t, noentry;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmmt012.4fd
+53
View File
@@ -0,0 +1,53 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="decomarmol" fileVersion="23200" gstVersion="2320f" name="ManagedForm" uid="{cc9ba0d8-b061-4896-8000-9db018ddec1c}">
<AGSettings/>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{072dc93a-8617-468c-b68f-4da6f6ccd630}" where="">
<RecordField colName="cod_grupo" fieldIdRef="0" name="cod_grupo" sqlTabName="formonly" table_alias_name="" uid="{6212dfee-3d3f-43f9-a150-f5d349359f0a}"/>
<RecordField colName="descripcion" fieldIdRef="1" name="descripcion" sqlTabName="formonly" table_alias_name="" uid="{e56b2b2c-b4d3-4b8b-ac96-9664b7091ca0}"/>
<RecordField colName="tipo_inventairo" defaultValue="3" fieldIdRef="7" name="tipo_inventairo" sqlTabName="formonly" table_alias_name="" uid="{eb203d7f-6d68-4633-85b6-aeaa19015092}"/>
<RecordField colName="status_t" fieldIdRef="6" name="status_t" sqlTabName="formonly" table_alias_name="" uid="{11bba175-5159-4773-b766-84d6ca0aa7b8}"/>
<RecordField colName="us_crea" fieldIdRef="2" name="us_crea" sqlTabName="formonly" table_alias_name="" uid="{718b1c99-9412-4bcf-ad49-7eb66f34af85}"/>
<RecordField colName="us_mod" fieldIdRef="4" name="us_mod" sqlTabName="formonly" table_alias_name="" uid="{b48efbfe-0c0d-440b-b3c3-b11bc39b5e3f}"/>
<RecordField colName="fech_crea" fieldIdRef="3" name="fech_crea" sqlTabName="formonly" table_alias_name="" uid="{18050db2-efe2-49fb-8b14-9a86bdf79c47}"/>
<RecordField colName="fech_mod" fieldIdRef="5" name="fech_mod" sqlTabName="formonly" table_alias_name="" uid="{2be62b79-77ae-44bb-a890-1ba088fcdc9f}"/>
</Record>
<Form gridHeight="14" gridWidth="87" name="irfmmt012" style="basic" text="ADMINISTRACION GRUPOS">
<ActionDefaultList name="ActionDefaultList1">
<ActionDefault image="find" name="buscalista" text="Busca Informacion"/>
<ActionDefault image="save" name="guardar" text="Actualiza Informacion"/>
<ActionDefault image="clear" name="limpia" text="Limpia Screen"/>
<ActionDefault image="stop" name="cancel" text="Cancela operacion"/>
<ActionDefault image="dollar" name="conversion" text="Conversion Moneda"/>
</ActionDefaultList>
<ToolBar name="ToolBar1">
<ToolBarItem comment="Adiciona Registro" image="new" name="nuevo" text="Adicionar"/>
<ToolBarItem comment="Modifica Registro" image="find" name="buscar" text="Consulta grupos"/>
<ToolBarSeparator name="ToolBarSeparator1"/>
<ToolBarItem image="quit" name="salir" text="Salir"/>
</ToolBar>
<Grid gridHeight="13" gridWidth="86" name="Grid1" posX="0" posY="0">
<Label posX="1" posY="0" text="Codigo"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_grupo" columnCount="" fieldId="0" gridHeight="1" gridWidth="4" name="cod_grupo" noEntry="true" posX="13" posY="0" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="1" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="1" text="Descripcion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="descripcion" columnCount="" comment="Digite la descripcion del Grupo" fieldId="1" gridHeight="1" gridWidth="40" name="descripcion" posX="13" posY="1" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="2" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="2" text="Inventario"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="tipo_inventairo" columnCount="" defaultValue="3" fieldId="7" gridHeight="1" gridWidth="30" items="PRODUCTOS TERMINADOS, MATERIA PRIMA, REPUESTOS" name="tipo_inventairo" posX="19" posY="2" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="3" table_alias_name="" widget="ComboBox">
<Item name="3" text="PRODUCTOS TERMINADOS"/>
<Item name="1" text="MATERIA PRIMA"/>
<Item name="7" text="REPUESTOS"/>
</ComboBox>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" columnCount="" fieldId="6" gridHeight="1" gridWidth="1" name="status_t" noEntry="true" posX="2" posY="4" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="4" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="7" text="Usuario creador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" columnCount="" fieldId="2" gridHeight="1" gridWidth="16" name="us_crea" noEntry="true" posX="20" posY="7" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="5" table_alias_name="" widget="Edit"/>
<Label posX="43" posY="7" text="Usuario modificador"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" columnCount="" fieldId="4" gridHeight="1" gridWidth="14" name="us_mod" noEntry="true" posX="69" posY="7" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="6" table_alias_name="" widget="Edit"/>
<Label posX="1" posY="8" text="Fecha creacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" columnCount="" fieldId="3" gridHeight="1" gridWidth="19" name="fech_crea" noEntry="true" posX="20" posY="8" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="7" table_alias_name="" widget="Edit"/>
<Label posX="43" posY="8" text="Fecha modificacion"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" columnCount="" fieldId="5" gridHeight="1" gridWidth="20" name="fech_mod" noEntry="true" posX="63" posY="8" rowCount="" sqlTabName="formonly" stepX="" stepY="" tabIndex="8" table_alias_name="" widget="Edit"/>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewBiADQAOABlAGYAYgBmAGUALQAwAGMAMABkAC0ANAA0ADAAYgAtAGIAMwBjADMALQBiADEAMQBiAGMAMwA5AGIANQBlADMAZgB9QCAAAAQAAABAXWZmbcAAAAAAAAAAAAAAAQAAAEwAewAwADcAMgBkAGMAOQAzAGEALQA4ADYAMQA3AC0ANAA2ADgAYwAtAGIANgA4AGYALQA0AGQAYQA2AGYANgBjAGMAZAA2ADMAMAB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewAxADEAYgBiAGEAMQA3ADUALQA1ADEANQA5AC0ANAA3ADcAMwAtAGIANwA2ADYALQA4ADQAZAA2AGMAYQAwAGEAYQA3AGIAOAB9QCAAAAQAAABAVJmZnsAAAAAAAAAAAAAAAQAAAEwAewBlAGIAMgAwADMAZAA3AGYALQA2AGQANgA4AC0ANAA2ADMAMwAtADgANQBiADYALQBhAGUAYQBhADEAOQAwADEANQAwADkAMgB9QCAAAAQAAABAUDMzN0AAAAAAAAAAAAAAAQAAAEwAewA3ADEAOABiADEAYwA5ADkALQA5ADQAMQAyAC0ANABiAGMAZgAtAGEAZAA0ADkALQA3AGUAYgA2ADYAZgAzADQAYQBmADgANQB9QCAAAAQAAABAWQAABkAAAAAAAAAAAAAAAQAAAEwAewAxADgAMAA1ADAAZABiADIALQBlAGYAZQAyAC0ANAA5AGYAYgAtADgAYgAxADQALQA5AGEAOAA2AGIAZABmADcAOQBjADQANwB9QCAAAAQAAABAYOZmaqAAAAAAAAAAAAAAAQAAAEwAewBlADUANgBiADIAYgAyAGMALQBiADQAZAAzAC0ANABiADgAYgAtAGEAYwA5ADYALQA5ADYANgA0AGIANwAwADkAMQBjAGEAMAB9QCAAAAQAAABAR5mZn4AAAAAAAAAAAAAAAQAAAEwAewAyAGIAZQA2ADIAYgA3ADkALQA3ADcAYQBlAC0ANAA0AGIAYgAtAGEAOAA5ADAALQAxAGIAYQAwADgAOABmAGMAZABjADkAZgB9QCAAAAQAAABAYxmZnmAAAAAAAAAAAAAAAQAAAEwAewA2ADIAMQAyAGQAZgBlAGUALQAzAGQAMwBmAC0ANAAzAGYAOQAtAGEAMQA1ADAALQBmADUAZAAzADQAOQAzADUAOQBmADAAYQB9QCAAAAQAAABAPZmZoQAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
PROYECTOS/irdir/irfmmt012.per
+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
PROYECTOS/irdir/irfmmt013.per
+24
View File
@@ -0,0 +1,24 @@
database decomarmol
screen size 24 by 80
{
Codigo Sub-Grupo [f000 ]
Nombre Sub-Grupo [f001 ]
[q]
Usuario creador [f007 ] Usuario modificador [f009 ]
Fecha Creacion [f008 ] Fecha Modificacion [f010 ]
}
end
tables
irtb00010
attributes
f000 = irtb00010.codigo,color=blue;
f001 = irtb00010.nombre,upshift,color=blue;
q = irtb00010.status_t,color=blue,noentry;
f007 = irtb00010.us_crea,color=blue,noentry;
f008 = irtb00010.fech_crea,color=blue,noentry;
f009 = irtb00010.us_mod,color=blue,noentry;
f010 = irtb00010.fech_mod,color=blue,noentry;
instructions delimiters" "
end
PROYECTOS/irdir/irfmmt014.per
+16
View File
@@ -0,0 +1,16 @@
database decomarmol
screen size 24 by 80
{
Movimiento [f0]
[dem ]
Usuario [f001 ]
}
end
tables
irtb00018
attributes
f0 = irtb00018.cod_mov;
dem = formonly.descrip,noentry;
f001 = irtb00018.usuario;
instructions delimiters " "
end
PROYECTOS/irdir/irfmmt036.per
+85
View File
@@ -0,0 +1,85 @@
{
----------------------------------------------------------------------------
FORMULARIO : IRFMMT036
OBJETIVO : Pantalla para la captura de otros movimientos
MODULOS Q. UTILIZAN : irprmt036
PROGRAMADOR : Juan F. Soto
FECHA REALIZACION : Marzo 1, 1993
----------------------------------------------------------------------------
}
schema decomarmol
TOOLBAR
ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Documento Transaccional")
ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
SEPARATOR
ITEM salir (TEXT="Salir", IMAGE="quit")
LAYOUT (TEXT="TRANSACCIONES INVENTARIOS", STYLE="basic")
GRID
{
<G Encabezado >
Tipo Movimiento [t ] [t1 ]
Documento Numero [f000 ]Orden [ti][ord ]
Suplidor [sp][sp1 ] [n ]
Fecha [f001 ] Conduce No. [cn ]
Departamento [s ][a1 ]
<G Detalle >
CANTIDAD
Codigo Entregada Unidad D e s c r i p c i o n Maquina
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
Descripcion Maquina[n1 ]
}
end
tables
irtb00002,
irtb00002,
irtb00006,
adtb00002
attributes
ord = irtb00006.orden_compra,autonext,comments =
"Digite Orden Compras para devolver ";
ti = formonly.tipo,autonext;
cn = formonly.conduce_no;
sp= formonly.cod_sp;
sp1= formonly.cod_sp_sec;
n = formonly.nom_sp,noentry;
f000 = formonly.num_doc;
f001 = irtb00006.fecha, format = "dd/mm/yyyy",autonext,
comments = "Digite Fecha Documento";
s = formonly.secc_a,autonext,
comments = "Digite Codigo Localidad";
a1 = formonly.nombre_d, noentry;
a = irtb00006.cod_n,autonext,
comments = "Digite Codigo Articulo CONTROL-E Busqueda";
b = irtb00006.cod_grupo,autonext,
comments = "Digite Codigo Articulo CONTROL-E Busqueda";
c = irtb00006.cod_tipo,autonext,
comments = "Digite Codigo Articulo CONTROL-E Busqueda";
d = irtb00006.cod_sec,autonext,
comments = "Digite Codigo Articulo CONTROL-E Busqueda";
f02 = irtb00006.cantidad_2,autonext,
comments = "Digite La Cantidad Entregada";
k = irtb00002.descrip_esp,noentry,autonext;
p = irtb00002.unidad_med,noentry;
t = formonly.cod_mov type smallint,autonext,
comments = "Digite Codigo Del Movimiento Correspondiente";
t1 = formonly.descrip_mov,noentry;
m1 = formonly.codigo,autonext, comments =
"Digite El Codigo de La Maquina Que Corresponde a este Repuesto";
n1 = formonly.nombre,noentry;
INSTRUCTIONS
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,
cantidad_2,unidad_med,descrip_esp,codigo)
end
PROYECTOS/irdir/irfmmt056.42f
+166
View File
@@ -0,0 +1,166 @@
0.994^
17^78^1^[]^
17^^
Movimiento: Doc. No.

Fecha Orden Compra: 
Suplidor: - 
Factura No. Conduce No. : 
Localidad 
Departamento a 

Cantidad Cantidad
Codigo Ordenada Recibida Unidad D e s c r i p c i o n


Descripcion Maquina:
formFields 25
ff0^1^11^74^0^3^4^1^0^1^2^-32768^0^1^^Digite el codigo de la maquina del repuesto^^^^^Entry^^^0^^^
74^11^3^
74^12^3^
74^13^3^
74^14^3^
ff1^1^2^32^0^2^1^0^0^1^0^-32768^0^0^^Digite Tipo De La Orden^^^^^Entry^^^0^^^
32^2^2^
ff2^2^0^69^0^6^1^0^0^1^1056^-32768^0^2^^Digite el Numero Documento^^^^^Entry^^^0^^^
69^0^6^
ff3^3^3^11^0^2^1^0^0^1^2^-32768^0^1^##^Digite el Codigo del Supldor^^^^^Entry^^^0^^^
11^3^2^
ff4^4^3^16^0^4^1^0^0^1^2^-32768^0^1^####^Digite el Codigo del Supldor^^^^^Entry^^^0^^^
16^3^4^
ff5^5^2^36^0^6^1^0^0^1^2^-32768^0^2^^Digite el Numero de la Orden de Compras^^^^^Entry^^^0^^^
36^2^6^
ff6^6^4^40^0^11^1^0^0^1^2^-32768^0^0^^Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce^^^^^Entry^^^0^^^
40^4^11^
ff7^7^4^13^0^10^1^0^0^1^2^-32768^0^0^^Digite el Numero de la Factura del Suplidor^^^^^Entry^^^0^^^
13^4^10^
ff8^2^5^17^0^4^1^0^0^1^2^-32768^0^0^^^^^^^Entry^^^0^^^
17^5^4^
ff9^3^6^17^0^4^1^0^0^1^2^-32768^0^0^^^^^^^Entry^^^0^^^
17^6^4^
ff10^4^6^24^0^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
24^6^30^
ff11^5^5^24^0^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
24^5^30^
ff12^6^2^8^0^8^1^0^0^1^0^-32768^0^7^^Digite la Fecha Correspondiente al Documento^^^dd/mm/yy^^Entry^^^0^^^
8^2^8^
ff13^8^11^16^0^10^4^1^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^^
16^11^10^
16^12^10^
16^13^10^
16^14^10^
ff14^9^11^28^0^10^4^1^0^1^0^-32768^0^5^^Digite la Cantidad Llegada desde el Suplidor^^^^^Entry^^^0^^^
28^11^10^
28^12^10^
28^13^10^
28^14^10^
ff15^1^11^40^0^3^4^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
40^11^3^
40^12^3^
40^13^3^
40^14^3^
ff16^1^3^22^0^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
22^3^30^
ff17^10^11^1^0^1^4^1^0^1^2^-32768^0^1^^Para Borrar un codigo Presione Ctrl-B o Continue Consultando^^^^^Entry^^^0^^^
1^11^1^
1^12^1^
1^13^1^
1^14^1^
ff18^11^11^4^0^1^4^1^0^1^2^-32768^0^1^^Para Borrar un codigo Presione Ctrl-B o Continue Consultando^^^^^Entry^^^0^^^
4^11^1^
4^12^1^
4^13^1^
4^14^1^
ff19^12^11^7^0^2^4^1^0^1^2^-32768^0^1^^Para Borrar un codigo Presione Ctrl-B o Continue Consultando^^^^^Entry^^^0^^^
7^11^2^
7^12^2^
7^13^2^
7^14^2^
ff20^13^11^11^0^3^4^1^0^1^2^-32768^0^1^^Para Borrar un codigo Presione Ctrl-B o Continue Consultando^^^^^Entry^^^0^^^
11^11^3^
11^12^3^
11^13^3^
11^14^3^
ff21^2^11^45^0^27^4^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
45^11^27^
45^12^27^
45^13^27^
45^14^27^
ff22^14^0^13^0^2^1^0^0^1^1058^-32768^0^1^^^^^^^Entry^^^0^^^
13^0^2^
ff23^1^0^17^0^40^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
17^0^40^
ff24^7^16^24^0^32^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
24^16^32^
aliasses 25
maquina^ff0^
tipo^ff1^
num_doc^ff2^
cod_sp^ff3^
cod_sp_sec^ff4^
orden_compra^ff5^
conduce_no^ff6^
fact_no^ff7^
sec_de^ff8^
sec_a^ff9^
nom^ff10^
nom_seccion^ff11^
fecha^ff12^
cantidad_1^ff13^
cantidad_2^ff14^
unidad_med^ff15^
nom_sp^ff16^
cod_n^ff17^
cod_grupo^ff18^
cod_tipo^ff19^
cod_sec^ff20^
descrip_esp^ff21^
cod_mov^ff22^
descrip_mov^ff23^
nombre^ff24^
screenRecords 6
irtb00006^14^0^1^-1^0^0^0^0^
maquina^ff0^
num_doc^ff2^
cod_sp^ff3^
cod_sp_sec^ff4^
orden_compra^ff5^
conduce_no^ff6^
fact_no^ff7^
cantidad_1^ff13^
cantidad_2^ff14^
cod_n^ff17^
cod_grupo^ff18^
cod_tipo^ff19^
cod_sec^ff20^
cod_mov^ff22^
cotb00001^1^0^1^1^0^0^0^0^
nom_sp^ff16^
irtb00002^2^0^1^4^0^0^0^0^
unidad_med^ff15^
descrip_esp^ff21^
irtb00005^1^0^1^1^0^0^0^0^
descrip_mov^ff23^
formonly^7^0^1^1^0^0^0^0^
tipo^ff1^
sec_de^ff8^
sec_a^ff9^
nom^ff10^
nom_seccion^ff11^
fecha^ff12^
nombre^ff24^
s_movi1^9^1^0^4^1^11^77^4^
cod_n^ff17^
cod_grupo^ff18^
cod_tipo^ff19^
cod_sec^ff20^
cantidad_1^ff13^
cantidad_2^ff14^
unidad_med^ff15^
descrip_esp^ff21^
maquina^ff0^
keyLabels 0
PROYECTOS/irdir/irfmmt056.per
+71
View File
@@ -0,0 +1,71 @@
database marmotech
screen size 24 by 80
{
Movimiento:[t ][t1 ] Doc. No. [f00 ]
\gp-------------------------------------------------------------------------q\g
\g|\gFecha [f05 ] Orden Compra:[a1][f02 ] \g|\g
\g|\gSuplidor:[p1]-[f01 ][a ] \g|\g
\g|\gFactura No.[f04 ] Conduce No. :[f03 ] \g|\g
\g|\gLocalidad [f8 ] [p5 ] \g|\g
\g|\gDepartamento a [f9 ] [p3 ] \g|\g
\gb-------------------------------------------------------------------------d\g
Cantidad Cantidad
Codigo Ordenada Recibida Unidad D e s c r i p c i o n
\g------------------------------------------------------------------------------\g
[b][c][d ][f ][f06 ][f07 ][f08][g ][ma ]
[b][c][d ][f ][f06 ][f07 ][f08][g ][ma ]
[b][c][d ][f ][f06 ][f07 ][f08][g ][ma ]
[b][c][d ][f ][f06 ][f07 ][f08][g ][ma ]
\g------------------------------------------------------------------------------\g
Descripcion Maquina: [n1 ]
}
end
tables
irtb00006,
cotb00001,
irtb00002,
irtb00005
attributes
ma = irtb00006.maquina,autonext,comments =
"Digite el codigo de la maquina del repuesto";
a1 = formonly.tipo,comments="Digite Tipo De La Orden";
f00 = irtb00006.num_doc,comments = "Digite el Numero Documento";
p1 = irtb00006.cod_sp,picture = "##",autonext,
comments = "Digite el Codigo del Supldor";
f01 = irtb00006.cod_sp_sec,picture = "####",autonext,
comments = "Digite el Codigo del Supldor";
f02 = irtb00006.orden_compra, autonext,
comments = "Digite el Numero de la Orden de Compras";
f03 = irtb00006.conduce_no, autonext,
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04 = irtb00006.fact_no, autonext,
comments = "Digite el Numero de la Factura del Suplidor";
f8 = formonly.sec_de ,autonext;
f9 = formonly.sec_a ,autonext;
p3 = formonly.nom,noentry;
p5 = formonly.nom_seccion,noentry;
f05 = formonly.fecha type date,format = "dd/mm/yy",
comments = "Digite la Fecha Correspondiente al Documento";
f06 = irtb00006.cantidad_1,noentry;
f07 = irtb00006.cantidad_2,
comments = "Digite la Cantidad Llegada desde el Suplidor";
f08 = irtb00002.unidad_med,noentry;
a = cotb00001.nom_sp,noentry;
b = irtb00006.cod_n,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
c = irtb00006.cod_grupo,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
d = irtb00006.cod_tipo,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
f = irtb00006.cod_sec,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
g = irtb00002.descrip_esp,noentry;
t = irtb00006.cod_mov,autonext;
t1 = irtb00005.descrip_mov,noentry;
n1 = formonly.nombre,noentry;
INSTRUCTIONS
screen record s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
cantidad_2,unidad_med,descrip_esp,maquina)
end
PROYECTOS/irdir/irfmmt057.per
+50
View File
@@ -0,0 +1,50 @@
{
========================================================================
FORMULARIO : IRFMMT57
SISTEMA : Inventario Repuestos (Inventario Perpetuo)
OBJETIVO : Pantalla para digitar los resultados del inventario
fisico perpetuo realizado en determinada semana del
mes
PROGRAMA Q. USA : IRPRMT57
PROGRAMADOR : Tadeo A. Ferreras
FECHA : Mayo 9, 1993
=========================================================================
}
database decomarmol
screen
{
Codigo [a]-[b]-[b1]-[b2 ]
[b3 ] [b4 ] Categoria [e]
Semana Del [c ] Al [c1 ]
Existencia Actual [d ] Fisica [d1 ]
[j]
Usuario Creador [usu ] Usuario Modificador [usm ]
Fecha de Creacion[fech ] Fecha de Modificacion[fec1 ]
}
end
tables
irtb00002
irtb00016
irtb00017
attributes
a = irtb00017.cod_n,autonext,color = blue,include = (5),default = 5;
b = irtb00017.cod_grupo,autonext,color = blue;
b1 = irtb00017.cod_tipo,autonext,color = blue;
b2 = irtb00017.cod_sec,autonext,color = blue;
b3 = irtb00002.unidad_med,color = blue,noentry;
b4 = irtb00002.descrip_esp,color = blue,noentry;
e = irtb00016.categoria,color = blue,noentry;
c = irtb00017.semana_del,autonext,color = blue,format = "dd-mm-yyyy";
c1 = irtb00017.semana_al,autonext,color=blue,format="dd-mm-yyyy";
d = irtb00017.exis_act,color = blue,noentry;
d1 = irtb00017.exis_fisica,color = blue;
j = irtb00017.status_t,noentry;
usu = irtb00017.us_crea,noentry;
fech = irtb00017.fech_crea,noentry;
usm = irtb00017.us_mod,noentry;
fec1 = irtb00017.fech_mod,noentry;
instructions delimiters " "
end
PROYECTOS/irdir/irfmmt067.per
+53
View File
@@ -0,0 +1,53 @@
{
-------------------------------------------------------------------------------
FORMULARIO : IRFMMT067
OBJETIVO : Capturar registros de la Tabla de IRTB00027
PROGRAMADOR : Lic. Abner Montalvo
FECHA REALIZACION : Junio 26, 1997.
-------------------------------------------------------------------------------
}
DATABASE decomarmol
SCREEN SIZE 24 by 80
{
Fecha ...: [a ]
Repuesto : [f][g][g1][g2 ] [a1 ]
\g---------------------------------------------------------------------------\g
Codigo Material Descripcion Und Cantidad
\g---------------------------------------------------------------------------\g
[c][d][c1][c2 ] [a2 ] [n1 ] [k1 ]
[c][d][c1][c2 ] [a2 ] [n1 ] [k1 ]
[c][d][c1][c2 ] [a2 ] [n1 ] [k1 ]
}
end
tables
irtb00027
attributes
a = formonly.fecha_r type date,autonext,reverse, format = "dd/mm/yyyy",
comments = "Digite la Fecha del Diseno del Repuesto";
f = formonly.cod_n_r,autonext,reverse,
comments = "Digite NIVEL del Repuesto o Ctrl+W para busqueda";
g = formonly.cod_grupo_r,autonext,reverse,
comments = "Digite GRUPO del Repuesto o Ctrl+W para busqueda";
g1 = formonly.cod_tipo_r,autonext,reverse,
comments = "Digite TIPO del Repuesto o Ctrl+W para busqueda";
g2 = formonly.cod_sec_r,autonext,reverse,
comments = "Digite SECUENCIA del Repuesto o Ctrl+W para busqueda";
a1 = formonly.descrip2,noentry;
c = formonly.cod_n_m,autonext,reverse,
comments = "Digite NIVEL del Material o Ctrl+W para busqueda";
d = formonly.cod_grupo_m,autonext,reverse,
comments = "Digite GRUPO del Material o Ctrl+W para busqueda";
c1 = formonly.cod_tipo_m,autonext,reverse,
comments = "Digite TIPO del Material o Ctrl+W para busqueda";
c2 = formonly.cod_sec_m,autonext,reverse,
comments = "Digite SECUENCIA del Material o Ctrl+W para busqueda";
a2 = formonly.descrip_esp,noentry;
k1 = irtb00027.cantidad_m,reverse,
comments = "Digite Cantidad Requerida";
n1 = formonly.unidad_med,noentry;
instructions
screen record s_mr[3] (cod_n_m,cod_grupo_m,cod_tipo_m,cod_sec_m,
descrip_esp, unidad_med,cantidad_m)
end
PROYECTOS/irdir/irfmmt068.per
+30
View File
@@ -0,0 +1,30 @@
database decomarmol
screen size 24 by 80
{
Departamento [a ][des ]
Maquina [cod] [f000 ]
[j]
Usuario Creador [f004 ] Usuario Modificador [f006 ]
Fecha Creacion [f005 ] Fecha Modificacion [f007 ]
}
end
tables
adtb00001,irtb00009,irtb00029
attributes
a = irtb00029.departamento,autonext,
comments= "Digite el Codigo del Departamento o <Ctrl-W> para ver departamentos";
cod = irtb00029.maquina, autonext,
comments= "Digite el Codigo de la Maquina o <Ctrl-W> para ver maquinas";
des = adtb00001.nom_dpto,noentry;
f000 = irtb00009.nombre,noentry;
f004 = irtb00029.us_crea, noentry;
f005 = irtb00029.fech_crea, noentry;
f006 = irtb00029.us_mod, noentry;
f007 = irtb00029.fech_mod, noentry;
j = irtb00029.status_t, noentry;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmmt099.42f
+22
View File
@@ -0,0 +1,22 @@
0.994^
6^74^1^[]^
6^^

MANTENIMIENTO DE SUB-GRUPO DE REPUESTOS

Codigo
Nombre
formFields 2
ff0^1^4^24^0^11^1^0^0^1^0^-32768^0^2^^^^^^^Entry^^^0^^^
24^4^11^
ff1^2^5^24^0^30^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^^
24^5^30^
aliasses 2
codigo^ff0^
nombre^ff1^
screenRecords 1
irtb00010^2^0^1^1^0^0^0^0^
codigo^ff0^
nombre^ff1^
keyLabels 0
PROYECTOS/irdir/irfmmt099.per
+17
View File
@@ -0,0 +1,17 @@
database marmotech
screen size 24 by 80
{
\g--------------------------------------------------------------------------\g
MANTENIMIENTO DE SUB-GRUPO DE REPUESTOS
\g--------------------------------------------------------------------------\g
Codigo [f000 ]
Nombre [f001 ]
}
end
tables
irtb00010
attributes
f000 = irtb00010.codigo;
f001 = irtb00010.nombre;
end
PROYECTOS/irdir/irfmrp001.42f
+25
View File
@@ -0,0 +1,25 @@
0.994^
1^29^1^[]^
1^^
Codigo
formFields 4
ff0^1^0^15^0^1^1^0^0^1^1058^-32768^0^1^^Digite el NIVEL^^^^^Entry^^^0^^^
15^0^1^
ff1^2^0^18^0^1^1^0^0^1^1058^-32768^0^1^^Digite el GRUPO^^^^^Entry^^^0^^^
18^0^1^
ff2^3^0^21^0^2^1^0^0^1^1058^-32768^0^1^^Digite el TIPO ^^^^^Entry^^^0^^^
21^0^2^
ff3^4^0^25^0^3^1^0^0^1^1058^-32768^0^1^^Digite el SECUENCIA^^^^^Entry^^^0^^^
25^0^3^
aliasses 4
cod_n^ff0^
cod_grupo^ff1^
cod_tipo^ff2^
cod_sec^ff3^
screenRecords 1
irtb00002^4^0^1^1^0^0^0^0^
cod_n^ff0^
cod_grupo^ff1^
cod_tipo^ff2^
cod_sec^ff3^
keyLabels 0
PROYECTOS/irdir/irfmrp001.per
+17
View File
@@ -0,0 +1,17 @@
database marmotech
screen size 24 by 80
{
Codigo [a][b][c ][d ]
}
end
tables
irtb00002
attributes
a = irtb00002.cod_n,autonext,
comments = "Digite el NIVEL";
b = irtb00002.cod_grupo,autonext,
comments = "Digite el GRUPO";
c = irtb00002.cod_tipo,autonext,
comments = "Digite el TIPO ";
d = irtb00002.cod_sec,autonext,
comments = "Digite el SECUENCIA";
PROYECTOS/irdir/irfmrp002.per
+21
View File
@@ -0,0 +1,21 @@
database decomarmol
screen size 24 by 80
{
Ordenamiento [k]
Fecha de Corte [e ]
Codigo [a][b][c ][d ]
}
end
tables
irtb00002
attributes
a = irtb00002.cod_n;
b = irtb00002.cod_grupo;
c = irtb00002.cod_tipo;
d = irtb00002.cod_sec;
e = formonly.fecha1 type date,format = "dd/mm/yyyy";
k = formonly.decide type char,required,autonext,
comments = "Digite A - Alfabetico N - Numerico",
include = ("A","N"),upshift;
end
PROYECTOS/irdir/irfmrp003.per
+23
View File
@@ -0,0 +1,23 @@
database decomarmol
screen size 24 by 80
{
Fecha Inicial [k ]
Fecha Final [p ]
Codigo [a]-[b]-[c ]-[d ]
}
end
tables
irtb00006
attributes
k = formonly.fech_in type date,format = "dd/mm/yyyy",
comments = "Introduzca Fecha Inicial ";
p = formonly.fech_fi type date,format = "dd/mm/yyyy",
comments = "Introduzca Fecha Final";
a = irtb00006.cod_n,autonext;
b = irtb00006.cod_grupo,autonext;
c = irtb00006.cod_tipo,autonext;
d = irtb00006.cod_sec,autonext;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp004.per
+16
View File
@@ -0,0 +1,16 @@
database decomarmol
screen size 24 by 80
{
Ordenamiento [k]
Codigo Movimiento [a ]
}
end
tables
irtb00005
attributes
a = irtb00005.cod_mov;
k = formonly.decide type char,required,autonext,
comments = "Digite A - Alfabetico N - Numerico",
include = ("A","N"),upshift;
end
PROYECTOS/irdir/irfmrp005.per
+21
View File
@@ -0,0 +1,21 @@
database decomarmol
screen size 24 by 80
{
Fecha Corte [f ] Existencia [f4 ]
Codigo Repuesto [a]-[b]-[c ]-[d ] Total [f5 ]
}
end
tables
irtb00002
attributes
f = formonly.fech_fi type date ,format="dd/mm/yyyy";
f4 = formonly.t_existe,noentry;
f5 = formonly.t_valor,noentry;
a = irtb00002.cod_n;
b = irtb00002.cod_grupo;
c = irtb00002.cod_tipo;
d = irtb00002.cod_sec;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp006.per
+23
View File
@@ -0,0 +1,23 @@
database decomarmol
screen size 24 by 80
{
Ordenamiento [k]
Codigo [a][b][c ][d ]
Existencia [et ]
Descripcion [e ]
}
end
tables
irtb00002
attributes
a = irtb00002.cod_n;
b = irtb00002.cod_grupo;
c = irtb00002.cod_tipo;
d = irtb00002.cod_sec;
et = formonly.existencia;
e = irtb00002.descrip_esp;
k = formonly.decide type char,required,autonext,
comments = "Digite A - Alfabetico N - Numerico",
include = ("A","N"),upshift;
end
PROYECTOS/irdir/irfmrp007.per
+17
View File
@@ -0,0 +1,17 @@
database decomarmol
screen
{
FECHA DEL DIA : [k ]
TIPO MOVIMIENTO : [k1]
NUMERO DOCUMENTO : [p ]
}
end
tables
irtb00006
attributes
k = irtb00006.fecha,format = "dd/mm/yyyy",comments = "Digite la fecha del dia";
k1 = irtb00006.cod_mov;
p = irtb00006.num_doc;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp008.per
+24
View File
@@ -0,0 +1,24 @@
database decomarmol
screen
{
Fecha Inicial [k ]
Fecha Final [k1 ]
Maquina [m ]
Repuesto [n][g][t ][s ]
}
end
tables
irtb00006
attributes
k = formonly.fecha1 type date,format = "dd/mm/yyyy",comments =
"Digite Fecha Inicial";
k1 = formonly.fecha2 type date,format = "dd/mm/yyyy",comments =
"Digite Fecha Final";
m = irtb00006.maquina;
n = irtb00006.cod_n;
g = irtb00006.cod_grupo;
t = irtb00006.cod_tipo;
s = irtb00006.cod_sec;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp009.per
+26
View File
@@ -0,0 +1,26 @@
database decomarmol
screen size 24 by 80
{
Ano [an ]
Mes [p ]
Fecha Inicial [f1 ] Fecha Final [f2 ]
Codigo Movimiento [g ]
Codigo [a]-[b]-[c ]-[d ]
}
end
tables
irtb00006
attributes
an = formonly.c_ano,comments = "Digite Ano Formato 1995";
p = formonly.p_mes,comments = "Digite # Del Mes";
f1 = formonly.fech_in type date,format="dd/mm/yyyy",required;
f2 = formonly.fech_fi type date,format="dd/mm/yyyy",required;
g = irtb00006.cod_mov;
a = irtb00006.cod_n;
b = irtb00006.cod_grupo;
c = irtb00006.cod_tipo;
d = irtb00006.cod_sec;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp010.per
+23
View File
@@ -0,0 +1,23 @@
database decomarmol
screen size 24 by 80
{
Ano [f001]
Mes [p ] [f ]
Codigo Repuesto [a]-[b]-[c ]-[d ]
}
end
tables
irtb00002
attributes
f001 = formonly.ano_c;
p = formonly.p_mes,required;
f = formonly.nomb1,noentry;
a = irtb00002.cod_n;
b = irtb00002.cod_grupo;
c = irtb00002.cod_tipo;
d = irtb00002.cod_sec;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp013.per
+18
View File
@@ -0,0 +1,18 @@
database decomarmol
screen size 24 by 80
{
Ordenado Por [o ]
Maquina [p ]
Nombre [a ]
}
end
tables
irtb00009
attributes
o = formonly.decide type char,upshift,
comments = "A - Alfabetico N - Numerico";
p = irtb00009.codigo;
a = irtb00009.nombre;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp014.per
+17
View File
@@ -0,0 +1,17 @@
database decomarmol
screen size 24 by 80
{
Ordenado Por [o ]
Motor [p ]
Marca [a ]
}
end
tables
irtb00007
attributes
o = formonly.decide type char,upshift,
comments = "A - Alfabetico N - Numerico";
p = irtb00007.codigo_m;
a = irtb00007.marca;
instructions delimiters " "
end
PROYECTOS/irdir/irfmrp015.42f
+24
View File
@@ -0,0 +1,24 @@
0.994^
3^56^1^ ^
3^^
Ordenado Por
Departamento
Nombre
formFields 3
ff0^1^0^23^0^8^1^0^0^1^512^-32768^0^0^^A - Alfabetico N - Numerico^^^^^Entry^^^0^^^
23^0^8^
ff1^1^1^23^0^8^1^0^0^1^0^-32768^0^1^^^^^^^Entry^^^0^^^
23^1^8^
ff2^2^2^23^0^32^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^^
23^2^32^
aliasses 3
decide^ff0^
codigo^ff1^
nombre^ff2^
screenRecords 2
irtb00004^2^0^1^1^0^0^0^0^
codigo^ff1^
nombre^ff2^
formonly^1^0^1^1^0^0^0^0^
decide^ff0^
keyLabels 0
PROYECTOS/irdir/irfmrp015.per
+18
View File
@@ -0,0 +1,18 @@
database marmotech
screen size 24 by 80
{
Ordenado Por [o ]
Departamento [p ]
Nombre [a ]
}
end
tables
irtb00004
attributes
o = formonly.decide type char,upshift,
comments = "A - Alfabetico N - Numerico";
p = irtb00004.codigo;
a = irtb00004.nombre;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp016.per
+18
View File
@@ -0,0 +1,18 @@
database decomarmol
screen size 24 by 80
{
Ordenado Por [o ]
Departamento [p ]
Nombre [a ]
}
end
tables
irtb00010
attributes
o = formonly.decide type char,upshift,
comments = "A - Alfabetico N - Numerico";
p = irtb00010.codigo;
a = irtb00010.nombre;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp017.per
+23
View File
@@ -0,0 +1,23 @@
database decomarmol
screen size 24 by 80
{
Articulo [a][b][c ][d ]
Fecha Inicial [k ]
Fecha Final [p ]
}
end
tables
irtb00006
attributes
a = irtb00006.cod_n;
b = irtb00006.cod_grupo;
c = irtb00006.cod_tipo;
d = irtb00006.cod_sec;
k = formonly.fech_in type date,format = "dd/mm/yyyy",
comments = "Introduzca Fecha Inicial ";
p = formonly.fech_fi type date,format = "dd/mm/yyyy",
comments = "Introduzca Fecha Final";
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp018.per
+23
View File
@@ -0,0 +1,23 @@
database decomarmol
screen size 24 by 80
{
Ano [f001] Total General:[v1 ]
Mes [p ] [f ]
Codigo Repuesto [a]-[b]-[c ]-[d ]
}
end
tables
irtb00002
attributes
f001 = formonly.ano_c;
p = formonly.p_mes,required;
f = formonly.nomb1,noentry;
a = irtb00002.cod_n;
b = irtb00002.cod_grupo;
c = irtb00002.cod_tipo;
d = irtb00002.cod_sec;
v1 = formonly.valor_total;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp019.per
+26
View File
@@ -0,0 +1,26 @@
database decomarmol
screen size 24 by 80
{
Ano [p ]
Mes Inicial [p1]
Mes Final [p2]
Fecha Existencia [f1 ]
Codigo [a][b][c ][d ]
}
end
tables
irtb00006
attributes
p = formonly.p_ano;
p1 = formonly.mes_ini;
p2 = formonly.mes_fin;
f1 = formonly.fecha3 type date,format="dd/mm/yyyy";
a = irtb00006.cod_n;
b = irtb00006.cod_grupo;
c = irtb00006.cod_tipo;
d = irtb00006.cod_sec;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp020.per
+15
View File
@@ -0,0 +1,15 @@
database decomarmol
screen
{
Semana Inicial [b3 ]
Semana Final [b4 ]
}
end
tables
irtb00017
attributes
b3 = formonly.semana_ini type date,color = blue,format = "dd/mm/yyyy";
b4 = formonly.semana_fin type date,color = blue,format = "dd/mm/yyyy";
instructions delimiters " "
end
PROYECTOS/irdir/irfmrp021.per
+12
View File
@@ -0,0 +1,12 @@
database decomarmol
screen
{
Semana Inicial [b3 ]
}
end
tables
irtb00017
attributes
b3 = formonly.semana_ini type date,color = blue,format = "dd/mm/yyyy";
instructions delimiters " "
end
PROYECTOS/irdir/irfmrp023.per
+23
View File
@@ -0,0 +1,23 @@
database decomarmol
screen size 24 by 80
{
Articulo [a][b][c ][d ]
Fecha Inicial [k ]
Fecha Final [p ]
}
end
tables
irtb00006
attributes
a = irtb00006.cod_n;
b = irtb00006.cod_grupo;
c = irtb00006.cod_tipo;
d = irtb00006.cod_sec;
k = formonly.fecha_1 type datetime year to day, comments =
"Digite Fecha Inicial con el Sigte. Formato ANO-MES-DIA, EJ. 1994-12-01";
p = formonly.fecha_2 type datetime year to day, comments =
"Digite Fecha Final con el Sigte. Formato ANO-MES-DIA, EJ. 1994-12-31";
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp026.per
+32
View File
@@ -0,0 +1,32 @@
{
============================================================================
FORMULARIO : IRFMRP019
OBJETIVO : CAPTURA EL MES INICIAL Y EL MES FINAL, ANO
DISENO : JUAN F. SOTO
FECHA : FEBRERO 17, 1995
============================================================================
}
database decomarmol
screen size 24 by 80
{
Ano [p1 ] \gp---------------------------------q\g
Mes Inicial [m1] \g|\g \g|\g
Mes Final [m2] \gb---------------------------------d\g
Codigo [a][b][c ][d ]
}
tables
irtb00006
attributes
p1 = formonly.p_ano,required;
m1 = formonly.mes_ini,required;
m2 = formonly.mes_fin,required;
a = irtb00006.cod_n;
b = irtb00006.cod_grupo;
c = irtb00006.cod_tipo;
d = irtb00006.cod_sec;
end
PROYECTOS/irdir/irfmrp027.per
+20
View File
@@ -0,0 +1,20 @@
database decomarmol
screen
{
SUPLIDOR : [kq]-[kq1 ]
FECHA DEL DIA : [k ]
TIPO MOVIMIENTO : [k1]
NUMERO DOCUMENTO : [p ]
}
end
tables
irtb00006
attributes
kq = irtb00006.cod_sp;
kq1 = irtb00006.cod_sp_sec;
k = irtb00006.fecha,format = "dd/mm/yyyy",comments = "Digite la fecha del dia";
k1 = irtb00006.cod_mov;
p = irtb00006.num_doc;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp030.per
+17
View File
@@ -0,0 +1,17 @@
database decomarmol
screen size 24 by 80
{
Consumo En [p ] Dias
Codigo [a][b][c ][d ]
}
end
tables
irtb00002
attributes
a = irtb00002.cod_n;
b = irtb00002.cod_grupo;
c = irtb00002.cod_tipo;
d = irtb00002.cod_sec;
p = formonly.dias;
end
PROYECTOS/irdir/irfmrp031.per
+20
View File
@@ -0,0 +1,20 @@
database decomarmol
screen size 24 by 80
{
Fecha Inicial [f1 ]
Fecha Final [f2 ]
Codigo [a][b][c ][d ]
}
end
tables
irtb00002
attributes
f1 = formonly.fecha1 type date,format = "dd/mm/yyyy";
f2 = formonly.fecha2 type date,format = "dd/mm/yyyy";
a = irtb00002.cod_n;
b = irtb00002.cod_grupo;
c = irtb00002.cod_tipo;
d = irtb00002.cod_sec;
end
PROYECTOS/irdir/irfmrp038.42f
+13
View File
@@ -0,0 +1,13 @@
0.994^
1^30^1^[]^
1^^
Fecha de Corte
formFields 1
ff0^1^0^21^0^8^1^0^0^1^0^-32768^0^7^^Digite la fecha de corte para el proceso^^^dd/mm/yy^^Entry^^^0^^^
21^0^8^
aliasses 1
fecha_inicial^ff0^
screenRecords 1
formonly^1^0^1^1^0^0^0^0^
fecha_inicial^ff0^
keyLabels 0
PROYECTOS/irdir/irfmrp038.per
+12
View File
@@ -0,0 +1,12 @@
database marmotech
screen
{
Fecha de Corte [k ]
}
end
tables
irtb00006
attributes
k = formonly.fecha_inicial type date, format = "dd/mm/yy",
comments = "Digite la fecha de corte para el proceso";
end
PROYECTOS/irdir/irfmrp039.per
+20
View File
@@ -0,0 +1,20 @@
database decomarmol
screen size 24 by 80
{
Anno [e ]
Codigo [a][b][c ][d ]
}
end
tables
irtb00002
attributes
e = formonly.ano1,autonext,
comments = "Digite el Anno para los Costos";
a = irtb00002.cod_n,autonext,
comments = "Digite el NIVEL";
b = irtb00002.cod_grupo,autonext,
comments = "Digite el GRUPO";
c = irtb00002.cod_tipo,autonext,
comments = "Digite el TIPO ";
d = irtb00002.cod_sec,autonext,
comments = "Digite el SECUENCIA";
PROYECTOS/irdir/irfmrp040.per
+17
View File
@@ -0,0 +1,17 @@
database decomarmol
screen
{
Fecha Inicial [k ]
Fecha Final [k1 ]
}
end
tables
irtb00013
attributes
k = formonly.fecha1 type date,format = "dd/mm/yy",comments =
"Digite Fecha Inicial";
k1 = formonly.fecha2 type date,format = "dd/mm/yy",comments =
"Digite Fecha Final";
instructions
delimiters " "
end
PROYECTOS/irdir/irfmrp041.per
+29
View File
@@ -0,0 +1,29 @@
database decomarmol
screen size 24 by 80
{
Orden [j]
Fecha Inicial [k ]
Fecha Final [p ]
Total Imprimir [e ]
Codigo [a]-[b]-[c ]-[d ]
}
end
tables
irtb00006
attributes
j = formonly.tipo_r TYPE CHAR,include=("V","U"),upshift,
comments = "V- Ranking Por Valor U- Ranking Por Uso";
k = formonly.fech_in type date,format = "dd/mm/yy",
comments = "Introduzca Fecha Inicial ";
p = formonly.fech_fi type date,format = "dd/mm/yy",
comments = "Introduzca Fecha Final";
e = formonly.limite type smallint,
comments = "Total de Repuestos a imprimir";
a = irtb00006.cod_n,autonext;
b = irtb00006.cod_grupo,autonext;
c = irtb00006.cod_tipo,autonext;
d = irtb00006.cod_sec,autonext;
instructions
delimiters " "
end
PROYECTOS/irdir/irfmwd001.per
+32
View File
@@ -0,0 +1,32 @@
DATABASE marmotech
SCREEN SIZE 24 by 80
{
Busqueda de Repuestos
\g-----------------------------------------------------\g
Codigo Nombre
\g-----------------------------------------------------\g
[f]-[g]-[h ]-[i ][f2 ][f3 ]
[f]-[g]-[h ]-[i ][f2 ][f3 ]
[f]-[g]-[h ]-[i ][f2 ][f3 ]
[f]-[g]-[h ]-[i ][f2 ][f3 ]
[f]-[g]-[h ]-[i ][f2 ][f3 ]
}
end
tables
irtb00002
attributes
f = formonly.cod_n,noentry;
g = formonly.cod_grupo,noentry;
h = formonly.cod_tipo,noentry;
i = formonly.cod_sec,noentry;
f2 = irtb00002.descrip_esp, upshift,
comments = " <Esc> Busca todos los Productos Terminados ";
f3 = irtb00002.unidad_med,noentry;
instructions
screen record s_prod[5] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
unidad_med)
delimiters " "
end
PROYECTOS/irdir/irfmwd017.42f
+74
View File
@@ -0,0 +1,74 @@
0.994^
10^62^1^ ^
10^^
Busqueda de Repuestos / Materiales

Codigo Nombre Und.

- - -
- - -
- - -
- - -
- - -
formFields 6
ff0^1^4^4^0^1^5^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
4^4^1^
4^5^1^
4^6^1^
4^7^1^
4^8^1^
ff1^2^4^8^0^1^5^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
8^4^1^
8^5^1^
8^6^1^
8^7^1^
8^8^1^
ff2^3^4^12^0^2^5^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
12^4^2^
12^5^2^
12^6^2^
12^7^2^
12^8^2^
ff3^4^4^17^0^3^5^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
17^4^3^
17^5^3^
17^6^3^
17^7^3^
17^8^3^
ff4^1^4^24^0^30^5^1^0^1^512^-32768^0^0^^ <Esc> Busca todos los Repuestos / Materiales^^^^^Entry^^^0^^^
24^4^30^
24^5^30^
24^6^30^
24^7^30^
24^8^30^
ff5^5^4^57^0^3^5^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^^
57^4^3^
57^5^3^
57^6^3^
57^7^3^
57^8^3^
aliasses 6
cod_n^ff0^
cod_grupo^ff1^
cod_tipo^ff2^
cod_sec^ff3^
descrip_esp^ff4^
unidad_med^ff5^
screenRecords 3
irtb00002^1^0^1^5^0^0^0^0^
descrip_esp^ff4^
formonly^5^0^1^5^0^0^0^0^
cod_n^ff0^
cod_grupo^ff1^
cod_tipo^ff2^
cod_sec^ff3^
unidad_med^ff5^
s_desp2^6^1^0^5^4^4^57^5^
cod_n^ff0^
cod_grupo^ff1^
cod_tipo^ff2^
cod_sec^ff3^
descrip_esp^ff4^
unidad_med^ff5^
keyLabels 0
PROYECTOS/irdir/irfmwd017.per
+32
View File
@@ -0,0 +1,32 @@
DATABASE marmotech
SCREEN SIZE 24 by 80
{
Busqueda de Repuestos / Materiales
\g-----------------------------------------------------------\g
Codigo Nombre Und.
\g-----------------------------------------------------------\g
[f]-[g]-[h ]-[i ] [f2 ] [f3 ]
[f]-[g]-[h ]-[i ] [f2 ] [f3 ]
[f]-[g]-[h ]-[i ] [f2 ] [f3 ]
[f]-[g]-[h ]-[i ] [f2 ] [f3 ]
[f]-[g]-[h ]-[i ] [f2 ] [f3 ]
}
end
tables
irtb00002
attributes
f = formonly.cod_n,noentry;
g = formonly.cod_grupo,noentry;
h = formonly.cod_tipo,noentry;
i = formonly.cod_sec,noentry;
f2 = irtb00002.descrip_esp, upshift,
comments = " <Esc> Busca todos los Repuestos / Materiales";
f3 = formonly.unidad_med,noentry;
instructions
screen record s_desp2[5] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,unidad_med)
delimiters " "
end
PROYECTOS/irdir/irfmwd066.per
+34
View File
@@ -0,0 +1,34 @@
{
-------------------------------------------------------------------------
NOMBRE : IRFMWD066
OBJETIVO : Anula Documentos de Repuestos
PROGRAMADOR : JOSE ALFREDO PAULINO ALEJO
FECHA REALIZADO : Diciembre 4, 1996.
PROGRAMA UTILIZA: IRPRMT066
--------------------------------------------------------------------------
}
database decomarmol
LAYOUT (TEXT="ANULAR DOCUMENTOS")
GRID
{
Codigo Movimiento [f0][a ]
Numero Documento [f02 ]
Fecha [f5 ]
[f1][f2 ]
}
END
end
tables
irtb00006
attributes
a = formonly.descrip_mov,noentry;
f0 = irtb00006.cod_mov;
f02 = irtb00006.num_doc;
f1 = formonly.cod_sp,noentry;
f2 = formonly.cod_sp_sec,noentry;
f5 = irtb00006.fecha,noentry,format = "dd/mm/yy";
instructions
delimiters " "
end

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