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

Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS

Browse Source
This commit is contained in:
jsoto
2026-08-25 16:48:40 -04:00
parent ca75ed204c 4bb2df1630
commit 5fa61ead23
9 changed files with 252 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/PRDIR/prfmmt022.4fd
+1 -1
View File
@@ -40,7 +40,7 @@
<Label gridHeight="1" gridWidth="8" name="label2" posX="24" posY="1" text="FECHA FINAL"/>
<DateEdit fieldId="16" gridHeight="1" gridWidth="13" name="fech_final" posX="33" posY="1" tabIndex="-1" title="dateedit2" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="6" name="label3" posX="47" posY="1" text="ESTADO "/>
<ComboBox fieldId="17" gridHeight="1" gridWidth="12" items="ABIERTA, CERRADA" name="estado1" posX="54" posY="1" tabIndex="-1" title="combobox1" widget="ComboBox">
<ComboBox fieldId="17" gridHeight="1" gridWidth="12" items="ABIERTA, CERRADA" name="estado1" notNull="true" posX="54" posY="1" tabIndex="-1" title="combobox1" widget="ComboBox">
<Item lstrtext="false" name="ABIERTA" text="ABIERTA"/>
<Item lstrtext="false" name="CERRADA" text="CERRADA"/>
</ComboBox>
PROYECTO/PRDIR/prfmrp116.4fd
+72
View File
@@ -0,0 +1,72 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{50926d70-025d-4be1-a15f-45acbf1b2888}">
<AGSettings>
<DynamicProperties version="4"/>
</AGSettings>
<Record name="record1" uid="{ae577ed1-a849-40c1-a3a8-3df0bfba35f6}">
<RecordField colName="cotizacion_no" fieldIdRef="5" name="cotizacion_no" sqlTabName="formonly" uid="{34fb79d0-ea3c-45e5-bd43-bd2484db0e24}"/>
<RecordField colName="num_oc" fieldIdRef="12" name="num_oc" sqlTabName="formonly" uid="{1b817c74-fb63-4453-9c9e-580cd0ebe8dd}"/>
<RecordField colName="cerrada" fieldIdRef="10" name="cerrada" sqlTabName="formonly" uid="{a0ade89e-f809-4801-83fc-82267e75339d}"/>
<RecordField colName="sec_vend" fieldIdRef="13" name="sec_vend" sqlTabName="formonly" uid="{532f53e9-4b3f-4c15-8919-c4afedd6e638}"/>
<RecordField colName="historico" defaultValue="N" fieldIdRef="0" name="historico" sqlTabName="formonly" uid="{a297c185-81e7-4ae6-8988-2224946811de}"/>
<RecordField colName="fecha" fieldIdRef="11" name="fecha" sqlTabName="formonly" sqlType="DATE" uid="{62430a14-a00f-413f-b6b1-766e90f9315e}"/>
<RecordField colName="tipo_cliente" fieldIdRef="7" name="tipo_cliente" sqlTabName="formonly" uid="{7cf8df86-dc57-4cd8-9b40-6636785559c9}"/>
<RecordField colName="sec_cliente" fieldIdRef="8" name="sec_cliente" sqlTabName="formonly" uid="{c77b4cbf-8ab9-4072-b566-5ce5401f170b}"/>
<RecordField colName="nombre_cliente" fieldIdRef="6" name="nombre_cliente" sqlTabName="formonly" uid="{b775b626-23dd-4f6c-8fda-b729a1e40605}"/>
<RecordField colName="telefono_r" fieldIdRef="9" name="telefono_r" sqlTabName="formonly" uid="{c545bc0e-23c1-465b-9688-5d5039b27597}"/>
<RecordField colName="cod_n" fieldIdRef="1" name="cod_n" sqlTabName="formonly" uid="{a8bcc1fa-5503-4b65-8249-fdaa1e91c258}"/>
<RecordField colName="cod_grupo" fieldIdRef="2" name="cod_grupo" sqlTabName="formonly" uid="{71e68d6d-8151-44c2-a42c-4e9465dd3c2b}"/>
<RecordField colName="cod_tipo" fieldIdRef="3" name="cod_tipo" sqlTabName="formonly" uid="{a5d7c1ab-90d7-4feb-b86d-6a74f1966b44}"/>
<RecordField colName="cod_sec" fieldIdRef="4" name="cod_sec" sqlTabName="formonly" uid="{0fed854c-cd15-4a85-b593-c3a9f114d277}"/>
<RecordField colName="salida" defaultValue="Detallado" fieldIdRef="14" name="salida" sqlTabName="formonly" uid="{72b478e3-81f8-4d24-ad49-d777be1c0608}"/>
<RecordField colName="visualiza" defaultValue="PANTALLA" fieldIdRef="15" name="visualiza" sqlTabName="formonly" uid="{7c7aa938-7433-4dd6-bcc2-c27d6b3e2e34}"/>
</Record>
<Form gridHeight="10" gridWidth="67" name="prfmrp116" text="STATUS ORDENES PEDIDOS">
<ActionDefaultList name="actiondefaultlist1">
<ActionDefault image="print" name="ejecutar" text="Genera Reporte"/>
</ActionDefaultList>
<Grid gridHeight="10" gridWidth="67" name="grid1" posX="0" posY="0">
<Label gridHeight="1" gridWidth="10" name="label1" posX="3" posY="0" text="Cotizacion"/>
<Edit colName="cotizacion_no" comment="Digite un numero de cotizacion o deje en blanco para todas" fieldId="5" gridHeight="1" gridWidth="10" name="cotizacion_no" posX="19" posY="0" sqlTabName="formonly" tabIndex="1" widget="Edit"/>
<Label gridHeight="1" gridWidth="5" name="label2" posX="3" posY="1" text="Orden"/>
<Edit colName="num_oc" comment="Digite un numero de orden o deje en blanco para todas" fieldId="12" gridHeight="1" gridWidth="10" name="num_oc" posX="19" posY="1" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
<Label gridHeight="1" gridWidth="12" name="label3" posX="34" posY="1" text="Status Orden"/>
<ComboBox colName="cerrada" fieldId="10" gridHeight="1" gridWidth="14" items="Cerrada, Abiertas" name="cerrada" notNull="true" posX="47" posY="1" sqlTabName="formonly" tabIndex="3" widget="ComboBox">
<Item name="S" text="Cerrada"/>
<Item name="N" text="Abiertas"/>
</ComboBox>
<Label gridHeight="1" gridWidth="8" name="label4" posX="3" posY="2" text="Vendedor"/>
<Edit colName="sec_vend" comment="Digite un numero de vendedor o deje en blanco para todos" fieldId="13" gridHeight="1" gridWidth="10" name="sec_vend" posX="19" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
<RadioGroup colName="historico" defaultValue="N" fieldId="0" gridHeight="1" gridWidth="26" items="HISTORICO, ACTUAL" name="historico" posX="35" posY="2" sqlTabName="formonly" tabIndex="5" widget="RadioGroup">
<Item name="H" text="HISTORICO"/>
<Item name="N" text="ACTUAL"/>
</RadioGroup>
<Label gridHeight="1" gridWidth="5" name="label5" posX="3" posY="3" text="Fecha"/>
<DateEdit colName="fecha" fieldId="11" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fecha" posX="19" posY="3" sqlTabName="formonly" sqlType="DATE" tabIndex="6" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="15" name="label6" posX="3" posY="4" text="Codigo Cliente"/>
<Edit colName="tipo_cliente" fieldId="7" gridHeight="1" gridWidth="3" name="tipo_cliente" posX="19" posY="4" sqlTabName="formonly" tabIndex="7" widget="Edit"/>
<Label gridHeight="1" gridWidth="1" name="label7" posX="23" posY="4" text="-"/>
<Edit colName="sec_cliente" fieldId="8" gridHeight="1" gridWidth="6" name="sec_cliente" posX="25" posY="4" sqlTabName="formonly" tabIndex="8" widget="Edit"/>
<Label gridHeight="1" gridWidth="15" name="label8" posX="3" posY="5" text="Nombre Cliente"/>
<Edit colName="nombre_cliente" comment="Utilice el simbolo (*) para buscar nombres similares al que desea" fieldId="6" gridHeight="1" gridWidth="47" name="nombre_cliente" posX="19" posY="5" sqlTabName="formonly" tabIndex="9" widget="Edit"/>
<Label gridHeight="1" gridWidth="13" name="label9" posX="3" posY="6" text="Telefono Res."/>
<Edit colName="telefono_r" fieldId="9" gridHeight="1" gridWidth="15" name="telefono_r" posX="19" posY="6" sqlTabName="formonly" tabIndex="10" widget="Edit"/>
<Label gridHeight="1" gridWidth="8" name="label10" posX="3" posY="7" text="Producto"/>
<Edit colName="cod_n" fieldId="1" gridHeight="1" gridWidth="5" name="cod_n" posX="19" posY="7" sqlTabName="formonly" tabIndex="11" widget="Edit"/>
<Edit colName="cod_grupo" fieldId="2" gridHeight="1" gridWidth="6" name="cod_grupo" posX="26" posY="7" sqlTabName="formonly" tabIndex="12" widget="Edit"/>
<Edit colName="cod_tipo" fieldId="3" gridHeight="1" gridWidth="6" name="cod_tipo" posX="34" posY="7" sqlTabName="formonly" tabIndex="13" widget="Edit"/>
<Edit colName="cod_sec" fieldId="4" gridHeight="1" gridWidth="7" name="cod_sec" posX="42" posY="7" sqlTabName="formonly" tabIndex="14" widget="Edit"/>
<Label gridHeight="1" gridWidth="15" name="label11" posX="3" posY="8" text="Salida Reporte"/>
<ComboBox colName="salida" defaultValue="Detallado" fieldId="14" gridHeight="1" gridWidth="15" items="Detallado, Resumido" name="salida" posX="19" posY="8" sqlTabName="formonly" tabIndex="15" widget="ComboBox">
<Item name="prprrp116.4rp" text="Detallado"/>
<Item name="prprrp016a.4rp" text="Resumido"/>
</ComboBox>
<Label gridHeight="1" gridWidth="13" name="label12" posX="3" posY="9" text="Visualizacion"/>
<ComboBox colName="visualiza" defaultValue="PANTALLA" fieldId="15" gridHeight="1" gridWidth="15" items="PANTALLA, ACROBAT READER, EXCEL" name="visualiza" posX="19" posY="9" sqlTabName="formonly" tabIndex="16" widget="ComboBox">
<Item name="SVG" text="PANTALLA"/>
<Item name="PDF" text="ACROBAT READER"/>
<Item name="XLSX" text="EXCEL"/>
</ComboBox>
</Grid>
</Form>
</ManagedForm>
PROYECTO/PRDIR/prfmrp116.per
+1 -1
View File
@@ -48,7 +48,7 @@ DATEEDIT f1 = formonly.fecha type date,format = "dd/mm/yyyy";
o1 = formonly.num_oc,comments="Digite un numero de orden o deje en blanco para todas";
v1 = formonly.sec_vend,comments="Digite un numero de vendedor o deje en blanco para todos";
COMBOBOX s=formonly.salida,ITEMS=(("prprrp116.4rp","Detallado"),("prprrp016a.4rp","Resumido")),default="Detallado";
COMBOBOX v=formonly.visualiza,ITEMS=(("SVG","PANTALLA"),("PDF","ACROBAT READER")),default="PANTALLA";
COMBOBOX v=formonly.visualiza,ITEMS=(("SVG","PANTALLA"),("PDF","ACROBAT READER"),("XLSX","EXCEL")),default="PANTALLA";
instructions
delimiters " "
end
PROYECTO/PRDIR/prprcs001.4gl
+3 -1
View File
@@ -71,7 +71,9 @@ DEFINE hoy DATE
END INPUT
CONSTRUCT BY NAME criterio ON a.tipo_cliente,a.sec_cliente,
a.num_oc,a.fecha
a.num_oc,a.fecha_oc
FROM tipo_cliente,sec_cliente,
num_oc,fecha
AFTER CONSTRUCT
IF tipo_orden = 'N' THEN
PROYECTO/PRDIR/prprrp116.4gl
+63 -28
View File
@@ -79,6 +79,8 @@ FUNCTION prprrp016()
END RECORD,
salida,visualiza CHAR(20)
DEFINE hay_datos SMALLINT
OPTIONS
PROMPT LINE 23,
FORM LINE 8,
@@ -201,12 +203,46 @@ FUNCTION prprrp016()
"WHERE ",criterio clipped,
" and a.status_t is null and f.status_t is null "
END IF
END IF
PREPARE comando FROM selec
DECLARE busca CURSOR FOR comando
-- Verifica primero si hay registros: si el reporte se inicia sin filas,
-- el motor de reportes falla al no poder resolver p_compania.nombre
-- (variable "look ahead" del encabezado) porque nunca se llega a imprimir nada.
OPEN busca
FETCH busca INTO busqueda.cotizacion_no,busqueda.fecha,busqueda.tipo_cliente,
busqueda.sec_cliente,busqueda.nombre_proyecto,busqueda.direccion_proyecto,
busqueda.telefono_r,busqueda.nombre,busqueda.num_oc,busqueda.fecha_oc,
busqueda.fecha_entrega,busqueda.fecha_cierre,busqueda.cod_n,
busqueda.cod_grupo,busqueda.cod_tipo,busqueda.cod_sec,
busqueda.descrip_esp,busqueda.unidad_med,busqueda.cantidad,
busqueda.precio,busqueda.cantidad_2,busqueda.cod_mov,
busqueda.fecha_doc,busqueda.documento,busqueda.status_mov,
busqueda.simbolo,busqueda.vendedor,busqueda.monto_cotizacion,
busqueda.condicion,busqueda.estado_orden,busqueda.telefono,
busqueda.celular,busqueda.email,busqueda.contacto
IF STATUS = NOTFOUND THEN
CALL fgl_winmessage("WARNING","NO EXISTEN REGISTROS CON ESA CONDICION","SOP")
LET hay_datos = FALSE
ELSE
LET hay_datos = TRUE
END IF
# El formulario solo guarda el texto visible del combo (no el valor interno
# que tenia el .per original), asi que aqui se traduce de vuelta.
CASE salida CLIPPED
WHEN "Detallado" LET salida = "prprrp116.4rp"
WHEN "Resumido" LET salida = "prprrp016a.4rp"
END CASE
CASE visualiza CLIPPED
WHEN "PANTALLA" LET visualiza = "SVG"
WHEN "ACROBAT READER" LET visualiza = "PDF"
WHEN "EXCEL" LET visualiza = "XLSX"
END CASE
LET r_filename = salida CLIPPED
IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
LET r_output=visualiza CLIPPED
LET preview=1
@@ -216,30 +252,13 @@ FUNCTION prprrp016()
END IF
IF handler IS NOT NULL THEN -- report engine was configured ok
IF handler IS NOT NULL AND hay_datos THEN -- report engine was configured ok and there is data to print
START REPORT reporte_16 TO XML HANDLER handler
FOREACH busca INTO busqueda.cotizacion_no,busqueda.fecha,busqueda.tipo_cliente,
busqueda.sec_cliente,busqueda.nombre_proyecto,busqueda.direccion_proyecto,
busqueda.telefono_r,busqueda.nombre,busqueda.num_oc,busqueda.fecha_oc,
busqueda.fecha_entrega,busqueda.fecha_cierre,busqueda.cod_n,
busqueda.cod_grupo,busqueda.cod_tipo,busqueda.cod_sec,
busqueda.descrip_esp,busqueda.unidad_med,busqueda.cantidad,
busqueda.precio,busqueda.cantidad_2,busqueda.cod_mov,
busqueda.fecha_doc,busqueda.documento,busqueda.status_mov,
busqueda.simbolo,busqueda.vendedor,busqueda.monto_cotizacion,
busqueda.condicion,busqueda.estado_orden,busqueda.telefono,
busqueda.celular,busqueda.email,busqueda.contacto
IF STATUS = NOTFOUND THEN
CALL fgl_winmessage("WARNING","NO EXISTEN REGISTROS CON ESA CONDICION","SOP")
EXIT FOREACH
END IF
-- La primera fila ya fue leida arriba (para saber si hay_datos); aqui se
-- procesa esa fila y se sigue con FETCH manual hasta agotar el cursor.
WHILE hay_datos
IF busqueda.cantidad_2 IS NULL THEN
LET busqueda.cantidad_2 = 0
END IF
@@ -247,7 +266,7 @@ IF handler IS NOT NULL THEN -- report engine was configured ok
LET busqueda.fecha_avance= NULL
LET busqueda.monto_avance = NULL
SELECT MAX(a.num_doc),MAX(a.fecha_orig)
SELECT MAX(a.num_doc),MAX(a.fecha_orig)
INTO busqueda.avance,busqueda.fecha_avance,
busqueda.monto_avance
FROM cctb00001 a
@@ -255,7 +274,7 @@ IF handler IS NOT NULL THEN -- report engine was configured ok
a.tipo_Doc = 'AV' and a.tipo_cliente = busqueda.tipo_cliente and
a.sec_cliente = busqueda.sec_cliente and a.status_t is null and
a.fecha_orig > '08/01/2009'
LET busqueda.codigo = busqueda.cod_n using "&&&&","-",
busqueda.cod_grupo USING "&&&&","-",
busqueda.cod_tipo USING "&&&&","-",
@@ -266,11 +285,27 @@ IF handler IS NOT NULL THEN -- report engine was configured ok
IF busqueda.estado_orden = "S" THEN
LET busqueda.estado_orden = "CERRADA"
END IF
OUTPUT TO REPORT reporte_16(busqueda.*)
END FOREACH
FETCH busca INTO busqueda.cotizacion_no,busqueda.fecha,busqueda.tipo_cliente,
busqueda.sec_cliente,busqueda.nombre_proyecto,busqueda.direccion_proyecto,
busqueda.telefono_r,busqueda.nombre,busqueda.num_oc,busqueda.fecha_oc,
busqueda.fecha_entrega,busqueda.fecha_cierre,busqueda.cod_n,
busqueda.cod_grupo,busqueda.cod_tipo,busqueda.cod_sec,
busqueda.descrip_esp,busqueda.unidad_med,busqueda.cantidad,
busqueda.precio,busqueda.cantidad_2,busqueda.cod_mov,
busqueda.fecha_doc,busqueda.documento,busqueda.status_mov,
busqueda.simbolo,busqueda.vendedor,busqueda.monto_cotizacion,
busqueda.condicion,busqueda.estado_orden,busqueda.telefono,
busqueda.celular,busqueda.email,busqueda.contacto
IF STATUS = NOTFOUND THEN
LET hay_datos = FALSE
END IF
END WHILE
FINISH REPORT reporte_16
END IF
CLOSE busca
AFTER DIALOG
@@ -349,7 +384,7 @@ BEFORE GROUP OF x.cotizacion_no
PRINTX x.cotizacion_no,x.direccion_proyecto,x.nombre_proyecto,
x.tipo_cliente,x.sec_cliente,x.telefono_r,x.num_oc,x.fecha,x.fecha_cierre,
x.fecha_entrega,x.fecha_oc
x.fecha_entrega,x.fecha_oc,p_compania.nombre
BEFORE GROUP OF x.codigo
PROYECTO/cpdir/cpfmrp017.per
+1 -1
View File
@@ -1,4 +1,4 @@
database marmotech
database smarmotech
screen
{
PROYECTO/cpdir/cpprrp011.4gl
+15 -6
View File
@@ -10,7 +10,7 @@
GLOBALS
"cpprgb000.4gl"
DEFINE mvto RECORD
DEFINE mvto RECORD
fecha_in DATE,
fecha_fi DATE,
cod_sp SMALLINT
@@ -18,6 +18,8 @@ GLOBALS
decide CHAR(1),
entrada CHAR(14),
detalle1 CHAR(30)
DEFINE p_reportfile STRING
DEFINE p_ref_chk CHAR(50)
DEFINE prt_mvto11 RECORD
factura CHAR(10),
@@ -67,14 +69,15 @@ END MAIN
EXIT INPUT
END IF
AFTER FIELD entrada
SELECT UNIQUE a.ref FROM cgtb00004 a
WHERE a.ref = entrada
display "DIAG AFTER FIELD entrada: [",entrada CLIPPED,"]"
SELECT UNIQUE a.ref INTO p_ref_chk FROM cgtb00004 a
WHERE a.ref = entrada
IF STATUS != NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD entrada
END IF
END IF
AFTER FIELD fecha_in
IF mvto.fecha_in IS NULL THEN
LET numero_msg = 16
@@ -109,8 +112,9 @@ END MAIN
NEXT FIELD fecha
END IF
END IF
END IF
END INPUT
display "DIAG DESPUES DE INPUT: [",entrada CLIPPED,"]"
IF int_flag THEN
LET numero_msg = 2
@@ -119,7 +123,11 @@ END MAIN
RETURN
END IF
CALL configureoutput("SVG") RETURNING handler
-- La API de configuracion de reportes (fgl_report_*) no esta
-- disponible en este FGL; se escribe el XML directo a un archivo
-- en FGLSPOOL en lugar de la vista previa SVG.
LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/cpprrp011_cuentasft.xml"
LET handler = om.XmlWriter.createFileWriter(p_reportfile)
START REPORT cuenta_ft TO XML HANDLER handler
DECLARE movto CURSOR FOR
@@ -355,6 +363,7 @@ END MAIN
LET t_debito = t_debito + reg_final.debito
LET t_credito = t_credito + reg_final.credito
IF decide = "S" THEN
display "DIAGNOSTICO decide=[",decide,"] entrada=[",entrada CLIPPED,"]"
INSERT INTO cgtb00004 (fecha, tipo, ref, cuenta_no,departamento, num_doc,
cod_aux, cod_sec, detalles, detalle_1, detalle_2, debito, credito, status_t,
us_crea, fech_crea, us_mod, fech_mod)
PROYECTO/cpdir/cpprrp017.4gl
+24 -7
View File
@@ -10,8 +10,9 @@
GLOBALS
"cpprgb000.4gl"
DEFINE selec1 CHAR(500)
DEFINE p_reportfile STRING
DEFINE mvto RECORD
DEFINE mvto RECORD
fecha_in DATE,
fecha_fi DATE,
cod_sp SMALLINT
@@ -32,7 +33,18 @@ GLOBALS
debito DECIMAL(12,2),
credito DECIMAL(12,2),
id INTEGER
END RECORD
END RECORD
MAIN
DEFER INTERRUPT
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CONNECT to "smarmotech" user usuarios USING clave
SELECT a.* INTO p_companias.* FROM companias a
CALL cpprrp017()
END MAIN
FUNCTION cpprrp017()
CLEAR SCREEN
@@ -41,7 +53,6 @@ GLOBALS
#WHENEVER ERROR CONTINUE
OPEN FORM cpfmrp017 FROM "cpfmrp017"
DISPLAY FORM cpfmrp017
CALL PANTALLA()
DISPLAY "cpprrp017" AT 4,3 ATTRIBUTE(blue)
DISPLAY "Validacion de Facturas" AT 6,29
LET int_flag = FALSE
@@ -60,7 +71,10 @@ GLOBALS
LET selec =
"SELECT a.factura,a.cod_sp,a.cod_sp_sec,b.nom_sp,a.fecha,c.valor, ",
" a.cuenta_no,a.departamento,a.cod_aux,a.cod_sec,a.num_doc, ",
" a.debito,a.credito,a.rowid ",
" a.debito,a.credito, ",
-- a.rowid es una pseudo-columna de Informix, no existe en SQL Server;
-- se sustituye por un numero de fila equivalente para el orden del reporte.
" ROW_NUMBER() OVER (ORDER BY a.factura) ",
"FROM cptb00003 a,cotb00001 b,cptb00001 c ",
"WHERE (a.cod_sp = b.cod_sp AND a.cod_sp_sec = b.cod_sp_sec) and ",
" (a.cod_sp = c.cod_sp AND a.cod_sp_sec = c.cod_sp_sec) and ",
@@ -74,7 +88,10 @@ GLOBALS
DECLARE movto CURSOR FOR comando
OPEN movto
START REPORT val_ctas TO "C:\\archivo"
-- La ruta original "C:\archivo" no es escribible sin privilegios de
-- administrador; se usa un archivo en FGLSPOOL en su lugar.
LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/cpprrp017_valctas.txt"
START REPORT val_ctas TO p_reportfile
DISPLAY "<< " AT 19,14
DISPLAY "<< Impresion En Proceso .... Espere Por Favor. >>" AT 19,14
@@ -86,9 +103,9 @@ GLOBALS
EXIT WHILE
END IF
OUTPUT TO REPORT val_ctas(prt_mvto11.*)
END WHILE
END WHILE
FINISH REPORT val_ctas
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
END FUNCTION
REPORT val_ctas(x)
DEFINE x RECORD
PROYECTO/mbsERP.4pw
+72 -4
View File
@@ -242,6 +242,14 @@
<Configuration commandLineArguments="alopez Lopez2023 70" id="-700000010" label="Configuration"/>
<File filePath="cpdir/cpprrp004.4gl"/>
</Application>
<Application binaryName="cpprrp011" dependencies="-594793224,-1026233879,-764824792,1811699727,-1423229125" environment="dir:FGLSPOOL=$(ProjectDir)/spool" id="-700000011" label="cpprrp011">
<Configuration commandLineArguments="alopez Lopez2023 70" id="-700000012" label="Configuration"/>
<File filePath="cpdir/cpprrp011.4gl"/>
</Application>
<Application binaryName="cpprrp017" dependencies="-594793224,-1026233879,-764824792,1811699727,-1423229125" environment="dir:FGLSPOOL=$(ProjectDir)/spool" id="-700000013" label="cpprrp017">
<Configuration commandLineArguments="alopez Lopez2023" id="-700000014" label="Configuration"/>
<File filePath="cpdir/cpprrp017.4gl"/>
</Application>
<Library binaryName="FORMULARIOS_CP" id="1811699727" label="FORMULARIOS_CP">
<File filePath="cpdir/cpfmmt001.4fd"/>
<File filePath="cpdir/cpfmmt002.4fd"/>
@@ -252,6 +260,8 @@
<File filePath="cpdir/cpfmrp002.per"/>
<File filePath="cpdir/cpfmrp003.per"/>
<File filePath="cpdir/cpfmrp004.per"/>
<File filePath="cpdir/cpfmrp010.per"/>
<File filePath="cpdir/cpfmrp017.per"/>
</Library>
<Library binaryName="FUNCIONES_CP" dependencies="-1026233879" id="-594793224" label="FUNCIONES_CP">
<File filePath="cpdir/cpprgb000.4gl"/>
@@ -291,8 +301,65 @@
</Library>
</Group>
<Group id="202834315" label="MATERIA PRIMA">
<Library binaryName="FORMULARIOS_IN" id="-863149381" label="FORMULARIOS_IN"/>
<Library binaryName="FUNCIONES_IN" id="-801525068" label="FUNCIONES_IN"/>
<Library binaryName="FORMULARIOS_IN" id="-863149381" label="FORMULARIOS_IN">
<File filePath="../PROYECTOS/indir/infmmt002.per"/>
<File filePath="../PROYECTOS/indir/infmmt005.per"/>
</Library>
<Library binaryName="FUNCIONES_IN" dependencies="-1026233879" id="-801525068" label="FUNCIONES_IN">
<File filePath="../PROYECTOS/indir/inprgb000.4gl"/>
</Library>
<Application binaryName="inprmt002" dependencies="-801525068,-1026233879,-764824792" id="-900000001" label="inprmt002">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000002" label="Configuration"/>
<File filePath="../PROYECTOS/indir/inprmt002.4gl"/>
</Application>
<Application binaryName="inprmt005" dependencies="-801525068,-1026233879,-764824792" id="-900000003" label="inprmt005">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000004" label="Configuration"/>
<File filePath="../PROYECTOS/indir/inprmt005.4gl"/>
</Application>
<Application binaryName="inprmt013" dependencies="-801525068,-1026233879,-764824792" id="-900000005" label="inprmt013">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000006" label="Configuration"/>
<File filePath="../PROYECTOS/indir/inprmt013.4gl"/>
</Application>
<Application binaryName="inprmt046" dependencies="-801525068,-1026233879,-764824792" id="-900000007" label="inprmt046">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000008" label="Configuration"/>
<File filePath="../PROYECTOS/indir/inprmt046.4gl"/>
</Application>
<Application binaryName="inprmt036" dependencies="-801525068,-1026233879,-764824792" id="-900000009" label="inprmt036">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000010" label="Configuration"/>
<File filePath="../PROYECTOS/indir/inprmt036.4gl"/>
</Application>
<Application binaryName="inprmt066" dependencies="-801525068,-1026233879,-764824792" id="-900000011" label="inprmt066">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000012" label="Configuration"/>
<File filePath="../PROYECTOS/indir/inprmt066.4gl"/>
</Application>
<Application binaryName="inprcs006" dependencies="-801525068,-1026233879,-764824792" id="-900000013" label="inprcs006">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000014" label="Configuration"/>
<File filePath="../PROYECTOS/indir/inprcs006.4gl"/>
</Application>
<Application binaryName="inprrp003" dependencies="-801525068,-1026233879,-764824792" externalDependencies="libgre.42x" id="-900000015" label="inprrp003">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000016" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="../PROYECTOS/indir/inprrp003.4gl"/>
</Application>
<Application binaryName="inprrp005" dependencies="-801525068,-1026233879,-764824792" externalDependencies="libgre.42x" id="-900000017" label="inprrp005">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000018" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="../PROYECTOS/indir/inprrp005.4gl"/>
</Application>
<Application binaryName="inprrp008" dependencies="-801525068,-1026233879,-764824792" externalDependencies="libgre.42x" id="-900000019" label="inprrp008">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000020" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="../PROYECTOS/indir/inprrp008.4gl"/>
</Application>
<Application binaryName="inprrp009" dependencies="-801525068,-1026233879,-764824792" externalDependencies="libgre.42x" id="-900000021" label="inprrp009">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000022" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="../PROYECTOS/indir/inprrp009.4gl"/>
</Application>
<Application binaryName="inprrp028" dependencies="-801525068,-1026233879,-764824792" externalDependencies="libgre.42x" id="-900000023" label="inprrp028">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000024" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="../PROYECTOS/indir/inprrp028.4gl"/>
</Application>
<Application binaryName="inprrp011" dependencies="-801525068,-1026233879,-764824792" externalDependencies="libgre.42x" id="-900000025" label="inprrp011">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-900000026" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="../PROYECTOS/indir/inprrp011.4gl"/>
</Application>
</Group>
<Group id="1302820616" label="NOMINA">
<Library binaryName="FORMULARIOS_NO" id="-335228674" label="FORMULARIOS_NO"/>
@@ -331,7 +398,7 @@
<Configuration commandLineArguments="jpeguero Peguero2023" id="-974560942" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="PRDIR/prprmt021.4gl"/>
</Application>
<Application binaryName="prprmt020" dependencies="-837156229,-1026233879,-764824792" id="-358374666" label="prprmt020">
<Application binaryName="prprmt020" dependencies="-837156229,-1026233879,-764824792,493047263" id="-358374666" label="prprmt020">
<Configuration commandLineArguments="jpeguero Peguero2023" id="240197034" label="Configuration"/>
<File filePath="PRDIR/prprmt020.4gl"/>
</Application>
@@ -348,7 +415,7 @@
<File compilerOptions="--build-rdd" filePath="PRDIR/prprrp116.4gl"/>
</Application>
<Library binaryName="FORMULARIOS_PR" dependencies="-1026233879" id="-956683955" label="FORMULARIOS_PR">
<File filePath="PRDIR/prfmrp116.per"/>
<File filePath="PRDIR/prfmrp116.4fd"/>
<File filePath="PRDIR/prfmmt008.4fd"/>
<File filePath="vedir/vefmwd002.4fd"/>
<File filePath="ctdir/prfmmt003.per"/>
@@ -381,6 +448,7 @@
<File filePath="PRDIR/pretiquetas.4gl"/>
<File filePath="PRDIR/prempacar.4gl"/>
<File filePath="otrodir/bcode128.4gl"/>
<File filePath="../PROYECTOS/otrodir/codmov.4gl"/>
</Library>
</Group>
<Group id="46006545" label="RECURSOS HUMANOS">