primer commit subida
This commit is contained in:
Luis
@@ -0,0 +1,22 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<ManagedForm databaseName="" gstVersion="22800" name="Root" uid="{624b8012-988e-43c1-a151-269f11a11a80}">
|
||||
<AGSettings/>
|
||||
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{95d225e3-1f1c-4d29-823d-8ecf90bbe386}" where="">
|
||||
<RecordField colName="" defaultValue="PDF" fieldIdRef="2" fieldType="NON_DATABASE" name="r_output" sqlTabName="" sqlType="CHAR" table_alias_name="" uid="{d5a797dc-386d-4373-bc81-e38e72b65568}"/>
|
||||
</Record>
|
||||
<Form gridHeight="9" gridWidth="59" name="Form1" text="Configuration">
|
||||
<Grid gridHeight="8" gridWidth="54" lstrcomment="false" name="gr2" posX="2" posY="0">
|
||||
<HLine gridWidth="50" name="hl2" posX="1" posY="1"/>
|
||||
<Label colorCondition="black" gridHeight="1" gridWidth="9" justify="right" lstrcomment="false" lstrtext="false" name="lb2" posX="1" posY="2" text="Output as"/>
|
||||
<RadioGroup aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" colorCondition="black" columnCount="" defaultValue="PDF" fieldId="2" fieldType="NON_DATABASE" gridHeight="3" gridWidth="27" items="EXCEL 2007 o VERSION MAYOR, PDF, SVG" lstrcomment="false" name="r_output" posX="16" posY="2" required="true" rowCount="" sqlTabName="" sqlType="CHAR" stepX="" stepY="" tabIndex="1" table_alias_name="" widget="RadioGroup">
|
||||
<Item lstrtext="false" name="XLSX" text="EXCEL 2007 o VERSION MAYOR"/>
|
||||
<Item lstrtext="false" name="PDF" text="PDF"/>
|
||||
<Item lstrtext="false" name="SVG" text="SVG"/>
|
||||
</RadioGroup>
|
||||
<HLine gridWidth="50" name="hl2_1" posX="1" posY="5"/>
|
||||
</Grid>
|
||||
</Form>
|
||||
<DiagramLayout>
|
||||
<![CDATA[AAAAAgAAAEwAewBkADUAYQA3ADkANwBkAGMALQAzADgANgBkAC0ANAAzADcAMwAtAGIAYwA4ADEALQBlADMAOABlADcAMgBiADYANQA1ADYAOAB9QCQAAAAAAABAQwAAAAAAAAAAAAAAAAAAAQAAAEwAewA5ADUAZAAyADIANQBlADMALQAxAGYAMQBjAC0ANABkADIAOQAtADgAMgAzAGQALQA4AGUAYwBmADkAMABiAGIAZQAzADgANgB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
|
||||
</DiagramLayout>
|
||||
</ManagedForm>
|
||||
@@ -0,0 +1,4 @@
|
||||
66.98.50.152
|
||||
153
|
||||
154 FIREWALL
|
||||
155 - APLIC
|
||||
@@ -0,0 +1,33 @@
|
||||
LAYOUT
|
||||
GRID
|
||||
{
|
||||
[txt ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
[ ]
|
||||
}
|
||||
END
|
||||
END
|
||||
|
||||
ATTRIBUTES
|
||||
TEXTEDIT txt=FORMONLY.txt, STRETCH=BOTH, FONTPITCH=FIXED;
|
||||
END
|
||||
|
||||
@@ -0,0 +1,392 @@
|
||||
{
|
||||
=========================================================================
|
||||
PROGRAMA : MAINMENU
|
||||
OBJETIVO : INICIAR EL MENU DEL SISTEMA
|
||||
PROGRAMADOR : ING. JUAN SOTO
|
||||
FECHA : 13 de Marzo 2009
|
||||
========================================================================
|
||||
}
|
||||
|
||||
|
||||
IMPORT os
|
||||
CONSTANT filename = "mainmenu.data"
|
||||
|
||||
|
||||
GLOBALS
|
||||
DEFINE dirs DYNAMIC ARRAY OF RECORD
|
||||
ddir STRING
|
||||
END RECORD,
|
||||
usuario,nclave,cclave,clave char(50),
|
||||
altera CHAR(100),
|
||||
cambia_c,accesso CHAR(2),
|
||||
pperfil SMALLINT,
|
||||
sesion INT,
|
||||
ptasa DEC(12,2)
|
||||
|
||||
DEFINE mbs DYNAMIC ARRAY OF RECORD
|
||||
mbs STRING,
|
||||
prog STRING,
|
||||
type STRING,
|
||||
desc STRING
|
||||
END RECORD
|
||||
DEFINE nmbs INTEGER
|
||||
DEFINE longDesc STRING,
|
||||
pprograma CHAR(50),
|
||||
ckprinter,pprinter1,pprinter2 SMALLINT
|
||||
|
||||
END GLOBALS
|
||||
|
||||
MAIN
|
||||
|
||||
DEFINE currForm ui.Form,
|
||||
nombre_cia,kusuario CHAR(50)
|
||||
|
||||
DEFER INTERRUPT
|
||||
OPTIONS ACCEPT KEY RETURN
|
||||
OPTIONS INPUT WRAP
|
||||
|
||||
|
||||
CALL autentificacion()
|
||||
OPEN FORM main FROM "mainmenuform"
|
||||
DISPLAY FORM main
|
||||
# BUSCA EL NOMBRE DE LA EMPRESA
|
||||
SELECT a.nombre INTO nombre_cia FROM companias a
|
||||
SELECT a.prima INTO Ptasa FROM vetb00019 a WHERE disponible = "S"
|
||||
DISPLAY "Usuario" TO lusuario
|
||||
DISPLAY "Fecha" TO lfecha
|
||||
DISPLAY "Prima" TO ltasa
|
||||
DISPLAY ptasa TO tasa
|
||||
DISPLAY BY NAME nombre_cia,usuario
|
||||
CALL ui.Interface.LoadStyles("mainmenu")
|
||||
|
||||
CALL init_mbs()
|
||||
|
||||
DIALOG ATTRIBUTES(FIELD ORDER FORM, UNBUFFERED)
|
||||
DISPLAY ARRAY dirs TO dirs.*
|
||||
BEFORE ROW
|
||||
CALL sync_mbs(DIALOG)
|
||||
CALL DIALOG.setCurrentRow("mbs",1)
|
||||
|
||||
END DISPLAY
|
||||
|
||||
DISPLAY ARRAY mbs TO mbs.*
|
||||
END DISPLAY
|
||||
|
||||
INPUT BY NAME longDesc
|
||||
END INPUT
|
||||
|
||||
ON ACTION show
|
||||
CALL show_mbs(DIALOG)
|
||||
|
||||
ON ACTION clave
|
||||
CALL cambia_clave()
|
||||
|
||||
ON ACTION close
|
||||
EXIT DIALOG
|
||||
END DIALOG
|
||||
|
||||
END MAIN
|
||||
|
||||
FUNCTION show_mbs(d)
|
||||
DEFINE d ui.Dialog
|
||||
DEFINE rdir, rmbs INTEGER
|
||||
DEFINE cmd STRING
|
||||
|
||||
LET rdir = d.getCurrentRow("dirs")
|
||||
LET rmbs = d.getCurrentRow("mbs")
|
||||
IF mbs[rmbs].prog IS NULL THEN RETURN END IF
|
||||
|
||||
IF mbs[rmbs].type = "services" THEN
|
||||
|
||||
#CONTROL ACCESO AL PROGRAMA
|
||||
LET pprograma = mbs[rmbs].prog
|
||||
CALL seg000(usuario,pperfil,pprograma) RETURNING accesso
|
||||
IF accesso = "SI" THEN
|
||||
UPDATE seg0001 SET ultimo_programa_ejecutado = pprograma,
|
||||
fecha_ultimo_login = getdate()
|
||||
WHERE seg0001.usuario = usuario
|
||||
|
||||
LET cmd = "fglrun ",fgl_getenv("FGLPROG1"), "\\",mbs[rmbs].prog , ".42r " ,usuario CLIPPED," ",clave CLIPPED,
|
||||
" ",pprinter1 ," ",pprinter2, " ",ckprinter
|
||||
RUN cmd WITHOUT WAITING
|
||||
ELSE
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "USUARIO NO TIENE PERMISOS PARA UTILIZAR OPCION", "stop")
|
||||
END IF
|
||||
END IF
|
||||
|
||||
IF mbs[rmbs].type = "FILE" THEN
|
||||
|
||||
#IF accesso = "SI" THEN
|
||||
LET cmd = fgl_getenv("FGLFILE"), "\\",mbs[rmbs].prog CLIPPED,".XLS"
|
||||
|
||||
RUN cmd WITHOUT WAITING
|
||||
# ELSE
|
||||
# CALL FGL_WINMESSAGE( "ATENCION", "USUARIO NO TIENE PERMISOS PARA UTILIZAR OPCION", "stop")
|
||||
# END IF
|
||||
#CALL showfile(dirs[rdir].ddir || "/" || mbs[rmbs].prog)
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION init_mbs()
|
||||
DEFINE reader om.XmlReader,
|
||||
attributes om.SaxAttributes,
|
||||
saxevent STRING,
|
||||
s_sel,puser CHAR(50)
|
||||
|
||||
LET reader = om.XmlReader.createFileReader(filename)
|
||||
|
||||
LET attributes = reader.getAttributes()
|
||||
LET saxevent = reader.read()
|
||||
|
||||
DISPLAY today TO fecha_sistema
|
||||
|
||||
CALL dirs.clear()
|
||||
CALL mbs.clear()
|
||||
WHILE saxevent IS NOT NULL
|
||||
CASE saxevent
|
||||
WHEN 'StartDocument'
|
||||
LET nmbs=0
|
||||
WHEN 'StartElement'
|
||||
CASE reader.getTagName()
|
||||
WHEN 'mbs'
|
||||
-- Nothing
|
||||
WHEN 'DDir'
|
||||
CALL dirs.appendElement()
|
||||
LET dirs[dirs.getLength()].ddir = attributes.getValue('name')
|
||||
WHEN 'mbs'
|
||||
-- Nothing
|
||||
OTHERWISE
|
||||
DISPLAY "Error: wrong tagName:",reader.getTagName()
|
||||
END CASE
|
||||
WHEN 'EndElement'
|
||||
-- Nothing
|
||||
END CASE
|
||||
LET saxevent=reader.read()
|
||||
END WHILE
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION sync_mbs(d)
|
||||
DEFINE d ui.Dialog
|
||||
DEFINE reader om.XmlReader,
|
||||
attributes om.SaxAttributes,
|
||||
saxevent STRING
|
||||
DEFINE n INTEGER
|
||||
LET reader = om.XmlReader.createFileReader(filename)
|
||||
LET attributes = reader.getAttributes()
|
||||
LET saxevent = reader.read()
|
||||
INITIALIZE longDesc TO NULL
|
||||
CALL mbs.clear()
|
||||
WHILE saxevent IS NOT NULL
|
||||
CASE saxevent
|
||||
WHEN 'StartDocument'
|
||||
LET nmbs=0
|
||||
WHEN 'StartElement'
|
||||
CASE reader.getTagName()
|
||||
WHEN 'mbs'
|
||||
-- Nothing
|
||||
WHEN 'DDir'
|
||||
IF attributes.getValue('name') == dirs[d.getCurrentRow("dirs")].ddir THEN
|
||||
LET saxevent = reader.read()
|
||||
WHILE saxevent IS NOT NULL
|
||||
IF saxevent == 'StartElement' THEN
|
||||
CASE reader.getTagName()
|
||||
WHEN 'mbs'
|
||||
CASE attributes.getValue('type')
|
||||
WHEN "V"
|
||||
CALL mbs.appendElement()
|
||||
LET n = mbs.getLength()
|
||||
LET mbs[n].type="services"
|
||||
LET mbs[n].mbs=attributes.getValue('name')
|
||||
LET mbs[n].prog=attributes.getValue('program')
|
||||
LET mbs[n].desc=attributes.getValue('description')
|
||||
WHEN "F"
|
||||
CALL mbs.appendElement()
|
||||
LET n = mbs.getLength()
|
||||
LET mbs[n].type="FILE"
|
||||
LET mbs[n].mbs=attributes.getValue('name')
|
||||
LET mbs[n].prog=attributes.getValue('program')
|
||||
LET mbs[n].desc=attributes.getValue('description')
|
||||
WHEN "B"
|
||||
|
||||
IF attributes.getValue('program') == "README" THEN
|
||||
LET longDesc = readfile(dirs[d.getCurrentRow("dirs")].ddir || "/README")
|
||||
|
||||
ELSE
|
||||
CALL mbs.appendElement()
|
||||
LET n = mbs.getLength()
|
||||
LET mbs[n].type="file"
|
||||
LET mbs[n].mbs=attributes.getValue('name')
|
||||
LET mbs[n].prog=attributes.getValue('program')
|
||||
LET mbs[n].desc=attributes.getValue('description')
|
||||
END IF
|
||||
WHEN "C"
|
||||
CALL mbs.appendElement()
|
||||
LET n = mbs.getLength()
|
||||
LET mbs[n].type="file"
|
||||
LET mbs[n].mbs=attributes.getValue('name')
|
||||
LET mbs[n].prog=attributes.getValue('program')
|
||||
LET mbs[n].desc=attributes.getValue('description')
|
||||
|
||||
END CASE
|
||||
OTHERWISE
|
||||
RETURN
|
||||
END CASE
|
||||
END IF
|
||||
LET saxevent = reader.read()
|
||||
END WHILE
|
||||
END IF
|
||||
WHEN 'mbs'
|
||||
OTHERWISE
|
||||
DISPLAY "Error: wrong tagName:",reader.getTagName()
|
||||
END CASE
|
||||
WHEN 'EndElement'
|
||||
-- Nothing
|
||||
END CASE
|
||||
LET saxevent=reader.read()
|
||||
END WHILE
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION showfile(fn)
|
||||
DEFINE fn STRING
|
||||
DEFINE txt STRING
|
||||
OPEN WINDOW w WITH FORM "Maindisp"
|
||||
ATTRIBUTE(TEXT="File: ["||fn||"]",STYLE="dialog")
|
||||
LET txt = readfile(fn)
|
||||
INPUT BY NAME txt WITHOUT DEFAULTS
|
||||
AFTER INPUT
|
||||
IF INT_FLAG THEN
|
||||
EXIT INPUT
|
||||
END IF
|
||||
CONTINUE INPUT
|
||||
END INPUT
|
||||
CLOSE WINDOW w
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION readfile(fn)
|
||||
DEFINE fn STRING
|
||||
DEFINE txt STRING
|
||||
DEFINE ln STRING
|
||||
DEFINE ch base.Channel
|
||||
LET ch=base.Channel.create()
|
||||
call fgl_winmessage("prueba",fn,"stop")
|
||||
CALL ch.openfile(fn,"r")
|
||||
|
||||
CALL ch.setDelimiter("")
|
||||
WHILE ch.read(ln)
|
||||
IF txt IS NULL THEN
|
||||
IF ln IS NULL THEN
|
||||
LET txt = "\n"
|
||||
else
|
||||
LET txt = ln
|
||||
END IF
|
||||
ELSE
|
||||
IF ln IS NULL THEN
|
||||
LET txt = txt || "\n"
|
||||
ELSE
|
||||
LET txt = txt || "\n" || ln
|
||||
END IF
|
||||
END IF
|
||||
END WHILE
|
||||
CALL ch.close()
|
||||
RETURN txt
|
||||
END FUNCTION
|
||||
|
||||
{================================================
|
||||
FUNCION : AUTENTIFICACION
|
||||
OBJETIVO : VALIDAR FUNCION DEL USUARIO
|
||||
FECHA : 30/6/2009
|
||||
PROGRAMADOR: JUAN SOTO
|
||||
==================================================
|
||||
}
|
||||
|
||||
FUNCTION autentificacion()
|
||||
|
||||
WHENEVER ERROR CONTINUE
|
||||
CALL startlog("errores.log")
|
||||
|
||||
OPEN WINDOW inicio AT 1,1 WITH FORM "inicial"
|
||||
|
||||
INPUT BY NAME usuario,clave WITHOUT DEFAULTS
|
||||
AFTER INPUT
|
||||
IF INT_FLAG THEN
|
||||
ERROR "OPERACION CANCELADA"
|
||||
EXIT INPUT
|
||||
END IF
|
||||
|
||||
CONNECT TO "decomarmol" USER usuario USING clave
|
||||
IF STATUS < 0 THEN
|
||||
ERROR "USUARIO NO ES VALIDO"
|
||||
CONTINUE INPUT
|
||||
END IF
|
||||
SELECT a.cod_perfil,a.printerdefecto,a.otro_printer ,a.printer_cheque,a.cambia_clave
|
||||
INTO pperfil,pprinter1,pprinter2,ckprinter,cambia_c
|
||||
FROM seg0001 a
|
||||
WHERE a.usuario = usuario
|
||||
|
||||
IF STATUS != 0 THEN
|
||||
ERROR "APLICACION ESTA REPORTANDO UN ERROR, COMUNIQUESE CON SU ADMINISTRADOR"
|
||||
END IF
|
||||
|
||||
LET cambia_c = UPSHIFT(cambia_c)
|
||||
IF cambia_c = "SI" THEN
|
||||
CALL cambia_clave()
|
||||
END IF
|
||||
EXIT INPUT
|
||||
END INPUT
|
||||
|
||||
CLOSE WINDOW inicio
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION cambia_clave()
|
||||
|
||||
OPEN WINDOW cambia AT 1,1 WITH FORM "cambia"
|
||||
DISPLAY usuario TO usuario
|
||||
DISPLAY clave TO clave
|
||||
INPUT BY NAME nclave,cclave
|
||||
AFTER INPUT
|
||||
IF INT_FLAG THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "OPERACION CANCELADA", "stop")
|
||||
EXIT INPUT
|
||||
END IF
|
||||
IF nclave = cclave THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE NUEVA NO PUEDE SER IGUAL A LA VIEJA", "stop")
|
||||
NEXT FIELD nclave
|
||||
END IF
|
||||
IF nclave IS NULL OR nclave = " " THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE NUEVA NO PUEDE ESTAR EN BLANCO", "stop")
|
||||
NEXT FIELD nclave
|
||||
END IF
|
||||
IF cclave IS NULL OR cclave = " " THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE NUEVA NO PUEDE ESTAR EN BLANCO", "stop")
|
||||
NEXT FIELD cclave
|
||||
END IF
|
||||
IF nclave <> cclave THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE NUEVA NO COINCIDE CON LA CONFIRMACION DE LA CLAVE", "stop")
|
||||
NEXT FIELD nclave
|
||||
ELSE
|
||||
|
||||
LET altera = "sp_password @old = '", clave CLIPPED,"', ",
|
||||
"@new = '",nclave CLIPPED,"' ,",
|
||||
"@loginame = '",usuario CLIPPED, "'"
|
||||
|
||||
PREPARE caltera FROM altera
|
||||
EXECUTE caltera
|
||||
IF STATUS = 0 THEN
|
||||
UPDATE seg0001 SET cambia_clave = "NO" WHERE seg0001.usuario = usuario
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE CAMBIADA SATISFACTORIAMENTE", "stop")
|
||||
LET clave = nclave
|
||||
ELSE
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "NO FUE POSIBLE EL CAMBIO DE LA CLAVE, TRATE NUEVA VEZ", "stop")
|
||||
NEXT FIELD nclave
|
||||
END IF
|
||||
END IF
|
||||
EXIT INPUT
|
||||
END INPUT
|
||||
IF INT_FLAG THEN
|
||||
LET INT_FLAG = FALSE
|
||||
RETURN
|
||||
CLOSE WINDOW cambia
|
||||
END IF
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,392 @@
|
||||
{
|
||||
=========================================================================
|
||||
PROGRAMA : MAINMENU
|
||||
OBJETIVO : INICIAR EL MENU DEL SISTEMA
|
||||
PROGRAMADOR : ING. JUAN SOTO
|
||||
FECHA : 13 de Marzo 2009
|
||||
========================================================================
|
||||
}
|
||||
|
||||
|
||||
IMPORT os
|
||||
CONSTANT filename = "mainmenu.data"
|
||||
|
||||
|
||||
GLOBALS
|
||||
DEFINE dirs DYNAMIC ARRAY OF RECORD
|
||||
ddir STRING
|
||||
END RECORD,
|
||||
usuario,nclave,cclave,clave char(50),
|
||||
altera CHAR(100),
|
||||
cambia_c,accesso CHAR(2),
|
||||
pperfil SMALLINT,
|
||||
sesion INT,
|
||||
ptasa DEC(12,2)
|
||||
|
||||
DEFINE mbs DYNAMIC ARRAY OF RECORD
|
||||
mbs STRING,
|
||||
prog STRING,
|
||||
type STRING,
|
||||
desc STRING
|
||||
END RECORD
|
||||
DEFINE nmbs INTEGER
|
||||
DEFINE longDesc STRING,
|
||||
pprograma CHAR(50),
|
||||
ckprinter,pprinter1,pprinter2 SMALLINT
|
||||
|
||||
END GLOBALS
|
||||
|
||||
MAIN
|
||||
|
||||
DEFINE currForm ui.Form,
|
||||
nombre_cia,kusuario CHAR(50)
|
||||
|
||||
DEFER INTERRUPT
|
||||
OPTIONS ACCEPT KEY RETURN
|
||||
OPTIONS INPUT WRAP
|
||||
|
||||
|
||||
CALL autentificacion()
|
||||
OPEN FORM main FROM "mainmenuform"
|
||||
DISPLAY FORM main
|
||||
# BUSCA EL NOMBRE DE LA EMPRESA
|
||||
SELECT a.nombre INTO nombre_cia FROM companias a
|
||||
SELECT a.prima INTO Ptasa FROM vetb00019 a WHERE disponible = "S"
|
||||
DISPLAY "Usuario" TO lusuario
|
||||
DISPLAY "Fecha" TO lfecha
|
||||
DISPLAY "Prima" TO ltasa
|
||||
DISPLAY ptasa TO tasa
|
||||
DISPLAY BY NAME nombre_cia,usuario
|
||||
CALL ui.Interface.LoadStyles("mainmenu")
|
||||
|
||||
CALL init_mbs()
|
||||
|
||||
DIALOG ATTRIBUTES(FIELD ORDER FORM, UNBUFFERED)
|
||||
DISPLAY ARRAY dirs TO dirs.*
|
||||
BEFORE ROW
|
||||
CALL sync_mbs(DIALOG)
|
||||
CALL DIALOG.setCurrentRow("mbs",1)
|
||||
|
||||
END DISPLAY
|
||||
|
||||
DISPLAY ARRAY mbs TO mbs.*
|
||||
END DISPLAY
|
||||
|
||||
INPUT BY NAME longDesc
|
||||
END INPUT
|
||||
|
||||
ON ACTION show
|
||||
CALL show_mbs(DIALOG)
|
||||
|
||||
ON ACTION clave
|
||||
CALL cambia_clave()
|
||||
|
||||
ON ACTION close
|
||||
EXIT DIALOG
|
||||
END DIALOG
|
||||
|
||||
END MAIN
|
||||
|
||||
FUNCTION show_mbs(d)
|
||||
DEFINE d ui.Dialog
|
||||
DEFINE rdir, rmbs INTEGER
|
||||
DEFINE cmd STRING
|
||||
|
||||
LET rdir = d.getCurrentRow("dirs")
|
||||
LET rmbs = d.getCurrentRow("mbs")
|
||||
IF mbs[rmbs].prog IS NULL THEN RETURN END IF
|
||||
|
||||
IF mbs[rmbs].type = "services" THEN
|
||||
|
||||
#CONTROL ACCESO AL PROGRAMA
|
||||
LET pprograma = mbs[rmbs].prog
|
||||
CALL seg000(usuario,pperfil,pprograma) RETURNING accesso
|
||||
IF accesso = "SI" THEN
|
||||
UPDATE seg0001 SET ultimo_programa_ejecutado = pprograma WHERE seg0001.usuario = usuario
|
||||
LET cmd = "fglrun ",fgl_getenv("FGLPROG"), "\\",mbs[rmbs].prog , ".42r " ,usuario CLIPPED," ",clave CLIPPED,
|
||||
" ",pprinter1 ," ",pprinter2, " ",ckprinter
|
||||
|
||||
|
||||
RUN cmd WITHOUT WAITING
|
||||
ELSE
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "USUARIO NO TIENE PERMISOS PARA UTILIZAR OPCION", "stop")
|
||||
END IF
|
||||
END IF
|
||||
|
||||
IF mbs[rmbs].type = "FILE" THEN
|
||||
|
||||
#IF accesso = "SI" THEN
|
||||
LET cmd = fgl_getenv("FGLFILE"), "\\",mbs[rmbs].prog CLIPPED,".XLS"
|
||||
|
||||
RUN cmd WITHOUT WAITING
|
||||
# ELSE
|
||||
# CALL FGL_WINMESSAGE( "ATENCION", "USUARIO NO TIENE PERMISOS PARA UTILIZAR OPCION", "stop")
|
||||
# END IF
|
||||
#CALL showfile(dirs[rdir].ddir || "/" || mbs[rmbs].prog)
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION init_mbs()
|
||||
DEFINE reader om.XmlReader,
|
||||
attributes om.SaxAttributes,
|
||||
saxevent STRING,
|
||||
s_sel,puser CHAR(50)
|
||||
|
||||
LET reader = om.XmlReader.createFileReader(filename)
|
||||
|
||||
LET attributes = reader.getAttributes()
|
||||
LET saxevent = reader.read()
|
||||
|
||||
DISPLAY today TO fecha_sistema
|
||||
|
||||
CALL dirs.clear()
|
||||
CALL mbs.clear()
|
||||
WHILE saxevent IS NOT NULL
|
||||
CASE saxevent
|
||||
WHEN 'StartDocument'
|
||||
LET nmbs=0
|
||||
WHEN 'StartElement'
|
||||
CASE reader.getTagName()
|
||||
WHEN 'mbs'
|
||||
-- Nothing
|
||||
WHEN 'DDir'
|
||||
CALL dirs.appendElement()
|
||||
LET dirs[dirs.getLength()].ddir = attributes.getValue('name')
|
||||
WHEN 'mbs'
|
||||
-- Nothing
|
||||
OTHERWISE
|
||||
DISPLAY "Error: wrong tagName:",reader.getTagName()
|
||||
END CASE
|
||||
WHEN 'EndElement'
|
||||
-- Nothing
|
||||
END CASE
|
||||
LET saxevent=reader.read()
|
||||
END WHILE
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION sync_mbs(d)
|
||||
DEFINE d ui.Dialog
|
||||
DEFINE reader om.XmlReader,
|
||||
attributes om.SaxAttributes,
|
||||
saxevent STRING
|
||||
DEFINE n INTEGER
|
||||
LET reader = om.XmlReader.createFileReader(filename)
|
||||
LET attributes = reader.getAttributes()
|
||||
LET saxevent = reader.read()
|
||||
INITIALIZE longDesc TO NULL
|
||||
CALL mbs.clear()
|
||||
WHILE saxevent IS NOT NULL
|
||||
CASE saxevent
|
||||
WHEN 'StartDocument'
|
||||
LET nmbs=0
|
||||
WHEN 'StartElement'
|
||||
CASE reader.getTagName()
|
||||
WHEN 'mbs'
|
||||
-- Nothing
|
||||
WHEN 'DDir'
|
||||
IF attributes.getValue('name') == dirs[d.getCurrentRow("dirs")].ddir THEN
|
||||
LET saxevent = reader.read()
|
||||
WHILE saxevent IS NOT NULL
|
||||
IF saxevent == 'StartElement' THEN
|
||||
CASE reader.getTagName()
|
||||
WHEN 'mbs'
|
||||
CASE attributes.getValue('type')
|
||||
WHEN "V"
|
||||
CALL mbs.appendElement()
|
||||
LET n = mbs.getLength()
|
||||
LET mbs[n].type="services"
|
||||
LET mbs[n].mbs=attributes.getValue('name')
|
||||
LET mbs[n].prog=attributes.getValue('program')
|
||||
LET mbs[n].desc=attributes.getValue('description')
|
||||
WHEN "F"
|
||||
CALL mbs.appendElement()
|
||||
LET n = mbs.getLength()
|
||||
LET mbs[n].type="FILE"
|
||||
LET mbs[n].mbs=attributes.getValue('name')
|
||||
LET mbs[n].prog=attributes.getValue('program')
|
||||
LET mbs[n].desc=attributes.getValue('description')
|
||||
WHEN "B"
|
||||
|
||||
IF attributes.getValue('program') == "README" THEN
|
||||
LET longDesc = readfile(dirs[d.getCurrentRow("dirs")].ddir || "/README")
|
||||
|
||||
ELSE
|
||||
CALL mbs.appendElement()
|
||||
LET n = mbs.getLength()
|
||||
LET mbs[n].type="file"
|
||||
LET mbs[n].mbs=attributes.getValue('name')
|
||||
LET mbs[n].prog=attributes.getValue('program')
|
||||
LET mbs[n].desc=attributes.getValue('description')
|
||||
END IF
|
||||
WHEN "C"
|
||||
CALL mbs.appendElement()
|
||||
LET n = mbs.getLength()
|
||||
LET mbs[n].type="file"
|
||||
LET mbs[n].mbs=attributes.getValue('name')
|
||||
LET mbs[n].prog=attributes.getValue('program')
|
||||
LET mbs[n].desc=attributes.getValue('description')
|
||||
|
||||
END CASE
|
||||
OTHERWISE
|
||||
RETURN
|
||||
END CASE
|
||||
END IF
|
||||
LET saxevent = reader.read()
|
||||
END WHILE
|
||||
END IF
|
||||
WHEN 'mbs'
|
||||
OTHERWISE
|
||||
DISPLAY "Error: wrong tagName:",reader.getTagName()
|
||||
END CASE
|
||||
WHEN 'EndElement'
|
||||
-- Nothing
|
||||
END CASE
|
||||
LET saxevent=reader.read()
|
||||
END WHILE
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION showfile(fn)
|
||||
DEFINE fn STRING
|
||||
DEFINE txt STRING
|
||||
OPEN WINDOW w WITH FORM "Maindisp"
|
||||
ATTRIBUTE(TEXT="File: ["||fn||"]",STYLE="dialog")
|
||||
LET txt = readfile(fn)
|
||||
INPUT BY NAME txt WITHOUT DEFAULTS
|
||||
AFTER INPUT
|
||||
IF INT_FLAG THEN
|
||||
EXIT INPUT
|
||||
END IF
|
||||
CONTINUE INPUT
|
||||
END INPUT
|
||||
CLOSE WINDOW w
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION readfile(fn)
|
||||
DEFINE fn STRING
|
||||
DEFINE txt STRING
|
||||
DEFINE ln STRING
|
||||
DEFINE ch base.Channel
|
||||
LET ch=base.Channel.create()
|
||||
call fgl_winmessage("prueba",fn,"stop")
|
||||
CALL ch.openfile(fn,"r")
|
||||
|
||||
CALL ch.setDelimiter("")
|
||||
WHILE ch.read(ln)
|
||||
IF txt IS NULL THEN
|
||||
IF ln IS NULL THEN
|
||||
LET txt = "\n"
|
||||
else
|
||||
LET txt = ln
|
||||
END IF
|
||||
ELSE
|
||||
IF ln IS NULL THEN
|
||||
LET txt = txt || "\n"
|
||||
ELSE
|
||||
LET txt = txt || "\n" || ln
|
||||
END IF
|
||||
END IF
|
||||
END WHILE
|
||||
CALL ch.close()
|
||||
RETURN txt
|
||||
END FUNCTION
|
||||
|
||||
{================================================
|
||||
FUNCION : AUTENTIFICACION
|
||||
OBJETIVO : VALIDAR FUNCION DEL USUARIO
|
||||
FECHA : 30/6/2009
|
||||
PROGRAMADOR: JUAN SOTO
|
||||
==================================================
|
||||
}
|
||||
|
||||
FUNCTION autentificacion()
|
||||
|
||||
WHENEVER ERROR CONTINUE
|
||||
CALL startlog("errores.log")
|
||||
|
||||
OPEN WINDOW inicio AT 1,1 WITH FORM "inicial"
|
||||
|
||||
INPUT BY NAME usuario,clave WITHOUT DEFAULTS
|
||||
AFTER INPUT
|
||||
IF INT_FLAG THEN
|
||||
ERROR "OPERACION CANCELADA"
|
||||
EXIT INPUT
|
||||
END IF
|
||||
|
||||
CONNECT TO "decomarmol" USER usuario USING clave
|
||||
IF STATUS < 0 THEN
|
||||
ERROR "USUARIO NO ES VALIDO"
|
||||
CONTINUE INPUT
|
||||
END IF
|
||||
SELECT a.cod_perfil,a.printerdefecto,a.otro_printer ,a.printer_cheque,a.cambia_clave
|
||||
INTO pperfil,pprinter1,pprinter2,ckprinter,cambia_c
|
||||
FROM seg0001 a
|
||||
WHERE a.usuario = usuario
|
||||
|
||||
IF STATUS != 0 THEN
|
||||
ERROR "APLICACION ESTA REPORTANDO UN ERROR, COMUNIQUESE CON SU ADMINISTRADOR"
|
||||
END IF
|
||||
UPDATE seg0001 SET fecha_ultimo_login = getdate() WHERE seg0001.usuario = usuario
|
||||
|
||||
LET cambia_c = UPSHIFT(cambia_c)
|
||||
IF cambia_c = "SI" THEN
|
||||
CALL cambia_clave()
|
||||
END IF
|
||||
EXIT INPUT
|
||||
END INPUT
|
||||
|
||||
CLOSE WINDOW inicio
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION cambia_clave()
|
||||
|
||||
OPEN WINDOW cambia AT 1,1 WITH FORM "cambia"
|
||||
DISPLAY usuario TO usuario
|
||||
DISPLAY clave TO clave
|
||||
INPUT BY NAME nclave,cclave
|
||||
AFTER INPUT
|
||||
IF INT_FLAG THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "OPERACION CANCELADA", "stop")
|
||||
EXIT INPUT
|
||||
END IF
|
||||
IF nclave = cclave THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE NUEVA NO PUEDE SER IGUAL A LA VIEJA", "stop")
|
||||
NEXT FIELD nclave
|
||||
END IF
|
||||
IF nclave IS NULL OR nclave = " " THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE NUEVA NO PUEDE ESTAR EN BLANCO", "stop")
|
||||
NEXT FIELD nclave
|
||||
END IF
|
||||
IF cclave IS NULL OR cclave = " " THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE NUEVA NO PUEDE ESTAR EN BLANCO", "stop")
|
||||
NEXT FIELD cclave
|
||||
END IF
|
||||
IF nclave <> cclave THEN
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE NUEVA NO COINCIDE CON LA CONFIRMACION DE LA CLAVE", "stop")
|
||||
NEXT FIELD nclave
|
||||
ELSE
|
||||
|
||||
LET altera = "sp_password @old = '", clave CLIPPED,"', ",
|
||||
"@new = '",nclave CLIPPED,"' ,",
|
||||
"@loginame = '",usuario CLIPPED, "'"
|
||||
|
||||
PREPARE caltera FROM altera
|
||||
EXECUTE caltera
|
||||
IF STATUS = 0 THEN
|
||||
UPDATE seg0001 SET cambia_clave = "NO" WHERE seg0001.usuario = usuario
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "CLAVE CAMBIADA SATISFACTORIAMENTE", "stop")
|
||||
LET clave = nclave
|
||||
ELSE
|
||||
CALL FGL_WINMESSAGE( "ATENCION", "NO FUE POSIBLE EL CAMBIO DE LA CLAVE, TRATE NUEVA VEZ", "stop")
|
||||
NEXT FIELD nclave
|
||||
END IF
|
||||
END IF
|
||||
EXIT INPUT
|
||||
END INPUT
|
||||
IF INT_FLAG THEN
|
||||
LET INT_FLAG = FALSE
|
||||
RETURN
|
||||
CLOSE WINDOW cambia
|
||||
END IF
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,12 @@
|
||||
MAIN
|
||||
CALL ui.Interface.loadStartMenu("MenuGeneral")
|
||||
OPEN WINDOW MenuGeneral WITH 24 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm2")
|
||||
#OPEN WINDOW MenuGeneral WITH FORM "menuform1" ATTRIBUTES(STYLE="sm2")
|
||||
MENU "MenuGeneral"
|
||||
COMMAND KEY(INTERRUPT) "Exit"
|
||||
EXIT MENU
|
||||
END MENU
|
||||
CLOSE WINDOW MenuGeneral
|
||||
|
||||
|
||||
END MAIN
|
||||
@@ -0,0 +1,23 @@
|
||||
<?xml version="1.0" encoding="ANSI_X3.4-1968"?>
|
||||
<StartMenu text="MBS MASTER BUSSINES SOFTWARE" >
|
||||
<StartMenuGroup text="OPCIONES" image="c:\genero\BOTONES GENERO\PEQUENOS\logo.bmp">
|
||||
<StartMenuCommand text="Compras" exec="fglrun hello Command1" image="c:\genero\BOTONES GENERO\PEQUENOS\compras.bmp" />
|
||||
<StartMenuCommand text="Produccion" exec="fglrun c:\genero\prdir\prmnmt000" image="c:\genero\BOTONES GENERO\PEQUENOS\13.bmp"/>
|
||||
<StartMenuCommand text="Ventas" exec="fglrun hello Command1" image="c:\genero\BOTONES GENERO\PEQUENOS\ventas.bmp" />
|
||||
<StartMenuCommand text="Nominas" exec="fglrun hello Command241" />
|
||||
</StartMenuGroup>
|
||||
<StartMenuGroup text="INVENTARIOS">
|
||||
<StartMenuCommand text="Materia Prima" exec="fglrun hello Command1" />
|
||||
<StartMenuCommand text="Productos Terminados" exec="fglrun hello Command2" />
|
||||
<StartMenuCommand text="Repuestos" exec="fglrun hello Command3" />
|
||||
</StartMenuGroup>
|
||||
<StartMenuGroup text="FINANZAS">
|
||||
<StartMenuCommand text="Contabilidad General" exec="fglrun hello Command1" />
|
||||
<StartMenuCommand text="Cuentas Por Cobrar" exec="fglrun hello Command2" />
|
||||
<StartMenuCommand text="Cuentas Por Pagar" exec="fglrun hello Command3" />
|
||||
</StartMenuGroup>
|
||||
<StartMenuGroup text="INFORMATICA">
|
||||
<StartMenuCommand text="Administracion Opciones" exec="fglrun hello Command1" />
|
||||
<StartMenuCommand text="Administracion Mensajes" exec="fglrun hello Command2" />
|
||||
</StartMenuGroup>
|
||||
</StartMenu>
|
||||
@@ -0,0 +1,2 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<Form database_name="formonly" fourSTFile="" gstVersion="15a01" height="25" name="Form1" posX="0" posY="0" text="MenuForm" width="80"/>
|
||||
@@ -0,0 +1,21 @@
|
||||
MAIN
|
||||
CALL ui.Interface.loadStartMenu("StartMenu1")
|
||||
-- By default the SCREEN window gets the STYLE attribute 'main'...
|
||||
-- Since the default.4st file defines this style with a startmenu as
|
||||
-- pull-down menu, you can see the startmenu in the SCREEN window.
|
||||
MENU "StartMenu"
|
||||
COMMAND "menu" "Window with startmenu as pull-down menu"
|
||||
OPEN WINDOW w1 WITH 20 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm1")
|
||||
MENU "Test" COMMAND KEY(INTERRUPT) "Exit" EXIT MENU END MENU
|
||||
CLOSE WINDOW w1
|
||||
COMMAND "tree" "Window with startmenu as tree view"
|
||||
OPEN WINDOW w1 WITH 20 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm2")
|
||||
MENU "Test" COMMAND KEY(INTERRUPT) "Exit" EXIT MENU END MENU
|
||||
CLOSE WINDOW w1
|
||||
COMMAND "poptree" "Window with startmenu as popup-tree view"
|
||||
OPEN WINDOW w1 WITH 20 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm3")
|
||||
MENU "Test" COMMAND KEY(INTERRUPT) "Exit" EXIT MENU END MENU
|
||||
CLOSE WINDOW w1
|
||||
COMMAND KEY(INTERRUPT) "Exit" EXIT MENU
|
||||
END MENU
|
||||
END MAIN
|
||||
@@ -0,0 +1,21 @@
|
||||
DATABASE decomarmol
|
||||
MAIN
|
||||
|
||||
|
||||
DEFINE s_sel CHAR(200),
|
||||
p_usuario CHAR(80)
|
||||
CONNECT TO "marmotech+driver='dbmftm90',source='ifxmarmotech'" USER "informix" USING "luismi001"
|
||||
|
||||
LET s_sel="SELECT SUSER_SNAME() "
|
||||
PREPARE st_usr FROM s_sel
|
||||
DECLARE cc_usr CURSOR FOR st_usr
|
||||
LET p_usuario=NULL
|
||||
OPEN cc_usr
|
||||
FETCH cc_usr INTO p_usuario
|
||||
IF STATUS<>0 THEN
|
||||
LET p_usuario="NO USUARIOS CONECTADOS"
|
||||
END IF
|
||||
DISPLAY "USUARIO ",p_usuario
|
||||
CLOSE cc_usr
|
||||
FREE st_usr
|
||||
END MAIN
|
||||
@@ -0,0 +1,3 @@
|
||||
acmn00000.4gl
|
||||
|
||||
No such file or directory. The input file "acmn00000.4gl" cannot be opened.
|
||||
@@ -0,0 +1,157 @@
|
||||
0.993
|
||||
17^78^[]
|
||||
Doc. No.
|
||||
|
||||
Orden Compra: Suplidor: -
|
||||
|
||||
Conduce: Factura No. Fecha: Bodega:
|
||||
|
||||
C A N T I D A D Cantidad
|
||||
Codigo Ordenada Recibida Mto. No.Embarque Pendiente
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Descripcion Articulo :
|
||||
Descripcion Movimiento:
|
||||
|
||||
screenFields 21
|
||||
f00^1^0^12^6^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
12^0^6
|
||||
ti^1^2^15^2^1^0^0^1^2^-32768^0^0^^Digite Tipo de Orden 02-Producto terminado 01- Materia Prima^^01|02^^^Entry^^^0^^
|
||||
15^2^2
|
||||
f02^2^2^19^7^1^0^0^1^2^-32768^0^2^^Digite el Numero de la Orden de Compras^^^^^Entry^^^0^^
|
||||
19^2^7
|
||||
p1^3^2^37^2^1^0^0^1^3^-32768^0^1^##^^^^^^Entry^^^0^^
|
||||
37^2^2
|
||||
f01^4^2^42^4^1^0^0^1^3^-32768^0^1^####^^^^^^Entry^^^0^^
|
||||
42^2^4
|
||||
a^1^2^48^27^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
48^2^27
|
||||
f03^5^4^10^10^1^0^0^1^2^-32768^0^0^^Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce^^^^^Entry^^^0^^
|
||||
10^4^10
|
||||
f04^6^4^34^9^1^0^0^1^2^-32768^0^0^^Digite el Numero de la Factura del Suplidor^^^^^Entry^^^0^^
|
||||
34^4^9
|
||||
f05^2^4^52^10^1^0^0^1^0^-32768^0^7^^Digite la Fecha Correspondiente al Documento^^^dd/mm/yyyy^^Entry^^^0^^
|
||||
52^4^10
|
||||
k^12^4^71^2^1^0^0^1^2^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
71^4^2
|
||||
b^8^9^1^1^5^1^0^1^3^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
1^9^1
|
||||
1^10^1
|
||||
1^11^1
|
||||
1^12^1
|
||||
1^13^1
|
||||
c^9^9^4^1^5^1^0^1^3^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
4^9^1
|
||||
4^10^1
|
||||
4^11^1
|
||||
4^12^1
|
||||
4^13^1
|
||||
d^10^9^7^2^5^1^0^1^3^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
7^9^2
|
||||
7^10^2
|
||||
7^11^2
|
||||
7^12^2
|
||||
7^13^2
|
||||
f^11^9^11^3^5^1^0^1^3^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
11^9^3
|
||||
11^10^3
|
||||
11^11^3
|
||||
11^12^3
|
||||
11^13^3
|
||||
f06^7^9^16^11^5^1^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
16^9^11
|
||||
16^10^11
|
||||
16^11^11
|
||||
16^12^11
|
||||
16^13^11
|
||||
f07^3^9^30^11^5^1^0^1^0^-32768^0^2^^Digite la Cantidad Llegada desde el Suplidor^^^^^Entry^^^0^^
|
||||
30^9^11
|
||||
30^10^11
|
||||
30^11^11
|
||||
30^12^11
|
||||
30^13^11
|
||||
t^4^9^44^2^5^1^0^1^0^-32768^0^1^^Codigo Movimiento Entrada ^^10|34^^^Entry^^^0^^
|
||||
44^9^2
|
||||
44^10^2
|
||||
44^11^2
|
||||
44^12^2
|
||||
44^13^2
|
||||
p^6^9^49^6^5^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
49^9^6
|
||||
49^10^6
|
||||
49^11^6
|
||||
49^12^6
|
||||
49^13^6
|
||||
f1^7^9^61^12^5^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
61^9^12
|
||||
61^10^12
|
||||
61^11^12
|
||||
61^12^12
|
||||
61^13^12
|
||||
g^5^14^25^52^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
25^14^52
|
||||
t1^1^15^25^45^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
25^15^45
|
||||
formFields 21
|
||||
num_doc^f00
|
||||
tipo^ti
|
||||
orden_compra^f02
|
||||
cod_sp^p1
|
||||
cod_sp_sec^f01
|
||||
conduce_no^f03
|
||||
fact_no^f04
|
||||
fecha^f05
|
||||
cantidad_1^f06
|
||||
cantidad_2^f07
|
||||
cod_mov^t
|
||||
nom_sp^a
|
||||
cod_n^b
|
||||
cod_grupo^c
|
||||
cod_tipo^d
|
||||
cod_sec^f
|
||||
descripcion_f^g
|
||||
no_embarque^p
|
||||
descrip_mov^t1
|
||||
bodega^k
|
||||
pendiente^f1
|
||||
screenRecords 5
|
||||
iptb00006^12^0^1^-1^0^0^0^0
|
||||
tipo^ti
|
||||
orden_compra^f02
|
||||
cod_sp^p1
|
||||
cod_sp_sec^f01
|
||||
conduce_no^f03
|
||||
fact_no^f04
|
||||
cantidad_1^f06
|
||||
cod_n^b
|
||||
cod_grupo^c
|
||||
cod_tipo^d
|
||||
cod_sec^f
|
||||
bodega^k
|
||||
cotb00001^1^0^1^1^0^0^0^0
|
||||
nom_sp^a
|
||||
intb00005^1^0^1^1^0^0^0^0
|
||||
descrip_mov^t1
|
||||
formonly^7^0^1^-1^0^0^0^0
|
||||
num_doc^f00
|
||||
fecha^f05
|
||||
cantidad_2^f07
|
||||
cod_mov^t
|
||||
descripcion_f^g
|
||||
no_embarque^p
|
||||
pendiente^f1
|
||||
s_movi1^9^1^0^5^1^9^73^5
|
||||
cod_n^b
|
||||
cod_grupo^c
|
||||
cod_tipo^d
|
||||
cod_sec^f
|
||||
cantidad_1^f06
|
||||
cantidad_2^f07
|
||||
cod_mov^t
|
||||
no_embarque^p
|
||||
pendiente^f1
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,72 @@
|
||||
{
|
||||
----------------------------------------------------------------------------
|
||||
FORMULARIO : INFMMT006
|
||||
OBJETIVO : Pantalla para la captura de reporte de entrada
|
||||
inventario materia prima.
|
||||
MODULOS Q. UTILIZAN : inprmt006
|
||||
PROGRAMADOR : Juan F. Soto
|
||||
FECHA REALIZACION : Agosto 1997
|
||||
DIRECTOR PROYECTO : JOSE ALFREDO PAULINO ALEJO
|
||||
----------------------------------------------------------------------------
|
||||
}
|
||||
database exterior
|
||||
screen size 24 by 80
|
||||
{
|
||||
Doc. No. [f00 ]
|
||||
\gp---------------------------------------------------------------------------q\g
|
||||
\g|\gOrden Compra:[ti][f02 ]Suplidor:[p1]-[f01 ][a ]\g|\g
|
||||
\gp---------------------------------------------------------------------------q\g
|
||||
\g|\gConduce:[f03 ] Factura No.[f04 ] Fecha:[f05 ]Bodega:[k ] \g|\g
|
||||
\gb---------------------------------------------------------------------------d\g
|
||||
C A N T I D A D Cantidad
|
||||
Codigo Ordenada Recibida Mto. No.Embarque Pendiente
|
||||
\g------------------------------------------------------------------------------\g
|
||||
[b][c][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
|
||||
[b][c][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
|
||||
[b][c][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
|
||||
[b][c][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
|
||||
[b][c][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
|
||||
Descripcion Articulo : [g ]
|
||||
Descripcion Movimiento: [t1 ]
|
||||
\g------------------------------------------------------------------------------\g
|
||||
}
|
||||
end
|
||||
tables
|
||||
|
||||
iptb00006,
|
||||
cotb00001,
|
||||
intb00001,
|
||||
intb00005
|
||||
attributes
|
||||
f00 = formonly.num_doc;
|
||||
ti = iptb00006.tipo,autonext,include = ("01","02"),comments=
|
||||
"Digite Tipo de Orden 02-Producto terminado 01- Materia Prima";
|
||||
f02 = iptb00006.orden_compra, autonext,
|
||||
comments = "Digite el Numero de la Orden de Compras";
|
||||
p1 = iptb00006.cod_sp,picture = "##",autonext,noentry;
|
||||
f01 = iptb00006.cod_sp_sec,picture = "####",autonext,noentry;
|
||||
f03 = iptb00006.conduce_no, autonext,
|
||||
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
|
||||
f04 = iptb00006.fact_no, autonext,
|
||||
comments = "Digite el Numero de la Factura del Suplidor";
|
||||
f05 = formonly.fecha type date,format = "dd/mm/yyyy",
|
||||
comments = "Digite la Fecha Correspondiente al Documento";
|
||||
f06 = iptb00006.cantidad_1,noentry;
|
||||
f07 = formonly.cantidad_2 type integer,
|
||||
comments = "Digite la Cantidad Llegada desde el Suplidor";
|
||||
t = formonly.cod_mov type smallint,include=(10,34),
|
||||
comments= "Codigo Movimiento Entrada ";
|
||||
a = cotb00001.nom_sp,noentry;
|
||||
b = iptb00006.cod_n,autonext,noentry;
|
||||
c = iptb00006.cod_grupo,autonext,noentry;
|
||||
d = iptb00006.cod_tipo,autonext,noentry;
|
||||
f = iptb00006.cod_sec,autonext,noentry;
|
||||
g = formonly.descripcion_f,noentry;
|
||||
p = formonly.no_embarque,noentry;
|
||||
t1 = intb00005.descrip_mov,noentry;
|
||||
k = iptb00006.bodega,autonext;
|
||||
f1 = formonly.pendiente,noentry;
|
||||
INSTRUCTIONS
|
||||
screen record s_movi1[5] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
||||
cantidad_2,cod_mov,no_embarque,pendiente)
|
||||
end
|
||||
@@ -0,0 +1,2 @@
|
||||
fgl2p almn00000.4gl
|
||||
fgl2p -o almn00000.42r almn00000.42m msg.42m
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,165 @@
|
||||
{
|
||||
-----------------------------------------------------------------------------
|
||||
PROGRAMA : ALMN00000
|
||||
OBJETIVO : Menu pralcipal del Sistema
|
||||
de Inventarios
|
||||
PROGRAMADOR : Juan Fco. Soto (Johnny)
|
||||
FECHA REALIZACION : Octubre 21, 1993.
|
||||
-----------------------------------------------------------------------------
|
||||
}
|
||||
DATABASE exterior
|
||||
|
||||
MAIN
|
||||
DEFER INTERRUPT
|
||||
CALL opciones_almn00000()
|
||||
END MAIN
|
||||
|
||||
FUNCTION opciones_almn00000()
|
||||
DEFINE opt CHAR(2)
|
||||
DEFINE p_user CHAR(9)
|
||||
DEFINE luz CHAR(5)
|
||||
|
||||
OPTIONS
|
||||
PROMPT LINE 8,
|
||||
ERROR LINE 24
|
||||
|
||||
CALL pantalla()
|
||||
DISPLAY "almn00000" AT 4,3 ATTRIBUTE(blue)
|
||||
DISPLAY "1- Materia Prima inmn00000" AT 10,6
|
||||
#DISPLAY "2- Herramientas ihmn00000" AT 11,6
|
||||
#DISPLAY "2- Suministros ismn00000" AT 11,6
|
||||
DISPLAY "2- Productos Terminados ipmn00000" AT 11,6
|
||||
DISPLAY "3- Reporte Entradas alprmt006" AT 12,6
|
||||
DISPLAY "4- Repuestos irmn00000" AT 13,6
|
||||
# DISPLAY "5- Volante Ctrl Transportista veprmt14" AT 16,6
|
||||
DISPLAY "S- Retorna Menu Anterior" AT 18,6 ATTRIBUTE (BOLD)
|
||||
|
||||
LABEL vuelve:
|
||||
PROMPT "OPCION: " attribute(blue) FOR OPT
|
||||
LET opt = UPSHIFT(opt) clipped
|
||||
SELECT unique user INTO p_user from seg0001
|
||||
display "usuario ", p_user
|
||||
IF opt != "S" THEN
|
||||
SELECT unique usuario INTO p_user FROM seg0001
|
||||
WHERE usuario = user
|
||||
CALL seg000(p_user,opt,"almn00000") RETURNING luz
|
||||
IF luz = "roja" THEN
|
||||
ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
|
||||
# GOTO vuelve
|
||||
END IF
|
||||
END IF
|
||||
|
||||
CASE
|
||||
|
||||
WHEN OPT = "1"
|
||||
RUN "fglrun %FGLPROG%\\inmn00000"
|
||||
CLEAR SCREEN
|
||||
CALL opciones_almn00000()
|
||||
{
|
||||
WHEN OPT = "2"
|
||||
RUN "fglrun %FGLPROG%\\ihmn00000"
|
||||
CLEAR SCREEN
|
||||
CALL opciones_almn00000()
|
||||
WHEN OPT = "3"
|
||||
RUN "fglrun %FGLPROG%\\irmn00000"
|
||||
CLEAR SCREEN
|
||||
CALL opciones_almn00000()
|
||||
|
||||
WHEN OPT = "2"
|
||||
RUN "fglrun %FGLPROG%\\ismn00000"
|
||||
CLEAR SCREEN
|
||||
CALL opciones_almn00000()}
|
||||
WHEN OPT = "2"
|
||||
RUN "fglrun %FGLPROG%\\ipmn00000"
|
||||
CLEAR SCREEN
|
||||
CALL opciones_almn00000()
|
||||
WHEN OPT = "3"
|
||||
RUN "fglrun %FGLPROG%\\alprmt006"
|
||||
CLEAR SCREEN
|
||||
CALL opciones_almn00000()
|
||||
WHEN OPT = "4"
|
||||
RUN "fglrun %FGLPROG%\\irmn00000"
|
||||
CLEAR SCREEN
|
||||
CALL opciones_almn00000()
|
||||
{WHEN OPT = "7"
|
||||
RUN "fglrun %FGLPROG%\\veprmt14"
|
||||
CLEAR SCREEN
|
||||
CALL opciones_almn00000()}
|
||||
WHEN OPT = "S" or OPT = "s"
|
||||
RETURN
|
||||
OTHERWISE
|
||||
CALL opciones_almn00000()
|
||||
END CASE
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION pantalla()
|
||||
DEFINE fecha CHAR(8),
|
||||
hora char(5) ,
|
||||
l SMALLINT,
|
||||
p_compania RECORD LIKE companias.*
|
||||
SELECT * INTO p_compania.*
|
||||
FROM companias
|
||||
LET l = (80 - LENGTH(p_compania.nombre CLIPPED))/2
|
||||
LET fecha = today USING "dd/mm/yy"
|
||||
LET hora = time
|
||||
DISPLAY p_compania.nombre CLIPPED AT 4,l
|
||||
ATTRIBUTE (REVERSE,blue)
|
||||
DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
|
||||
LET l = (80 - LENGTH("Sistema De Inventarios"))/2
|
||||
DISPLAY "Sistema De Inventarios" AT 5,l
|
||||
LET l = (80 - LENGTH("Menu Inventarios"))/2
|
||||
DISPLAY "Menu Inventarios" AT 6,l
|
||||
DISPLAY hora AT 6,73 ATTRIBUTE(blue)
|
||||
|
||||
CALL fgl_drawbox(5,79,3,1)
|
||||
CALL fgl_drawbox(1,79,22,1)
|
||||
END FUNCTION
|
||||
|
||||
{
|
||||
-----------------------------------------------------------------------------
|
||||
PROGRAMA : SEG000
|
||||
OBJETIVO : Controlar el acceso de los usuarios a los sistemas de la
|
||||
Empresa.
|
||||
PROGRAMADOR : Ing. Juan Soto
|
||||
FECHA : Marzo 17, 1994.
|
||||
-----------------------------------------------------------------------------
|
||||
}
|
||||
FUNCTION seg000(usuarios,opt,p_menu)
|
||||
DEFINE opt CHAR(2)
|
||||
DEFINE luz CHAR(4)
|
||||
DEFINE p_menu CHAR(9)
|
||||
DEFINE usuarios CHAR(9)
|
||||
DEFINE opcion_ant,no_reg,p_opcion,numero SMALLINT
|
||||
|
||||
OPTIONS
|
||||
ERROR LINE 24
|
||||
LET luz = "azul"
|
||||
LET p_opcion = opt
|
||||
|
||||
SELECT count(*) INTO no_reg FROM seg0001
|
||||
WHERE usuario = user
|
||||
LET opcion_ant = p_opcion
|
||||
IF no_reg = 1 THEN
|
||||
SELECT opcion INTO p_opcion FROM seg0001
|
||||
WHERE usuario = user
|
||||
IF p_opcion != 99 THEN
|
||||
LET p_opcion = opcion_ant
|
||||
END IF
|
||||
END IF
|
||||
IF p_opcion != 99 THEN
|
||||
SELECT UNIQUE a.usuario FROM seg0001 a
|
||||
WHERE a.usuario = usuarios and
|
||||
a.opcion = p_opcion and
|
||||
a.us_menu = p_menu
|
||||
|
||||
IF status = notfound THEN
|
||||
display "pase por aqui" at 23,1
|
||||
LET status = 0
|
||||
LET luz = "roja"
|
||||
END IF
|
||||
END IF
|
||||
IF p_opcion = 99 THEN
|
||||
LET luz = "azul"
|
||||
END IF
|
||||
RETURN luz
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,66 @@
|
||||
P
|
||||
E M A R M O T E C H, S. A. RNC. F
|
||||
REPORTE DE ENTRADA
|
||||
No. 000044
|
||||
ECOMPRAS DEL EXTERIOR F
|
||||
|
||||
Fecha : 20/04/02 Orden de Compra: 01-000124
|
||||
Proveedor : 22-0005 LEVANTINA DE GRANITO US$
|
||||
Conduce : Factura : 1
|
||||
================================================================================
|
||||
M CANTIDAD CANTIDAD CANTIDAD
|
||||
CODIGO ORDENADA RECIBIDA PENDIENTE D E S C R I P C I O N
|
||||
EN DOCUM. ORDENP
|
||||
================================================================================
|
||||
M
|
||||
2-2-00-001 354.520 354.000 .520 PLANCHA ROSA PORRINO MT2
|
||||
P
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
P
|
||||
OBSERVACION :
|
||||
|
||||
--------------------------------------------------------------------------
|
||||
|
||||
--------------------------------------------------------------------------
|
||||
|
||||
--------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
@@ -0,0 +1,931 @@
|
||||
{
|
||||
-------------------------------------------------------------------------
|
||||
PROGRAMA : ALPRMT006
|
||||
OBJETIVO : Programa Captura Documento Movimiento:REPORTE ENTRADA
|
||||
Nota: No utilice los PREPARE porque utilizaria todas las
|
||||
tablas de los sistemas de inventarios.
|
||||
PROGRAMADOR : Juan Fco. Soto (Johnny)
|
||||
FECHA REALIZACION : Octubre 21,1993.
|
||||
|
||||
MODIFICADOR : Tadeo A. Ferreras F.
|
||||
FECHA REALIZACION : Marzo 05, 1996
|
||||
OBJETIVO : Impresion de la Cantidad Pendiente Por Enregar en la
|
||||
Orden de Compra
|
||||
-------------------------------------------------------------------------
|
||||
}
|
||||
DATABASE marmotech
|
||||
GLOBALS
|
||||
DEFINE etiqueta CHAR(20)
|
||||
DEFINE descrip_espa CHAR(35)
|
||||
DEFINE fecha,p_fechas,fecha_c DATE
|
||||
DEFINE ip_ultimo,ir_ultimo,ih_ultimo,is_ultimo,in_ultimo,
|
||||
l,bandera,numero_msg INTEGER
|
||||
DEFINE documento ARRAY[50] OF INTEGER
|
||||
DEFINE dia,idx,p_act,scr_l,cod_mov_ant SMALLINT
|
||||
DEFINE primera,opc1,verdad,opc CHAR (1)
|
||||
DEFINE unidad CHAR(4)
|
||||
DEFINE inv1,inv2,inv3,inv4,inv5 CHAR(500)
|
||||
DEFINE tipo1,tipo2,tipo3,tipo4,tipo5 CHAR(200)
|
||||
DEFINE recibida,f_cantidad,factor DECIMAL(12,3),
|
||||
descripcion_f CHAR(100),
|
||||
nombre_m CHAR(20),
|
||||
descrip CHAR(15)
|
||||
|
||||
DEFINE datos_gen RECORD
|
||||
num_doc LIKE iptb00006.num_doc,
|
||||
tipo LIKE iptb00006.tipo,
|
||||
orden_compra LIKE iptb00006.orden_compra,
|
||||
cod_sp LIKE iptb00006.cod_sp,
|
||||
cod_sp_sec LIKE iptb00006.cod_sp_sec,
|
||||
conduce_no LIKE iptb00006.conduce_no,
|
||||
fact_no LIKE iptb00006.fact_no,
|
||||
fecha LIKE iptb00006.fecha,
|
||||
bodega LIKE iptb00006.bodega,
|
||||
nom_sp LIKE cotb00001.nom_sp,
|
||||
descrip_mov LIKE intb00005.descrip_mov
|
||||
END RECORD
|
||||
|
||||
DEFINE movi ARRAY[200] OF RECORD
|
||||
cod_n LIKE iptb00006.cod_n,
|
||||
cod_grupo LIKE iptb00006.cod_grupo,
|
||||
cod_tipo LIKE iptb00006.cod_tipo,
|
||||
cod_sec LIKE iptb00006.cod_sec,
|
||||
cantidad_1 DECIMAL(12,3),
|
||||
cantidad_2 DECIMAL(12,3),
|
||||
cod_mov SMALLINT,
|
||||
no_embarque CHAR(08),
|
||||
pendiente DECIMAL(12,3)
|
||||
END RECORD,
|
||||
p_companias RECORD LIKE companias.*
|
||||
END GLOBALS
|
||||
|
||||
MAIN
|
||||
DEFINE fecha CHAR(8)
|
||||
DEFER INTERRUPT
|
||||
|
||||
CLEAR SCREEN
|
||||
OPTIONS
|
||||
ERROR LINE 24,
|
||||
FORM LINE 4,
|
||||
COMMENT LINE 22,
|
||||
PROMPT LINE 23
|
||||
SELECT * INTO p_companias.* FROM companias
|
||||
LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
|
||||
|
||||
LET fecha = today USING "dd/mm/yy"
|
||||
DISPLAY p_companias.nombre CLIPPED AT 1,l
|
||||
ATTRIBUTE (REVERSE,YELLOW)
|
||||
DISPLAY fecha AT 1,70 ATTRIBUTE (YELLOW)
|
||||
DISPLAY "Reporte De Entrada" AT 2,29
|
||||
DISPLAY "<Esc> Adiciona Registro" AT 3,2 ATTRIBUTE (YELLOW,REVERSE)
|
||||
DISPLAY "<Supr> Cancela Operacion" AT 3,57 ATTRIBUTE (YELLOW,REVERSE)
|
||||
DISPLAY "alprmt006" AT 1,3 ATTRIBUTE (YELLOW)
|
||||
OPEN FORM alfmmt006 FROM "alfmmt006"
|
||||
DISPLAY FORM alfmmt006
|
||||
|
||||
CALL inpcad006()
|
||||
END MAIN
|
||||
|
||||
FUNCTION inpcad006()
|
||||
DEFINE nombre_s CHAR(20)
|
||||
DEFINE cerrada CHAR(1) # Variable para actualizar el cierre de una orden
|
||||
|
||||
DEFINE total_cantidad,porciento,ordenada,r_cantidad1,r_cantidad,
|
||||
mp_recibida,is_recibida,ip_recibida,ir_recibida,ih_recibida
|
||||
DECIMAL(12,3)
|
||||
|
||||
# WHENEVER ERROR CONTINUE
|
||||
LET int_flag = FALSE
|
||||
INITIALIZE datos_gen.* TO NULL
|
||||
LET datos_gen.fecha = today USING "dd/mm/yy"
|
||||
|
||||
LABEL otra_vez:
|
||||
IF (OPC = "S" OR OPC = "s") OR opc IS NULL THEN
|
||||
INITIALIZE datos_gen.* TO NULL
|
||||
END IF
|
||||
|
||||
LET cerrada = "N"
|
||||
LET total_cantidad = 0
|
||||
|
||||
LET is_ultimo = null
|
||||
LET ir_ultimo = null
|
||||
LET ip_ultimo = null
|
||||
LET ih_ultimo = null
|
||||
LET in_ultimo = null
|
||||
# Captura de informacion del reporte de entrada
|
||||
INPUT BY NAME datos_gen.num_doc THRU datos_gen.bodega WITHOUT DEFAULTS
|
||||
AFTER FIELD num_doc
|
||||
|
||||
# Estas asignaciones es para que cuando se le digite el numero del documento
|
||||
# no busque el ultimo numero en las correspondientes tablas
|
||||
IF datos_gen.num_doc IS NOT NULL THEN
|
||||
LET is_ultimo = datos_gen.num_doc
|
||||
LET ir_ultimo = datos_gen.num_doc
|
||||
LET ip_ultimo = datos_gen.num_doc
|
||||
LET ih_ultimo = datos_gen.num_doc
|
||||
LET in_ultimo = datos_gen.num_doc
|
||||
END IF
|
||||
{
|
||||
SELECT UNIQUE a.num_doc FROM iptb00006 a
|
||||
WHERE a.cod_mov = 10 AND a.num_doc = datos_gen.num_doc
|
||||
|
||||
IF STATUS != NOTFOUND THEN
|
||||
LET numero_msg = 12
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_doc
|
||||
END IF
|
||||
}
|
||||
# Control de la fecha del documento para que el usuario no pueda introducir
|
||||
# un documento con fecha atrasada
|
||||
AFTER FIELD fecha
|
||||
IF datos_gen.fecha IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha
|
||||
END IF
|
||||
|
||||
IF datos_gen.fecha > TODAY THEN
|
||||
LET numero_msg = 160
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha
|
||||
END IF
|
||||
|
||||
LET p_fechas = datos_gen.fecha USING "ddmmyy"
|
||||
|
||||
SELECT MIN(fecha_corte) INTO fecha_c FROM prdtable
|
||||
WHERE fecha_corte >= p_fechas
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 58
|
||||
CALL msg(numero_msg)
|
||||
SLEEP 3
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
LET dia = 0
|
||||
SELECT MIN(dias_gracia) INTO dia FROM prdtable
|
||||
WHERE fecha_corte = fecha_c
|
||||
|
||||
IF dia IS NULL THEN
|
||||
LET dia = 0
|
||||
END IF
|
||||
|
||||
SELECT a.usuario FROM seg0003 a
|
||||
WHERE a.usuario = USER
|
||||
|
||||
IF STATUS != NOTFOUND THEN
|
||||
LET fecha_c = fecha_c + dia
|
||||
END IF
|
||||
|
||||
IF fecha_c < TODAY THEN
|
||||
LET numero_msg = 57
|
||||
CALL msg(numero_msg)
|
||||
#NEXT FIELD fecha
|
||||
END IF
|
||||
|
||||
AFTER FIELD bodega
|
||||
IF datos_gen.bodega IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD bodega
|
||||
END IF
|
||||
|
||||
SELECT a.* FROM intb00009 a WHERE a.cod_bodega = datos_gen.bodega
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 3
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD bodega
|
||||
END IF
|
||||
|
||||
BEFORE FIELD num_doc
|
||||
LET datos_gen.bodega = 1
|
||||
DISPLAY BY NAME datos_gen.bodega ATTRIBUTE (CYAN)
|
||||
LET datos_gen.fecha = today
|
||||
DISPLAY BY NAME datos_gen.fecha ATTRIBUTE (CYAN)
|
||||
|
||||
AFTER FIELD orden_compra
|
||||
|
||||
# Verifica que la orden de compra este en el archivo y
|
||||
# ademas obliga a que el usuario tenga que digitar este campo
|
||||
|
||||
IF datos_gen.orden_compra IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD orden_compra
|
||||
ELSE
|
||||
|
||||
SELECT a.cod_sp,a.cod_sp_sec,a.cierre
|
||||
INTO datos_gen.cod_sp,datos_gen.cod_sp_sec,cerrada
|
||||
FROM cotb00014 a
|
||||
WHERE a.tipo = datos_gen.tipo AND
|
||||
a.num_oc = datos_gen.orden_compra AND
|
||||
a.status_t IS null
|
||||
|
||||
IF STATUS >= 0 THEN
|
||||
IF cerrada = "S" THEN
|
||||
LET numero_msg = 74
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD tipo
|
||||
END IF
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 3
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD tipo
|
||||
END IF
|
||||
ELSE
|
||||
CALL integridad()
|
||||
IF bandera = 1 THEN
|
||||
LET bandera = 0
|
||||
RETURN
|
||||
END IF
|
||||
END IF
|
||||
|
||||
SELECT UNIQUE nom_sp INTO datos_gen.nom_sp FROM cotb00001
|
||||
WHERE cod_sp=datos_gen.cod_sp and cod_sp_sec = datos_gen.cod_sp_sec and
|
||||
status_t IS null
|
||||
|
||||
DISPLAY BY NAME datos_gen.nom_sp,datos_gen.cod_sp,datos_gen.cod_sp_sec
|
||||
ATTRIBUTE (CYAN)
|
||||
END IF
|
||||
|
||||
IF cerrada IS NULL THEN
|
||||
LET cerrada = "N"
|
||||
END IF
|
||||
|
||||
AFTER FIELD fact_no
|
||||
|
||||
# Verifica que el numero de la factura no se repita con el mismo numero de
|
||||
# documento.
|
||||
|
||||
IF datos_gen.conduce_no IS NULL AND datos_gen.fact_no IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD conduce_no
|
||||
END IF
|
||||
IF datos_gen.conduce_no IS NOT NULL AND datos_gen.fact_no IS NOT NULL THEN
|
||||
LET numero_msg = 29
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD conduce_no
|
||||
END IF
|
||||
|
||||
AFTER INPUT
|
||||
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
|
||||
# Valida en nulo las variables del arreglo para desplegar
|
||||
FOR idx = 1 to arr_count()
|
||||
LET movi[idx].cod_n = null
|
||||
LET movi[idx].cod_grupo = null
|
||||
LET movi[idx].cod_tipo = null
|
||||
LET movi[idx].cod_sec = null
|
||||
LET movi[idx].cantidad_1 = null
|
||||
LET movi[idx].cantidad_2 = null
|
||||
LET movi[idx].no_embarque = null
|
||||
END FOR
|
||||
SLEEP 2
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
# Chequea que el conduce y la factura no este en blanco
|
||||
IF datos_gen.conduce_no IS NULL AND datos_gen.fact_no IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD conduce_no
|
||||
END IF
|
||||
|
||||
EXIT INPUT
|
||||
END INPUT
|
||||
|
||||
IF opc = "S" or opc = "s" OR opc IS NULL THEN
|
||||
FOR idx = 1 to arr_count()
|
||||
LET movi[idx].cod_n = null
|
||||
LET movi[idx].cod_grupo = null
|
||||
LET movi[idx].cod_tipo = null
|
||||
LET movi[idx].cod_sec = null
|
||||
LET movi[idx].cantidad_2 = null
|
||||
LET movi[idx].cantidad_1 = null
|
||||
LET movi[idx].no_embarque = null
|
||||
END FOR
|
||||
END IF
|
||||
|
||||
# Si las informaciones estan correctas cuando se digite el proximo documento
|
||||
# busca la orden especificada
|
||||
IF opc = "S" or opc = "s" or opc IS NULL THEN
|
||||
DECLARE locales CURSOR FOR
|
||||
SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad,a.cantidad,
|
||||
a.cod_n," ",a.cod_n
|
||||
FROM cotb00015 a
|
||||
WHERE a.tipo = datos_gen.tipo and a.num_oc = datos_gen.orden_compra
|
||||
ORDER BY 1,2,3,4,8
|
||||
|
||||
LET idx = 1
|
||||
FOREACH locales INTO movi[idx].*
|
||||
|
||||
IF idx = 1 THEN
|
||||
IF datos_gen.tipo = "01" THEN
|
||||
SELECT unidad_med, descrip_esp INTO unidad, descrip_espa
|
||||
FROM intb00001
|
||||
WHERE cod_n=movi[idx].cod_n and cod_grupo = movi[idx].cod_grupo and
|
||||
cod_tipo = movi[idx].cod_tipo and cod_sec = movi[idx].cod_sec
|
||||
END IF
|
||||
IF datos_gen.tipo = "02" THEN
|
||||
SELECT unidad_med, descrip_esp INTO unidad, descrip_espa
|
||||
FROM iptb00002
|
||||
WHERE cod_n=movi[idx].cod_n and cod_grupo = movi[idx].cod_grupo and
|
||||
cod_tipo = movi[idx].cod_tipo and cod_sec = movi[idx].cod_sec
|
||||
END IF
|
||||
|
||||
LET descripcion_f = descrip_espa clipped," ",unidad clipped
|
||||
DISPLAY BY NAME descripcion_f ATTRIBUTE (CYAN)
|
||||
END IF
|
||||
|
||||
IF datos_gen.tipo = "01" THEN
|
||||
SELECT sum(a.cantidad_2) INTO recibida FROM intb00006 a
|
||||
WHERE (a.orden_compra =datos_gen.orden_compra) and
|
||||
(a.cod_n = movi[idx].cod_n) and
|
||||
(a.cod_grupo = movi[idx].cod_grupo) and
|
||||
(a.cod_tipo=movi[idx].cod_tipo) and
|
||||
(a.cod_sec=movi[idx].cod_sec) and a.status_t IS null
|
||||
END IF
|
||||
IF datos_gen.tipo = "02" THEN
|
||||
SELECT sum(a.cantidad_2) INTO recibida FROM iptb00006 a
|
||||
WHERE (a.orden_compra =datos_gen.orden_compra) and
|
||||
(a.cod_n = movi[idx].cod_n) and
|
||||
(a.cod_grupo = movi[idx].cod_grupo) and
|
||||
(a.cod_tipo=movi[idx].cod_tipo) and
|
||||
(a.cod_sec=movi[idx].cod_sec) and a.status_t IS null
|
||||
END IF
|
||||
|
||||
IF recibida IS NULL THEN
|
||||
LET recibida = 0
|
||||
END IF
|
||||
LET movi[idx].cod_mov = null
|
||||
LET movi[idx].cantidad_2 = null
|
||||
LET movi[idx].pendiente = movi[idx].cantidad_1 - recibida
|
||||
LET idx = idx + 1
|
||||
END FOREACH
|
||||
END IF
|
||||
|
||||
# CAPTURA ARREGLO DE LOS CODIGOS DE MATERIA PRIMA
|
||||
|
||||
LET primera = "S"
|
||||
CALL set_count(idx - 1)
|
||||
INPUT ARRAY movi WITHOUT DEFAULTS FROM s_movi1.*
|
||||
BEFORE ROW
|
||||
LET p_act = arr_curr()
|
||||
LET scr_l = scr_line()
|
||||
|
||||
AFTER FIELD cantidad_2
|
||||
|
||||
# Verifica que la cantidad recibida mas las que se han recibida de
|
||||
# la orden no exceda de un 10% de la cantidad total de la orden
|
||||
|
||||
IF movi[p_act].cantidad_2 IS NOT NULL THEN
|
||||
IF movi[p_act].cantidad_2 < 0 THEN
|
||||
LET movi[p_act].cantidad_2 = 0
|
||||
END IF
|
||||
|
||||
IF datos_gen.tipo = "01" THEN
|
||||
SELECT unidad_med, descrip_esp INTO unidad, descrip_espa
|
||||
FROM intb00001
|
||||
WHERE cod_n = movi[idx].cod_n and cod_grupo = movi[idx].cod_grupo and
|
||||
cod_tipo = movi[idx].cod_tipo and cod_sec = movi[idx].cod_sec
|
||||
END IF
|
||||
IF datos_gen.tipo = "02" THEN
|
||||
SELECT unidad_med, descrip_esp INTO unidad, descrip_espa
|
||||
FROM iptb00002
|
||||
WHERE cod_n = movi[idx].cod_n and cod_grupo = movi[idx].cod_grupo and
|
||||
cod_tipo = movi[idx].cod_tipo and cod_sec = movi[idx].cod_sec
|
||||
END IF
|
||||
|
||||
LET descripcion_f = descrip_espa clipped," ",unidad clipped
|
||||
|
||||
LET recibida = 0
|
||||
IF datos_gen.tipo = "01" THEN
|
||||
SELECT SUM(cantidad_2) INTO recibida FROM intb00006
|
||||
WHERE orden_compra =datos_gen.orden_compra and
|
||||
cod_n=movi[p_act].cod_n and cod_grupo=movi[p_act].cod_grupo and
|
||||
cod_tipo=movi[p_act].cod_tipo and cod_sec=movi[p_act].cod_sec
|
||||
and status_t IS null
|
||||
END IF
|
||||
IF datos_gen.tipo = "02" THEN
|
||||
SELECT SUM(cantidad_2) INTO recibida FROM iptb00006
|
||||
WHERE orden_compra =datos_gen.orden_compra and
|
||||
cod_n=movi[p_act].cod_n and cod_grupo=movi[p_act].cod_grupo and
|
||||
cod_tipo=movi[p_act].cod_tipo and cod_sec=movi[p_act].cod_sec
|
||||
and status_t IS null
|
||||
END IF
|
||||
|
||||
SELECT sum(cantidad) INTO ordenada FROM cotb00015
|
||||
WHERE num_oc = datos_gen.orden_compra and tipo = datos_gen.tipo and
|
||||
cod_n=movi[p_act].cod_n and cod_grupo = movi[p_act].cod_grupo and
|
||||
cod_tipo=movi[p_act].cod_tipo and cod_sec=movi[p_act].cod_sec and
|
||||
status_t IS null
|
||||
|
||||
IF recibida IS NULL THEN
|
||||
LET recibida = 0
|
||||
END IF
|
||||
|
||||
IF ordenada IS NULL THEN
|
||||
LET ordenada = 0
|
||||
END IF
|
||||
|
||||
LET porciento = ordenada * 0.10
|
||||
IF movi[p_act].cantidad_2 IS NOT NULL THEN
|
||||
LET recibida = recibida + movi[p_act].cantidad_2
|
||||
END IF
|
||||
LET r_cantidad = ordenada + porciento
|
||||
|
||||
IF recibida > (movi[p_act].cantidad_1*1.10) THEN
|
||||
LET numero_msg = 28
|
||||
CALL msg(numero_msg)
|
||||
#NEXT FIELD cantidad_2
|
||||
END IF
|
||||
END IF
|
||||
|
||||
AFTER FIELD cod_mov
|
||||
IF movi[p_act].cantidad_2 IS NOT NULL THEN
|
||||
IF movi[p_act].cod_mov IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD cod_mov
|
||||
END IF
|
||||
|
||||
# Busqueda en la tabla movimientos de productos terminados
|
||||
IF datos_gen.tipo = "01" THEN
|
||||
LET etiqueta = "MATERIAS PRIMAS"
|
||||
SELECT a.descrip_mov INTO datos_gen.descrip_mov FROM intb00005 a
|
||||
WHERE a.cod_mov = movi[p_act].cod_mov AND a.status_t IS NULL
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 3
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD cod_mov
|
||||
END IF
|
||||
|
||||
IF primera = "S" THEN
|
||||
LET primera = "N"
|
||||
SELECT UNIQUE a.num_doc INTO in_ultimo FROM intb00023 a
|
||||
WHERE a.cod_mov = movi[p_act].cod_mov
|
||||
LET in_ultimo = in_ultimo + 1
|
||||
LET datos_gen.num_doc = in_ultimo
|
||||
|
||||
LET documento[p_act] = in_ultimo
|
||||
SELECT UNIQUE num_doc FROM intb00006
|
||||
WHERE num_doc=datos_gen.num_doc and cod_mov=movi[p_act].cod_mov
|
||||
|
||||
IF STATUS != NOTFOUND THEN
|
||||
LET numero_msg = 128
|
||||
CALL msg(numero_msg)
|
||||
RETURN
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
|
||||
IF datos_gen.tipo = "02" THEN
|
||||
LET etiqueta = "PROD. TERMINADOS"
|
||||
SELECT a.descrip_mov INTO datos_gen.descrip_mov FROM iptb00005 a
|
||||
WHERE a.cod_mov = movi[p_act].cod_mov AND a.status_t IS NULL
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 3
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD cod_mov
|
||||
END IF
|
||||
|
||||
IF primera = "S" THEN
|
||||
LET primera = "N"
|
||||
SELECT UNIQUE a.num_doc INTO ip_ultimo FROM iptb00007 a
|
||||
WHERE a.cod_mov = movi[p_act].cod_mov
|
||||
LET ip_ultimo = ip_ultimo + 1
|
||||
LET datos_gen.num_doc = ip_ultimo
|
||||
|
||||
LET documento[p_act] = ip_ultimo
|
||||
SELECT UNIQUE num_doc FROM iptb00006
|
||||
WHERE num_doc=datos_gen.num_doc and cod_mov=movi[p_act].cod_mov
|
||||
|
||||
IF STATUS != NOTFOUND THEN
|
||||
LET numero_msg = 128
|
||||
CALL msg(numero_msg)
|
||||
RETURN
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
# Busqueda del ultimo numero del reporte de entrada de Producto Terminados
|
||||
|
||||
DISPLAY BY NAME datos_gen.num_doc,datos_gen.descrip_mov ATTRIBUTE(CYAN)
|
||||
END IF
|
||||
AFTER INPUT
|
||||
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = false
|
||||
|
||||
FOR idx = 1 to arr_count()
|
||||
LET movi[idx].cod_n = null
|
||||
LET movi[idx].cod_grupo = null
|
||||
LET movi[idx].cod_tipo = null
|
||||
LET movi[idx].cod_sec = null
|
||||
LET movi[idx].cantidad_1 = null
|
||||
LET movi[idx].cantidad_2 = null
|
||||
LET movi[idx].no_embarque = null
|
||||
END FOR
|
||||
SLEEP 2
|
||||
RETURN
|
||||
END IF
|
||||
IF datos_gen.num_doc IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
GOTO otra_vez
|
||||
END IF
|
||||
|
||||
FOR idx = 1 to arr_count()
|
||||
IF movi[idx].cantidad_2 IS NOT NULL THEN
|
||||
LET total_cantidad = movi[idx].cantidad_2 + total_cantidad
|
||||
END IF
|
||||
|
||||
END FOR
|
||||
|
||||
EXIT INPUT
|
||||
END INPUT
|
||||
|
||||
LET recibida = 0
|
||||
LET ordenada = 0
|
||||
PROMPT "Toda la Informacion Esta Correcta? (S/N)" FOR CHAR opc
|
||||
|
||||
IF OPC = "S" or OPC = "s" THEN
|
||||
PROMPT "Desea Imprimir Este Documento? (S/N)" FOR CHAR opc1
|
||||
LET opc1 = upshift(opc1)
|
||||
IF opc1 = "S" THEN
|
||||
START REPORT entrada_imp TO "c:\\almt6"
|
||||
END IF
|
||||
|
||||
# Busca la cantidad recibida de la orden especificada
|
||||
IF datos_gen.tipo = "01" THEN
|
||||
SELECT sum(cantidad_2) INTO ip_recibida FROM intb00006
|
||||
WHERE orden_compra=datos_gen.orden_compra and tipo=datos_gen.tipo and
|
||||
status_t IS null
|
||||
END IF
|
||||
|
||||
IF datos_gen.tipo = "02" THEN
|
||||
SELECT sum(cantidad_2) INTO ip_recibida FROM iptb00006
|
||||
WHERE orden_compra=datos_gen.orden_compra and tipo=datos_gen.tipo and
|
||||
status_t IS null
|
||||
END IF
|
||||
LET recibida = ip_recibida
|
||||
|
||||
# Busca la cantidad ordenada de la orden especificada
|
||||
SELECT sum(a.cantidad) INTO ordenada FROM cotb00015 a
|
||||
WHERE a.num_oc = datos_gen.orden_compra and a.tipo = datos_gen.tipo and
|
||||
a.status_t IS null
|
||||
|
||||
IF recibida IS NULL THEN
|
||||
LET recibida = 0
|
||||
END IF
|
||||
|
||||
IF ordenada IS NULL THEN
|
||||
LET ordenada = 0
|
||||
END IF
|
||||
|
||||
# Calculo de los porcentaje limites de las ordenes
|
||||
LET porciento = ordenada * 0.10
|
||||
LET recibida = recibida + total_cantidad
|
||||
LET r_cantidad = ordenada - porciento
|
||||
LET r_cantidad1 = ordenada + porciento
|
||||
|
||||
# Si la cantidad recibida producto de la sumatoria y subtracion del 10%
|
||||
# es mayor o igual a la cantidad recibida y menor o igual a la cantidad de
|
||||
# la orden cierra la orden
|
||||
IF recibida >= r_cantidad and recibida <= r_cantidad1 THEN
|
||||
LET cerrada = "S"
|
||||
END IF
|
||||
LET primera = "S"
|
||||
|
||||
FOR idx = 1 TO arr_count()
|
||||
|
||||
IF movi[idx].cantidad_2 IS NOT NULL AND movi[idx].cantidad_2 <> 0 THEN
|
||||
# Actualizacion de las tablas de Productos terminados
|
||||
IF datos_gen.tipo = "02" THEN
|
||||
INSERT INTO iptb00006
|
||||
VALUES ("1",datos_gen.num_doc,datos_gen.fecha,datos_gen.fact_no,
|
||||
datos_gen.conduce_no,datos_gen.tipo,datos_gen.orden_compra,
|
||||
datos_gen.cod_sp, datos_gen.cod_sp_sec,null,null,null,null,
|
||||
movi[idx].cod_mov,null,movi[idx].cod_n,movi[idx].cod_grupo,
|
||||
movi[idx].cod_tipo,movi[idx].cod_sec,movi[idx].cantidad_1,
|
||||
movi[idx].cantidad_2,null,null,datos_gen.bodega,
|
||||
null,user,current,null,null)
|
||||
|
||||
SELECT a.num_doc FROM iptb00007 a
|
||||
WHERE a.cod_mov = movi[idx].cod_mov
|
||||
IF status != notfound THEN
|
||||
UPDATE iptb00007 set num_doc = datos_gen.num_doc
|
||||
WHERE cod_mov = movi[idx].cod_mov
|
||||
ELSE
|
||||
INSERT INTO iptb00007 VALUES
|
||||
(datos_gen.num_doc,movi[idx].cod_mov,null,user,current,
|
||||
null,null)
|
||||
END IF
|
||||
END IF
|
||||
IF datos_gen.tipo = "01" THEN
|
||||
INSERT INTO intb00006
|
||||
VALUES (datos_gen.num_doc,datos_gen.fecha,datos_gen.fact_no,
|
||||
datos_gen.conduce_no,datos_gen.orden_compra,datos_gen.tipo,
|
||||
datos_gen.cod_sp, datos_gen.cod_sp_sec,movi[idx].cod_mov,
|
||||
movi[idx].cod_n,movi[idx].cod_grupo,
|
||||
movi[idx].cod_tipo,movi[idx].cod_sec,
|
||||
movi[idx].cantidad_1,
|
||||
movi[idx].cantidad_2,null,null,null,null,null,
|
||||
datos_gen.bodega,
|
||||
null,user,current,null,null)
|
||||
SELECT a.num_doc FROM intb00023 a
|
||||
WHERE a.cod_mov = movi[idx].cod_mov
|
||||
IF status != notfound THEN
|
||||
UPDATE intb00023 set num_doc = datos_gen.num_doc
|
||||
WHERE cod_mov = movi[idx].cod_mov
|
||||
ELSE
|
||||
INSERT INTO intb00023 VALUES
|
||||
(datos_gen.num_doc,movi[idx].cod_mov,null,user,current,
|
||||
null,null)
|
||||
END IF
|
||||
|
||||
END IF
|
||||
END IF
|
||||
IF opc1 = "S" THEN
|
||||
OUTPUT TO REPORT entrada_imp(movi[idx].*)
|
||||
END IF
|
||||
END FOR
|
||||
|
||||
IF opc1 = "S" THEN
|
||||
FINISH REPORT entrada_imp
|
||||
END IF
|
||||
RUN "type c:\\almt6 > %USPRINT%"
|
||||
|
||||
# Actualiza la tabla de ordenes para cerrarla si la variable cerrada = "S"
|
||||
|
||||
IF cerrada = "S" THEN
|
||||
UPDATE cotb00014 set cierre = cerrada
|
||||
WHERE num_oc = datos_gen.orden_compra and tipo = datos_gen.tipo
|
||||
END IF
|
||||
|
||||
FOR idx = 1 to 5
|
||||
LET movi[idx].cod_n = null
|
||||
LET movi[idx].cod_grupo = null
|
||||
LET movi[idx].cod_tipo = null
|
||||
LET movi[idx].cod_sec = null
|
||||
LET movi[idx].cantidad_1 = null
|
||||
LET movi[idx].cantidad_2 = null
|
||||
LET movi[idx].no_embarque = null
|
||||
DISPLAY movi[idx].cod_n to s_movi1[idx].cod_n
|
||||
DISPLAY movi[idx].cod_grupo to s_movi1[idx].cod_grupo
|
||||
DISPLAY movi[idx].cod_tipo to s_movi1[idx].cod_tipo
|
||||
DISPLAY movi[idx].cod_sec to s_movi1[idx].cod_sec
|
||||
DISPLAY movi[idx].no_embarque to s_movi1[idx].no_embarque
|
||||
END FOR
|
||||
LET numero_msg = 1
|
||||
CALL msg(numero_msg)
|
||||
CLEAR FORM
|
||||
END IF
|
||||
|
||||
GOTO otra_vez
|
||||
|
||||
END FUNCTION
|
||||
{
|
||||
----------------------------------------------------------------------------
|
||||
PROGRAMA : PRD
|
||||
OBJETIVO : Controlar las operaciones que se hagan anterior a una fecha
|
||||
de corte.
|
||||
REALIZADO POR : Ing. Juan Fco. Soto.
|
||||
FECHA : Noviembre 4, 1992.
|
||||
---------------------------------------------------------------------------
|
||||
}
|
||||
FUNCTION prd(p_fechas)
|
||||
DEFINE p_fechas CHAR(6)
|
||||
DEFINE comp_fech,comp_fech1 DATE
|
||||
DEFINE mes_control CHAR(2)
|
||||
DEFINE mes_calc SMALLINT
|
||||
DEFINE fecha_c CHAR(6)
|
||||
DEFINE c_ano,a_ano CHAR(4)
|
||||
|
||||
LET a_ano = year(p_fechas)
|
||||
LET mes_control = MONTH(today)
|
||||
LET mes_calc = mes_control
|
||||
|
||||
IF mes_calc = 01 THEN
|
||||
LET mes_calc = 13
|
||||
LET a_ano = year(today - 32)
|
||||
END IF
|
||||
|
||||
LET mes_calc = mes_calc - 2
|
||||
|
||||
IF mes_calc <= 0 THEN
|
||||
LET mes_calc = 12
|
||||
LET a_ano = year(today) - 1
|
||||
END IF
|
||||
|
||||
LET c_ano = year(today)
|
||||
{IF a_ano != c_ano THEN
|
||||
LET numero_msg = 59
|
||||
CALL msg(numero_msg)
|
||||
LET bandera = 1
|
||||
RETURN
|
||||
END IF}
|
||||
|
||||
SELECT fecha_corte INTO fecha_c FROM prdtable
|
||||
WHERE mes = mes_calc AND ano = a_ano
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 58
|
||||
CALL msg(numero_msg)
|
||||
LET bandera = 1
|
||||
END IF
|
||||
LET comp_fech1 = fecha_c
|
||||
LET comp_fech = p_fechas
|
||||
{
|
||||
IF comp_fech < comp_fech1 THEN
|
||||
LET numero_msg = 57
|
||||
CALL msg(numero_msg)
|
||||
LET bandera = 1
|
||||
END IF
|
||||
}
|
||||
END FUNCTION
|
||||
{
|
||||
Esta funcion se utiliza para desplegar mensajes de errores en todos
|
||||
los sistemas de Ray-O-Vac Dominicana.
|
||||
Esta funcion busca el mensaje deseado en la tabla "msgtable" y lo
|
||||
despliega en la linea de mensajes
|
||||
}
|
||||
FUNCTION msg(numero_msg)
|
||||
DEFINE numero_msg SMALLINT
|
||||
DEFINE descripcion CHAR (60)
|
||||
SELECT desc_msg INTO descripcion FROM msgtable
|
||||
WHERE cod_msg = numero_msg
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 22
|
||||
SELECT desc_msg INTO descripcion FROM msgtable
|
||||
WHERE cod_msg = numero_msg
|
||||
ERROR descripcion attribute (bold)
|
||||
ELSE
|
||||
ERROR descripcion attribute (bold)
|
||||
LET numero_msg = 0
|
||||
END IF
|
||||
END FUNCTION
|
||||
FUNCTION integridad()
|
||||
IF sqlca.sqlcode < 0 THEN
|
||||
LET numero_msg = sqlca.sqlcode
|
||||
CALL msg(numero_msg)
|
||||
DISPLAY numero_msg AT 23,70
|
||||
LET bandera = 1
|
||||
SLEEP 2
|
||||
RETURN
|
||||
END IF
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION no_existe()
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 3
|
||||
CALL msg(numero_msg)
|
||||
LET verdad = "S"
|
||||
END IF
|
||||
|
||||
CALL integridad()
|
||||
|
||||
END FUNCTION
|
||||
|
||||
REPORT entrada_imp(z)
|
||||
|
||||
DEFINE x RECORD
|
||||
num_doc LIKE iptb00006.num_doc,
|
||||
tipo LIKE iptb00006.tipo,
|
||||
orden_compra LIKE iptb00006.orden_compra,
|
||||
cod_sp LIKE iptb00006.cod_sp,
|
||||
cod_sp_sec LIKE iptb00006.cod_sp_sec,
|
||||
conduce_no LIKE iptb00006.conduce_no,
|
||||
fact_no LIKE iptb00006.fact_no,
|
||||
fecha LIKE iptb00006.fecha,
|
||||
bodega LIKE iptb00006.bodega,
|
||||
nom_sp LIKE cotb00001.nom_sp,
|
||||
descrip_mov LIKE iptb00005.descrip_mov
|
||||
END RECORD
|
||||
|
||||
DEFINE z RECORD
|
||||
cod_n LIKE iptb00006.cod_n,
|
||||
cod_grupo LIKE iptb00006.cod_grupo,
|
||||
cod_tipo LIKE iptb00006.cod_tipo,
|
||||
cod_sec LIKE iptb00006.cod_sec,
|
||||
cantidad_1 LIKE iptb00006.cantidad_1,
|
||||
cantidad_2 LIKE iptb00006.cantidad_2,
|
||||
cod_mov SMALLINT,
|
||||
no_embarque CHAR(8),
|
||||
pendiente DECIMAL(12,3)
|
||||
END RECORD
|
||||
|
||||
DEFINE etiq, unidad CHAR(20)
|
||||
DEFINE doc INTEGER
|
||||
DEFINE recibida1 DECIMAL(12,3)
|
||||
DEFINE l SMALLINT
|
||||
DEFINE comp_on,comp_off,doce,normal,negras_of,negras_on,doble_on,doble_of CHAR(2)
|
||||
DEFINE unidades INTEGER
|
||||
|
||||
OUTPUT
|
||||
TOP MARGIN 0
|
||||
BOTTOM MARGIN 0
|
||||
LEFT MARGIN 0
|
||||
|
||||
FORMAT
|
||||
#BEFORE GROUP OF doc
|
||||
PAGE HEADER
|
||||
LET comp_on = ASCII 15
|
||||
LET comp_off = ASCII 18
|
||||
LET negras_on = ASCII 27, ASCII 69
|
||||
LET negras_of = ASCII 27, ASCII 70
|
||||
LET doble_on = ASCII 14
|
||||
LET doble_of = ASCII 20
|
||||
LET normal = ASCII 27, ASCII 80
|
||||
LET doce = ASCII 27, ASCII 77
|
||||
|
||||
PRINT normal
|
||||
PRINT COLUMN 1,negras_on,doble_on,
|
||||
COLUMN 1,p_companias.nombre CLIPPED," RNC. ",
|
||||
p_companias.rnc CLIPPED,doble_of,negras_of
|
||||
PRINT COLUMN 58, "REPORTE DE ENTRADA"
|
||||
LET etiq = etiqueta clipped
|
||||
LET l = (80 - LENGTH(etiq))/2
|
||||
PRINT COLUMN 58, "No.",doble_on,datos_gen.num_doc USING "&&&&&&"
|
||||
|
||||
LET l = (80 - LENGTH(datos_gen.descrip_mov))/2
|
||||
|
||||
PRINT COLUMN l, negras_on,datos_gen.descrip_mov,negras_of
|
||||
|
||||
SKIP 1 LINE
|
||||
PRINT COLUMN 1, "Fecha : ",datos_gen.fecha USING "dd/mm/yy",
|
||||
COLUMN 49, "Orden de Compra: ",datos_gen.tipo,"-",
|
||||
datos_gen.orden_compra USING "&&&&&&"
|
||||
|
||||
PRINT COLUMN 1, "Proveedor : ",datos_gen.cod_sp USING "&&","-",
|
||||
datos_gen.cod_sp_sec USING "&&&&"," ",
|
||||
datos_gen.nom_sp[1,30]
|
||||
PRINT COLUMN 1, "Conduce : ",datos_gen.conduce_no clipped,
|
||||
COLUMN 49, "Factura : ",datos_gen.fact_no clipped
|
||||
|
||||
PRINT COLUMN 1, "=====================================================",
|
||||
"==========================="
|
||||
PRINT COLUMN 1, doce,
|
||||
COLUMN 23, "CANTIDAD",
|
||||
COLUMN 38, "CANTIDAD",
|
||||
COLUMN 53, "CANTIDAD"
|
||||
|
||||
PRINT COLUMN 1, "CODIGO",
|
||||
COLUMN 21, "ORDENADA",
|
||||
COLUMN 36, "RECIBIDA",
|
||||
COLUMN 51, "PENDIENTE",
|
||||
COLUMN 61, "D E S C R I P C I O N"
|
||||
|
||||
PRINT COLUMN 36, "EN DOCUM.",
|
||||
COLUMN 51, "ORDEN",normal
|
||||
|
||||
|
||||
PRINT COLUMN 1, "=====================================================",
|
||||
"==========================="
|
||||
PRINT doce
|
||||
ON EVERY ROW
|
||||
LET recibida1 = 0
|
||||
LET descrip_espa = " "
|
||||
SELECT unidad_med, descrip_esp INTO unidad, descrip_espa
|
||||
FROM intb00001
|
||||
WHERE cod_n = z.cod_n and cod_grupo = z.cod_grupo and
|
||||
cod_tipo = z.cod_tipo and cod_sec = z.cod_sec
|
||||
|
||||
LET descripcion_f = descrip_espa clipped," ",unidad clipped
|
||||
PRINT COLUMN 1, z.cod_n USING "&","-",z.cod_grupo USING "&","-",
|
||||
z.cod_tipo USING "&&","-",z.cod_sec USING "&&&",
|
||||
COLUMN 16, z.cantidad_1 USING "##,###,###.###",
|
||||
COLUMN 31, z.cantidad_2 USING "##,###,###.###",
|
||||
COLUMN 47, z.pendiente-z.cantidad_2 USING "--,---,---.###",
|
||||
COLUMN 63, comp_on,descripcion_f,comp_off
|
||||
|
||||
PAGE TRAILER
|
||||
PRINT normal
|
||||
PRINT COLUMN 1,"OBSERVACION :"
|
||||
|
||||
PRINT
|
||||
PRINT COLUMN 1,
|
||||
"--------------------------------------------------------------------------"
|
||||
PRINT
|
||||
PRINT COLUMN 1,
|
||||
"--------------------------------------------------------------------------"
|
||||
PRINT
|
||||
PRINT COLUMN 1,
|
||||
"--------------------------------------------------------------------------"
|
||||
|
||||
SKIP 3 LINE
|
||||
|
||||
ON LAST ROW
|
||||
PRINT normal
|
||||
END REPORT
|
||||
@@ -0,0 +1,104 @@
|
||||
{
|
||||
===========================================================================
|
||||
PROGRAMA: ALPRPC001
|
||||
OBJETIVO: CIERRE DE TODOS LOS INVENTARIOS EXISTENTES EN LA EMPRESA.
|
||||
PROGRAMADOR: JUAN F. SOTO
|
||||
FECHA : NOVIEMBRE 28, 1994
|
||||
==========================================================================
|
||||
}
|
||||
DATABASE rayovac
|
||||
GLOBALS
|
||||
DEFINE nombre_tabla,tabla_histo CHAR(9)
|
||||
DEFINE columnas RECORD LIKE syscolumns.*
|
||||
DEFINE tablas RECORD LIKE systables.*
|
||||
DEFINE i,idx,p_ano SMALLINT
|
||||
DEFINE inserta,selec CHAR(100)
|
||||
DEFINE opt1 CHAR(1)
|
||||
DEFINE fecha_inicial,fecha_final DATE
|
||||
|
||||
END GLOBALS
|
||||
|
||||
MAIN
|
||||
CALL busca_datos()
|
||||
END MAIN
|
||||
|
||||
FUNCTION busca_datos()
|
||||
CLEAR SCREEN
|
||||
OPTIONS
|
||||
PROMPT LINE 8
|
||||
|
||||
DISPLAY "R A Y .O. V A C D O M I N I C A N A, S. A." AT 1,19 ATTRIBUTE(BOLD)
|
||||
DISPLAY "CIERRE INVENTARIOS" AT 2,25 ATTRIBUTE(BOLD)
|
||||
|
||||
PROMPT "Entre Nombre De la Tabla A Cerrar? " FOR nombre_tabla
|
||||
PROMPT "Entre Nombre De la Tabla Historica? " FOR tabla_histo
|
||||
PROMPT "Entre Ano A Cerrar? " FOR p_ano
|
||||
DISPLAY "El Programa Listara las columnas que pertenezcan a la tabla"
|
||||
AT 14,1
|
||||
DISPLAY "que se va a cerrar las columnas que pertenezcan al la tabla"
|
||||
AT 14,1
|
||||
LET selec = "SELECT * FROM systables ",
|
||||
"WHERE tabname = ? "
|
||||
|
||||
PREPARE comando1 FROM selec
|
||||
DECLARE busca1 CURSOR FOR comando1
|
||||
OPEN busca1 USING nombre_tabla
|
||||
|
||||
FETCH busca1 INTO tablas.*
|
||||
DECLARE busca2 CURSOR FOR
|
||||
SELECT * FROM syscolumns
|
||||
WHERE @tabid = tablas.tabid
|
||||
|
||||
LET idx = 12
|
||||
DISPLAY nombre_tabla at 10,1
|
||||
DISPLAY "=====================" AT 11,1
|
||||
FOREACH busca2 INTO columnas.*
|
||||
|
||||
IF idx < 24 THEN
|
||||
DISPLAY columnas.colname AT idx,1
|
||||
ELSE
|
||||
PROMPT "Presione <Enter> Para Continuar" for opt1
|
||||
LET idx = 12
|
||||
FOR i =1 TO 24
|
||||
if idx < 24 then
|
||||
DISPLAY " " AT idx,1
|
||||
LET idx = idx + 1
|
||||
end if
|
||||
END FOR
|
||||
LET idx = 12
|
||||
END IF
|
||||
LET idx = idx + 1
|
||||
END FOREACH
|
||||
PROMPT "Entre Nombre Columna control periodo? " for columnas.colname
|
||||
|
||||
PROMPT "Deseas Proseguir Con este Proceso? " FOR opt1
|
||||
LET opt1 = upshift(opt1)
|
||||
|
||||
IF opt1 != "S" THEN
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
SELECT fecha_inicio INTO fecha_inicial
|
||||
FROM prdtable
|
||||
WHERE ano = p_ano and mes = 1
|
||||
|
||||
SELECT fecha_corte INTO fecha_final
|
||||
FROM prdtable
|
||||
WHERE ano = p_ano and mes = 12
|
||||
|
||||
LET borra = "DELETE FROM ",tabla_histo clipped,
|
||||
"WHERE ",columnas.colname clipped,
|
||||
" between ? and ? "
|
||||
|
||||
LET inserta = "INSERT INTO ",tabla_histo,
|
||||
" SELECT *FROM ",nombre_tabla,
|
||||
" WHERE ",columnas.colname clipped,
|
||||
" between ? and ? "
|
||||
|
||||
display "En Proceso... Espere" at 20,1
|
||||
PREPARE comando3 FROM borra
|
||||
PREPARE comando2 FROM inserta
|
||||
|
||||
EXECUTE comando2 USING fecha_inicial,fecha_final
|
||||
EXECUTE comando3 USING fecha_inicial,fecha_final
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,113 @@
|
||||
{
|
||||
===========================================================================
|
||||
PROGRAMA: ALPRPC001
|
||||
OBJETIVO: CIERRE DE TODOS LOS INVENTARIOS EXISTENTES EN LA EMPRESA.
|
||||
PROGRAMADOR: JUAN F. SOTO
|
||||
FECHA : NOVIEMBRE 28, 1994
|
||||
==========================================================================
|
||||
}
|
||||
DATABASE rayovac
|
||||
GLOBALS
|
||||
|
|
||||
| Database not found or no system permission.
|
||||
| See error number -329.
|
||||
|
|
||||
| The database "rayovac" cannot be found or opened. If the database
|
||||
| exists, check the database permissions on the database. In
|
||||
| addition, check the system permissions on the database directory
|
||||
| and its ascendant directories.
|
||||
| See error number -4305.
|
||||
DEFINE nombre_tabla,tabla_histo CHAR(9)
|
||||
DEFINE columnas RECORD LIKE syscolumns.*
|
||||
DEFINE tablas RECORD LIKE systables.*
|
||||
DEFINE i,idx,p_ano SMALLINT
|
||||
DEFINE inserta,selec CHAR(100)
|
||||
DEFINE opt1 CHAR(1)
|
||||
DEFINE fecha_inicial,fecha_final DATE
|
||||
|
||||
END GLOBALS
|
||||
|
||||
MAIN
|
||||
CALL busca_datos()
|
||||
END MAIN
|
||||
|
||||
FUNCTION busca_datos()
|
||||
CLEAR SCREEN
|
||||
OPTIONS
|
||||
PROMPT LINE 8
|
||||
|
||||
DISPLAY "R A Y .O. V A C D O M I N I C A N A, S. A." AT 1,19 ATTRIBUTE(BOLD)
|
||||
DISPLAY "CIERRE INVENTARIOS" AT 2,25 ATTRIBUTE(BOLD)
|
||||
|
||||
PROMPT "Entre Nombre De la Tabla A Cerrar? " FOR nombre_tabla
|
||||
PROMPT "Entre Nombre De la Tabla Historica? " FOR tabla_histo
|
||||
PROMPT "Entre Ano A Cerrar? " FOR p_ano
|
||||
DISPLAY "El Programa Listara las columnas que pertenezcan a la tabla"
|
||||
AT 14,1
|
||||
DISPLAY "que se va a cerrar las columnas que pertenezcan al la tabla"
|
||||
AT 14,1
|
||||
LET selec = "SELECT * FROM systables ",
|
||||
"WHERE tabname = ? "
|
||||
|
||||
PREPARE comando1 FROM selec
|
||||
DECLARE busca1 CURSOR FOR comando1
|
||||
OPEN busca1 USING nombre_tabla
|
||||
|
||||
FETCH busca1 INTO tablas.*
|
||||
DECLARE busca2 CURSOR FOR
|
||||
SELECT * FROM syscolumns
|
||||
WHERE @tabid = tablas.tabid
|
||||
|
||||
LET idx = 12
|
||||
DISPLAY nombre_tabla at 10,1
|
||||
DISPLAY "=====================" AT 11,1
|
||||
FOREACH busca2 INTO columnas.*
|
||||
|
||||
IF idx < 24 THEN
|
||||
DISPLAY columnas.colname AT idx,1
|
||||
ELSE
|
||||
PROMPT "Presione <Enter> Para Continuar" for opt1
|
||||
LET idx = 12
|
||||
FOR i =1 TO 24
|
||||
if idx < 24 then
|
||||
DISPLAY " " AT idx,1
|
||||
LET idx = idx + 1
|
||||
end if
|
||||
END FOR
|
||||
LET idx = 12
|
||||
END IF
|
||||
LET idx = idx + 1
|
||||
END FOREACH
|
||||
PROMPT "Entre Nombre Columna control periodo? " for columnas.colname
|
||||
|
||||
PROMPT "Deseas Proseguir Con este Proceso? " FOR opt1
|
||||
LET opt1 = upshift(opt1)
|
||||
|
||||
IF opt1 != "S" THEN
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
SELECT fecha_inicio INTO fecha_inicial
|
||||
FROM prdtable
|
||||
WHERE ano = p_ano and mes = 1
|
||||
|
||||
SELECT fecha_corte INTO fecha_final
|
||||
FROM prdtable
|
||||
WHERE ano = p_ano and mes = 12
|
||||
|
||||
LET borra = "DELETE FROM ",tabla_histo clipped,
|
||||
"WHERE ",columnas.colname clipped,
|
||||
" between ? and ? "
|
||||
|
||||
LET inserta = "INSERT INTO ",tabla_histo,
|
||||
" SELECT *FROM ",nombre_tabla,
|
||||
" WHERE ",columnas.colname clipped,
|
||||
" between ? and ? "
|
||||
|
||||
display "En Proceso... Espere" at 20,1
|
||||
PREPARE comando3 FROM borra
|
||||
PREPARE comando2 FROM inserta
|
||||
|
||||
EXECUTE comando2 USING fecha_inicial,fecha_final
|
||||
EXECUTE comando3 USING fecha_inicial,fecha_final
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,20 @@
|
||||
{
|
||||
FUNCION : ambienteFacturacion
|
||||
OBETIVO : Identificar el ambiente a enviar los XML a la dgii
|
||||
DESARROLLADO POR: Ing. Juan Soto
|
||||
FECHA : 14/02/2026
|
||||
|
||||
}
|
||||
|
||||
FUNCTION ambiente()
|
||||
DEFINE qcompania STRING,
|
||||
ambiente VARCHAR(50)
|
||||
|
||||
LET qcompania = "select a.ambienteDgii FROM ndeco.dbo.companias a"
|
||||
|
||||
PREPARE bcompania FROM qcompania
|
||||
EXECUTE bcompania INTO ambiente
|
||||
|
||||
RETURN ambiente
|
||||
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,286 @@
|
||||
MAIN
|
||||
DEFER INTERRUPT
|
||||
CONNECT to "decomarmol" USER 'jsoto' USING 'lmmjvsd2014'
|
||||
|
||||
# Esta funcion busca las facturas de los clientes y aplica los avances en las cuentas por cobrar
|
||||
# En exterior
|
||||
# CALL busca_facturas_exterior()
|
||||
# CONSOLIDADO
|
||||
# CALL busca_facturas_consolidado()
|
||||
# Funcion analiza las facturas con balances en negativo o positivo de los clientes que su balance
|
||||
#esta en cero.
|
||||
# CALL busca_balance_cero()
|
||||
# APLICACION AVANCES POR AGOTAMIENTO DE VALOR
|
||||
CALL aplica_avance_balances()
|
||||
END MAIN
|
||||
|
||||
FUNCTION busca_facturas_consolidado()
|
||||
DEFINE ktipo_cliente,ksec_cliente,kcotizacion,knumero_f INT,
|
||||
balance,valor1,valor2,kvalor_f DEC(12,2),
|
||||
fecha_inicial,kfecha DATE
|
||||
LET fecha_inicial = '01/31/2018'
|
||||
DISPLAY "EN PROCESO...."
|
||||
DECLARE busca_f CURSOR FOR
|
||||
|
||||
SELECT a.tipo_cliente,a.sec_cliente,a.valor,a.num_doc FROM cctb00001 a
|
||||
WHERE a.tipo_Doc IN ('FT','FE') AND a.status_t IS NULL AND
|
||||
a.fecha_orig <= '01/31/2018' AND a.tipo_cliente > 14 AND
|
||||
a.tipo_cliente = 24 AND a.sec_cliente = 8
|
||||
ORDER BY a.tipo_cliente,a.sec_cliente
|
||||
|
||||
FOREACH busca_f INTO ktipo_cliente,ksec_cliente,kvalor_f,knumero_f
|
||||
|
||||
# BUSCA COTIZACION
|
||||
DISPLAY "CLLIENTE ",ktipo_cliente, " ksec ",ksec_cliente," knumero ",knumero_F
|
||||
SELECT a.conduce,CONVERT(CHAR(10),a.fecha_factura,103) INTO kcotizacion,kfecha FROM vetb00002 a WHERE a.status_t IS NULL AND
|
||||
a.factura = knumero_f
|
||||
IF kcotizacion IS NULL THEN
|
||||
SELECT MAX(a.orden),CONVERT(CHAR(10),MAX(a.fecha_factura),103) INTO kcotizacion,kfecha FROM vetb00002 a WHERE a.status_t IS NULL AND
|
||||
a.factura = knumero_f
|
||||
|
||||
END IF
|
||||
CALL busca_avance_co(ktipo_cliente,ksec_cliente,kcotizacion,kvalor_f,knumero_f,kfecha)
|
||||
END FOREACH
|
||||
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION busca_avance_co(ptipo_cliente,psec_cliente,pcotizacion_no,valor_f,pfactura,pfecha)
|
||||
DEFINE ptipo_cliente,psec_cliente,pcotizacion_no,pnum_doc,psec_vend,psucid,pfactura INT,pfecha DATE,
|
||||
valor_f,pvalor,monto_avance DEC(12,2),
|
||||
pusuario VARCHAR(50)
|
||||
|
||||
LET pusuario ='JSOTO'
|
||||
DECLARE busca_av_co CURSOR FOR
|
||||
SELECT a.num_doc, a.valor+monto_desc INTO pnum_doc,pvalor FROM cctb00001 a
|
||||
WHERE a.tipo_cliente = ptipo_cliente AND a.sec_cliente = psec_cliente AND
|
||||
a.banco = pcotizacion_no AND a.tipo_Doc = 'AV'
|
||||
|
||||
FOREACH busca_av_co
|
||||
|
||||
IF pvalor !=0 THEN
|
||||
LET monto_avance = 0
|
||||
SELECT SUM(a.valor+a.monto_desc) INTO monto_avance FROM cctb00001 a
|
||||
WHERE a.num_doc = pnum_doc AND a.tipo_Doc IN ('AV','AP') AND a.status_t IS NULL
|
||||
# Cuando el avance tiene valor pendiente por aplicar
|
||||
IF monto_avance > 0 THEN
|
||||
IF valor_f >= monto_avance THEN
|
||||
LET pvalor = monto_avance
|
||||
ELSE
|
||||
LET pvalor = valor_f
|
||||
END IF
|
||||
DISPLAY "INSERTE ",pfactura," valor ",pvalor
|
||||
INSERT INTO cctb00001 (tipo_doc,num_doc,fecha_orig,tipo_cliente,sec_cliente,aplica_a,num_cheque,cod_emp,cod_emp_sec,
|
||||
valor,monto_desc,us_crea,fech_crea,banco) VALUES
|
||||
('AP',pnum_doc,pfecha,ptipo_cliente,psec_cliente,pfactura,pnum_doc,psucid,psec_vend,pvalor*-1,'0',
|
||||
pusuario,getdate(),pcotizacion_no)
|
||||
END IF
|
||||
END IF
|
||||
END FOREACH
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION busca_facturas_exterior()
|
||||
DEFINE ktipo_cliente,ksec_cliente,kcotizacion,knumero_f,ksucid INT,
|
||||
balance,valor1,valor2,kvalor_f DEC(12,2),
|
||||
fecha_inicial,kfecha DATE
|
||||
LET fecha_inicial = '01/31/2018'
|
||||
DISPLAY "EN PROCESO...."
|
||||
DECLARE busca_f_ex CURSOR FOR
|
||||
|
||||
SELECT a.tipo_cliente,a.sec_cliente,a.valor,a.num_doc,a.sucid FROM cctb00001 a
|
||||
WHERE a.tipo_Doc IN ('FT','FE') AND a.status_t IS NULL AND
|
||||
a.fecha_orig <= '01/31/2018'
|
||||
ORDER BY a.tipo_cliente,a.sec_cliente
|
||||
|
||||
FOREACH busca_f_ex INTO ktipo_cliente,ksec_cliente,kvalor_f,knumero_f,ksucid
|
||||
|
||||
# BUSCA COTIZACION
|
||||
DISPLAY "CLLIENTE ",ktipo_cliente, " ksec ",ksec_cliente," knumero ",knumero_F
|
||||
SELECT a.conduce,CONVERT(CHAR(10),a.fecha_factura,103) INTO kcotizacion,kfecha FROM vetb00002 a WHERE a.status_t IS NULL AND
|
||||
a.factura = knumero_f AND a.sucid = ksucid
|
||||
IF kcotizacion IS NULL THEN
|
||||
SELECT MAX(a.orden),CONVERT(CHAR(10),MAX(a.fecha_factura),103) INTO kcotizacion,kfecha FROM vetb00002 a WHERE a.status_t IS NULL AND
|
||||
a.factura = knumero_f AND a.sucid = ksucid
|
||||
|
||||
END IF
|
||||
CALL busca_avance_ex(ktipo_cliente,ksec_cliente,kcotizacion,kvalor_f,knumero_f,kfecha,ksucid)
|
||||
END FOREACH
|
||||
|
||||
END FUNCTION
|
||||
FUNCTION busca_avance_ex(ptipo_cliente,psec_cliente,pcotizacion_no,valor_f,pfactura,pfecha,psucid)
|
||||
DEFINE ptipo_cliente,psec_cliente,pcotizacion_no,pnum_doc,psec_vend,psucid,pfactura INT,pfecha DATE,
|
||||
valor_f,pvalor,monto_avance DEC(12,2),
|
||||
pusuario VARCHAR(50)
|
||||
|
||||
LET pusuario ='JSOTO'
|
||||
DECLARE busca_av_ex CURSOR FOR
|
||||
SELECT a.num_doc, a.valor+monto_desc INTO pnum_doc,pvalor FROM cctb00001 a
|
||||
WHERE a.tipo_cliente = ptipo_cliente AND a.sec_cliente = psec_cliente AND
|
||||
a.banco = pcotizacion_no AND a.tipo_Doc = 'AV'
|
||||
|
||||
FOREACH busca_av_ex
|
||||
|
||||
IF pvalor !=0 THEN
|
||||
LET monto_avance = 0
|
||||
SELECT SUM(a.valor+a.monto_desc) INTO monto_avance FROM cctb00001 a
|
||||
WHERE a.num_doc = pnum_doc AND a.tipo_Doc IN ('AV','AP') AND a.sucid = psucid AND a.status_t IS NULL
|
||||
# Cuando el avance tiene valor pendiente por aplicar
|
||||
IF monto_avance > 0 THEN
|
||||
IF valor_f >= monto_avance THEN
|
||||
LET pvalor = monto_avance
|
||||
ELSE
|
||||
LET pvalor = valor_f
|
||||
END IF
|
||||
DISPLAY "INSERTE ",pfactura," valor ",pvalor
|
||||
INSERT INTO cctb00001 (tipo_doc,num_doc,fecha_orig,tipo_cliente,sec_cliente,aplica_a,num_cheque,cod_emp,cod_emp_sec,
|
||||
valor,monto_desc,us_crea,fech_crea,banco,sucid) VALUES
|
||||
('AP',pnum_doc,pfecha,ptipo_cliente,psec_cliente,pfactura,pnum_doc,psucid,psec_vend,pvalor*-1,'0',
|
||||
pusuario,getdate(),pcotizacion_no,psucid)
|
||||
END IF
|
||||
END IF
|
||||
END FOREACH
|
||||
END FUNCTION
|
||||
|
||||
|
||||
{
|
||||
|
||||
SELECT a.tipo_cliente,a.sec_cliente,SUM(a.valor+a.monto_desc),'0' FROM cctb00001 a,vetb00060 b
|
||||
WHERE a.fecha_orig <= '01/31/2018' AND
|
||||
a.tipo_cliente = b.tipo_cliente AND
|
||||
b.ventas = '1' AND a.tipo_cliente IN (15) and
|
||||
a.status_t is null and a.tipo_doc NOT IN ("AV","PC")
|
||||
GROUP BY a.tipo_cliente,a.sec_cliente
|
||||
|
||||
UNION
|
||||
SELECT a.tipo_cliente,a.sec_cliente,'0',SUM(a.valor+a.monto_desc) FROM cctb00001 a,vetb00060 b
|
||||
WHERE a.fecha_orig <= '01/31/2018' and
|
||||
a.tipo_cliente = b.tipo_cliente AND b.ventas = '1' and
|
||||
a.status_t is null and a.tipo_doc = "AV" and a.num_doc = a.aplica_a
|
||||
AND a.tipo_cliente IN (15)
|
||||
GROUP BY a.tipo_cliente,a.sec_cliente
|
||||
ORDER BY a.tipo_cliente,a.sec_cliente }
|
||||
FUNCTION busca_balance_cero()
|
||||
DEFINE xtipo_cliente,xsec_cliente INT,
|
||||
balance,valor1,valor2 dec(12,2)
|
||||
|
||||
DECLARE busca_balance CURSOR FOR
|
||||
SELECT a.tipo_cliente,a.sec_cliente FROM vetb00004 a
|
||||
WHERE a.status_t IS NULL AND a.tipo_cliente > 14 # AND a.tipo_cliente = 21 AND a.sec_cliente =3185
|
||||
DISPLAY "BUSCAN CLIENTES..."
|
||||
BEGIN WORK
|
||||
FOREACH busca_balance INTO xtipo_cliente,xsec_cliente
|
||||
|
||||
#busca balance cliente
|
||||
|
||||
SELECT SUM(a.valor+a.monto_desc) INTO valor1 FROM cctb00001 a
|
||||
WHERE #@fecha_orig < fecha_inicial and
|
||||
a.tipo_cliente = xtipo_cliente and
|
||||
a.sec_cliente = xsec_cliente and
|
||||
a.status_t is null and a.tipo_doc NOT IN ("AV","PC","AP")
|
||||
|
||||
IF valor1 IS NULL THEN
|
||||
LET valor1 = 0
|
||||
END IF
|
||||
|
||||
SELECT SUM(a.valor+a.monto_desc) INTO valor2 FROM cctb00001 a
|
||||
WHERE #@fecha_orig < fecha_inicial and
|
||||
a.tipo_cliente = xtipo_cliente and
|
||||
a.sec_cliente = xsec_cliente and
|
||||
a.status_t is null and a.tipo_doc = "AV" and num_doc = aplica_a
|
||||
|
||||
IF valor2 IS NULL THEN
|
||||
LET valor2 = 0
|
||||
END IF
|
||||
LET balance = valor1 - valor2
|
||||
IF balance = 0 THEN
|
||||
DISPLAY "BUSCA INFO APLICACION...",xtipo_cliente," ",xsec_cliente," balance ",balance
|
||||
CALL ejecuta_aplicacion(xtipo_cliente,xsec_cliente)
|
||||
END IF
|
||||
|
||||
END FOREACH
|
||||
COMMIT WORK
|
||||
END FUNCTION
|
||||
FUNCTION ejecuta_aplicacion(ztipo_cliente,zsec_cliente)
|
||||
DEFINE ztipo_cliente,zsec_cliente,xsucid,vendedor INT,
|
||||
zaplica_a,secuencia_db,secuencia_nc INT,
|
||||
pendiente,positivo,negativo,valor_factura DEC(12,2)
|
||||
|
||||
SELECT a.ult_recibo INTO secuencia_db FROM cctb00003 a WHERE a.tipo_doc = "OD"
|
||||
SELECT a.ult_recibo INTO secuencia_nc FROM cctb00003 a WHERE a.tipo_doc = "OC"
|
||||
|
||||
DECLARE busca_pendiente CURSOR FOR
|
||||
SELECT a.sucid,a.aplica_a,b.neto,c.sec_vend,SUM(a.valor+a.monto_desc) FROM cctb00001 a,vetb00002 b,vetb00028 c
|
||||
WHERE a.tipo_cliente = ztipo_cliente AND a.sec_cliente = zsec_cliente AND
|
||||
a.tipo_cliente = c.tipo_cliente AND a.sec_cliente = c.sec_cliente AND
|
||||
a.tipo_cliente = b.tipo_cliente AND a.sec_cliente = b.sec_cliente AND
|
||||
a.aplica_a = b.factura AND a.sucid = b.sucid AND
|
||||
a.tipo_doc NOT IN ("AV","AP","PC") AND a.status_t IS NULL
|
||||
GROUP BY a.aplica_a,b.neto,c.sec_vend,a.sucid
|
||||
HAVING SUM(a.valor+a.monto_desc) <> 0
|
||||
|
||||
LET negativo = 0
|
||||
LET positivo = 0
|
||||
LET secuencia_db = secuencia_db + 1
|
||||
LET secuencia_nc = secuencia_nc + 1
|
||||
|
||||
FOREACH busca_pendiente INTO xsucid,zaplica_a,valor_factura,vendedor,pendiente
|
||||
IF pendiente < 0 THEN
|
||||
LET negativo = negativo + pendiente
|
||||
END IF
|
||||
IF pendiente > 0 THEN
|
||||
LET positivo = positivo + pendiente
|
||||
END IF
|
||||
|
||||
# NOTAS CREDITOS
|
||||
IF pendiente > 0 THEN
|
||||
LET pendiente = pendiente *-1
|
||||
|
||||
INSERT INTO cctb00001 (cod_cia,sucid,tipo_doc,num_doc,tipo_cliente,sec_cliente,cod_emp_sec,fecha_orig,aplica_a,
|
||||
valor,monto_desc,us_crea,fech_crea,num_cheque)
|
||||
VALUES
|
||||
(1,1,'OC',secuencia_db,ztipo_cliente,zsec_cliente,vendedor,GETDATE(),zaplica_a,pendiente,0,'jsoto',getdate(),'APLICADA')
|
||||
|
||||
LET pendiente = pendiente *-1
|
||||
DISPLAY "NOTA NC",zaplica_a," pendiente ",pendiente
|
||||
LET secuencia_nc = secuencia_nc + 1
|
||||
END IF
|
||||
|
||||
|
||||
IF pendiente < 0 THEN
|
||||
LET pendiente = pendiente *-1
|
||||
INSERT INTO cctb00001 (cod_cia,sucid,tipo_doc,num_doc,tipo_cliente,sec_cliente,cod_emp_sec,fecha_orig,aplica_a,
|
||||
valor,monto_desc,us_crea,fech_crea,num_cheque)
|
||||
VALUES
|
||||
(1,1,'OD',secuencia_db,ztipo_cliente,zsec_cliente,vendedor,GETDATE(),zaplica_a,pendiente,0,'jsoto',getdate(),'APLICADA')
|
||||
|
||||
LET pendiente = pendiente *-1
|
||||
LET secuencia_db = secuencia_db + 1
|
||||
DISPLAY "NOTA DB",zaplica_a," pendiente ",pendiente
|
||||
END IF
|
||||
|
||||
END FOREACH
|
||||
# INSERTA LOS CREDITOS Y DEBITOS SUMARIZADOS PARA QUE LA CUENTA CONTINUE CUADRADA
|
||||
# DBITOS
|
||||
IF positivo > 0 THEN
|
||||
INSERT INTO cctb00001 (cod_cia,sucid,tipo_doc,num_doc,tipo_cliente,sec_cliente,cod_emp_sec,fecha_orig,aplica_a,
|
||||
valor,monto_desc,us_crea,fech_crea,num_cheque)
|
||||
VALUES
|
||||
(1,1,'OD',secuencia_db,ztipo_cliente,zsec_cliente,vendedor,GETDATE(),secuencia_db,positivo,0,'jsoto',getdate(),'APLICADA')
|
||||
|
||||
END IF
|
||||
# CREDITOS
|
||||
IF negativo <> 0 THEN
|
||||
INSERT INTO cctb00001 (cod_cia,sucid,tipo_doc,num_doc,tipo_cliente,sec_cliente,cod_emp_sec,fecha_orig,aplica_a,
|
||||
valor,monto_desc,us_crea,fech_crea,num_cheque)
|
||||
VALUES
|
||||
(1,1,'OC',secuencia_nc,ztipo_cliente,zsec_cliente,vendedor,GETDATE(),secuencia_nc,negativo,0,'jsoto',getdate(),'APLICADA')
|
||||
END IF
|
||||
CLOSE busca_pendiente
|
||||
|
||||
END FUNCTION
|
||||
FUNCTION aplica_avance_balances()
|
||||
DECLARE busca_a_ba CURSOR FOR
|
||||
SELECT a.tipo_cliente,a.sec_cliente,a.num_Doc FROM cctb00001 a WHERE a.tipo_doc IN ('AV','AP') AND
|
||||
AND a.fecha_orig < '
|
||||
a.status_t IS NULL
|
||||
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,29 @@
|
||||
|
||||
FUNCTION autentificacion()
|
||||
DEFINE permisos CHAR(1),
|
||||
programa CHAR(9),
|
||||
usuario,clave,pusuario CHAR(60),
|
||||
variable CHAR(20),pselec CHAR(100)
|
||||
|
||||
WHENEVER ERROR CONTINUE
|
||||
CALL startlog("errores.log")
|
||||
|
||||
OPEN WINDOW inicio AT 1,1 WITH FORM "inicial"
|
||||
|
||||
INPUT BY NAME usuario,clave WITHOUT DEFAULTS
|
||||
AFTER INPUT
|
||||
IF INT_FLAG THEN
|
||||
ERROR "OPERACION CANCELADA"
|
||||
EXIT INPUT
|
||||
END IF
|
||||
|
||||
CONNECT TO "decomarmol" USER usuario USING clave
|
||||
IF STATUS < 0 THEN
|
||||
ERROR "USUARIO NO ES VALIDO"
|
||||
CONTINUE INPUT
|
||||
END IF
|
||||
EXIT INPUT
|
||||
END INPUT
|
||||
|
||||
CLOSE WINDOW inicio
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,48 @@
|
||||
IMPORT UTIL
|
||||
DEFINE selec STRING,
|
||||
nombre_file,basedatos VARCHAR(100),
|
||||
fechaFile DATETIME YEAR TO MINUTE,
|
||||
chfechafile VARCHAR(50) ,
|
||||
datab DYNAMIC ARRAY OF VARCHAR(60),
|
||||
i INT
|
||||
MAIN
|
||||
|
||||
CONNECT TO "decomarmol" USER "sa" USING "Lmmjvsd2020"
|
||||
|
||||
LET selec = "BACKUP DATABASE ?
|
||||
TO DISK = ?"
|
||||
|
||||
PREPARE copia FROM selec
|
||||
|
||||
|
||||
#LET selec = "execute sp_msforeachdb 'print ''[?]'''"
|
||||
#PREPARE padb FROM selec
|
||||
#DECLARE buscadb CURSOR FOR padb
|
||||
|
||||
LET datab[1]="decomarmol_old"
|
||||
LET datab[2]="sistema_prueba"
|
||||
LET datab[3]="ndeco"
|
||||
LET datab[4]="ndecobk"
|
||||
LET datab[5]="nace"
|
||||
|
||||
|
||||
FOR i=1 to datab.getLength()
|
||||
|
||||
LET fechaFile = CURRENT
|
||||
LET chfechafile = util.Datetime.format(fechafile, "%d-%m-%Y%H:%M:%S" )
|
||||
|
||||
IF datab[i]= "ndeco" THEN
|
||||
LET nombre_file = '/home/decomarmol/backup/',datab[i] CLIPPED,chfechafile,".bak"
|
||||
ELSE
|
||||
LET nombre_file = '/home/copias/',datab[i] CLIPPED,chfechafile,".bak"
|
||||
END IF
|
||||
DISPLAY "en Ejecucion...",nombre_file
|
||||
EXECUTE copia USING datab[i],nombre_file
|
||||
|
||||
|
||||
|
||||
END FOR
|
||||
|
||||
|
||||
DISPLAY "He terminado..."
|
||||
END MAIN
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,34 @@
|
||||
<?xml version='1.0' encoding='windows-1252'?>
|
||||
<Form name="inicial" build="2.20.05-1369.59" width="53" height="8">
|
||||
<Screen width="53" height="8">
|
||||
<Label text="Login:" posY="1" posX="1" gridWidth="6"/>
|
||||
<FormField name="formonly.usuario" colName="usuario" fieldId="0" sqlTabName="formonly" required="1" tabIndex="1">
|
||||
<Edit width="22" comment="Introducir su nombre de Usuario" posY="1" posX="11" gridWidth="22"/>
|
||||
</FormField>
|
||||
<Label text="Password:" posY="2" posX="1" gridWidth="9"/>
|
||||
<FormField name="formonly.clave" colName="clave" fieldId="1" sqlTabName="formonly" tabIndex="2">
|
||||
<Edit isPassword="1" width="22" comment="Favor de introducir su clave" posY="2" posX="11" gridWidth="22"/>
|
||||
</FormField>
|
||||
<Label text="Usuario conectado" posY="4" posX="1" gridWidth="17"/>
|
||||
<FormField name="formonly.pusuario" colName="pusuario" fieldId="5" sqlTabName="formonly" tabIndex="3">
|
||||
<Edit width="32" posY="4" posX="20" gridWidth="32"/>
|
||||
</FormField>
|
||||
<FormField name="formonly.btn_accept" colName="btn_accept" fieldId="3" sqlTabName="formonly" tabIndex="4">
|
||||
<RipBUTTON config="KEY_Accept" width="10" posY="5" posX="2" gridWidth="10"/>
|
||||
</FormField>
|
||||
<FormField name="formonly.btn_cancel" colName="btn_cancel" fieldId="4" sqlTabName="formonly" tabIndex="5">
|
||||
<RipBUTTON config="KEY_Interrupt" width="10" posY="5" posX="14" gridWidth="10"/>
|
||||
</FormField>
|
||||
<FormField name="formonly.lbl_script" colName="lbl_script" fieldId="2" sqlTabName="formonly" noEntry="1" tabIndex="6">
|
||||
<RipLABEL width="10" scroll="1" posY="7" posX="2" gridWidth="10"/>
|
||||
</FormField>
|
||||
</Screen>
|
||||
<RecordView tabName="formonly">
|
||||
<Link colName="usuario" fieldIdRef="0"/>
|
||||
<Link colName="clave" fieldIdRef="1"/>
|
||||
<Link colName="lbl_script" fieldIdRef="2"/>
|
||||
<Link colName="btn_accept" fieldIdRef="3"/>
|
||||
<Link colName="btn_cancel" fieldIdRef="4"/>
|
||||
<Link colName="pusuario" fieldIdRef="5"/>
|
||||
</RecordView>
|
||||
</Form>
|
||||
@@ -0,0 +1,30 @@
|
||||
FUNCTION bodegas(cb2)
|
||||
|
||||
DEFINE ketiquetas SMALLINT, detiquetas CHAR(30),
|
||||
cbodegas ui.ComboBox,
|
||||
cb2 CHAR(2)
|
||||
|
||||
LET cbodegas = ui.combobox.forname("formonly.bodega")
|
||||
DECLARE bbodegas CURSOR FOR
|
||||
SELECT a.cod_bodega,a.descripcion FROM intb00009 a
|
||||
ORDER BY a.cod_bodega
|
||||
CALL cbodegas.clear()
|
||||
|
||||
FOREACH bbodegas INTO ketiquetas,detiquetas
|
||||
CALL cbodegas.additem(ketiquetas,detiquetas)
|
||||
END FOREACH
|
||||
|
||||
IF cb2 ='2' THEN
|
||||
LET cbodegas = ui.combobox.forname("formonly.bodega_destino")
|
||||
DECLARE bbodegas2 CURSOR FOR
|
||||
SELECT a.cod_bodega,a.descripcion FROM intb00009 a
|
||||
ORDER BY a.descripcion
|
||||
CALL cbodegas.clear()
|
||||
|
||||
FOREACH bbodegas2 INTO ketiquetas,detiquetas
|
||||
CALL cbodegas.additem(ketiquetas,detiquetas)
|
||||
END FOREACH
|
||||
|
||||
END IF
|
||||
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,61 @@
|
||||
DATABASE rayovac
|
||||
GLOBALS
|
||||
DEFINE codigos RECORD LIKE irtb00002.*
|
||||
DEFINE codigos1 RECORD LIKE intb00001.*
|
||||
END GLOBALS
|
||||
MAIN
|
||||
CALL busca()
|
||||
END MAIN
|
||||
|
||||
FUNCTION busca()
|
||||
|
||||
DECLARE busca_ir CURSOR FOR
|
||||
SELECT *FROM intb00001
|
||||
WHERE cod_n = 5
|
||||
|
||||
ORDER BY 1,2,3,4
|
||||
START REPORT saca TO "reporte1"
|
||||
|
||||
FOREACH busca_ir INTO codigos1.*
|
||||
SELECT * INTO codigos.* FROM irtb00002
|
||||
WHERE @cod_n = codigos1.cod_n and
|
||||
@cod_grupo = codigos1.cod_grupo and
|
||||
@cod_tipo = codigos1.cod_tipo and
|
||||
@cod_sec = codigos1.cod_sec
|
||||
|
||||
IF status = notfound THEN
|
||||
SELECT * INTO codigos.* FROM irtb00001
|
||||
WHERE @cod_n = codigos1.cod_n and
|
||||
@cod_grupo = codigos1.cod_grupo and
|
||||
@cod_tipo = codigos1.cod_tipo and
|
||||
@cod_sec = codigos1.cod_sec
|
||||
|
||||
IF status = notfound THEN
|
||||
OUTPUT TO REPORT saca(codigos1.*,codigos.*)
|
||||
END IF
|
||||
END IF
|
||||
END FOREACH
|
||||
FINISH REPORT saca
|
||||
END FUNCTION
|
||||
|
||||
REPORT saca(z,x)
|
||||
DEFINE x record like irtb00002.*
|
||||
DEFINE z RECORD LIKE intb00001.*
|
||||
DEFINE descripcion CHAR(30)
|
||||
|
||||
format
|
||||
page header
|
||||
print column 1,
|
||||
"REPORTE DE CODIGOS QUE ESTAN EN INTB00001 Y NO ESTAN EN IRTB0002"
|
||||
print column 1, today
|
||||
print column 1, time
|
||||
skip 1 line
|
||||
print column 1, "ARTICULOS..."
|
||||
|
||||
SKIP 1 LINE
|
||||
ON EVERY ROW
|
||||
PRINT COLUMN 1, z.cod_n using "&","-",z.cod_grupo using "&","-",
|
||||
z.cod_tipo using "&&","-",z.cod_sec using "&&&"," ",z.descrip_esp
|
||||
ON LAST ROW
|
||||
PRINT "TOTAL REGISTROS: ",count(*) using "&&&&"
|
||||
END REPORT
|
||||
@@ -0,0 +1,70 @@
|
||||
DATABASE rayovac
|
||||
GLOBALS
|
||||
|
|
||||
| Database not found or no system permission.
|
||||
| See error number -329.
|
||||
|
|
||||
| The database "rayovac" cannot be found or opened. If the database
|
||||
| exists, check the database permissions on the database. In
|
||||
| addition, check the system permissions on the database directory
|
||||
| and its ascendant directories.
|
||||
| See error number -4305.
|
||||
DEFINE codigos RECORD LIKE irtb00002.*
|
||||
DEFINE codigos1 RECORD LIKE intb00001.*
|
||||
END GLOBALS
|
||||
MAIN
|
||||
CALL busca()
|
||||
END MAIN
|
||||
|
||||
FUNCTION busca()
|
||||
|
||||
DECLARE busca_ir CURSOR FOR
|
||||
SELECT *FROM intb00001
|
||||
WHERE cod_n = 5
|
||||
|
||||
ORDER BY 1,2,3,4
|
||||
START REPORT saca TO "reporte1"
|
||||
|
||||
FOREACH busca_ir INTO codigos1.*
|
||||
SELECT * INTO codigos.* FROM irtb00002
|
||||
WHERE @cod_n = codigos1.cod_n and
|
||||
@cod_grupo = codigos1.cod_grupo and
|
||||
@cod_tipo = codigos1.cod_tipo and
|
||||
@cod_sec = codigos1.cod_sec
|
||||
|
||||
IF status = notfound THEN
|
||||
SELECT * INTO codigos.* FROM irtb00001
|
||||
WHERE @cod_n = codigos1.cod_n and
|
||||
@cod_grupo = codigos1.cod_grupo and
|
||||
@cod_tipo = codigos1.cod_tipo and
|
||||
@cod_sec = codigos1.cod_sec
|
||||
|
||||
IF status = notfound THEN
|
||||
OUTPUT TO REPORT saca(codigos1.*,codigos.*)
|
||||
END IF
|
||||
END IF
|
||||
END FOREACH
|
||||
FINISH REPORT saca
|
||||
END FUNCTION
|
||||
|
||||
REPORT saca(z,x)
|
||||
DEFINE x record like irtb00002.*
|
||||
DEFINE z RECORD LIKE intb00001.*
|
||||
DEFINE descripcion CHAR(30)
|
||||
|
||||
format
|
||||
page header
|
||||
print column 1,
|
||||
"REPORTE DE CODIGOS QUE ESTAN EN INTB00001 Y NO ESTAN EN IRTB0002"
|
||||
print column 1, today
|
||||
print column 1, time
|
||||
skip 1 line
|
||||
print column 1, "ARTICULOS..."
|
||||
|
||||
SKIP 1 LINE
|
||||
ON EVERY ROW
|
||||
PRINT COLUMN 1, z.cod_n using "&","-",z.cod_grupo using "&","-",
|
||||
z.cod_tipo using "&&","-",z.cod_sec using "&&&"," ",z.descrip_esp
|
||||
ON LAST ROW
|
||||
PRINT "TOTAL REGISTROS: ",count(*) using "&&&&"
|
||||
END REPORT
|
||||
@@ -0,0 +1,49 @@
|
||||
DATABASE rayovac
|
||||
GLOBALS
|
||||
DEFINE codigos RECORD LIKE irtb00002.*
|
||||
DEFINE codigos1 RECORD LIKE intb00001.*
|
||||
END GLOBALS
|
||||
MAIN
|
||||
CALL busca()
|
||||
END MAIN
|
||||
|
||||
FUNCTION busca()
|
||||
|
||||
DECLARE busca_ir CURSOR FOR
|
||||
SELECT *FROM irtb00002
|
||||
ORDER BY 1,2,3,4
|
||||
START REPORT saca TO "reporte"
|
||||
|
||||
FOREACH busca_ir INTO codigos.*
|
||||
SELECT * INTO codigos1.* FROM intb00001
|
||||
WHERE @cod_n = codigos.cod_n and
|
||||
@cod_grupo = codigos.cod_grupo and
|
||||
@cod_tipo = codigos.cod_tipo and
|
||||
@cod_sec = codigos.cod_sec
|
||||
|
||||
IF status = notfound THEN
|
||||
OUTPUT TO REPORT saca(codigos.*,codigos1.*)
|
||||
END IF
|
||||
END FOREACH
|
||||
FINISH REPORT saca
|
||||
END FUNCTION
|
||||
|
||||
REPORT saca(x,z)
|
||||
DEFINE x record like irtb00002.*
|
||||
DEFINE z RECORD LIKE intb00001.*
|
||||
DEFINE descripcion CHAR(30)
|
||||
|
||||
format
|
||||
page header
|
||||
print column 1,
|
||||
"REPORTE DE CODIGOS QUE ESTAN EN IRTB00002 Y NO ESTAN EN INTB0001"
|
||||
print column 1, today
|
||||
print column 1, time
|
||||
skip 1 line
|
||||
print column 1, "ARTICULOS..."
|
||||
|
||||
SKIP 1 LINE
|
||||
ON EVERY ROW
|
||||
PRINT COLUMN 1, x.cod_n using "&","-",x.cod_grupo using "&","-",
|
||||
x.cod_tipo using "&&","-",x.cod_sec using "&&&"," ",z.descrip_esp
|
||||
END REPORT
|
||||
@@ -0,0 +1,58 @@
|
||||
DATABASE rayovac
|
||||
GLOBALS
|
||||
|
|
||||
| Database not found or no system permission.
|
||||
| See error number -329.
|
||||
|
|
||||
| The database "rayovac" cannot be found or opened. If the database
|
||||
| exists, check the database permissions on the database. In
|
||||
| addition, check the system permissions on the database directory
|
||||
| and its ascendant directories.
|
||||
| See error number -4305.
|
||||
DEFINE codigos RECORD LIKE irtb00002.*
|
||||
DEFINE codigos1 RECORD LIKE intb00001.*
|
||||
END GLOBALS
|
||||
MAIN
|
||||
CALL busca()
|
||||
END MAIN
|
||||
|
||||
FUNCTION busca()
|
||||
|
||||
DECLARE busca_ir CURSOR FOR
|
||||
SELECT *FROM irtb00002
|
||||
ORDER BY 1,2,3,4
|
||||
START REPORT saca TO "reporte"
|
||||
|
||||
FOREACH busca_ir INTO codigos.*
|
||||
SELECT * INTO codigos1.* FROM intb00001
|
||||
WHERE @cod_n = codigos.cod_n and
|
||||
@cod_grupo = codigos.cod_grupo and
|
||||
@cod_tipo = codigos.cod_tipo and
|
||||
@cod_sec = codigos.cod_sec
|
||||
|
||||
IF status = notfound THEN
|
||||
OUTPUT TO REPORT saca(codigos.*,codigos1.*)
|
||||
END IF
|
||||
END FOREACH
|
||||
FINISH REPORT saca
|
||||
END FUNCTION
|
||||
|
||||
REPORT saca(x,z)
|
||||
DEFINE x record like irtb00002.*
|
||||
DEFINE z RECORD LIKE intb00001.*
|
||||
DEFINE descripcion CHAR(30)
|
||||
|
||||
format
|
||||
page header
|
||||
print column 1,
|
||||
"REPORTE DE CODIGOS QUE ESTAN EN IRTB00002 Y NO ESTAN EN INTB0001"
|
||||
print column 1, today
|
||||
print column 1, time
|
||||
skip 1 line
|
||||
print column 1, "ARTICULOS..."
|
||||
|
||||
SKIP 1 LINE
|
||||
ON EVERY ROW
|
||||
PRINT COLUMN 1, x.cod_n using "&","-",x.cod_grupo using "&","-",
|
||||
x.cod_tipo using "&&","-",x.cod_sec using "&&&"," ",z.descrip_esp
|
||||
END REPORT
|
||||
@@ -0,0 +1,53 @@
|
||||
|
||||
FUNCTION busca_empleado1()
|
||||
DEFINE criterio,selec1 VARCHAR(1000),
|
||||
buscar_emp DYNAMIC ARRAY OF RECORD
|
||||
num_emp INT,
|
||||
departamento SMALLINT,
|
||||
nivel_emp SMALLINT,
|
||||
cod_puesto SMALLINT,
|
||||
nom1_emp VARCHAR(30),
|
||||
nom2_emp VARCHAR(30),
|
||||
apell1_emp VARCHAR(30),
|
||||
apell2_emp VARCHAR(30)
|
||||
END RECORD,
|
||||
idx SMALLINT
|
||||
OPEN WINDOW busqueda AT 7,10 WITH FORM "adfmwd004"
|
||||
ATTRIBUTE (BORDER,FORM LINE FIRST + 2, comment line last)
|
||||
CONSTRUCT criterio ON adtb00003.nom1_emp,adtb00003.nom2_emp,
|
||||
adtb00003.apell1_emp,adtb00003.apell2_emp
|
||||
FROM nom1_emp,nom2_emp,apell1_emp,apell2_emp
|
||||
|
||||
LET selec1 = "SELECT num_emp,departamento,nivel_emp,cod_puesto, ",
|
||||
"nom1_emp,nom2_emp,apell1_emp,apell2_emp FROM adtb00003 ",
|
||||
" WHERE ",
|
||||
" status_t is null AND ",
|
||||
criterio clipped,
|
||||
"ORDER BY nom1_emp "
|
||||
|
||||
PREPARE busca1 FROM selec1
|
||||
DECLARE local1 CURSOR FOR busca1
|
||||
|
||||
LET idx = 1
|
||||
FOREACH local1 INTO buscar_emp[idx].*
|
||||
IF status = NOTFOUND THEN
|
||||
CALL fgl_winmessage("ERROR","NO EXISTEN REGISTROS","INFO")
|
||||
EXIT FOREACH
|
||||
END IF
|
||||
|
||||
LET idx = idx + 1
|
||||
END FOREACH
|
||||
|
||||
CALL set_count(idx-1)
|
||||
DISPLAY ARRAY buscar_emp TO s_empleado.*
|
||||
AFTER DISPLAY
|
||||
LET idx = arr_curr()
|
||||
EXIT DISPLAY
|
||||
END DISPLAY
|
||||
|
||||
CLOSE WINDOW busqueda
|
||||
RETURN buscar_emp[idx].num_emp,buscar_emp[idx].nom1_emp,
|
||||
buscar_emp[idx].nom2_emp,
|
||||
buscar_emp[idx].apell1_emp,
|
||||
buscar_emp[idx].apell2_emp
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,43 @@
|
||||
FUNCTION busca_avance(ptipo_cliente,psec_cliente,pcotizacion_no,valor_f,pfecha,psec_vend,psucid,pfactura,pusuario)
|
||||
DEFINE ptipo_cliente,psec_cliente,pcotizacion_no,pnum_doc,psec_vend,psucid,pfactura INT,pfecha DATE,
|
||||
valor_f,pvalor,monto_avance,monto_efectivo,monto_cheque,monto_tarjeta DEC(12,2),
|
||||
pusuario VARCHAR(50)
|
||||
|
||||
DECLARE busca_av CURSOR FOR
|
||||
SELECT a.num_doc, a.valor+monto_desc,a.valor_efectivo,a.valor_cheque,a.valor_tarjeta
|
||||
INTO pnum_doc,pvalor,monto_efectivo,monto_cheque,monto_tarjeta
|
||||
FROM cctb00001 a
|
||||
WHERE a.tipo_cliente = ptipo_cliente AND a.sec_cliente = psec_cliente AND
|
||||
a.documento_ref = pcotizacion_no AND a.tipo_Doc = 'AV' AND a.status_t IS null
|
||||
|
||||
FOREACH busca_av
|
||||
|
||||
IF pvalor !=0 THEN
|
||||
LET monto_avance = 0
|
||||
SELECT SUM(a.valor+a.monto_desc) INTO monto_avance FROM cctb00001 a
|
||||
WHERE a.num_doc = pnum_doc AND a.tipo_Doc IN ('AV','AP') AND a.status_t IS NULL
|
||||
# Cuando el avance tiene valor pendiente por aplicar
|
||||
IF monto_avance > 0 THEN
|
||||
IF valor_f >= monto_avance THEN
|
||||
LET pvalor = monto_avance
|
||||
ELSE
|
||||
LET pvalor = valor_f
|
||||
END IF
|
||||
IF monto_efectivo > 0 THEN
|
||||
LET monto_efectivo = pvalor
|
||||
END IF
|
||||
IF monto_cheque > 0 THEN
|
||||
LET monto_cheque = pvalor
|
||||
END IF
|
||||
IF monto_tarjeta > 0 THEN
|
||||
LET monto_tarjeta = pvalor
|
||||
END IF
|
||||
|
||||
INSERT INTO cctb00001 (tipo_doc,num_doc,fecha_orig,tipo_cliente,sec_cliente,aplica_a,num_cheque,cod_emp,cod_emp_sec,
|
||||
valor,monto_desc,us_crea,fech_crea,banco,documento_ref,valor_efectivo,valor_cheque,valor_tarjeta) VALUES
|
||||
('AP',pnum_doc,pfecha,ptipo_cliente,psec_cliente,pfactura,pnum_doc,psucid,psec_vend,pvalor*-1,'0',
|
||||
pusuario,getdate(),pcotizacion_no,pcotizacion_no,monto_efectivo,monto_cheque,monto_tarjeta)
|
||||
END IF
|
||||
END IF
|
||||
END FOREACH
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,45 @@
|
||||
{
|
||||
==============================================================================
|
||||
PROGRAMA : BUSCA_D
|
||||
OBJETIVO : BUSCA LAS DIRECCIONES DE LOS CLIENTES EN LOS REPORTES
|
||||
QUE LO REQUIERA
|
||||
PROGRAMADOR: JUAN F. SOTO
|
||||
FECHA : AGOSTO 28, 1997.
|
||||
|
||||
==============================================================================
|
||||
}
|
||||
|
||||
DATABASE exterior
|
||||
|
||||
FUNCTION busca_d(tipo_cliente,sec_cliente)
|
||||
DEFINE tipo_cliente,sec_cliente SMALLINT
|
||||
DEFINE clientes RECORD LIKE vetb00004.*,
|
||||
localidad,direccion CHAR(80),
|
||||
p_calle,p_casa,p_barrio,p_urbaniza,descrip_zona CHAR(25),
|
||||
descrip_prov CHAR(30)
|
||||
|
||||
SELECT a.* INTO clientes.*
|
||||
FROM vetb00004 a
|
||||
WHERE a.tipo_cliente = tipo_cliente AND
|
||||
a.sec_cliente = sec_cliente
|
||||
|
||||
SELECT a.descrip INTO descrip_zona
|
||||
FROM vetb00008 a
|
||||
WHERE a.cod_zona = clientes.cod_zona
|
||||
|
||||
SELECT a.nombre_provincia INTO descrip_prov
|
||||
FROM vetb00020 a
|
||||
WHERE a.cod_provincia = clientes.cod_provincia
|
||||
|
||||
SELECT a.calle,a.casa_num,a.barrio,a.urbanizacion
|
||||
INTO p_calle,p_casa,p_barrio,p_urbaniza
|
||||
FROM vetb00005 a
|
||||
WHERE a.tipo_cliente = tipo_cliente AND
|
||||
a.sec_cliente = sec_cliente
|
||||
|
||||
LET localidad = "ZONA: ",descrip_zona CLIPPED," PROVINCIA: ",
|
||||
descrip_prov CLIPPED," Tel. ",clientes.telefono
|
||||
LET direccion = p_calle CLIPPED," ",p_casa CLIPPED," ",p_barrio CLIPPED," ",
|
||||
p_urbaniza CLIPPED
|
||||
RETURN localidad,direccion
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,19 @@
|
||||
FUNCTION busca_imagen(pcodn,pcodgrupo,pcodtipo,pcodsec)
|
||||
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec INT,
|
||||
pimagen BYTE
|
||||
|
||||
|
||||
LOCATE pimagen IN MEMORY
|
||||
SELECT a.imagen INTO pimagen FROM iptb00002 a
|
||||
WHERE a.cod_n = pcodn AND
|
||||
a.cod_grupo = pcodgrupo AND
|
||||
a.cod_tipo = pcodtipo AND
|
||||
a.cod_Sec = pcodsec
|
||||
|
||||
IF pimagen IS NULL OR LENGTH(pimagen) < 4 THEN
|
||||
|
||||
CALL pimagen.readFile("fotodefault.jpg")
|
||||
END IF
|
||||
|
||||
RETURN pimagen
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,110 @@
|
||||
{
|
||||
===============================================================================
|
||||
PROGRAMA : BUSCA_SERIE
|
||||
OBJETIVO : ACTUALIZA LA TABLA VETB00042 (SERIE DE LOS PRODUCTOS )
|
||||
PROGRAMADOR: JUAN F. SOTO
|
||||
FECHA : AGOSTO 23, 1997
|
||||
===============================================================================
|
||||
}
|
||||
DATABASE exterior
|
||||
|
||||
FUNCTION busca_s(numero_doc,cod_mov,cod_n,cod_grupo,cod_tipo,cod_sec,
|
||||
cantidad)
|
||||
DEFINE serie ARRAY[100] OF CHAR(30)
|
||||
|
||||
DEFINE p_seriea ARRAY[100] OF RECORD
|
||||
factura LIKE vetb00042.factura,
|
||||
cod_mov SMALLINT,
|
||||
cod_n SMALLINT,
|
||||
cod_grupo SMALLINT,
|
||||
cod_tipo SMALLINT,
|
||||
cod_sec SMALLINT,
|
||||
serie LIKE vetb00042.serie
|
||||
END RECORD ,
|
||||
numero_msg,numero_doc INTEGER,
|
||||
idx,cod_n SMALLINT,
|
||||
cod_grupo SMALLINT,
|
||||
cod_tipo SMALLINT,
|
||||
cod_sec SMALLINT,
|
||||
cantidad INTEGER,
|
||||
cod_mov SMALLINT,
|
||||
cuenta SMALLINT,
|
||||
volver CHAR(1)
|
||||
|
||||
OPEN WINDOW w_serie AT 7,12 WITH FORM "busca_s"
|
||||
ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
|
||||
FOR idx = 1 TO 5
|
||||
LET p_seriea[idx].factura = NULL
|
||||
LET p_seriea[idx].cod_mov = NULL
|
||||
LET p_seriea[idx].cod_n = NULL
|
||||
LET p_seriea[idx].cod_grupo = NULL
|
||||
LET p_seriea[idx].cod_tipo = NULL
|
||||
LET p_seriea[idx].cod_sec = NULL
|
||||
LET p_seriea[idx].serie = NULL
|
||||
END FOR
|
||||
DECLARE busca CURSOR FOR
|
||||
SELECT a.* FROM vetb00042 a
|
||||
WHERE a.factura = numero_doc AND
|
||||
a.cod_mov = cod_mov
|
||||
LET idx = 1
|
||||
FOREACH busca INTO p_seriea[idx].*
|
||||
LET serie[idx] = p_seriea[idx].serie
|
||||
LET idx = idx + 1
|
||||
END FOREACH
|
||||
CALL set_count(idx-1)
|
||||
LABEL vuelve:
|
||||
INPUT ARRAY serie WITHOUT DEFAULTS FROM p_serie.*
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 376
|
||||
CALL msg(numero_msg)
|
||||
GOTO sale
|
||||
END IF
|
||||
FOR idx = 1 TO arr_count()
|
||||
LET p_seriea[idx].factura = numero_doc
|
||||
LET p_seriea[idx].cod_mov = cod_mov
|
||||
LET p_seriea[idx].cod_n = cod_n
|
||||
LET p_seriea[idx].cod_grupo = cod_grupo
|
||||
LET p_seriea[idx].cod_tipo = cod_tipo
|
||||
LET p_seriea[idx].cod_sec = cod_sec
|
||||
LET p_seriea[idx].cod_sec = cod_sec
|
||||
LET p_seriea[idx].serie = serie[idx]
|
||||
END FOR
|
||||
|
||||
LET cuenta = 0
|
||||
FOR idx = 1 TO arr_count()
|
||||
IF p_seriea[idx].serie IS NOT NULL THEN
|
||||
LET cuenta = cuenta + 1
|
||||
END IF
|
||||
END FOR
|
||||
IF cuenta != cantidad THEN
|
||||
LET numero_msg =376
|
||||
CALL msg(numero_msg)
|
||||
GOTO vuelve
|
||||
END IF
|
||||
DELETE FROM vetb00042 WHERE factura = numero_doc AND
|
||||
@cod_mov = cod_mov
|
||||
WHENEVER ERROR CONTINUE
|
||||
LET volver = "N"
|
||||
FOR idx = 1 TO arr_count()
|
||||
IF p_seriea[idx].serie IS NOT NULL THEN
|
||||
INSERT INTO vetb00042 VALUES
|
||||
(p_seriea[idx].*,null,user,current,null,null)
|
||||
IF STATUS < 0 THEN
|
||||
LET numero_msg = 378
|
||||
CALL msg(numero_msg)
|
||||
LET volver ="S"
|
||||
EXIT FOR
|
||||
END IF
|
||||
END IF
|
||||
END FOR
|
||||
|
||||
IF volver = "S" THEN
|
||||
LET STATUS = 0
|
||||
DELETE FROM vetb00042 WHERE factura = numero_doc
|
||||
GOTO vuelve
|
||||
END IF
|
||||
|
||||
LABEL sale:
|
||||
CLOSE WINDOW w_serie
|
||||
CLOSE FORM busca_s
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,27 @@
|
||||
{
|
||||
==========================================================================
|
||||
FORMULARIO : VEFMWD016
|
||||
OBJETIVO : CAPTURA LAS SERIES DE LOS PRODUCTOS
|
||||
PROGRAMADOR : Juan F. Soto
|
||||
FECHA : Agosto 23, 1997.
|
||||
==========================================================================
|
||||
}
|
||||
DATABASE juviar
|
||||
screen size 24 by 80
|
||||
{
|
||||
|
||||
Serie(s) Producto(s)
|
||||
-----------------------
|
||||
[a ]
|
||||
[a ]
|
||||
[a ]
|
||||
[a ]
|
||||
[a ]
|
||||
}
|
||||
tables
|
||||
vetb00004
|
||||
attributes
|
||||
a = formonly.serie;
|
||||
instructions delimiters " "
|
||||
screen record p_serie[5](serie)
|
||||
end
|
||||
@@ -0,0 +1,81 @@
|
||||
FUNCTION buscacliente(pnombre,ptipo,secliente)
|
||||
DEFINE idx,ptipo,secliente,cuenta,secvend INT,
|
||||
selec,pnombre,rnombre,rdireccion,rciudad,vende STRING,
|
||||
arrclientes DYNAMIC ARRAY OF RECORD
|
||||
tipo_cliente,sec_cliente INT,
|
||||
nombre,direccion,ciudad,vendedor STRING,
|
||||
sec_vend INT
|
||||
END RECORD,
|
||||
bdata STRING
|
||||
|
||||
LET bdata = ptipo USING "<<" ,secliente USING "<<<<<<<<<<" ,pnombre CLIPPED
|
||||
LET bdata = bdata.trimLeft()
|
||||
|
||||
LET selec = "SELECT COUNT(*) FROM vetb00004 a WHERE RTRIM(CAST(a.tipo_cliente AS CHAR(2))+
|
||||
RTRIM(CAST(a.sec_cliente AS CHAR(10)))+RTRIM(a.nombre)) LIKE '%",bdata CLIPPED,"%'"
|
||||
PREPARE comando1 FROM selec
|
||||
EXECUTE comando1 INTO cuenta
|
||||
|
||||
IF cuenta IS NULL OR cuenta = 0 THEN
|
||||
LET rnombre ='NO EXISTEN CLIENTES CON ESA CONDICION'
|
||||
LET ptipo=0
|
||||
LET secliente=0
|
||||
LET secvend =0
|
||||
LET vende = NULL
|
||||
RETURN rnombre,ptipo,secliente,rdireccion,rciudad,secvend,vende,false
|
||||
END IF
|
||||
|
||||
IF cuenta > 1 THEN
|
||||
LET selec = "SELECT a.tipo_cliente,a.sec_cliente,a.nombre,b.calle,b.urbanizacion,CONCAT(ISNULL(c.nom1_emp,' '),' ',ISNULL(c.apell1_Emp,' ')),a.sec_vend
|
||||
FROM vetb00004 a LEFT OUTER JOIN vetb00005 b ON
|
||||
a.tipo_cliente= b.tipo_cliente and a.sec_cliente = b.sec_cliente
|
||||
INNER JOIN adtb00003 c ON c.num_emp = a.sec_vend
|
||||
WHERE CONCAT(RTRIM(CAST(a.tipo_cliente AS CHAR(2))),
|
||||
RTRIM(CAST(a.sec_cliente AS CHAR(10))),RTRIM(a.nombre)) LIKE '%",ptipo USING "<<",
|
||||
secliente USING "<<<<<<<<<<",pnombre CLIPPED,"%'"
|
||||
|
||||
|
||||
PREPARE comando2 FROM selec
|
||||
DECLARE busca CURSOR FOR comando2
|
||||
|
||||
LET idx = 1
|
||||
FOREACH busca INTO arrclientes[idx].*
|
||||
|
||||
LET idx = idx + 1
|
||||
END FOREACH
|
||||
IF idx = 1 THEN
|
||||
LET rnombre = 'NO EXISTEN CLIENTES CON ESA CONDICION'
|
||||
LET ptipo=0
|
||||
LET secliente=0
|
||||
LET secvend =0
|
||||
LET vende = null
|
||||
RETURN rnombre,ptipo,secliente,rdireccion,rciudad,secvend,vende,false
|
||||
ELSE
|
||||
OPEN WINDOW w1 WITH FORM "vefmwd002"
|
||||
DISPLAY ARRAY arrclientes TO sclientes.*
|
||||
AFTER DISPLAY
|
||||
LET rnombre = arrclientes[arr_curr()].nombre
|
||||
LET ptipo = arrclientes[arr_curr()].tipo_cliente
|
||||
LET secliente = arrclientes[arr_curr()].sec_cliente
|
||||
LET secvend = arrclientes[arr_curr()].sec_vend
|
||||
LET vende = arrclientes[arr_curr()].vendedor
|
||||
|
||||
EXIT DISPLAY
|
||||
END DISPLAY
|
||||
END IF
|
||||
ELSE
|
||||
LET selec = "SELECT a.tipo_cliente,a.sec_cliente,a.nombre,b.calle,b.urbanizacion,ISNULL(c.nom1_emp,' ')+' '+ISNULL(c.apell1_Emp,' '),a.sec_vend
|
||||
FROM vetb00004 a LEFT OUTER JOIN vetb00005 b ON
|
||||
a.tipo_cliente= b.tipo_cliente and a.sec_cliente = b.sec_cliente
|
||||
INNER JOIN adtb00003 c ON a.sec_vend = a.sec_vend
|
||||
WHERE CAST(a.tipo_cliente AS CHAR(2))+
|
||||
CAST(a.sec_cliente AS CHAR(10))+RTRIM(a.nombre) LIKE '%",bdata CLIPPED,"%'"
|
||||
DISPLAY "en otro ",selec
|
||||
PREPARE comando3 FROM selec
|
||||
EXECUTE comando3 INTO ptipo,secliente,rnombre,rdireccion,rciudad,vende,secvend
|
||||
END IF
|
||||
IF cuenta > 1 THEN
|
||||
CLOSE WINDOW w1
|
||||
END IF
|
||||
RETURN rnombre,ptipo,secliente,rdireccion,rciudad,secvend,vende, true
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,6 @@
|
||||
for i in `cat lista`
|
||||
do
|
||||
sed -e 's/juviar/exterior/g' < $i > ../tmp/$i
|
||||
echo $i
|
||||
|
||||
done
|
||||
@@ -0,0 +1,16 @@
|
||||
DATABASE FORMONLY
|
||||
|
||||
SCREEN {
|
||||
|
||||
Usuario : [usua ]
|
||||
Clave Actual : [f000 ]
|
||||
Clave Nueva : [f001 ]
|
||||
Confirma Clave : [con ]
|
||||
|
||||
|
||||
}
|
||||
ATTRIBUTES
|
||||
usua = formonly.usuario;
|
||||
f000 = formonly.clave, CLASS="PASSWORD", COMMENT="Favor de introducir su clave";
|
||||
f001 = formonly.nclave, CLASS="PASSWORD",COMMENT="Nueva Clave";
|
||||
con = formonly.cclave, CLASS="PASSWORD",COMMENT="Confirme Clave Por Favor";
|
||||
@@ -0,0 +1,4 @@
|
||||
FUNCTION categorias_productos()
|
||||
|
||||
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,18 @@
|
||||
FUNCTION cbclase()
|
||||
DEFINE clase ui.ComboBox,
|
||||
kcodn SMALLINT,
|
||||
ddescripcion CHAR(60)
|
||||
|
||||
LET clase = ui.ComboBox.forName("formonly.cod_n")
|
||||
|
||||
CALL clase.clear()
|
||||
|
||||
DECLARE busca CURSOR FOR
|
||||
SELECT a.cod_n,a.producto FROM iptb00020 a
|
||||
ORDER BY a.producto
|
||||
FOREACH busca INTO kcodn,ddescripcion
|
||||
CALL clase.addItem(kcodn,ddescripcion)
|
||||
END FOREACH
|
||||
|
||||
|
||||
END FUNCTION
|
||||
@@ -0,0 +1,169 @@
|
||||
0.993
|
||||
14^80^
|
||||
Cheque No. Cuenta Del Banco Tipo
|
||||
Portador -
|
||||
Fecha Tasa Monto Cheque Remanente
|
||||
Concepto
|
||||
Codigo Procedencia
|
||||
|
||||
Tipo Orden Factura(s) Valor Pendiente Valor Pagado
|
||||
|
||||
|
||||
|
||||
Cuenta No. Depto. Catalo. Referencia Descrip. Cta. Debito Credito
|
||||
|
||||
|
||||
Deto: Catalogo:
|
||||
screenFields 29
|
||||
a1^3^0^11^9^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
11^0^9
|
||||
f010^4^0^40^8^1^0^0^1^0^-32768^0^0^^Digite El numero de la cuenta del banco que esta en catalogo^^^^^Entry^^^0^^
|
||||
40^0^8
|
||||
a0^5^0^61^2^1^0^0^1^514^-32768^0^0^^CK-CHEQUE CP-CHEQUE POR PREPAGO^^CP|CK^^^Entry^^^0^^
|
||||
61^0^2
|
||||
t1^6^0^65^14^1^0^0^1^1^1^0^0^^^^^^^Entry^^^0^^
|
||||
65^0^14
|
||||
f2^1^1^11^2^1^0^0^1^2^-32768^0^1^^Del 21 al 23 Cod. Supidor 01- Empleados o Deje en Blanco Para OTROS^^^^^Entry^^^0^^
|
||||
11^1^2
|
||||
f003^2^1^16^4^1^0^0^1^2^-32768^0^1^^Digite el codigo del suplidor o deje en blanco si no tiene^^^^^Entry^^^0^^
|
||||
16^1^4
|
||||
b^7^1^22^45^1^0^0^1^512^1^0^0^^^^^^^Entry^^^0^^
|
||||
22^1^45
|
||||
f005^1^2^10^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
10^2^8
|
||||
t20^1^2^24^5^1^0^0^1^0^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
24^2^5
|
||||
ck^9^2^43^13^1^0^0^1^32^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
43^2^13
|
||||
re^8^2^67^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
67^2^9
|
||||
dt^10^3^11^59^1^0^0^1^512^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
11^3^59
|
||||
p4^1^4^20^4^1^0^0^1^0^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
20^4^4
|
||||
bc^17^4^26^29^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
26^4^29
|
||||
tp^2^7^2^2^2^1^0^1^0^-32768^0^1^^Presione <Esc> Para Buscar cuentas contables^^^^^Entry^^^0^^
|
||||
2^7^2
|
||||
2^8^2
|
||||
ord^3^7^11^8^2^1^0^1^0^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
11^7^8
|
||||
11^8^8
|
||||
f006^4^7^23^9^2^1^0^1^0^-32768^0^0^^Presione Ctrl-W Para Buscar Documentos Pendientes^^^^^Entry^^^0^^
|
||||
23^7^9
|
||||
23^8^9
|
||||
f009^11^7^43^13^2^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^7^13
|
||||
43^8^13
|
||||
f002^12^7^66^13^2^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
66^7^13
|
||||
66^8^13
|
||||
ct^3^11^1^8^2^1^0^1^0^-32768^0^0^^Digite numero de la cuenta^^^^^Entry^^^0^^
|
||||
1^11^8
|
||||
1^12^8
|
||||
dp^4^11^11^4^2^1^0^1^0^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
11^11^4
|
||||
11^12^4
|
||||
d3^15^11^17^2^2^1^0^1^0^-32768^0^0^^Del 21 al 23 Cod. Supidor 01- Empleados o Deje en Blanco Para OTROS^^^^^Entry^^^0^^
|
||||
17^11^2
|
||||
17^12^2
|
||||
d4^16^11^21^4^2^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
21^11^4
|
||||
21^12^4
|
||||
d2^14^11^27^12^2^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
27^11^12
|
||||
27^12^12
|
||||
d1^13^11^41^12^2^1^0^1^513^1^0^0^^^^^^^Entry^^^0^^
|
||||
41^11^12
|
||||
41^12^12
|
||||
br^5^11^55^11^2^1^0^1^0^-32768^0^5^^Ctrl-P Retorna a # de Cuenta^^^^^Entry^^^0^^
|
||||
55^11^11
|
||||
55^12^11
|
||||
cr^6^11^68^11^2^1^0^1^0^-32768^0^5^^Ctrl-P Retorna a # de Cuenta^^^^^Entry^^^0^^
|
||||
68^11^11
|
||||
68^12^11
|
||||
de^1^13^6^20^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
6^13^20
|
||||
ca^2^13^38^32^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
38^13^32
|
||||
formFields 29
|
||||
nombre_dpto^de
|
||||
nombre_cata^ca
|
||||
numero^a1
|
||||
cuenta_p^f010
|
||||
tipo_doc^a0
|
||||
nom_tipo^t1
|
||||
cod_sp^f2
|
||||
cod_sp_sec^f003
|
||||
nom_sup^b
|
||||
fecha^f005
|
||||
tasa^t20
|
||||
remanente^re
|
||||
monto^ck
|
||||
detalle^dt
|
||||
tipo^tp
|
||||
orden_no^ord
|
||||
aplica_a^f006
|
||||
valor_pen^f009
|
||||
valor_pag^f002
|
||||
cuenta_no^ct
|
||||
departamento^dp
|
||||
nom_cuenta^d1
|
||||
num_doc^d2
|
||||
cod_aux^d3
|
||||
cod_sec^d4
|
||||
debito^br
|
||||
credito^cr
|
||||
codigo^p4
|
||||
p_descrip^bc
|
||||
screenRecords 7
|
||||
cgtb00004^6^0^1^-1^0^0^0^0
|
||||
fecha^f005
|
||||
tipo^tp
|
||||
cuenta_no^ct
|
||||
departamento^dp
|
||||
debito^br
|
||||
credito^cr
|
||||
cgtb00005^1^0^1^1^0^0^0^0
|
||||
tasa^t20
|
||||
cptb00001^4^0^1^-1^0^0^0^0
|
||||
cod_sp^f2
|
||||
cod_sp_sec^f003
|
||||
orden_no^ord
|
||||
aplica_a^f006
|
||||
tetb00003^1^0^1^1^0^0^0^0
|
||||
codigo^p4
|
||||
formonly^17^0^1^-1^0^0^0^0
|
||||
nombre_dpto^de
|
||||
nombre_cata^ca
|
||||
numero^a1
|
||||
cuenta_p^f010
|
||||
tipo_doc^a0
|
||||
nom_tipo^t1
|
||||
nom_sup^b
|
||||
remanente^re
|
||||
monto^ck
|
||||
detalle^dt
|
||||
valor_pen^f009
|
||||
valor_pag^f002
|
||||
nom_cuenta^d1
|
||||
num_doc^d2
|
||||
cod_aux^d3
|
||||
cod_sec^d4
|
||||
p_descrip^bc
|
||||
s_recibo^5^1^0^2^2^7^78^2
|
||||
tipo^tp
|
||||
orden_no^ord
|
||||
aplica_a^f006
|
||||
valor_pen^f009
|
||||
valor_pag^f002
|
||||
s_cuenta^8^1^0^2^1^11^79^2
|
||||
cuenta_no^ct
|
||||
departamento^dp
|
||||
cod_aux^d3
|
||||
cod_sec^d4
|
||||
num_doc^d2
|
||||
nom_cuenta^d1
|
||||
debito^br
|
||||
credito^cr
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,101 @@
|
||||
0.993
|
||||
11^80^
|
||||
Fecha Inicial Fecha Final Balance Inic.
|
||||
Cuenta
|
||||
|
||||
Fecha Referencia Dpto. Debito Credito Balance
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
screenFields 11
|
||||
f1^1^0^19^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
19^0^8
|
||||
f2^2^0^43^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
43^0^8
|
||||
ct^1^1^19^8^1^0^0^1^0^-32768^0^0^^ Digite Una Cuenta Especifica o Presione <Esc> Busca Todas Las Cuentas^^^^^Entry^^^0^^
|
||||
19^1^8
|
||||
ds^1^1^31^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
31^1^30
|
||||
bal^3^1^65^12^1^0^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
65^1^12
|
||||
f003^2^5^1^8^6^1^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
1^5^8
|
||||
1^6^8
|
||||
1^7^8
|
||||
1^8^8
|
||||
1^9^8
|
||||
1^10^8
|
||||
f004^4^5^11^23^6^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
11^5^23
|
||||
11^6^23
|
||||
11^7^23
|
||||
11^8^23
|
||||
11^9^23
|
||||
11^10^23
|
||||
dpt^3^5^36^4^6^1^0^1^1^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
36^5^4
|
||||
36^6^4
|
||||
36^7^4
|
||||
36^8^4
|
||||
36^9^4
|
||||
36^10^4
|
||||
f005^4^5^42^11^6^1^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
42^5^11
|
||||
42^6^11
|
||||
42^7^11
|
||||
42^8^11
|
||||
42^9^11
|
||||
42^10^11
|
||||
f006^5^5^55^10^6^1^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
55^5^10
|
||||
55^6^10
|
||||
55^7^10
|
||||
55^8^10
|
||||
55^9^10
|
||||
55^10^10
|
||||
bal1^5^5^67^12^6^1^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
67^5^12
|
||||
67^6^12
|
||||
67^7^12
|
||||
67^8^12
|
||||
67^9^12
|
||||
67^10^12
|
||||
formFields 11
|
||||
fecha1^f1
|
||||
fecha2^f2
|
||||
balance^bal
|
||||
cuenta_no^ct
|
||||
descripcion^ds
|
||||
fecha^f003
|
||||
detalle^f004
|
||||
departamento^dpt
|
||||
debito^f005
|
||||
credito^f006
|
||||
balance1^bal1
|
||||
screenRecords 4
|
||||
cgtb00004^5^0^1^-1^0^0^0^0
|
||||
cuenta_no^ct
|
||||
fecha^f003
|
||||
departamento^dpt
|
||||
debito^f005
|
||||
credito^f006
|
||||
cgtb00001^1^0^1^1^0^0^0^0
|
||||
descripcion^ds
|
||||
formonly^5^0^1^-1^0^0^0^0
|
||||
fecha1^f1
|
||||
fecha2^f2
|
||||
balance^bal
|
||||
detalle^f004
|
||||
balance1^bal1
|
||||
s_cuenta2^6^1^0^6^1^5^79^6
|
||||
fecha^f003
|
||||
detalle^f004
|
||||
departamento^dpt
|
||||
debito^f005
|
||||
credito^f006
|
||||
balance1^bal1
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,112 @@
|
||||
0.993
|
||||
14^80^
|
||||
Digite Rango Fecha Entrega:
|
||||
Codigo Cronologico :
|
||||
==============================================================================
|
||||
Cuenta Numero Fecha Fecha Monto
|
||||
Bancaria Cheque Cheque Entrega Cheque
|
||||
==============================================================================
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
screenFields 10
|
||||
f1^1^0^29^8^1^0^0^1^0^-32768^0^7^^Fecha Inicial Del Rango^^^dd/mm/yy^^Entry^^^0^^
|
||||
29^0^8
|
||||
f2^2^0^40^8^1^0^0^1^0^-32768^0^7^^Fecha Final Del Rango^^^dd/mm/yy^^Entry^^^0^^
|
||||
40^0^8
|
||||
k1^1^1^29^8^1^0^0^1^1568^-32768^0^0^^Digite Codigo de Cronologico O Deje en Blanco Para Todos^^^^^Entry^^^0^^
|
||||
29^1^8
|
||||
a2^3^1^39^38^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
39^1^38
|
||||
p4^3^6^1^8^8^1^0^1^1056^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
1^6^8
|
||||
1^7^8
|
||||
1^8^8
|
||||
1^9^8
|
||||
1^10^8
|
||||
1^11^8
|
||||
1^12^8
|
||||
1^13^8
|
||||
a1^4^6^11^28^8^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
11^6^28
|
||||
11^7^28
|
||||
11^8^28
|
||||
11^9^28
|
||||
11^10^28
|
||||
11^11^28
|
||||
11^12^28
|
||||
11^13^28
|
||||
f3^2^6^41^6^8^1^0^1^1056^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
41^6^6
|
||||
41^7^6
|
||||
41^8^6
|
||||
41^9^6
|
||||
41^10^6
|
||||
41^11^6
|
||||
41^12^6
|
||||
41^13^6
|
||||
f6^1^6^49^8^8^1^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
49^6^8
|
||||
49^7^8
|
||||
49^8^8
|
||||
49^9^8
|
||||
49^10^8
|
||||
49^11^8
|
||||
49^12^8
|
||||
49^13^8
|
||||
f7^4^6^59^8^8^1^0^1^1056^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
59^6^8
|
||||
59^7^8
|
||||
59^8^8
|
||||
59^9^8
|
||||
59^10^8
|
||||
59^11^8
|
||||
59^12^8
|
||||
59^13^8
|
||||
f8^5^6^69^10^8^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
69^6^10
|
||||
69^7^10
|
||||
69^8^10
|
||||
69^9^10
|
||||
69^10^10
|
||||
69^11^10
|
||||
69^12^10
|
||||
69^13^10
|
||||
formFields 10
|
||||
fecha1^f1
|
||||
fecha2^f2
|
||||
beneficiario^a2
|
||||
cod_cro^k1
|
||||
cheque_no^f3
|
||||
banco^p4
|
||||
nombre_bco^a1
|
||||
fecha^f6
|
||||
fecha_ent^f7
|
||||
monto^f8
|
||||
screenRecords 4
|
||||
cgtb00032^4^0^1^-1^0^0^0^0
|
||||
cod_cro^k1
|
||||
cheque_no^f3
|
||||
banco^p4
|
||||
fecha_ent^f7
|
||||
cgtb00005^1^0^1^-1^0^0^0^0
|
||||
fecha^f6
|
||||
formonly^5^0^1^-1^0^0^0^0
|
||||
fecha1^f1
|
||||
fecha2^f2
|
||||
beneficiario^a2
|
||||
nombre_bco^a1
|
||||
monto^f8
|
||||
scr_ent^6^1^0^8^1^6^79^8
|
||||
banco^p4
|
||||
nombre_bco^a1
|
||||
cheque_no^f3
|
||||
fecha^f6
|
||||
fecha_ent^f7
|
||||
monto^f8
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,100 @@
|
||||
0.993
|
||||
13^80^
|
||||
Factura(s) :
|
||||
==============================================================================
|
||||
Numero Fecha Cuenta Monto
|
||||
Suplidor(es) Cheque Cheque Bancaria Cheque
|
||||
==============================================================================
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
screenFields 7
|
||||
k1^1^0^14^8^1^0^0^1^512^-32768^0^0^^Digite Numero(s) de Factura(s)^^^^^Entry^^^0^^
|
||||
14^0^8
|
||||
p4^2^5^1^8^8^1^0^1^1056^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
1^5^8
|
||||
1^6^8
|
||||
1^7^8
|
||||
1^8^8
|
||||
1^9^8
|
||||
1^10^8
|
||||
1^11^8
|
||||
1^12^8
|
||||
a1^1^5^11^28^8^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
11^5^28
|
||||
11^6^28
|
||||
11^7^28
|
||||
11^8^28
|
||||
11^9^28
|
||||
11^10^28
|
||||
11^11^28
|
||||
11^12^28
|
||||
f3^1^5^41^6^8^1^0^1^1056^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
41^5^6
|
||||
41^6^6
|
||||
41^7^6
|
||||
41^8^6
|
||||
41^9^6
|
||||
41^10^6
|
||||
41^11^6
|
||||
41^12^6
|
||||
f6^1^5^49^8^8^1^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
49^5^8
|
||||
49^6^8
|
||||
49^7^8
|
||||
49^8^8
|
||||
49^9^8
|
||||
49^10^8
|
||||
49^11^8
|
||||
49^12^8
|
||||
f7^3^5^59^8^8^1^0^1^1056^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
59^5^8
|
||||
59^6^8
|
||||
59^7^8
|
||||
59^8^8
|
||||
59^9^8
|
||||
59^10^8
|
||||
59^11^8
|
||||
59^12^8
|
||||
f8^2^5^69^10^8^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
69^5^10
|
||||
69^6^10
|
||||
69^7^10
|
||||
69^8^10
|
||||
69^9^10
|
||||
69^10^10
|
||||
69^11^10
|
||||
69^12^10
|
||||
formFields 7
|
||||
p_factura^k1
|
||||
cheque_no^f3
|
||||
cod_cro^p4
|
||||
beneficiario^a1
|
||||
fecha^f6
|
||||
banco^f7
|
||||
monto^f8
|
||||
screenRecords 5
|
||||
cgtb00031^1^0^1^-1^0^0^0^0
|
||||
beneficiario^a1
|
||||
cgtb00032^3^0^1^-1^0^0^0^0
|
||||
cheque_no^f3
|
||||
cod_cro^p4
|
||||
banco^f7
|
||||
cgtb00005^1^0^1^-1^0^0^0^0
|
||||
fecha^f6
|
||||
formonly^2^0^1^-1^0^0^0^0
|
||||
p_factura^k1
|
||||
monto^f8
|
||||
scr_ent^6^1^0^8^1^5^79^8
|
||||
cod_cro^p4
|
||||
beneficiario^a1
|
||||
cheque_no^f3
|
||||
fecha^f6
|
||||
banco^f7
|
||||
monto^f8
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,99 @@
|
||||
0.993
|
||||
15^80^
|
||||
Cuenta No.
|
||||
Descripcion Espanol
|
||||
Descripcion Ingles
|
||||
Analitico
|
||||
Catalogo
|
||||
Departamento
|
||||
Nivel
|
||||
Referencia
|
||||
Origen
|
||||
Estado B/G
|
||||
Estado Resultado
|
||||
Cuenta a que aplica
|
||||
|
||||
Usuario Creador Usuario Modificador
|
||||
Fecha Creacion Fecha Modificacion
|
||||
screenFields 19
|
||||
c1^1^0^22^8^1^0^0^1^2^16^0^0^^Digite Numero de la cuenta contable^^^^^Entry^^^0^^
|
||||
22^0^8
|
||||
c2^3^1^22^50^1^0^0^1^544^16^0^0^^^^^^^Entry^^^0^^
|
||||
22^1^50
|
||||
c3^4^2^22^50^1^0^0^1^512^16^0^0^^^^^^^Entry^^^0^^
|
||||
22^2^50
|
||||
a^5^3^22^1^1^0^0^1^512^16^0^0^^^^S|N^^^Entry^^^0^^
|
||||
22^3^1
|
||||
t^2^4^22^1^1^0^0^1^512^-32768^0^0^^^^S|N^^^Entry^^^0^^
|
||||
22^4^1
|
||||
b^6^5^22^1^1^0^0^1^512^16^0^0^^^^S|N^^^Entry^^^0^^
|
||||
22^5^1
|
||||
d^7^6^22^1^1^0^0^1^32^16^0^1^^Digite 1- Cuenta Control 2- Sub-control 3- Auxiliar^^1:3^^^Entry^^^0^^
|
||||
22^6^1
|
||||
c13^2^6^25^17^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
25^6^17
|
||||
e^8^7^22^1^1^0^0^1^512^16^0^0^^^^S|N^^^Entry^^^0^^
|
||||
22^7^1
|
||||
f^9^8^22^1^1^0^0^1^512^16^0^0^^D - Origen Deudor C - Origen Acreedor^^D|C^^^Entry^^^0^^
|
||||
22^8^1
|
||||
c4^10^9^22^4^1^0^0^1^512^16^0^0^^Digite la referencia del estado financiero^^^^^Entry^^^0^^
|
||||
22^9^4
|
||||
c5^11^10^22^4^1^0^0^1^512^16^0^0^^Digite la referencia del estado financiero^^^^^Entry^^^0^^
|
||||
22^10^4
|
||||
c10^12^11^22^8^1^0^0^1^0^16^0^0^^Digite la cuenta que exista que aplica a esta cuenta^^^^^Entry^^^0^^
|
||||
22^11^8
|
||||
c12^1^11^33^31^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
33^11^31
|
||||
g^13^12^2^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
2^12^1
|
||||
c6^14^13^18^10^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
18^13^10
|
||||
c7^15^13^63^10^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
63^13^10
|
||||
c8^16^14^18^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
18^14^16
|
||||
c9^17^14^63^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
63^14^16
|
||||
formFields 19
|
||||
cuenta_no^c1
|
||||
cata^t
|
||||
descripcion^c2
|
||||
descrip_ing^c3
|
||||
analitico^a
|
||||
depto^b
|
||||
nivel^d
|
||||
ref^e
|
||||
origen^f
|
||||
estado_a^c4
|
||||
estado_m^c5
|
||||
aplica_a^c10
|
||||
status_t^g
|
||||
us_crea^c6
|
||||
us_mod^c7
|
||||
fech_crea^c8
|
||||
fech_mod^c9
|
||||
descrip^c12
|
||||
desc_nivel^c13
|
||||
screenRecords 2
|
||||
cgtb00001^17^0^1^1^0^0^0^0
|
||||
cuenta_no^c1
|
||||
cata^t
|
||||
descripcion^c2
|
||||
descrip_ing^c3
|
||||
analitico^a
|
||||
depto^b
|
||||
nivel^d
|
||||
ref^e
|
||||
origen^f
|
||||
estado_a^c4
|
||||
estado_m^c5
|
||||
aplica_a^c10
|
||||
status_t^g
|
||||
us_crea^c6
|
||||
us_mod^c7
|
||||
fech_crea^c8
|
||||
fech_mod^c9
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
descrip^c12
|
||||
desc_nivel^c13
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,47 @@
|
||||
0.993
|
||||
8^79^
|
||||
Codigo Transaccion
|
||||
Clave Alfabetica
|
||||
Descripcion
|
||||
|
||||
|
||||
Usuario Creador Usuario Modificador
|
||||
Fecha Creacion Fecha Modificacion
|
||||
|
||||
screenFields 8
|
||||
c1^1^0^23^3^1^0^0^1^0^16^0^1^^^^^^^Entry^^^0^^
|
||||
23^0^3
|
||||
c2^2^1^23^3^1^0^0^1^512^16^0^0^^^^^^^Entry^^^0^^
|
||||
23^1^3
|
||||
c3^3^2^23^30^1^0^0^1^512^16^0^0^^^^^^^Entry^^^0^^
|
||||
23^2^30
|
||||
g^4^3^6^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
6^3^1
|
||||
c6^5^5^20^10^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^5^10
|
||||
c7^6^5^62^10^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
62^5^10
|
||||
c8^7^6^20^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
20^6^16
|
||||
c9^8^6^62^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
62^6^16
|
||||
formFields 8
|
||||
tipo^c1
|
||||
clave^c2
|
||||
descripcion^c3
|
||||
status_t^g
|
||||
us_crea^c6
|
||||
us_mod^c7
|
||||
fech_crea^c8
|
||||
fech_mod^c9
|
||||
screenRecords 1
|
||||
cgtb00003^8^0^1^1^0^0^0^0
|
||||
tipo^c1
|
||||
clave^c2
|
||||
descripcion^c3
|
||||
status_t^g
|
||||
us_crea^c6
|
||||
us_mod^c7
|
||||
fech_crea^c8
|
||||
fech_mod^c9
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,120 @@
|
||||
0.993
|
||||
14^78^[]
|
||||
Fecha del Volante: No. Volante
|
||||
Departamento Control:
|
||||
Departamento Requiere:
|
||||
Tipo Volante:
|
||||
Monto :
|
||||
Preparado Por: Recibido Por:
|
||||
Autorizado Por:
|
||||
|
||||
Requerimientos Valor
|
||||
|
||||
|
||||
|
||||
|
||||
(( Digite el codigo 9-9-99-999 Para Requerimientos no codificables ))
|
||||
screenFields 19
|
||||
fe^1^0^24^9^1^0^0^1^2^16^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
24^0^9
|
||||
f001^2^0^47^7^1^0^0^1^1^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
47^0^7
|
||||
de1^3^1^24^5^1^0^0^1^2^-32768^0^1^^Departamento donde se guarda la secuencia de los volantes o Press Ctrl-W Help^^^^^Entry^^^0^^
|
||||
24^1^5
|
||||
nom^1^1^32^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
32^1^30
|
||||
de2^4^2^24^5^1^0^0^1^0^16^0^1^^Departamento que requiere el volante de caja chica^^^^^Entry^^^0^^
|
||||
24^2^5
|
||||
nom1^2^2^32^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
32^2^30
|
||||
t^3^3^24^1^1^0^0^1^512^16^0^0^^Digite el tipo de volante P- PROVISIONAL D- DEFINITIVO^^P|D^^^Entry^^^0^^
|
||||
24^3^1
|
||||
t1^4^3^27^15^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
27^3^15
|
||||
mo^5^4^24^14^1^0^0^1^0^16^0^5^^Digite el monto total del volante^^^^^Entry^^^0^^
|
||||
24^4^14
|
||||
p^6^5^17^20^1^0^0^1^512^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
17^5^20
|
||||
p1^7^5^53^21^1^0^0^1^512^16^0^0^^^^^^^Entry^^^0^^
|
||||
53^5^21
|
||||
p2^8^6^17^21^1^0^0^1^512^16^0^0^^^^^^^Entry^^^0^^
|
||||
17^6^21
|
||||
a^9^10^3^1^3^1^0^1^2^16^0^1^^Digite codigo de lo que se quiere o Ctrl-B Consulta Codigo^^^^^Entry^^^0^^
|
||||
3^10^1
|
||||
3^11^1
|
||||
3^12^1
|
||||
b^10^10^6^1^3^1^0^1^2^16^0^1^^Digite codigo de lo que se quiere o Ctrl-B Consulta Codigo^^^^^Entry^^^0^^
|
||||
6^10^1
|
||||
6^11^1
|
||||
6^12^1
|
||||
c^11^10^9^2^3^1^0^1^2^16^0^1^^Digite codigo de lo que se quiere o Ctrl-B Consulta Codigo^^^^^Entry^^^0^^
|
||||
9^10^2
|
||||
9^11^2
|
||||
9^12^2
|
||||
d^12^10^13^3^3^1^0^1^2^16^0^1^^Digite codigo de lo que se quiere o Ctrl-B Consulta Codigo^^^^^Entry^^^0^^
|
||||
13^10^3
|
||||
13^11^3
|
||||
13^12^3
|
||||
f002^5^10^18^32^3^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
18^10^32
|
||||
18^11^32
|
||||
18^12^32
|
||||
f01^6^10^52^3^3^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
52^10^3
|
||||
52^11^3
|
||||
52^12^3
|
||||
f004^13^10^64^13^3^1^0^1^0^16^0^5^^^^^^^Entry^^^0^^
|
||||
64^10^13
|
||||
64^11^13
|
||||
64^12^13
|
||||
formFields 19
|
||||
fecha^fe
|
||||
numero^f001
|
||||
departamento_ctrl^de1
|
||||
nombre_ctrl^nom
|
||||
departamento_req^de2
|
||||
nombre_req^nom1
|
||||
tipo^t
|
||||
desc_volante^t1
|
||||
monto^mo
|
||||
preparado_por^p
|
||||
recibido_por^p1
|
||||
autorizado_por^p2
|
||||
cod_n^a
|
||||
cod_grupo^b
|
||||
cod_tipo^c
|
||||
cod_sec^d
|
||||
descripcion^f002
|
||||
unidad^f01
|
||||
valor^f004
|
||||
screenRecords 3
|
||||
cgtb00007^13^0^1^-1^0^0^0^0
|
||||
fecha^fe
|
||||
numero^f001
|
||||
departamento_ctrl^de1
|
||||
departamento_req^de2
|
||||
monto^mo
|
||||
preparado_por^p
|
||||
recibido_por^p1
|
||||
autorizado_por^p2
|
||||
cod_n^a
|
||||
cod_grupo^b
|
||||
cod_tipo^c
|
||||
cod_sec^d
|
||||
valor^f004
|
||||
formonly^6^0^1^-1^0^0^0^0
|
||||
nombre_ctrl^nom
|
||||
nombre_req^nom1
|
||||
tipo^t
|
||||
desc_volante^t1
|
||||
descripcion^f002
|
||||
unidad^f01
|
||||
s_volante^7^1^0^3^3^10^75^3
|
||||
cod_n^a
|
||||
cod_grupo^b
|
||||
cod_tipo^c
|
||||
cod_sec^d
|
||||
descripcion^f002
|
||||
unidad^f01
|
||||
valor^f004
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,114 @@
|
||||
0.993
|
||||
13^80^
|
||||
Fecha : Entrada No.
|
||||
Detalle :
|
||||
|
||||
Cuenta No. Depto Cod. Aux. Refer Debito Credito
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Totales
|
||||
|
||||
|
||||
screenFields 16
|
||||
fe^1^0^12^9^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
12^0^9
|
||||
f00^1^0^36^14^1^0^0^1^514^-32768^0^0^ED.##-###/####^Para Entradas al diario 24-00/0893 o 24-02/0893 ^^^^^Entry^^^0^^
|
||||
36^0^14
|
||||
a1^8^1^12^30^1^0^0^1^514^-32768^0^0^^Digite el detalle^^^^^Entry^^^0^^
|
||||
12^1^30
|
||||
b1^9^1^44^30^1^0^0^1^512^-32768^0^0^^Digite el detalle^^^^^Entry^^^0^^
|
||||
44^1^30
|
||||
f003^2^5^1^8^4^1^0^1^512^-32768^0^0^^Digite la cuenta contable o presione Ctrl-W para busqueda^^^^^Entry^^^0^^
|
||||
1^5^8
|
||||
1^6^8
|
||||
1^7^8
|
||||
1^8^8
|
||||
f004^2^5^13^4^4^1^0^1^2^-32768^0^1^^Digite el numero de departamento^^^^^Entry^^^0^^
|
||||
13^5^4
|
||||
13^6^4
|
||||
13^7^4
|
||||
13^8^4
|
||||
f9^3^5^20^2^4^1^0^1^0^1^0^1^^12- Clientes Suplidores 01- Empleados^^^^^Entry^^^0^^
|
||||
20^5^2
|
||||
20^6^2
|
||||
20^7^2
|
||||
20^8^2
|
||||
f009^4^5^24^4^4^1^0^1^0^-32768^0^1^^Digite Codigo secuencial del auxiliar^^^^^Entry^^^0^^
|
||||
24^5^4
|
||||
24^6^4
|
||||
24^7^4
|
||||
24^8^4
|
||||
f007^5^5^33^10^4^1^0^1^0^1^0^0^^Digite el no. referencia^^^^^Entry^^^0^^
|
||||
33^5^10
|
||||
33^6^10
|
||||
33^7^10
|
||||
33^8^10
|
||||
f005^6^5^49^14^4^1^0^1^0^-32768^0^5^^Digite el monto del debito o digite CTRL-P regresa al # Cta.^^^^^Entry^^^0^^
|
||||
49^5^14
|
||||
49^6^14
|
||||
49^7^14
|
||||
49^8^14
|
||||
f006^7^5^65^14^4^1^0^1^0^-32768^0^5^^Digite el monto del credito o digite CTRL-P regresa al # Cta.^^^^^Entry^^^0^^
|
||||
65^5^14
|
||||
65^6^14
|
||||
65^7^14
|
||||
65^8^14
|
||||
b^3^9^3^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
3^9^30
|
||||
a^4^10^3^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
3^10^30
|
||||
pk4^6^10^48^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
48^10^14
|
||||
pk5^7^10^64^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
64^10^13
|
||||
c^5^11^3^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
3^11^30
|
||||
formFields 16
|
||||
fecha^fe
|
||||
entrada_no^f00
|
||||
cuenta^f003
|
||||
departamento^f004
|
||||
cod_aux^f9
|
||||
cod_sec^f009
|
||||
num_doc^f007
|
||||
debito^f005
|
||||
credito^f006
|
||||
detalles^a1
|
||||
detalle_1^b1
|
||||
descrip^b
|
||||
nombre^a
|
||||
nombre_aux^c
|
||||
t_debito^pk4
|
||||
t_credito^pk5
|
||||
screenRecords 3
|
||||
cgtb00004^9^0^1^-1^0^0^0^0
|
||||
fecha^fe
|
||||
departamento^f004
|
||||
cod_aux^f9
|
||||
cod_sec^f009
|
||||
num_doc^f007
|
||||
debito^f005
|
||||
credito^f006
|
||||
detalles^a1
|
||||
detalle_1^b1
|
||||
formonly^7^0^1^-1^0^0^0^0
|
||||
entrada_no^f00
|
||||
cuenta^f003
|
||||
descrip^b
|
||||
nombre^a
|
||||
nombre_aux^c
|
||||
t_debito^pk4
|
||||
t_credito^pk5
|
||||
s_trx^7^1^0^4^1^5^79^4
|
||||
cuenta^f003
|
||||
departamento^f004
|
||||
cod_aux^f9
|
||||
cod_sec^f009
|
||||
num_doc^f007
|
||||
debito^f005
|
||||
credito^f006
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,173 @@
|
||||
0.993
|
||||
14^80^
|
||||
Cheque No. Cuenta Del Banco Tipo
|
||||
Portador -
|
||||
Fecha Tasa Monto Cheque Remanente
|
||||
Codigo Partida
|
||||
|
||||
Tipo Orden Factura(s) Valor Pendiente Valor Pagado
|
||||
|
||||
|
||||
|
||||
Cuenta No. Depto. Catalo. Referencia Descrip. Cta. Debito Credito
|
||||
|
||||
|
||||
|
||||
Deto: Catalogo:
|
||||
screenFields 28
|
||||
a1^3^0^11^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
11^0^9
|
||||
f010^4^0^40^8^1^0^0^1^0^-32768^0^0^^Digite El numero de la cuenta del banco que esta en catalogo^^^^^Entry^^^0^^
|
||||
40^0^8
|
||||
a0^5^0^61^2^1^0^0^1^514^-32768^0^0^^CK-CHEQUE CP-CHEQUE POR PREPAGO^^CP|CK^^^Entry^^^0^^
|
||||
61^0^2
|
||||
t1^6^0^65^14^1^0^0^1^1^1^0^0^^^^^^^Entry^^^0^^
|
||||
65^0^14
|
||||
f2^1^1^11^2^1^0^0^1^2^-32768^0^1^^Del 21 al 23 Cod. Supidor 01- Empleados o Deje en Blanco Para OTROS^^^^^Entry^^^0^^
|
||||
11^1^2
|
||||
f003^2^1^16^4^1^0^0^1^2^-32768^0^1^^Digite el codigo del suplidor o deje en blanco si no tiene^^^^^Entry^^^0^^
|
||||
16^1^4
|
||||
b^7^1^22^45^1^0^0^1^512^1^0^0^^^^^^^Entry^^^0^^
|
||||
22^1^45
|
||||
f005^1^2^10^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
10^2^8
|
||||
t20^1^2^24^5^1^0^0^1^0^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
24^2^5
|
||||
ck^9^2^43^13^1^0^0^1^32^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
43^2^13
|
||||
re^8^2^67^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
67^2^9
|
||||
p4^1^3^16^4^1^0^0^1^2^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
16^3^4
|
||||
bc^16^3^22^30^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^3^30
|
||||
tp^2^6^2^2^2^1^0^1^0^-32768^0^1^^01 = Generales 02 = ROV-Ltd 03 = Locales 04 = Miscelaneas^^^^^Entry^^^0^^
|
||||
2^6^2
|
||||
2^7^2
|
||||
ord^3^6^11^8^2^1^0^1^0^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
11^6^8
|
||||
11^7^8
|
||||
f006^4^6^23^9^2^1^0^1^0^-32768^0^0^^Presione Ctrl-W Para Buscar Documentos Pendientes^^^^^Entry^^^0^^
|
||||
23^6^9
|
||||
23^7^9
|
||||
f009^10^6^43^13^2^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^6^13
|
||||
43^7^13
|
||||
f002^11^6^66^13^2^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
66^6^13
|
||||
66^7^13
|
||||
ct^3^10^1^8^3^1^0^1^0^-32768^0^0^^Digite numero de la cuenta^^^^^Entry^^^0^^
|
||||
1^10^8
|
||||
1^11^8
|
||||
1^12^8
|
||||
dp^4^10^11^4^3^1^0^1^0^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
11^10^4
|
||||
11^11^4
|
||||
11^12^4
|
||||
d3^14^10^17^2^3^1^0^1^0^-32768^0^0^^Del 21 al 23 Cod. Supidor 01- Empleados o Deje en Blanco Para OTROS^^^^^Entry^^^0^^
|
||||
17^10^2
|
||||
17^11^2
|
||||
17^12^2
|
||||
d4^15^10^21^4^3^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
21^10^4
|
||||
21^11^4
|
||||
21^12^4
|
||||
d2^13^10^27^12^3^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
27^10^12
|
||||
27^11^12
|
||||
27^12^12
|
||||
d1^12^10^41^12^3^1^0^1^513^1^0^0^^^^^^^Entry^^^0^^
|
||||
41^10^12
|
||||
41^11^12
|
||||
41^12^12
|
||||
br^5^10^55^11^3^1^0^1^0^-32768^0^5^^Ctrl-P Retorna a # de Cuenta^^^^^Entry^^^0^^
|
||||
55^10^11
|
||||
55^11^11
|
||||
55^12^11
|
||||
cr^6^10^68^11^3^1^0^1^0^-32768^0^5^^Ctrl-P Retorna a # de Cuenta^^^^^Entry^^^0^^
|
||||
68^10^11
|
||||
68^11^11
|
||||
68^12^11
|
||||
de^1^13^6^20^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
6^13^20
|
||||
ca^2^13^38^32^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
38^13^32
|
||||
formFields 28
|
||||
nombre_dpto^de
|
||||
nombre_cata^ca
|
||||
numero^a1
|
||||
cuenta_p^f010
|
||||
tipo_doc^a0
|
||||
nom_tipo^t1
|
||||
cod_sp^f2
|
||||
cod_sp_sec^f003
|
||||
nom_sup^b
|
||||
fecha^f005
|
||||
tasa^t20
|
||||
remanente^re
|
||||
monto^ck
|
||||
tipo^tp
|
||||
orden_no^ord
|
||||
aplica_a^f006
|
||||
valor_pen^f009
|
||||
valor_pag^f002
|
||||
cuenta_no^ct
|
||||
departamento^dp
|
||||
nom_cuenta^d1
|
||||
num_doc^d2
|
||||
cod_aux^d3
|
||||
cod_sec^d4
|
||||
debito^br
|
||||
credito^cr
|
||||
codigo^p4
|
||||
p_descrip^bc
|
||||
screenRecords 7
|
||||
cgtb00004^6^0^1^-1^0^0^0^0
|
||||
fecha^f005
|
||||
tipo^tp
|
||||
cuenta_no^ct
|
||||
departamento^dp
|
||||
debito^br
|
||||
credito^cr
|
||||
cgtb00005^1^0^1^1^0^0^0^0
|
||||
tasa^t20
|
||||
cptb00001^4^0^1^-1^0^0^0^0
|
||||
cod_sp^f2
|
||||
cod_sp_sec^f003
|
||||
orden_no^ord
|
||||
aplica_a^f006
|
||||
tetb00003^1^0^1^1^0^0^0^0
|
||||
codigo^p4
|
||||
formonly^16^0^1^-1^0^0^0^0
|
||||
nombre_dpto^de
|
||||
nombre_cata^ca
|
||||
numero^a1
|
||||
cuenta_p^f010
|
||||
tipo_doc^a0
|
||||
nom_tipo^t1
|
||||
nom_sup^b
|
||||
remanente^re
|
||||
monto^ck
|
||||
valor_pen^f009
|
||||
valor_pag^f002
|
||||
nom_cuenta^d1
|
||||
num_doc^d2
|
||||
cod_aux^d3
|
||||
cod_sec^d4
|
||||
p_descrip^bc
|
||||
s_recibo^5^1^0^2^2^6^78^2
|
||||
tipo^tp
|
||||
orden_no^ord
|
||||
aplica_a^f006
|
||||
valor_pen^f009
|
||||
valor_pag^f002
|
||||
s_cuenta^8^1^0^3^1^10^79^3
|
||||
cuenta_no^ct
|
||||
departamento^dp
|
||||
cod_aux^d3
|
||||
cod_sec^d4
|
||||
num_doc^d2
|
||||
nom_cuenta^d1
|
||||
debito^br
|
||||
credito^cr
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,106 @@
|
||||
0.993
|
||||
12^78^
|
||||
Orden No. Suplidor
|
||||
Fecha Reporte de Entrada
|
||||
Status Orden:
|
||||
Factura Comercial
|
||||
|
||||
Cantidad Costo &
|
||||
Materiales... Ordenada F O B Flete
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
screenFields 16
|
||||
t1^1^0^10^2^1^0^0^1^2^-32768^0^0^^01- Generales 02- Rov-Ltd 03- Locales 04- Miscelaneas^^01|02|03|04^^^Entry^^^0^^
|
||||
10^0^2
|
||||
f1^2^0^14^6^1^0^0^1^2^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
14^0^6
|
||||
f2^3^0^32^2^1^0^0^1^1^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
32^0^2
|
||||
f3^4^0^36^4^1^0^0^1^1^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
36^0^4
|
||||
a^1^0^42^31^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
42^0^31
|
||||
f4^6^1^10^8^1^0^0^1^1^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
10^1^8
|
||||
f10^5^1^40^7^1^0^0^1^2^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
40^1^7
|
||||
b^4^2^14^11^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
14^2^11
|
||||
c^2^2^27^11^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
27^2^11
|
||||
d^3^2^40^11^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
40^2^11
|
||||
k1^7^3^19^12^1^0^0^1^2^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
19^3^12
|
||||
f5^5^8^1^10^4^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
1^8^10
|
||||
1^9^10
|
||||
1^10^10
|
||||
1^11^10
|
||||
e^6^8^13^26^4^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
13^8^26
|
||||
13^9^26
|
||||
13^10^26
|
||||
13^11^26
|
||||
f6^1^8^41^12^4^1^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
41^8^12
|
||||
41^9^12
|
||||
41^10^12
|
||||
41^11^12
|
||||
f7^2^8^55^10^4^1^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
55^8^10
|
||||
55^9^10
|
||||
55^10^10
|
||||
55^11^10
|
||||
f8^3^8^67^10^4^1^0^1^0^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
67^8^10
|
||||
67^9^10
|
||||
67^10^10
|
||||
67^11^10
|
||||
formFields 16
|
||||
tipo^t1
|
||||
num_oc^f1
|
||||
nombre_sp^a
|
||||
cod_sp^f2
|
||||
cod_sp_sec^f3
|
||||
rep_entrada^f10
|
||||
fecha^f4
|
||||
s_liqui^c
|
||||
s_cerrada^d
|
||||
s_pagada^b
|
||||
factura^k1
|
||||
codigo^f5
|
||||
descripcion^e
|
||||
cantidad_oc^f6
|
||||
fob^f7
|
||||
costo_flete^f8
|
||||
screenRecords 4
|
||||
cgtb00017^7^0^1^1^0^0^0^0
|
||||
tipo^t1
|
||||
num_oc^f1
|
||||
cod_sp^f2
|
||||
cod_sp_sec^f3
|
||||
rep_entrada^f10
|
||||
fecha^f4
|
||||
factura^k1
|
||||
cgtb00018^3^0^1^-1^0^0^0^0
|
||||
cantidad_oc^f6
|
||||
fob^f7
|
||||
costo_flete^f8
|
||||
formonly^6^0^1^-1^0^0^0^0
|
||||
nombre_sp^a
|
||||
s_liqui^c
|
||||
s_cerrada^d
|
||||
s_pagada^b
|
||||
codigo^f5
|
||||
descripcion^e
|
||||
s_lq^5^1^0^4^1^8^77^4
|
||||
codigo^f5
|
||||
descripcion^e
|
||||
cantidad_oc^f6
|
||||
fob^f7
|
||||
costo_flete^f8
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,101 @@
|
||||
0.993
|
||||
15^73^
|
||||
Numero Cheque Fecha Del Cheque
|
||||
Cta. del Banco
|
||||
Valor Del Cheque
|
||||
A La Orden De:
|
||||
|
||||
Codigo Cronol.
|
||||
|
||||
Recibido_por
|
||||
|
||||
Cedula
|
||||
Direccion
|
||||
fecha_ent
|
||||
hora_ent
|
||||
Usuario Creador Ususario Modi.
|
||||
Fecha Creacion Fecha Modifica
|
||||
screenFields 20
|
||||
f000^1^0^22^11^1^0^0^1^1056^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
22^0^11
|
||||
k1^4^0^53^8^1^0^0^1^1^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
53^0^8
|
||||
f001^2^1^22^8^1^0^0^1^1056^-32768^0^0^^Digite Cuenta Del Banco O Presione Ctrl-O Para Buscar Bancos^^^^^Entry^^^0^^
|
||||
22^1^8
|
||||
d^1^1^36^35^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
36^1^35
|
||||
f20^1^2^22^13^1^0^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
22^2^13
|
||||
e^2^3^23^40^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
23^3^40
|
||||
f002^3^5^22^8^1^0^0^1^1570^-32768^0^0^X-###-##^Digite Codigo Cronologico o Presione Ctrl-W Para Consultar^^^^^Entry^^^0^^
|
||||
22^5^8
|
||||
b^1^5^32^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
32^5^30
|
||||
c^0^6^32^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
32^6^30
|
||||
f003^5^7^22^30^1^0^0^1^1568^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^7^30
|
||||
f004^0^8^22^30^1^0^0^1^1568^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^8^30
|
||||
f005^6^9^22^20^1^0^0^1^1568^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^9^20
|
||||
a^13^9^47^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
47^9^1
|
||||
f^14^10^22^43^1^0^0^1^0^-32768^0^0^^Entre Direccion De La Persona Que Retira El Cheque^^^^^Entry^^^0^^
|
||||
22^10^43
|
||||
f006^7^11^22^8^1^0^0^1^1056^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
22^11^8
|
||||
f007^8^12^22^5^1^0^0^1^1056^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^12^5
|
||||
f008^9^13^22^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^13^9
|
||||
f010^11^13^55^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
55^13^9
|
||||
f009^10^14^22^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
22^14^16
|
||||
f011^12^14^55^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
55^14^16
|
||||
formFields 18
|
||||
cheque_no^f000
|
||||
banco^f001
|
||||
cod_cro^f002
|
||||
fecha^k1
|
||||
recibido_por^f003
|
||||
cedula^f005
|
||||
fecha_ent^f006
|
||||
hora_ent^f007
|
||||
us_crea^f008
|
||||
fech_crea^f009
|
||||
us_mod^f010
|
||||
fech_mod^f011
|
||||
monto^f20
|
||||
status_t^a
|
||||
beneficiario^b
|
||||
nombre_bco^d
|
||||
portador^e
|
||||
direccion^f
|
||||
screenRecords 4
|
||||
cgtb00032^14^0^1^1^0^0^0^0
|
||||
cheque_no^f000
|
||||
banco^f001
|
||||
cod_cro^f002
|
||||
fecha^k1
|
||||
recibido_por^f003
|
||||
cedula^f005
|
||||
fecha_ent^f006
|
||||
hora_ent^f007
|
||||
us_crea^f008
|
||||
fech_crea^f009
|
||||
us_mod^f010
|
||||
fech_mod^f011
|
||||
status_t^a
|
||||
direccion^f
|
||||
cgtb00031^1^0^1^1^0^0^0^0
|
||||
beneficiario^b
|
||||
cgtb00012^1^0^1^1^0^0^0^0
|
||||
nombre_bco^d
|
||||
cgtb00005^2^0^1^1^0^0^0^0
|
||||
monto^f20
|
||||
portador^e
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,44 @@
|
||||
0.993
|
||||
8^76^
|
||||
|
||||
Cuenta No.
|
||||
|
||||
|
||||
Usuario Creador Usuario Modificador
|
||||
Fecha Creacion Fecha Creacion
|
||||
|
||||
|
||||
screenFields 7
|
||||
f000^1^1^20^8^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^1^8
|
||||
a^1^1^30^33^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
30^1^33
|
||||
b^2^2^1^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
1^2^1
|
||||
f001^3^4^20^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^4^9
|
||||
f003^5^4^59^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
59^4^9
|
||||
f002^4^5^20^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
20^5^16
|
||||
f004^6^5^59^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
59^5^16
|
||||
formFields 7
|
||||
cuenta_no^f000
|
||||
status_t^b
|
||||
nombre^a
|
||||
us_crea^f001
|
||||
fech_crea^f002
|
||||
us_mod^f003
|
||||
fech_mod^f004
|
||||
screenRecords 2
|
||||
cgtb00014^6^0^1^1^0^0^0^0
|
||||
cuenta_no^f000
|
||||
status_t^b
|
||||
us_crea^f001
|
||||
fech_crea^f002
|
||||
us_mod^f003
|
||||
fech_mod^f004
|
||||
formonly^1^0^1^1^0^0^0^0
|
||||
nombre^a
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,43 @@
|
||||
0.993
|
||||
6^75^
|
||||
Codigo Cronologico
|
||||
Beneficiario
|
||||
|
||||
|
||||
Usuario Creaddor Usuario Modificador
|
||||
Fecha Creacion Fecha Modificacion
|
||||
screenFields 8
|
||||
f000^1^0^20^8^1^0^0^1^512^16^0^0^X-###-##^^^^^^Entry^^^0^^
|
||||
20^0^8
|
||||
f001^2^1^20^30^1^0^0^1^512^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^1^30
|
||||
f002^0^2^20^30^1^0^0^1^512^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^2^30
|
||||
a^3^3^20^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^3^1
|
||||
f003^4^4^20^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^4^9
|
||||
f005^6^4^58^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
58^4^9
|
||||
f004^5^5^20^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
20^5^16
|
||||
f006^7^5^58^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
58^5^16
|
||||
formFields 7
|
||||
cod_cro^f000
|
||||
beneficiario^f001
|
||||
status_t^a
|
||||
us_crea^f003
|
||||
fech_crea^f004
|
||||
us_mod^f005
|
||||
fech_mod^f006
|
||||
screenRecords 1
|
||||
cgtb00031^7^0^1^1^0^0^0^0
|
||||
cod_cro^f000
|
||||
beneficiario^f001
|
||||
status_t^a
|
||||
us_crea^f003
|
||||
fech_crea^f004
|
||||
us_mod^f005
|
||||
fech_mod^f006
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,52 @@
|
||||
0.993
|
||||
9^79^
|
||||
Codigo Reg.
|
||||
Descripcion
|
||||
Programa
|
||||
Entrada No.
|
||||
|
||||
|
||||
Usuario Creador Usuario Modificador
|
||||
Fecha Creacion Fecha Modificacion
|
||||
|
||||
screenFields 9
|
||||
c1^1^0^16^3^1^0^0^1^0^16^0^1^^^^^^^Entry^^^0^^
|
||||
16^0^3
|
||||
c3^2^1^16^51^1^0^0^1^512^16^0^0^^^^^^^Entry^^^0^^
|
||||
16^1^51
|
||||
f0^3^2^16^10^1^0^0^1^256^16^0^0^^^^^^^Entry^^^0^^
|
||||
16^2^10
|
||||
ed^9^3^16^9^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
16^3^9
|
||||
g^4^4^4^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
4^4^1
|
||||
c6^5^6^20^10^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^6^10
|
||||
c7^6^6^62^10^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
62^6^10
|
||||
c8^7^7^20^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
20^7^16
|
||||
c9^8^7^62^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
62^7^16
|
||||
formFields 9
|
||||
entrada_no^c1
|
||||
descripcion^c3
|
||||
prog_4gl^f0
|
||||
status_t^g
|
||||
us_crea^c6
|
||||
us_mod^c7
|
||||
fech_crea^c8
|
||||
fech_mod^c9
|
||||
referencia^ed
|
||||
screenRecords 1
|
||||
cgtb00011^9^0^1^1^0^0^0^0
|
||||
entrada_no^c1
|
||||
descripcion^c3
|
||||
prog_4gl^f0
|
||||
status_t^g
|
||||
us_crea^c6
|
||||
us_mod^c7
|
||||
fech_crea^c8
|
||||
fech_mod^c9
|
||||
referencia^ed
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,67 @@
|
||||
0.993
|
||||
10^79^[]
|
||||
Banco
|
||||
|
||||
Numero Cheque
|
||||
Fecha
|
||||
Portador
|
||||
Monto
|
||||
Status Cheque
|
||||
|
||||
Usuario Creador Usuario Modificador
|
||||
Fecha Creacion Fecha Modificacion
|
||||
screenFields 12
|
||||
c^1^0^11^9^1^0^0^1^2^-32768^0^0^^Digite Cuenta del Banco^^^^^Entry^^^0^^
|
||||
11^0^9
|
||||
a^2^0^23^32^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
23^0^32
|
||||
ck^1^2^19^12^1^0^0^1^0^-32768^0^2^^Digite Numero del cheque^^^^^Entry^^^0^^
|
||||
19^2^12
|
||||
fe^2^3^19^9^1^0^0^1^1^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
19^3^9
|
||||
po^3^4^19^32^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
19^4^32
|
||||
m^4^5^19^13^1^0^0^1^1^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
19^5^13
|
||||
b^5^6^19^1^1^0^0^1^512^-32768^0^0^^ C - Cancelado Por el Banco N - Cheque Nulo^C^^^^Entry^^^0^^
|
||||
19^6^1
|
||||
d^1^6^22^15^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^6^15
|
||||
e^6^8^21^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
21^8^9
|
||||
e2^8^8^63^10^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
63^8^10
|
||||
e1^7^9^21^17^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
21^9^17
|
||||
e3^9^9^62^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
62^9^16
|
||||
formFields 12
|
||||
cuenta_no^c
|
||||
descripcion^a
|
||||
cheque_no^ck
|
||||
fecha^fe
|
||||
portador^po
|
||||
monto^m
|
||||
status_t^b
|
||||
descrip_st^d
|
||||
us_crea^e
|
||||
fech_crea^e1
|
||||
us_mod^e2
|
||||
fech_mod^e3
|
||||
screenRecords 3
|
||||
cgtb00001^2^0^1^1^0^0^0^0
|
||||
cuenta_no^c
|
||||
descripcion^a
|
||||
cgtb00005^9^0^1^1^0^0^0^0
|
||||
cheque_no^ck
|
||||
fecha^fe
|
||||
portador^po
|
||||
monto^m
|
||||
status_t^b
|
||||
us_crea^e
|
||||
fech_crea^e1
|
||||
us_mod^e2
|
||||
fech_mod^e3
|
||||
formonly^1^0^1^1^0^0^0^0
|
||||
descrip_st^d
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,97 @@
|
||||
0.993
|
||||
14^73^
|
||||
Numero Cheque Fecha Del Cheque
|
||||
Cta. del Banco
|
||||
Valor Del Cheque
|
||||
A La Orden De:
|
||||
|
||||
Codigo Cronol.
|
||||
Recibido_por
|
||||
|
||||
Cedula
|
||||
Direccion
|
||||
fecha_ent
|
||||
hora_ent
|
||||
Usuario Creador Ususario Modi.
|
||||
Fecha Creacion Fecha Modifica
|
||||
screenFields 19
|
||||
f000^1^0^22^11^1^0^0^1^1056^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
22^0^11
|
||||
k1^4^0^53^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
53^0^8
|
||||
f001^2^1^22^8^1^0^0^1^1056^-32768^0^0^^Digite Cuenta del Banco o Ctrl-O Para Buscar Bancos^^^^^Entry^^^0^^
|
||||
22^1^8
|
||||
d^1^1^36^35^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
36^1^35
|
||||
f20^13^2^22^13^1^0^0^1^0^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
22^2^13
|
||||
e^15^3^23^40^1^0^0^1^512^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
23^3^40
|
||||
f002^3^5^22^8^1^0^0^1^1570^-32768^0^0^X-###-##^Digite Codigo Cronologico o Presione Ctrl-W Para Consultar^^^^^Entry^^^0^^
|
||||
22^5^8
|
||||
b^1^5^32^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
32^5^30
|
||||
f003^5^6^22^30^1^0^0^1^1568^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^6^30
|
||||
f004^0^7^22^30^1^0^0^1^1568^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^7^30
|
||||
f005^6^8^22^20^1^0^0^1^1568^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^8^20
|
||||
a^14^8^47^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
47^8^1
|
||||
f^16^9^22^41^1^0^0^1^0^-32768^0^0^^Digite La Direccion De La Persona Que Retira El Cheque^^^^^Entry^^^0^^
|
||||
22^9^41
|
||||
f006^7^10^22^8^1^0^0^1^1056^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
22^10^8
|
||||
f007^8^11^22^5^1^0^0^1^1056^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^11^5
|
||||
f008^9^12^22^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^12^9
|
||||
f010^11^12^55^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
55^12^9
|
||||
f009^10^13^22^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
22^13^16
|
||||
f011^12^13^55^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
55^13^16
|
||||
formFields 18
|
||||
cheque_no^f000
|
||||
banco^f001
|
||||
cod_cro^f002
|
||||
fecha^k1
|
||||
recibido_por^f003
|
||||
cedula^f005
|
||||
fecha_ent^f006
|
||||
hora_ent^f007
|
||||
us_crea^f008
|
||||
fech_crea^f009
|
||||
us_mod^f010
|
||||
fech_mod^f011
|
||||
monto^f20
|
||||
status_t^a
|
||||
beneficiario^b
|
||||
nombre_bco^d
|
||||
portador^e
|
||||
direccion^f
|
||||
screenRecords 3
|
||||
cgtb00033^16^0^1^1^0^0^0^0
|
||||
cheque_no^f000
|
||||
banco^f001
|
||||
cod_cro^f002
|
||||
fecha^k1
|
||||
recibido_por^f003
|
||||
cedula^f005
|
||||
fecha_ent^f006
|
||||
hora_ent^f007
|
||||
us_crea^f008
|
||||
fech_crea^f009
|
||||
us_mod^f010
|
||||
fech_mod^f011
|
||||
monto^f20
|
||||
status_t^a
|
||||
portador^e
|
||||
direccion^f
|
||||
cgtb00031^1^0^1^1^0^0^0^0
|
||||
beneficiario^b
|
||||
cgtb00012^1^0^1^1^0^0^0^0
|
||||
nombre_bco^d
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,173 @@
|
||||
0.993
|
||||
14^80^
|
||||
Cheque No. Cuenta Del Banco Tipo
|
||||
Portador -
|
||||
Fecha Tasa Monto Cheque Remanente
|
||||
Codigo de Partida
|
||||
|
||||
Tipo Orden Factura(s) Valor Pendiente Valor Pagado
|
||||
|
||||
|
||||
|
||||
Cuenta No. Depto. Catalo. Referencia Descrip. Cta. Debito Credito
|
||||
|
||||
|
||||
|
||||
Deto: Catalogo:
|
||||
screenFields 28
|
||||
a1^3^0^11^9^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
11^0^9
|
||||
f010^4^0^40^8^1^0^0^1^1^-32768^0^0^^Digite El numero de la cuenta del banco que esta en catalogo^^1108^^^Entry^^^0^^
|
||||
40^0^8
|
||||
a0^5^0^61^2^1^0^0^1^514^-32768^0^0^^CK-CHEQUE CP-CHEQUE POR PREPAGO^^CP|CK^^^Entry^^^0^^
|
||||
61^0^2
|
||||
t1^6^0^65^14^1^0^0^1^1^1^0^0^^^^^^^Entry^^^0^^
|
||||
65^0^14
|
||||
f2^1^1^11^2^1^0^0^1^2^-32768^0^1^^Del 21 al 23 Cod. Supidor 01- Empleados o Deje en Blanco Para OTROS^^^^^Entry^^^0^^
|
||||
11^1^2
|
||||
f003^2^1^16^4^1^0^0^1^2^-32768^0^1^^Digite el codigo del suplidor o deje en blanco si no tiene^^^^^Entry^^^0^^
|
||||
16^1^4
|
||||
b^7^1^22^45^1^0^0^1^512^1^0^0^^^^^^^Entry^^^0^^
|
||||
22^1^45
|
||||
f005^1^2^10^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
10^2^8
|
||||
t20^1^2^24^5^1^0^0^1^0^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
24^2^5
|
||||
ck^9^2^43^13^1^0^0^1^32^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
43^2^13
|
||||
re^8^2^67^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
67^2^9
|
||||
p4^1^3^19^4^1^0^0^1^2^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
19^3^4
|
||||
bc^16^3^25^30^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
25^3^30
|
||||
tp^2^6^2^2^2^1^0^1^0^-32768^0^1^^01 = Generales 02 = ROV-Ltd 03 = Locales 04 = Miscelaneas^^^^^Entry^^^0^^
|
||||
2^6^2
|
||||
2^7^2
|
||||
ord^3^6^11^8^2^1^0^1^0^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
11^6^8
|
||||
11^7^8
|
||||
f006^4^6^23^9^2^1^0^1^0^-32768^0^0^^Presione Ctrl-W Para Buscar Documentos Pendientes^^^^^Entry^^^0^^
|
||||
23^6^9
|
||||
23^7^9
|
||||
f009^10^6^43^13^2^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^6^13
|
||||
43^7^13
|
||||
f002^11^6^66^13^2^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
66^6^13
|
||||
66^7^13
|
||||
ct^3^10^1^8^3^1^0^1^0^-32768^0^0^^Digite numero de la cuenta^^^^^Entry^^^0^^
|
||||
1^10^8
|
||||
1^11^8
|
||||
1^12^8
|
||||
dp^4^10^11^4^3^1^0^1^0^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
11^10^4
|
||||
11^11^4
|
||||
11^12^4
|
||||
d3^14^10^17^2^3^1^0^1^0^-32768^0^0^^Del 21 al 23 Cod. Supidor 01- Empleados o Deje en Blanco Para OTROS^^^^^Entry^^^0^^
|
||||
17^10^2
|
||||
17^11^2
|
||||
17^12^2
|
||||
d4^15^10^21^4^3^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
21^10^4
|
||||
21^11^4
|
||||
21^12^4
|
||||
d2^13^10^27^12^3^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
27^10^12
|
||||
27^11^12
|
||||
27^12^12
|
||||
d1^12^10^41^12^3^1^0^1^513^1^0^0^^^^^^^Entry^^^0^^
|
||||
41^10^12
|
||||
41^11^12
|
||||
41^12^12
|
||||
br^5^10^55^11^3^1^0^1^0^-32768^0^5^^Ctrl-P Retorna a # de Cuenta^^^^^Entry^^^0^^
|
||||
55^10^11
|
||||
55^11^11
|
||||
55^12^11
|
||||
cr^6^10^68^11^3^1^0^1^0^-32768^0^5^^Ctrl-P Retorna a # de Cuenta^^^^^Entry^^^0^^
|
||||
68^10^11
|
||||
68^11^11
|
||||
68^12^11
|
||||
de^1^13^6^20^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
6^13^20
|
||||
ca^2^13^38^32^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
38^13^32
|
||||
formFields 28
|
||||
nombre_dpto^de
|
||||
nombre_cata^ca
|
||||
numero^a1
|
||||
cuenta_p^f010
|
||||
tipo_doc^a0
|
||||
nom_tipo^t1
|
||||
cod_sp^f2
|
||||
cod_sp_sec^f003
|
||||
nom_sup^b
|
||||
fecha^f005
|
||||
tasa^t20
|
||||
remanente^re
|
||||
monto^ck
|
||||
tipo^tp
|
||||
orden_no^ord
|
||||
aplica_a^f006
|
||||
valor_pen^f009
|
||||
valor_pag^f002
|
||||
cuenta_no^ct
|
||||
departamento^dp
|
||||
nom_cuenta^d1
|
||||
num_doc^d2
|
||||
cod_aux^d3
|
||||
cod_sec^d4
|
||||
debito^br
|
||||
credito^cr
|
||||
codigo^p4
|
||||
p_descrip^bc
|
||||
screenRecords 7
|
||||
cgtb00004^6^0^1^-1^0^0^0^0
|
||||
fecha^f005
|
||||
tipo^tp
|
||||
cuenta_no^ct
|
||||
departamento^dp
|
||||
debito^br
|
||||
credito^cr
|
||||
cgtb00005^1^0^1^1^0^0^0^0
|
||||
tasa^t20
|
||||
cptb00001^4^0^1^-1^0^0^0^0
|
||||
cod_sp^f2
|
||||
cod_sp_sec^f003
|
||||
orden_no^ord
|
||||
aplica_a^f006
|
||||
tetb00003^1^0^1^1^0^0^0^0
|
||||
codigo^p4
|
||||
formonly^16^0^1^-1^0^0^0^0
|
||||
nombre_dpto^de
|
||||
nombre_cata^ca
|
||||
numero^a1
|
||||
cuenta_p^f010
|
||||
tipo_doc^a0
|
||||
nom_tipo^t1
|
||||
nom_sup^b
|
||||
remanente^re
|
||||
monto^ck
|
||||
valor_pen^f009
|
||||
valor_pag^f002
|
||||
nom_cuenta^d1
|
||||
num_doc^d2
|
||||
cod_aux^d3
|
||||
cod_sec^d4
|
||||
p_descrip^bc
|
||||
s_recibo^5^1^0^2^2^6^78^2
|
||||
tipo^tp
|
||||
orden_no^ord
|
||||
aplica_a^f006
|
||||
valor_pen^f009
|
||||
valor_pag^f002
|
||||
s_cuenta^8^1^0^3^1^10^79^3
|
||||
cuenta_no^ct
|
||||
departamento^dp
|
||||
cod_aux^d3
|
||||
cod_sec^d4
|
||||
num_doc^d2
|
||||
nom_cuenta^d1
|
||||
debito^br
|
||||
credito^cr
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,72 @@
|
||||
0.993
|
||||
12^76^
|
||||
No de Cheque
|
||||
Numero De Cuenta
|
||||
Nombre Del Banco
|
||||
Direccion
|
||||
Cuenta del Banco
|
||||
Codigo
|
||||
Codigo
|
||||
|
||||
Usuario Creador Usuario Modificador
|
||||
Fecha Creacion Fecha Modificacion
|
||||
|
||||
|
||||
screenFields 13
|
||||
f000^1^0^20^11^1^0^0^1^1^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
20^0^11
|
||||
f001^2^1^20^8^1^0^0^1^0^-32768^0^0^^Digite Cuenta Contable^^^^^Entry^^^0^^
|
||||
20^1^8
|
||||
b^1^1^32^31^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
32^1^31
|
||||
f002^3^2^20^40^1^0^0^1^512^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^2^40
|
||||
f003^4^3^20^50^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^3^50
|
||||
f004^5^4^20^14^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^4^14
|
||||
f005^6^5^20^7^1^0^0^1^0^-32768^0^0^^Primer Codigo del No. Del Cheque^^^^^Entry^^^0^^
|
||||
20^5^7
|
||||
f006^7^6^20^7^1^0^0^1^0^-32768^0^0^^Segundo Codigo del No. Del Cheque^^^^^Entry^^^0^^
|
||||
20^6^7
|
||||
a^8^7^20^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^7^1
|
||||
f007^9^8^20^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^8^9
|
||||
f009^11^8^59^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
59^8^9
|
||||
f008^10^9^20^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
20^9^16
|
||||
f010^12^9^59^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
59^9^16
|
||||
formFields 13
|
||||
cheque_no^f000
|
||||
cuenta_no^f001
|
||||
nombre_bco^f002
|
||||
direccion^f003
|
||||
cuenta_bank^f004
|
||||
codigo_1^f005
|
||||
codigo_2^f006
|
||||
nombre_cta^b
|
||||
status_t^a
|
||||
us_crea^f007
|
||||
fech_crea^f008
|
||||
us_mod^f009
|
||||
fech_mod^f010
|
||||
screenRecords 2
|
||||
cgtb00012^12^0^1^1^0^0^0^0
|
||||
cheque_no^f000
|
||||
cuenta_no^f001
|
||||
nombre_bco^f002
|
||||
direccion^f003
|
||||
cuenta_bank^f004
|
||||
codigo_1^f005
|
||||
codigo_2^f006
|
||||
status_t^a
|
||||
us_crea^f007
|
||||
fech_crea^f008
|
||||
us_mod^f009
|
||||
fech_mod^f010
|
||||
formonly^1^0^1^1^0^0^0^0
|
||||
nombre_cta^b
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,61 @@
|
||||
0.993
|
||||
9^76^
|
||||
|
||||
Cuenta No.
|
||||
Presupuesto
|
||||
Ano
|
||||
Mes
|
||||
|
||||
|
||||
Usuario Creador Usuario Modificador
|
||||
Fecha Creacion Fecha Modificacion
|
||||
screenFields 11
|
||||
f000^1^1^22^8^1^0^0^1^1056^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
22^1^8
|
||||
c^1^1^37^38^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
37^1^38
|
||||
f001^2^2^22^14^1^0^0^1^1056^-32768^0^5^^^^^^^Entry^^^0^^
|
||||
22^2^14
|
||||
f002^3^3^22^6^1^0^0^1^1056^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
22^3^6
|
||||
f003^4^4^22^6^1^0^0^1^1056^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
22^4^6
|
||||
b^2^4^37^14^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
37^4^14
|
||||
a^5^5^20^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^5^1
|
||||
f004^6^7^20^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^7^9
|
||||
f006^8^7^59^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
59^7^9
|
||||
f005^7^8^20^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
20^8^16
|
||||
f007^9^8^59^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
59^8^16
|
||||
formFields 11
|
||||
cuenta_no^f000
|
||||
nombre^c
|
||||
presupuesto^f001
|
||||
ano^f002
|
||||
mes^f003
|
||||
nombre_m^b
|
||||
status_t^a
|
||||
us_crea^f004
|
||||
fech_crea^f005
|
||||
us_mod^f006
|
||||
fech_mod^f007
|
||||
screenRecords 2
|
||||
cgtb00023^9^0^1^1^0^0^0^0
|
||||
cuenta_no^f000
|
||||
presupuesto^f001
|
||||
ano^f002
|
||||
mes^f003
|
||||
status_t^a
|
||||
us_crea^f004
|
||||
fech_crea^f005
|
||||
us_mod^f006
|
||||
fech_mod^f007
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
nombre^c
|
||||
nombre_m^b
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,52 @@
|
||||
0.993
|
||||
8^72^
|
||||
|
||||
Cuenta No.
|
||||
Descripcion
|
||||
Departamento
|
||||
|
||||
Usuario Creador Usuario Modificador
|
||||
Fecha Creacion Fecha Modificacion
|
||||
|
||||
screenFields 9
|
||||
c1^1^1^13^8^1^0^0^1^1^16^0^0^^^^^^^Entry^^^0^^
|
||||
13^1^8
|
||||
c2^1^2^13^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
13^2^30
|
||||
c3^2^3^13^5^1^0^0^1^2^16^0^1^^^^^^^Entry^^^0^^
|
||||
13^3^5
|
||||
c5^2^3^20^31^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
20^3^31
|
||||
g^3^4^3^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
3^4^1
|
||||
c6^4^5^17^10^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
17^5^10
|
||||
c7^5^5^55^10^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
55^5^10
|
||||
c8^6^6^17^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
17^6^16
|
||||
c9^7^6^55^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
55^6^16
|
||||
formFields 9
|
||||
cuenta_no^c1
|
||||
p_descripcion^c2
|
||||
departamento^c3
|
||||
nombre^c5
|
||||
status_t^g
|
||||
us_crea^c6
|
||||
us_mod^c7
|
||||
fech_crea^c8
|
||||
fech_mod^c9
|
||||
screenRecords 2
|
||||
cgtb00002^7^0^1^1^0^0^0^0
|
||||
cuenta_no^c1
|
||||
departamento^c3
|
||||
status_t^g
|
||||
us_crea^c6
|
||||
us_mod^c7
|
||||
fech_crea^c8
|
||||
fech_mod^c9
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
p_descripcion^c2
|
||||
nombre^c5
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,12 @@
|
||||
0.993
|
||||
1^36^[]
|
||||
Numero de la Cuenta
|
||||
screenFields 1
|
||||
f000^1^0^27^8^1^0^0^1^0^-32768^0^0^^Digite el numero de cuenta^^^^^Entry^^^0^^
|
||||
27^0^8
|
||||
formFields 1
|
||||
cuenta_no^f000
|
||||
screenRecords 1
|
||||
cgtb00001^1^0^1^1^0^0^0^0
|
||||
cuenta_no^f000
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,23 @@
|
||||
0.993
|
||||
4^26^
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
|
||||
Incluye Tasa
|
||||
screenFields 3
|
||||
f1^1^0^17^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^0^8
|
||||
f2^2^1^17^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
p1^3^3^17^5^1^0^0^1^512^-32768^0^0^^^S^^^^Entry^^^0^^
|
||||
17^3^5
|
||||
formFields 3
|
||||
fecha_inicial^f1
|
||||
fecha_final^f2
|
||||
incluye^p1
|
||||
screenRecords 1
|
||||
formonly^3^0^1^1^0^0^0^0
|
||||
fecha_inicial^f1
|
||||
fecha_final^f2
|
||||
incluye^p1
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,47 @@
|
||||
0.993
|
||||
7^69^[]
|
||||
|
||||
Numero de Cuenta T o t a l e s
|
||||
Documento
|
||||
Departamento Debito
|
||||
Fecha Inicial Credito
|
||||
Fecha Final Diferencia
|
||||
|
||||
screenFields 8
|
||||
f003^1^1^26^8^1^0^0^1^0^-32768^0^0^^Digite el numero de cuenta^^^^^Entry^^^0^^
|
||||
26^1^8
|
||||
f005^3^2^26^14^1^0^0^1^512^-32768^0^0^^Digite Dcto deseado ^^^^^Entry^^^0^^
|
||||
26^2^14
|
||||
f004^2^3^26^4^1^0^0^1^0^-32768^0^1^^Digite el departamento^^^^^Entry^^^0^^
|
||||
26^3^4
|
||||
f1^3^3^55^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
55^3^13
|
||||
f000^1^4^26^8^1^0^0^1^0^-32768^0^7^^Digite la fecha Inicial^^^dd/mm/yy^^Entry^^^0^^
|
||||
26^4^8
|
||||
f2^4^4^55^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
55^4^13
|
||||
f001^2^5^26^8^1^0^0^1^0^-32768^0^7^^Digite la fecha Final^^^dd/mm/yy^^Entry^^^0^^
|
||||
26^5^8
|
||||
f3^5^5^55^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
55^5^13
|
||||
formFields 8
|
||||
cuenta_no^f003
|
||||
departamento^f004
|
||||
ref^f005
|
||||
fecha1^f000
|
||||
fecha2^f001
|
||||
t_debito^f1
|
||||
t_credito^f2
|
||||
diferencia^f3
|
||||
screenRecords 2
|
||||
cgtb00004^3^0^1^1^0^0^0^0
|
||||
cuenta_no^f003
|
||||
departamento^f004
|
||||
ref^f005
|
||||
formonly^5^0^1^1^0^0^0^0
|
||||
fecha1^f000
|
||||
fecha2^f001
|
||||
t_debito^f1
|
||||
t_credito^f2
|
||||
diferencia^f3
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,38 @@
|
||||
0.993
|
||||
6^26^
|
||||
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
Cuenta No.
|
||||
Departamento
|
||||
codigo Aux.
|
||||
screenFields 6
|
||||
f001^1^1^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha inicial para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
f002^2^2^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha final para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^2^8
|
||||
f003^1^3^17^8^1^0^0^1^2^-32768^0^0^^Digite el numero de cuenta^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
f004^2^4^17^8^1^0^0^1^0^-32768^0^1^^Digite numero de departamento en caso de que desee para uno en especifico^^^^^Entry^^^0^^
|
||||
17^4^8
|
||||
f1^3^5^17^2^1^0^0^1^0^-32768^0^1^^Digite Codigo Auxiliar^^^^^Entry^^^0^^
|
||||
17^5^2
|
||||
f005^4^5^21^4^1^0^0^1^0^-32768^0^1^^Digite Codigo Auxiliar^^^^^Entry^^^0^^
|
||||
21^5^4
|
||||
formFields 6
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
cuenta_no^f003
|
||||
departamento^f004
|
||||
cod_aux^f1
|
||||
cod_sec^f005
|
||||
screenRecords 2
|
||||
cgtb00004^4^0^1^1^0^0^0^0
|
||||
cuenta_no^f003
|
||||
departamento^f004
|
||||
cod_aux^f1
|
||||
cod_sec^f005
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,38 @@
|
||||
0.993
|
||||
6^62^
|
||||
|
||||
Ano T o t a l e s
|
||||
Mes
|
||||
Cuenta No. Debito
|
||||
Credito
|
||||
Balance
|
||||
screenFields 6
|
||||
f01^1^1^17^7^1^0^0^1^0^-32768^0^0^^Digite el Ano EJEMPLO 1994^^^^^Entry^^^0^^
|
||||
17^1^7
|
||||
f02^2^2^17^7^1^0^0^1^0^-32768^0^0^^Digite el mes EJEMPLO 07^^^^^Entry^^^0^^
|
||||
17^2^7
|
||||
f003^1^3^17^8^1^0^0^1^2^-32768^0^0^^Digite el numero de cuenta^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
f1^3^3^43^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^3^13
|
||||
f2^4^4^43^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^4^13
|
||||
f3^5^5^43^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^5^13
|
||||
formFields 6
|
||||
p_ano^f01
|
||||
p_mes^f02
|
||||
cuenta_no^f003
|
||||
t_debito^f1
|
||||
t_credito^f2
|
||||
t_balance^f3
|
||||
screenRecords 2
|
||||
cgtb00004^1^0^1^1^0^0^0^0
|
||||
cuenta_no^f003
|
||||
formonly^5^0^1^1^0^0^0^0
|
||||
p_ano^f01
|
||||
p_mes^f02
|
||||
t_debito^f1
|
||||
t_credito^f2
|
||||
t_balance^f3
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,24 @@
|
||||
0.993
|
||||
4^26^
|
||||
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
Cuenta No.
|
||||
screenFields 3
|
||||
f001^1^1^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha inicial para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
f002^2^2^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha final para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^2^8
|
||||
f003^1^3^17^8^1^0^0^1^2^-32768^0^0^^Digite el numero de cuenta^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
formFields 3
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
cuenta_no^f003
|
||||
screenRecords 2
|
||||
cgtb00004^1^0^1^1^0^0^0^0
|
||||
cuenta_no^f003
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,27 @@
|
||||
0.993
|
||||
4^77^
|
||||
|
||||
Ano T o t a l e s
|
||||
Al Mes
|
||||
Comentario Total General
|
||||
screenFields 4
|
||||
f001^1^1^16^4^1^0^0^1^0^-32768^0^1^^Digite el ANO del periodo de busqueda^^^^^Entry^^^0^^
|
||||
16^1^4
|
||||
f2^2^2^16^2^1^0^0^1^0^-32768^0^1^^Digite el MES para la fecha corte para la busqueda^^^^^Entry^^^0^^
|
||||
16^2^2
|
||||
c^3^3^16^31^1^0^0^1^0^-32768^0^0^^^TODOS LOS DEPTOS SIN 4102,4103^^^^Entry^^^0^^
|
||||
16^3^31
|
||||
f01^4^3^64^12^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
64^3^12
|
||||
formFields 4
|
||||
ano1^f001
|
||||
mes1^f2
|
||||
comentario^c
|
||||
total_gral^f01
|
||||
screenRecords 1
|
||||
formonly^4^0^1^1^0^0^0^0
|
||||
ano1^f001
|
||||
mes1^f2
|
||||
comentario^c
|
||||
total_gral^f01
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,48 @@
|
||||
0.993
|
||||
8^58^
|
||||
|
||||
Ano Balance Ant.
|
||||
Mes Debito
|
||||
Cuenta No. Credito
|
||||
Actividades
|
||||
Balance act
|
||||
|
||||
|
||||
screenFields 8
|
||||
f1^1^1^17^4^1^0^0^1^0^-32768^0^0^^Digite rl ano EJEMPLO 1994^^^^^Entry^^^0^^
|
||||
17^1^4
|
||||
f01^3^1^43^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^1^14
|
||||
f2^2^2^17^8^1^0^0^1^0^-32768^0^0^^Digite el mes EJEMPLO 08^^^^^Entry^^^0^^
|
||||
17^2^8
|
||||
f02^4^2^43^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^2^14
|
||||
a^1^3^17^8^1^0^0^1^0^-32768^0^0^^Digite la Cuenta^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
f03^5^3^43^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^3^14
|
||||
f04^6^4^43^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^4^14
|
||||
f05^7^5^43^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^5^14
|
||||
formFields 8
|
||||
cuenta_no^a
|
||||
p_ano^f1
|
||||
p_mes^f2
|
||||
k_balance^f01
|
||||
k_debito^f02
|
||||
k_credito^f03
|
||||
k_actividad^f04
|
||||
k_balan_act^f05
|
||||
screenRecords 2
|
||||
cgtb00004^1^0^1^1^0^0^0^0
|
||||
cuenta_no^a
|
||||
formonly^7^0^1^1^0^0^0^0
|
||||
p_ano^f1
|
||||
p_mes^f2
|
||||
k_balance^f01
|
||||
k_debito^f02
|
||||
k_credito^f03
|
||||
k_actividad^f04
|
||||
k_balan_act^f05
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,47 @@
|
||||
0.993
|
||||
7^67^
|
||||
|
||||
Ano T o t a l e s
|
||||
Mes
|
||||
Departamento Acumulado Anterior
|
||||
Cuenta_no Gasto Rango Fecha
|
||||
Acumulado Actual
|
||||
Realizado Ano Ant.
|
||||
screenFields 8
|
||||
f001^1^1^17^8^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
17^1^8
|
||||
f002^2^2^17^8^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
17^2^8
|
||||
f004^1^3^17^8^1^0^0^1^0^-32768^0^1^^Digite numero de departamento en caso de que desee para uno en especifico^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
f01^4^3^50^16^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
50^3^16
|
||||
c^3^4^17^8^1^0^0^1^0^-32768^0^0^^Digite Cuenta(s) Del Catalogo^^^^^Entry^^^0^^
|
||||
17^4^8
|
||||
f02^5^4^50^16^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
50^4^16
|
||||
f03^6^5^50^16^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
50^5^16
|
||||
f04^7^6^50^16^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
50^6^16
|
||||
formFields 8
|
||||
p_ano^f001
|
||||
p_mes^f002
|
||||
departamento^f004
|
||||
cuenta_no^c
|
||||
total_anterior^f01
|
||||
actividades^f02
|
||||
total_actual^f03
|
||||
realizado^f04
|
||||
screenRecords 2
|
||||
cgtb00004^1^0^1^1^0^0^0^0
|
||||
departamento^f004
|
||||
formonly^7^0^1^1^0^0^0^0
|
||||
p_ano^f001
|
||||
p_mes^f002
|
||||
cuenta_no^c
|
||||
total_anterior^f01
|
||||
actividades^f02
|
||||
total_actual^f03
|
||||
realizado^f04
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,32 @@
|
||||
0.993
|
||||
5^75^
|
||||
|
||||
Ano Total General
|
||||
Al Mes
|
||||
Comentario
|
||||
Departamento
|
||||
screenFields 5
|
||||
f001^1^1^16^4^1^0^0^1^0^-32768^0^1^^Digite el ANO del periodo de busqueda^^^^^Entry^^^0^^
|
||||
16^1^4
|
||||
f01^5^1^62^12^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
62^1^12
|
||||
f2^2^2^16^2^1^0^0^1^0^-32768^0^1^^Digite el MES para la fecha corte para la busqueda^^^^^Entry^^^0^^
|
||||
16^2^2
|
||||
c^4^3^16^31^1^0^0^1^0^-32768^0^0^^Digite el Encabezado del reporte^^^^^Entry^^^0^^
|
||||
16^3^31
|
||||
f3^3^4^16^4^1^0^0^1^0^-32768^0^0^^Digite el dpto^^^^^Entry^^^0^^
|
||||
16^4^4
|
||||
formFields 5
|
||||
ano1^f001
|
||||
mes1^f2
|
||||
departamento^f3
|
||||
comentario^c
|
||||
total_gral^f01
|
||||
screenRecords 1
|
||||
formonly^5^0^1^1^0^0^0^0
|
||||
ano1^f001
|
||||
mes1^f2
|
||||
departamento^f3
|
||||
comentario^c
|
||||
total_gral^f01
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,23 @@
|
||||
0.993
|
||||
4^33^[]
|
||||
|
||||
No. De La Cuenta :
|
||||
Estado M :
|
||||
Estado Q :
|
||||
screenFields 3
|
||||
p1^1^1^24^8^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
24^1^8
|
||||
e1^2^2^24^4^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
24^2^4
|
||||
q1^3^3^24^4^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
24^3^4
|
||||
formFields 3
|
||||
cuenta_no^p1
|
||||
estado_m^e1
|
||||
estado_q^q1
|
||||
screenRecords 1
|
||||
adtb00037^3^0^1^1^0^0^0^0
|
||||
cuenta_no^p1
|
||||
estado_m^e1
|
||||
estado_q^q1
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,20 @@
|
||||
0.993
|
||||
5^26^
|
||||
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
|
||||
|
||||
screenFields 2
|
||||
f1^1^1^17^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
f2^2^2^17^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^2^8
|
||||
formFields 2
|
||||
fecha_inicial^f1
|
||||
fecha_final^f2
|
||||
screenRecords 1
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha_inicial^f1
|
||||
fecha_final^f2
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,20 @@
|
||||
0.993
|
||||
5^26^
|
||||
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
|
||||
|
||||
screenFields 2
|
||||
f1^1^1^17^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
f2^2^2^17^8^1^0^0^1^0^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^2^8
|
||||
formFields 2
|
||||
fecha_inicial^f1
|
||||
fecha_final^f2
|
||||
screenRecords 1
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha_inicial^f1
|
||||
fecha_final^f2
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,29 @@
|
||||
0.993
|
||||
5^28^
|
||||
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
Cuenta No.
|
||||
Referencia
|
||||
screenFields 4
|
||||
f001^1^1^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha inicial para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
f002^2^2^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha final para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^2^8
|
||||
fe^1^3^17^8^1^0^0^1^0^-32768^0^0^^Digite la Cuenta^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
re^2^4^17^10^1^0^0^1^0^-32768^0^0^^Digite la referencia deseada^^^^^Entry^^^0^^
|
||||
17^4^10
|
||||
formFields 4
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
cuenta_no^fe
|
||||
num_doc^re
|
||||
screenRecords 2
|
||||
cgtb00004^2^0^1^1^0^0^0^0
|
||||
cuenta_no^fe
|
||||
num_doc^re
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,38 @@
|
||||
0.993
|
||||
6^61^
|
||||
|
||||
Fecha Inicial T o t a l e s
|
||||
Fecha Final
|
||||
Cuenta No. Debito
|
||||
Credito
|
||||
Balance
|
||||
screenFields 6
|
||||
f01^1^1^17^8^1^0^0^1^0^-32768^0^7^^Digite Fecha Formato: ddmmyy^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
f02^2^2^17^8^1^0^0^1^0^-32768^0^7^^Digite Fecha Formato: ddmmyy^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^2^8
|
||||
f003^1^3^17^8^1^0^0^1^2^-32768^0^0^^Digite el numero de cuenta^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
f1^3^3^43^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^3^13
|
||||
f2^4^4^43^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^4^13
|
||||
f3^5^5^43^13^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
43^5^13
|
||||
formFields 6
|
||||
fecha_inicial^f01
|
||||
fecha_final^f02
|
||||
cuenta_no^f003
|
||||
t_debito^f1
|
||||
t_credito^f2
|
||||
t_balance^f3
|
||||
screenRecords 2
|
||||
cgtb00004^1^0^1^1^0^0^0^0
|
||||
cuenta_no^f003
|
||||
formonly^5^0^1^1^0^0^0^0
|
||||
fecha_inicial^f01
|
||||
fecha_final^f02
|
||||
t_debito^f1
|
||||
t_credito^f2
|
||||
t_balance^f3
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,23 @@
|
||||
0.993
|
||||
3^39^[]
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
Cuenta No
|
||||
screenFields 3
|
||||
f0^1^0^30^8^1^0^0^1^0^-32768^0^7^^Digite Fecha Inicial de la Relacion con el Formato DDMMYY^^^dd/mm/yy^^Entry^^^0^^
|
||||
30^0^8
|
||||
f1^2^1^30^8^1^0^0^1^0^-32768^0^7^^Digite Fecha Final de la Relacion con el Formato DDMMYY^^^dd/mm/yy^^Entry^^^0^^
|
||||
30^1^8
|
||||
f2^1^2^30^8^1^0^0^1^0^-32768^0^0^^Digite la cuenta ^^^^^Entry^^^0^^
|
||||
30^2^8
|
||||
formFields 3
|
||||
fecha1^f0
|
||||
fecha2^f1
|
||||
cuenta_no^f2
|
||||
screenRecords 2
|
||||
cgtb00005^1^0^1^1^0^0^0^0
|
||||
cuenta_no^f2
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha1^f0
|
||||
fecha2^f1
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,23 @@
|
||||
0.993
|
||||
3^39^[]
|
||||
Fecha Final
|
||||
Cuenta No
|
||||
Cheque No
|
||||
screenFields 3
|
||||
f0^1^0^30^8^1^0^0^1^0^-32768^0^7^^Digite Fecha Final de la Relacion con el Formato DDMMYY^^^dd/mm/yy^^Entry^^^0^^
|
||||
30^0^8
|
||||
f2^1^1^30^8^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
30^1^8
|
||||
f3^2^2^30^8^1^0^0^1^0^-32768^0^2^^^^^^^Entry^^^0^^
|
||||
30^2^8
|
||||
formFields 3
|
||||
fecha1^f0
|
||||
cuenta_no^f2
|
||||
cheque_no^f3
|
||||
screenRecords 2
|
||||
cgtb00005^2^0^1^1^0^0^0^0
|
||||
cuenta_no^f2
|
||||
cheque_no^f3
|
||||
formonly^1^0^1^1^0^0^0^0
|
||||
fecha1^f0
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,23 @@
|
||||
0.993
|
||||
3^39^[]
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
Cuenta No
|
||||
screenFields 3
|
||||
f0^1^0^30^8^1^0^0^1^0^-32768^0^7^^Digite Fecha Inicial de la Relacion con el Formato DDMMYY^^^dd/mm/yy^^Entry^^^0^^
|
||||
30^0^8
|
||||
f1^2^1^30^8^1^0^0^1^0^-32768^0^7^^Digite Fecha Final de la Relacion con el Formato DDMMYY^^^dd/mm/yy^^Entry^^^0^^
|
||||
30^1^8
|
||||
f2^1^2^30^8^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
30^2^8
|
||||
formFields 3
|
||||
fecha1^f0
|
||||
fecha2^f1
|
||||
cuenta_no^f2
|
||||
screenRecords 2
|
||||
cgtb00005^1^0^1^1^0^0^0^0
|
||||
cuenta_no^f2
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha1^f0
|
||||
fecha2^f1
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,27 @@
|
||||
0.993
|
||||
4^41^[]
|
||||
Numero de Cuenta
|
||||
Documento
|
||||
Departamento
|
||||
Fecha
|
||||
screenFields 4
|
||||
f003^1^0^26^8^1^0^0^1^0^-32768^0^0^^Digite el numero de cuenta^^^^^Entry^^^0^^
|
||||
26^0^8
|
||||
f005^3^1^26^14^1^0^0^1^0^-32768^0^0^^Digite Dcto deseado^^^^^Entry^^^0^^
|
||||
26^1^14
|
||||
f004^2^2^26^4^1^0^0^1^0^-32768^0^1^^Digite el departamento^^^^^Entry^^^0^^
|
||||
26^2^4
|
||||
f000^4^3^26^8^1^0^0^1^0^-32768^0^7^^Digite la fecha^^^^^Entry^^^0^^
|
||||
26^3^8
|
||||
formFields 4
|
||||
cuenta_no^f003
|
||||
departamento^f004
|
||||
ref^f005
|
||||
fecha^f000
|
||||
screenRecords 1
|
||||
cgtb00004^4^0^1^1^0^0^0^0
|
||||
cuenta_no^f003
|
||||
departamento^f004
|
||||
ref^f005
|
||||
fecha^f000
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,22 @@
|
||||
0.993
|
||||
3^31^[]
|
||||
Mes
|
||||
Ano
|
||||
Entrada
|
||||
screenFields 3
|
||||
a^1^0^16^2^1^0^0^1^32^-32768^0^0^^Digite Mes a Procesar^^^^^Entry^^^0^^
|
||||
16^0^2
|
||||
b^2^1^16^4^1^0^0^1^32^-32768^0^0^^Digite Ano a Procesar^^^^^Entry^^^0^^
|
||||
16^1^4
|
||||
en^3^2^16^14^1^0^0^1^512^-32768^0^0^ED.##-###/####^Digite la secuencia dentro del mes de la entrada de diario^^^^^Entry^^^0^^
|
||||
16^2^14
|
||||
formFields 3
|
||||
p_mes^a
|
||||
p_ano^b
|
||||
ref^en
|
||||
screenRecords 1
|
||||
formonly^3^0^1^1^0^0^0^0
|
||||
p_mes^a
|
||||
p_ano^b
|
||||
ref^en
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,29 @@
|
||||
0.993
|
||||
5^26^
|
||||
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
Cuenta No.
|
||||
Cheque No.
|
||||
screenFields 4
|
||||
f001^1^1^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha inicial para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
f002^2^2^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha final para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^2^8
|
||||
f003^1^3^17^8^1^0^0^1^0^-32768^0^0^^Digite el numero de cuenta^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
f004^2^4^17^8^1^0^0^1^0^-32768^0^2^^Digite el numero de Cheque^^^^^Entry^^^0^^
|
||||
17^4^8
|
||||
formFields 4
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
cuenta_no^f003
|
||||
cheque_no^f004
|
||||
screenRecords 2
|
||||
cgtb00005^2^0^1^1^0^0^0^0
|
||||
cuenta_no^f003
|
||||
cheque_no^f004
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,24 @@
|
||||
0.993
|
||||
4^26^
|
||||
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
Documento
|
||||
screenFields 3
|
||||
f001^1^1^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha inicial para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
f002^2^2^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha final para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^2^8
|
||||
f004^1^3^17^8^1^0^0^1^0^-32768^0^0^^Digite la transaccion a verificar^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
formFields 3
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
ref^f004
|
||||
screenRecords 2
|
||||
cgtb00004^1^0^1^1^0^0^0^0
|
||||
ref^f004
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,23 @@
|
||||
0.993
|
||||
4^26^
|
||||
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
Portador
|
||||
screenFields 3
|
||||
f001^1^1^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha inicial para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^1^8
|
||||
f002^2^2^17^8^1^0^0^1^0^-32768^0^7^^Digite la fecha final para general el reporte^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^2^8
|
||||
c1^3^3^17^8^1^0^0^1^0^-32768^0^0^X-XXX-XX^Digite El Codigo Del Portador, Con Los Guiones^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
formFields 3
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
cod_cro^c1
|
||||
screenRecords 1
|
||||
formonly^3^0^1^1^0^0^0^0
|
||||
fecha_inicial^f001
|
||||
fecha_final^f002
|
||||
cod_cro^c1
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,24 @@
|
||||
0.993
|
||||
4^74^
|
||||
|
||||
Ordenado Por (N/A)
|
||||
Codigo Cronologico
|
||||
Beneficiario
|
||||
screenFields 3
|
||||
d^1^1^24^1^1^0^0^1^512^-32768^0^0^^Digite: N = Ordenamiento Numerico, A = Ordenamiento Alfabetico^^N|A^^^Entry^^^0^^
|
||||
24^1^1
|
||||
f001^1^2^24^8^1^0^0^1^512^-32768^0^0^^Digite Codigo de Cronologico^^^^^Entry^^^0^^
|
||||
24^2^8
|
||||
f002^2^3^24^49^1^0^0^1^512^-32768^0^0^^Digite Nombre de Beneficiario^^^^^Entry^^^0^^
|
||||
24^3^49
|
||||
formFields 3
|
||||
decide^d
|
||||
cod_cro^f001
|
||||
beneficiario^f002
|
||||
screenRecords 2
|
||||
cgtb00031^2^0^1^1^0^0^0^0
|
||||
cod_cro^f001
|
||||
beneficiario^f002
|
||||
formonly^1^0^1^1^0^0^0^0
|
||||
decide^d
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,17 @@
|
||||
0.993
|
||||
2^39^[]
|
||||
Fecha Inicial
|
||||
Fecha Final
|
||||
screenFields 2
|
||||
f0^1^0^30^8^1^0^0^1^0^-32768^0^7^^Digite Fecha Inicial de la Relacion con el Formato DDMMYY^^^dd/mm/yy^^Entry^^^0^^
|
||||
30^0^8
|
||||
f1^2^1^30^8^1^0^0^1^0^-32768^0^7^^Digite Fecha Final de la Relacion con el Formato DDMMYY^^^dd/mm/yy^^Entry^^^0^^
|
||||
30^1^8
|
||||
formFields 2
|
||||
fecha1^f0
|
||||
fecha2^f1
|
||||
screenRecords 1
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
fecha1^f0
|
||||
fecha2^f1
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,25 @@
|
||||
0.993
|
||||
5^19^[]
|
||||
|
||||
Ano
|
||||
Mes
|
||||
|
||||
Vendedor
|
||||
screenFields 3
|
||||
an^2^1^11^4^1^0^0^1^32^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
11^1^4
|
||||
me^1^2^11^2^1^0^0^1^32^-32768^0^0^^Digite Hasta Que Mes Desea El Reporte^^^^^Entry^^^0^^
|
||||
11^2^2
|
||||
ve^1^4^14^4^1^0^0^1^0^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
14^4^4
|
||||
formFields 3
|
||||
p_mes^me
|
||||
p_ano^an
|
||||
num_emp^ve
|
||||
screenRecords 2
|
||||
notb00017^1^0^1^1^0^0^0^0
|
||||
num_emp^ve
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
p_mes^me
|
||||
p_ano^an
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,29 @@
|
||||
0.993
|
||||
5^19^[]
|
||||
|
||||
Ano
|
||||
Mes
|
||||
Compania
|
||||
Vendedor
|
||||
screenFields 4
|
||||
an^2^1^11^4^1^0^0^1^32^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
11^1^4
|
||||
me^1^2^11^2^1^0^0^1^32^-32768^0^0^^Digite Hasta Que Mes Desea El Reporte^^^^^Entry^^^0^^
|
||||
11^2^2
|
||||
c^3^3^14^1^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
14^3^1
|
||||
ve^1^4^14^4^1^0^0^1^0^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
14^4^4
|
||||
formFields 4
|
||||
p_mes^me
|
||||
p_ano^an
|
||||
cod_cia^c
|
||||
num_emp^ve
|
||||
screenRecords 2
|
||||
notb00017^1^0^1^1^0^0^0^0
|
||||
num_emp^ve
|
||||
formonly^3^0^1^1^0^0^0^0
|
||||
p_mes^me
|
||||
p_ano^an
|
||||
cod_cia^c
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,28 @@
|
||||
0.993
|
||||
8^26^
|
||||
|
||||
Ano
|
||||
Mes
|
||||
Cuenta No.
|
||||
|
||||
|
||||
|
||||
|
||||
screenFields 3
|
||||
f1^1^1^17^4^1^0^0^1^0^-32768^0^0^^Digite rl ano EJEMPLO 1994^^^^^Entry^^^0^^
|
||||
17^1^4
|
||||
f2^2^2^17^8^1^0^0^1^0^-32768^0^0^^Digite el mes EJEMPLO 08^^^^^Entry^^^0^^
|
||||
17^2^8
|
||||
a^1^3^17^8^1^0^0^1^0^-32768^0^0^^Digite la Cuenta^^^^^Entry^^^0^^
|
||||
17^3^8
|
||||
formFields 3
|
||||
cuenta_no^a
|
||||
p_ano^f1
|
||||
p_mes^f2
|
||||
screenRecords 2
|
||||
cgtb00004^1^0^1^1^0^0^0^0
|
||||
cuenta_no^a
|
||||
formonly^2^0^1^1^0^0^0^0
|
||||
p_ano^f1
|
||||
p_mes^f2
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,36 @@
|
||||
0.993
|
||||
10^50^
|
||||
Consulta departamentos
|
||||
|
||||
No.
|
||||
Departamento Nombre
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
screenFields 2
|
||||
de^1^5^5^5^5^1^0^1^1^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
5^5^5
|
||||
5^6^5
|
||||
5^7^5
|
||||
5^8^5
|
||||
5^9^5
|
||||
n^2^5^17^32^5^1^0^1^512^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
17^5^32
|
||||
17^6^32
|
||||
17^7^32
|
||||
17^8^32
|
||||
17^9^32
|
||||
formFields 2
|
||||
departamento^de
|
||||
nom_dpto^n
|
||||
screenRecords 2
|
||||
adtb00001^2^0^1^-1^0^0^0^0
|
||||
departamento^de
|
||||
nom_dpto^n
|
||||
s_ws^2^1^0^5^5^5^45^5
|
||||
departamento^de
|
||||
nom_dpto^n
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,62 @@
|
||||
0.993
|
||||
7^73^
|
||||
Codigo - - -
|
||||
Descripcion Espanol
|
||||
Descripcion Ingles
|
||||
Unidad de Medida
|
||||
|
||||
Usuario Creador Usuario Modificador
|
||||
Fecha Creacion Fecha Modificacion
|
||||
screenFields 12
|
||||
b^1^0^21^1^1^0^0^1^1058^-32768^0^1^^Digite el NIVEL del bien o Servicio^^^^^Entry^^^0^^
|
||||
21^0^1
|
||||
c^2^0^25^1^1^0^0^1^1058^-32768^0^1^^Digite el GRUPO del bien o Servicio^^^^^Entry^^^0^^
|
||||
25^0^1
|
||||
d1^3^0^29^2^1^0^0^1^1058^-32768^0^1^^Digite el TIPO del bien o Servicio^^^^^Entry^^^0^^
|
||||
29^0^2
|
||||
e01^4^0^34^3^1^0^0^1^1058^-32768^0^1^^Digite el SECUENCIA del bien o Servicio^^^^^Entry^^^0^^
|
||||
34^0^3
|
||||
f004^5^1^21^30^1^0^0^1^1568^-32768^0^0^^Digite el nombre del Articulo en ESPANOL^^^^^Entry^^^0^^
|
||||
21^1^30
|
||||
f005^6^2^21^30^1^0^0^1^512^-32768^0^0^^Digite el nombre del Articulo en INGLES^^^^^Entry^^^0^^
|
||||
21^2^30
|
||||
a0^7^3^21^3^1^0^0^1^544^-32768^0^0^^Digite la unidad de medida del articulo^^^^^Entry^^^0^^
|
||||
21^3^3
|
||||
j^12^4^1^1^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
1^4^1
|
||||
f006^8^5^18^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
18^5^9
|
||||
f008^10^5^56^9^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
56^5^9
|
||||
f007^9^6^18^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
18^6^16
|
||||
f009^11^6^56^16^1^0^0^1^1^-32768^0^10^^^^^^^Entry^^^0^^
|
||||
56^6^16
|
||||
formFields 12
|
||||
cod_n^b
|
||||
cod_grupo^c
|
||||
cod_tipo^d1
|
||||
cod_sec^e01
|
||||
descrip_esp^f004
|
||||
descrip_ing^f005
|
||||
unidad_med^a0
|
||||
us_crea^f006
|
||||
fech_crea^f007
|
||||
us_mod^f008
|
||||
fech_mod^f009
|
||||
status_t^j
|
||||
screenRecords 1
|
||||
intb00001^12^0^1^1^0^0^0^0
|
||||
cod_n^b
|
||||
cod_grupo^c
|
||||
cod_tipo^d1
|
||||
cod_sec^e01
|
||||
descrip_esp^f004
|
||||
descrip_ing^f005
|
||||
unidad_med^a0
|
||||
us_crea^f006
|
||||
fech_crea^f007
|
||||
us_mod^f008
|
||||
fech_mod^f009
|
||||
status_t^j
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,79 @@
|
||||
0.993
|
||||
10^57^
|
||||
Consulta Bienes y Servicios
|
||||
|
||||
Codigo Descripcion Unidad
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
screenFields 6
|
||||
a^1^4^5^1^6^1^0^1^1056^-32768^0^1^^Digite codigo bienes o servicio^^^^^Entry^^^0^^
|
||||
5^4^1
|
||||
5^5^1
|
||||
5^6^1
|
||||
5^7^1
|
||||
5^8^1
|
||||
5^9^1
|
||||
b^2^4^8^1^6^1^0^1^1056^-32768^0^1^^Digite codigo bienes o servicio^^^^^Entry^^^0^^
|
||||
8^4^1
|
||||
8^5^1
|
||||
8^6^1
|
||||
8^7^1
|
||||
8^8^1
|
||||
8^9^1
|
||||
c^3^4^11^2^6^1^0^1^1056^-32768^0^1^^Digite codigo bienes o servicio^^^^^Entry^^^0^^
|
||||
11^4^2
|
||||
11^5^2
|
||||
11^6^2
|
||||
11^7^2
|
||||
11^8^2
|
||||
11^9^2
|
||||
d^4^4^15^3^6^1^0^1^1056^-32768^0^1^^Digite codigo bienes o servicio^^^^^Entry^^^0^^
|
||||
15^4^3
|
||||
15^5^3
|
||||
15^6^3
|
||||
15^7^3
|
||||
15^8^3
|
||||
15^9^3
|
||||
d1^5^4^20^31^6^1^0^1^1568^-32768^0^0^^Digite descripcion^^^^^Entry^^^0^^
|
||||
20^4^31
|
||||
20^5^31
|
||||
20^6^31
|
||||
20^7^31
|
||||
20^8^31
|
||||
20^9^31
|
||||
u^1^4^53^3^6^1^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
53^4^3
|
||||
53^5^3
|
||||
53^6^3
|
||||
53^7^3
|
||||
53^8^3
|
||||
53^9^3
|
||||
formFields 6
|
||||
cod_n^a
|
||||
cod_grupo^b
|
||||
cod_tipo^c
|
||||
cod_sec^d
|
||||
descrip_esp^d1
|
||||
unidad^u
|
||||
screenRecords 3
|
||||
intb00001^5^0^1^-1^0^0^0^0
|
||||
cod_n^a
|
||||
cod_grupo^b
|
||||
cod_tipo^c
|
||||
cod_sec^d
|
||||
descrip_esp^d1
|
||||
formonly^1^0^1^-1^0^0^0^0
|
||||
unidad^u
|
||||
s_bien^6^1^0^6^5^4^52^6
|
||||
cod_n^a
|
||||
cod_grupo^b
|
||||
cod_tipo^c
|
||||
cod_sec^d
|
||||
descrip_esp^d1
|
||||
unidad^u
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,44 @@
|
||||
0.993
|
||||
9^50^
|
||||
Busca Cuentas Contables
|
||||
|
||||
Cuenta Descripcion Nivel
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
screenFields 3
|
||||
de^1^4^2^8^5^1^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
2^4^8
|
||||
2^5^8
|
||||
2^6^8
|
||||
2^7^8
|
||||
2^8^8
|
||||
n^2^4^13^30^5^1^0^1^512^-32768^0^0^^<Esc> Busca todas las cuentas^^^^^Entry^^^0^^
|
||||
13^4^30
|
||||
13^5^30
|
||||
13^6^30
|
||||
13^7^30
|
||||
13^8^30
|
||||
a^3^4^47^1^5^1^0^1^0^-32768^0^1^^^^^^^Entry^^^0^^
|
||||
47^4^1
|
||||
47^5^1
|
||||
47^6^1
|
||||
47^7^1
|
||||
47^8^1
|
||||
formFields 3
|
||||
cuenta_no^de
|
||||
descripcion^n
|
||||
nivel^a
|
||||
screenRecords 2
|
||||
cgtb00001^3^0^1^-1^0^0^0^0
|
||||
cuenta_no^de
|
||||
descripcion^n
|
||||
nivel^a
|
||||
s_cuentas^3^1^0^5^2^4^47^5
|
||||
cuenta_no^de
|
||||
descripcion^n
|
||||
nivel^a
|
||||
keyLabels 0
|
||||
@@ -0,0 +1,45 @@
|
||||
0.993
|
||||
4^62^
|
||||
Cuenta Contable
|
||||
Cheque no.
|
||||
Codigo Suplidor
|
||||
Fecha Monto Cheque
|
||||
screenFields 8
|
||||
f01^1^0^17^9^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
17^0^9
|
||||
a^1^0^28^30^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
28^0^30
|
||||
f02^2^1^17^6^1^0^0^1^0^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
17^1^6
|
||||
f1^3^2^17^2^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
17^2^2
|
||||
f2^4^2^21^4^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
21^2^4
|
||||
b^5^2^27^34^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
27^2^34
|
||||
f5^1^3^17^9^1^0^0^1^1^-32768^0^7^^^^^dd/mm/yy^^Entry^^^0^^
|
||||
17^3^9
|
||||
f6^6^3^42^14^1^0^0^1^1^-32768^0^0^^^^^^^Entry^^^0^^
|
||||
42^3^14
|
||||
formFields 8
|
||||
cuenta_p^f01
|
||||
descripcion^a
|
||||
numero^f02
|
||||
cod_sp^f1
|
||||
cod_sp_sec^f2
|
||||
nom_sup^b
|
||||
fecha^f5
|
||||
monto^f6
|
||||
screenRecords 3
|
||||
cgtb00004^1^0^1^1^0^0^0^0
|
||||
fecha^f5
|
||||
cgtb00001^1^0^1^1^0^0^0^0
|
||||
descripcion^a
|
||||
formonly^6^0^1^1^0^0^0^0
|
||||
cuenta_p^f01
|
||||
numero^f02
|
||||
cod_sp^f1
|
||||
cod_sp_sec^f2
|
||||
nom_sup^b
|
||||
monto^f6
|
||||
keyLabels 0
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user