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

Compare commits

base: jsoto/MBS:b7877d7c07633dab4849f8282ea21eaf98bc286b
Branches Tags
jsoto/MBS:main
...
compare: jsoto/MBS:main
Branches Tags
jsoto/MBS:main
43 Commits
b7877d7c07 ... main
Author SHA1 Message Date
Abel López 79eff57d70 Merge branch 'main' of https://git.fulldetord.com/jsoto/mbs 2026-09-10 17:02:44 -04:00
Abel LópezandClaude Sonnet 5 9ac3f70a13 WIP: Agregar noprmt008 (Generacion de Nomina) - en diagnostico 
- Registrar noprmt008 en mbsERP.4pw junto con sus 3 formularios
  (nofmmt008.4fd, nofmmt108.per, nofmmt208.per)
- Corregir bug en nofmmt008.4fd: el checkbox opt3 tenia colName="opt2"
  duplicado por error de copiar/pegar, causando "Field (opt3) not
  found in form"
- Quitar CONVERT(CHAR(10),...,103) en 5 SELECTs que alimentaban
  variables DATE (mismo patron de bug ya visto en noprmt003):
  causaba "-1205 Invalid month in date" de forma intermitente
- Agregar funcion debuglog() (escribe a archivo en FGLSPOOL) para
  diagnosticar por que la generacion terminaba sin insertar ningun
  registro; diagnostico aun en curso

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-10 17:02:39 -04:00
jpeguero 972f2f1f47 Registrar formularios y funciones faltantes para ipprmt005 y ipprmt013 
- Registrar ipfmmt019.4fd (formulario real que usa ipprmt005.4gl)
- Migrar categorias.4gl desde PROYECTOS y registrarlo (usaba
  formonly.cod_cat, coincide con ipprmt005; la copia existente en
  PUNTO VENTAS VER2 usaba un nombre de campo distinto)

Pendiente: ipprmt005 (como ipprmt064) requiere una segunda conexion a una
base "marmotech" (alias IFMX) no mapeada en el ambiente, resto de la
epoca Informix. Consultado con Johnny como patron general.
 2026-09-10 16:52:45 -04:00
jpeguero d43f2729bd Registrar y corregir ipprmt013 (Costos Estandares Producto Terminado) 
- Registrar formulario ipfmmt013.4fd en el proyecto (faltaba)
- Corregir databaseName del formulario (marmotech -> smarmotech, esquema
  viejo que impedia resolver la tabla iptb00004)
- Agregar titulo de ventana (formulario no tenia atributo text, mostraba
  "screen" generico)
 2026-09-10 16:42:48 -04:00
jpeguero 987c2c1122 Avanzar en registro y correccion de ipprmt044 (Productos Terminados) 
- Registrar 8 archivos faltantes en FUNCIONES_IP (ipautorizareq, codigoModificacion,
  piking, conduces, ubicacionH, ipactualizareqtrx, loadDespiece, LlenarUbicaciones)
- Agregar dependencias FUNCIONESREPORT y FUNCIONESEMAIL a ipprmt044 (defecto,
  configureOutput, enviaemail ya existian en el proyecto)
- Resolver colision de nombres: renombrar REPORT/FUNCTION duplicados en
  ipautorizareq.4gl (requiere->requiereAutoriza, buscadoc->buscadocAutoriza,
  impdocumento->impdocumentoAutoriza) que chocaban con imprequisiciones.4gl
  y buscarequisicion.4gl
- Sincronizar registros locales desactualizados: x RECORD en ipautorizareq.4gl
  (faltaba us_crea) y x/z RECORD del REPORT formu4 en ipprgb000.4gl (faltaban
  bodega_destino, factura, area, descripcion_area, existencia, disponible,
  codigo_bloque, id_kit) respecto a los registros globales reales
- Migrar ipprmt020_1.4rp desde PROYECTOS y corregir su RWFglReportName

Pendiente: funcion 'fotos' (12 parametros) no existe en ningun archivo del
proyecto, consultado con Johnny
 2026-09-10 14:15:49 -04:00
jpeguero e414e52523 Registrar y corregir ipprmt021 (Autorizaciones Requisiciones Almacenes) 
- Registrar estadosprocesos.4gl y formulario ipfmmt021.4fd en el proyecto
- Corregir columna estado_proceso inexistente por idestado (error SQL -6372)
- Corregir desfase de columnas en SELECT/INTO de buscadoc() que dejaba
  usuario, bodega origen y tipo de movimiento vacios en el reporte impreso,
  y filtraba la descripcion del estado hacia el campo de observacion
 2026-09-10 13:03:01 -04:00
jpeguero a3e88776a9 Registrar y corregir ipprmt020 (Requisiciones Productos Almacenes) 
- Registrar funciones compartidas faltantes (buscarequisicion, imprequisiciones, funciones_ip) y formularios ipfmmt003/ipfmmt020 en el proyecto
- Agregar usuarioSistema a seg000.4gl
- Ampliar combos Codigo Mov/Bodega/Bodega Destino en ipfmmt020.4fd (texto ilegible)
- Refrescar lista de requisiciones al anular (buscarData + clear del arreglo)
 2026-09-09 16:30:34 -04:00
jpeguero 9e70c46451 Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-09-05 12:03:31 -04:00
jpegueroandClaude Sonnet 5 adf5224440 Agrega ipprmt003 (Productos Terminados) y actualiza esquema de BD 
- Registra formulario ipfmmt003 en FORMULARIOS_IP con dependencia a
  Database
- Corrige dos bugs reales en ipprmt003.4gl: campo
  control_ubicacion_almacen duplicado en INPUT BY NAME (error -8090),
  y columnas control_produccion/control_ubicacion_almacen duplicadas
  en el INSERT INTO (error SQL -6372). Probado completo: alta,
  consulta, eliminacion, validacion de duplicados
- Actualiza DATABASE/smarmotech.4db con el esquema actual de SQL
  Server (agrega columnas nuevas de iptb00002 y otras tablas)
- ipprmt002 queda pendiente: 5 columnas de iptb00002 no son
  reconocidas por el compilador pese a existir en la BD real,
  requiere revision en vivo con Johnny

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-05 12:03:13 -04:00
Abel López 888a36553e Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-09-04 16:48:33 -04:00
Abel López 97ef961e13 Revert "Agregar noprmt020 al proyecto (identidad real pendiente de confirmar)" 
This reverts commit 77e844390e.
 2026-09-04 16:46:09 -04:00
Abel LópezandClaude Sonnet 5 77e844390e Agregar noprmt020 al proyecto (identidad real pendiente de confirmar) 
- Registrar noprmt020 en mbsERP.4pw
- Agregar MAIN (faltaba, el archivo era solo funciones para ser
  llamadas desde el menu nomnmt000.4gl) y una funcion pantalla()
  local para el encabezado
- Corregir typo "database marmotech" -> "smarmotech" en nofmmt021.per

NOTA: el usuario identifico este programa como "Calcular Horas
Extras", pero tanto el contenido del .4gl como su propio menu
(nomnmt000.4gl: "19-Porc. Accidente Trabajo noprmt020") indican que
en realidad es la maestra de % de Accidente de Trabajo. Build y
compilacion verificados, prueba funcional pendiente hasta confirmar
el programa correcto para "Calcular Horas Extras" (candidatos:
noprmt030.4gl, noprmt038.4gl, o los reportes noprrp007/011/018/026/034/035).

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-04 16:22:45 -04:00
Abel LópezandClaude Sonnet 5 81182e5ded Agregar noprmt007 (Novedades de la Nomina) al modulo NOMINA 
Registrar noprmt007 en mbsERP.4pw usando nofmmt007.4fd (el .per
carece de departamento_afecta, num_trx, sueldo_act y los campos
titulo_dep_act/titulo_dep_afecta que usa el programa). El .4gl
compilo limpio sin cambios de codigo.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-04 13:45:56 -04:00
Abel LópezandClaude Sonnet 5 60e392c033 Agregar noprmt001 (Codigos de Movimientos) al modulo NOMINA 
- Registrar noprmt001 en mbsERP.4pw (usa cofmmt001... nofmmt001.4fd,
  el .per carece del grid smovimientos y los campos modifica/vacaciones)
- Reemplazar smarmotech.sch/.42d de nodir por la copia canonica ya
  generada en MBS/DATABASE (orden de columnas correcto, incluye
  telefonoCorporativo/numeroOficina/extension) en vez de regenerar

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-04 12:12:24 -04:00
jpegueroandClaude Sonnet 5 367f0c4340 Agrega los 34 programas de Productos Terminados al proyecto 
Registra las Applications de Productos Terminados (ipprmt/ipprcs/ipprrp)
con dependencias a FUNCIONES_IP, Database y FUNCIONES, y agrega
ipprgb000.4gl como archivo compartido de FUNCIONES_IP. Listo para
compilar/probar programa por programa, igual que se hizo con Materia
Prima.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-04 09:39:19 -04:00
jpeguero 43aa1c809d Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-09-04 09:31:18 -04:00
jpegueroandClaude Sonnet 5 b6085d4140 Mueve ipdir (Productos Terminados) de PROYECTOS a PROYECTO 
Instruccion de Johnny: todos los directorios de fuentes de inventario
deben migrarse de la carpeta temporal PROYECTOS a la carpeta real
PROYECTO, ya que PROYECTOS sera eliminada.

Se elimino tambien un archivo suelto sin relacion llamado "ipdir"
que existia en PROYECTO (del commit inicial) y bloqueaba el nombre
de la carpeta.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-04 09:29:01 -04:00
Abel López affc09c3e8 Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-09-03 16:57:12 -04:00
jpegueroandClaude Sonnet 5 4532d51e4b Prueba inprrp011 (completo) e inprrp028 (matricial completo, PDF pendiente) 
- Corrige selectOutput()/seleccionarSalida()/configureOutput() en
  defecto.4gl para usar la API real fgl_report_* (Report Writer 2.0),
  reemplazando los stubs previos. Reutiliza el formulario Configuration
  ya existente en el proyecto (FUNCIONESREPORT)
- inprrp011: quita el START REPORT forzado a XML roto (media migracion
  abandonada), probado completo: filtros, totales/subtotales vs
  produccion, exportacion PDF/Excel/Pantalla funcionando
- inprrp028: mismo patron, restaura Sietesalida) - No/matricial
  como respaldo. Crea bin/inprrp028.4rp (diseno de reporte, no existia)
  para la salida grafica; carga sin error de formato pero la
  generacion no completa en este entorno - pendiente de revisar
  rendimiento/recursos

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-03 16:52:39 -04:00
Abel LópezandClaude Sonnet 5 ee27da0669 Agregar noprmt003 (Maestra de Empleados) al modulo NOMINA 
- Registrar noprmt003 en mbsERP.4pw (FUNCIONES_NO: noprfu000.4gl,
  nocarnet.4gl; FORMULARIOS_NO: nofmmt003.4fd); reutiliza
  otrodir/departamentos.4gl ya presente en FUNCIONES
- Actualizar el diccionario de esquema smarmotech.sch: faltaban las
  columnas telefonoCorporativo/numeroOficina/extension de adtb00003
  (existen en la BD real pero no estaban en el diccionario, .42d se
  regenera solo al recompilar); propagado a todos los directorios
- Desactivar el CONNECT TO "marmotech" AS "IFMX" (Informix ya no
  existe, todo migro a SQL Server) y el INSERT duplicado hacia esa
  conexion en el alta de empleados; sin esto el programa se colgaba
  al iniciar
- Quitar CONVERT(...,103) de fechas en el SELECT/FETCH de empleados:
  se convertian a texto dd/mm/yyyy y luego se reasignaban a variables
  DATE, causando "-1205 Invalid month in date" con dias > 12
- Agregar BEFORE CONSTRUCT/END CONSTRUCT para poblar el combo de
  Departamento en la busqueda (faltaba, quedaba vacio)
- Corregir foto de empleado que no se limpiaba al navegar
  Siguiente/Anterior hacia un empleado sin foto
- nocarnet.4gl: sustituir fgl_report_* (API no disponible) por
  om.XmlWriter.createFileWriter() hacia FGLSPOOL

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-03 16:51:11 -04:00
Abel LópezandClaude Sonnet 5 b27b20d42d Agregar noprmt002 (Movimientos Fijos Emp.) al modulo NOMINA 
- Registrar noprmt002 en mbsERP.4pw junto con noprgb000.4gl
  (FUNCIONES_NO), nofmmt002.per/nofmwd001.per (FORMULARIOS_NO) y
  adfmwd004.per (FORMULARIOS_AD, compartido con ADMINISTRACION)
- Copiar el diccionario de esquema smarmotech.sch a nodir/addir
  (faltaba, igual que en otros directorios ya corregidos)
- Corregir typo "database marmotech" -> "smarmotech" en nofmwd001.per

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-03 12:12:06 -04:00
jsoto 382ec5cd35 JSOTO Se adiciono programa adprmt017 2026-09-03 10:12:37 -04:00
Abel López 4cb8d4c71b Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-09-01 16:48:54 -04:00
Abel LópezandClaude Sonnet 5 f216a7acfa Agregar coprrp007 (Cronologico de Requisiciones) al proyecto 
- Registrar coprrp007 en mbsERP.4pw, usando cofmrp007.4fd (el .per
  no define el combo de departamento que requiere busca_departamento())
- Enlazar la libreria FUNCIONES_IN (ya contiene departamento.4gl) en
  vez de duplicar el archivo, evitando conflicto de salida .42m
- Agregar guarda NULL en departamento.4gl: ui.combobox.forname()
  puede no encontrar el combo durante el CONSTRUCT y causaba
  "Null pointer exception" al llamar .clear()
- Sustituir seleccionarsalida()/configureoutput() (no definidas,
  API fgl_report_* no disponible) por om.XmlWriter.createFileWriter()
  hacia FGLSPOOL

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-01 16:48:46 -04:00
jpegueroandClaude Sonnet 5 f140ab917e Agrega y corrige inprrp008, inprrp028, inprrp009 e inprrp011 (Materia Prima) 
- inprrp008: agrega CONNECT faltante en MAIN, corrige ruta de impresion
  hardcodeada (C:\archivo -> FGLSPOOL) y comando RUN sin comillas,
  reconstruye infmrp008 como .4fd (el campo Ordenamiento se compilaba
  como checkbox en vez de texto)
- inprrp028: restaura la rama matricial (Si/No Reporte Grafico) que
  habia quedado comentada, dejando el programa forzado a la via XML
  rota; agrega funcion compartida seleccionarSalida() a defecto.4gl
- inprrp009: agrega notNull al combo de Bodega para quitar los items
  <blank>/<not blank>, agrega titulo a la ventana
- Registra formularios infmrp008, infmrp028 e infmrp011 en el proyecto
- Todos probados: corren completos sin error de FGL (Exit code: 0) via
  matricial; la salida grafica/PDF sigue siendo la limitacion conocida
  de entorno (Report Writer 2.0 no disponible)

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-01 16:48:20 -04:00
jpeguero cda8053d90 Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-08-31 16:46:34 -04:00
jpegueroandClaude Sonnet 5 7f789181cf Agrega inprrp003 e inprrp005 (reportes de Materia Prima) al proyecto 
- Registra formularios infmrp003.per e infmrp005.per en FORMULARIOS_IN
- Agrega funciones compartidas msgrp000() y selectOutput() a defecto.4gl
  (selectOutput como stub, mismo limite conocido de Report Writer 2.0
  que configureOutput)
- inprrp003 probado: reporte de movimientos corre completo sin error
  de FGL (impresion fisica no disponible en entorno de desarrollo)
- inprrp005 pendiente: error SQL -1262 "Non-numeric character in
  datetime" al filtrar por Fecha del Dia, en investigacion

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-08-31 16:44:13 -04:00
Abel López 26961ddd81 Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-08-31 16:43:06 -04:00
Abel LópezandClaude Sonnet 5 3284ae0de9 Agregar coprrp019 (Validacion Ordenes) al proyecto 
- Registrar coprrp019 en mbsERP.4pw
- Agregar CONNECT TO/ARG_VAL faltante en MAIN (el programa hacia
  consultas SQL sin haberse conectado nunca a la base de datos)
- Sustituir seleccionarsalida()/configureoutput() (no definidas,
  API fgl_report_* no disponible) por om.XmlWriter.createFileWriter()
  hacia FGLSPOOL
- Corregir typo "database marmotech" -> "database smarmotech" en
  cofmrp019.per

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-08-31 16:42:59 -04:00
jpegueroandClaude Sonnet 5 ea1493db43 Prueba y corrige inprcs006 (Movimiento Materia Prima) 
- Proyecto ahora referencia infmcs006.4fd en vez de .per (el .per
  clasico no puede declarar las columnas del Tree de filas hijas)
- Corrige conflicto de campo "bodega" entre INPUT y CONSTRUCT dentro
  del mismo DIALOG (error -8090), moviendo la busqueda a ON ACTION
- Corrige binding de ComboBox Bodega y campo mensaje_ini (faltaba
  colName/sqlTabName, causaba Null pointer exception)
- Agrega titulo "MOVIMIENTO MATERIA PRIMA" y ensancha combo de bodega
- Corrige tabIndex del combo de bodega para navegacion con teclado

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-08-30 12:21:46 -04:00
jpeguero 7b1b414629 Agrega formulario infmcs006 para inprcs006 
Compilo correctamente; pendiente probar por caida del servidor
de base de datos (192.168.40.250).
 2026-08-28 19:39:54 -04:00
jpeguero 0d17478789 Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-08-28 19:22:35 -04:00
jpeguero 6f50812bb1 Completa Buscar Documentos en inprmt036 y agrega inprmt066 
- inprfu000.4gl: corrige reimprime()/busca_info() para que branchen
  correctamente segun el programa llamante (inprmt046 vs otros).
  Antes usaban siempre las variables de inprmt046 (otros_mov),
  causando errores en inprmt036. Se activa y corrige la logica que
  estaba comentada para el caso generico (Johnny autorizo completarla,
  confirmado que tampoco funcionaba en produccion).
- inprmt066 (Anular Documentos): agrega formulario faltante y el
  campo Bodega (combo) que no existia. Ensancha el combo para
  legibilidad. Probado: anulacion de documento real, funciona.
 2026-08-28 19:21:13 -04:00
Abel LópezandClaude Sonnet 5 052b80de34 Configurar FGLSPOOL en coprmt009 para que Imprime genere el reporte 
El Application node de coprmt009 no tenia la variable de entorno
FGLSPOOL configurada (a diferencia de coprrp001/coprrp004/coprmt025).
FGL_GETENV("FGLSPOOL") devolvia NULL, el handler de XmlWriter en
orden() (coprorden.4gl) nunca se creaba, y "Imprime" fallaba
silenciosamente sin generar el reporte ni mostrar error.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-08-28 16:56:29 -04:00
Abel LópezandClaude Sonnet 5 cc4964af5e Merge remote-tracking branch 'origin/main' 
Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-08-28 16:48:38 -04:00
Abel LópezandClaude Sonnet 5 3df53ba483 Agregar coprrp004 (Cronologico de Ordenes) al proyecto 
- Registrar coprrp004 (usando cofmrp004.4fd, el .per carece del
  campo estado) en mbsERP.4pw
- Sustituir seleccionarsalida()/configureoutput() (no definidas en
  este programa, misma API fgl_report_* no disponible) por
  om.XmlWriter.createFileWriter() hacia FGLSPOOL

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-08-28 16:48:04 -04:00
Abel LópezandClaude Sonnet 5 91eeef199e Corregir campo bodega oculto en busqueda de coprmt009 
El CONSTRUCT del criterio de busqueda y un DISPLAY BY NAME en escoge()
referenciaban cotb00014.bodega/ordenes.bodega, que no existe como campo
visible en cofmmt009 (combo oculto, ya excluido en el INPUT BY NAME de
copcad009). Causaba "FORMS statement error -1102: Field (bodega) not
found in form" al usar Buscar Ordenes de Compras.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-08-28 16:06:50 -04:00
jpeguero f230a3002d Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-08-28 15:06:25 -04:00
jpeguero 817720127e Merge remote-tracking branch 'origin/main' 2026-08-28 14:21:56 -04:00
Abel LópezandClaude Sonnet 5 a37d0336b5 Agregar coprrp001 (Catalogo Suplidores) y corregir bugs en coprcs009 
- Registrar coprrp001/cofmrp001 en mbsERP.4pw
- Sustituir API fgl_report_* no disponible por XmlWriter en coprrp001.4gl
- Ampliar cs_ordena.codigo a CHAR(20) en coprgb000.4gl
- Corregir mascaras PICTURE de codigo en coprcs009.4gl
- Ampliar campo c1 en cofmcs009.per para igualar el ancho de codigo
- Corregir typo de base de datos en cofmwd016.per

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-08-28 11:38:43 -04:00
jsoto c4169453ce Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-08-28 08:48:12 -04:00
jsoto 7f975157a5 JSOTO adicione --build-rdd al coprmt004 y el libgre.42x al programa coprmt009 2026-08-28 08:46:49 -04:00
jpeguero 69b4500eed Corrige inprmt046, agrega inprmt036 y arreglos de fecha/impresion 
- inprmt046: agrega columnas Maquina/Clasf.Bloque faltantes en la
  tabla, ensancha combos para legibilidad, corrige formato de fecha
  (CONVERT 103 requiere DBDATE=DMY4/ configurado). Saca la funcion
  maquinaria() de un archivo local a una compartida (maquinaria.4gl)
  para evitar duplicado.
- inprmt036 (Requisicion de Materiales): agrega formulario, campo
  Impresion (MATRICIAL/PDF), corrige nombre_d y agrega columna
  Existencia faltante en la tabla.
- Agrega funcion compartida configureOutput (stub, Report Writer 2.0
  no disponible en FGL 6.00.01).
- Requiere variables de entorno DBDATE=DMY4/ y FGLSPOOL (carpeta
  PROYECTO/spool) al abrir Genero Studio para reportes/fechas.
 2026-08-27 16:57:10 -04:00
413 changed files with 58109 additions and 6449 deletions
Expand all files Collapse all files
DATABASE/smarmotech.4db
+2 -2
View File
File diff suppressed because one or more lines are too long
PROYECTO/addir/adprmt017.4gl
+3
View File
@@ -1619,6 +1619,9 @@ FUNCTION desplegar()
IF acc_per.estado_civil = "C" THEN
LET estado = "CASADO"
END IF
IF acc_per.estado_civil = "U" THEN
LET estado = "UNION LIBRE"
END IF
IF acc_per.sexo = "M" THEN
LET tipo_sexo = "MASCULINO"
PROYECTO/addir/smarmotech.sch
+11090
View File
File diff suppressed because it is too large Load Diff
PROYECTO/bin/coprmt009.4rp
+1 -1
View File
@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="60003" version="7.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList>
<report:Format-PDF/>
PROYECTO/bin/inprrp028.4rp
+57
View File
@@ -0,0 +1,57 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="60003" version="7.00">
<report:Settings RWPageWidth="tabloidlength" RWPageLength="tabloidwidth" RWLeftMargin="0.5cm" RWTopMargin="0.5cm" RWRightMargin="0.5cm" RWBottomMargin="0.5cm">
<report:FormatList>
<report:Format-PDF/>
<report:Format-image/>
<report:Format-SVG/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../indir/inprrp028.rdd" RWFglReportName="prt_exist"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage1" width="max" length="max" fontName="Arial" fontSize="8">
<LAYOUTNODE name="HeaderNode" width="min" length="min" swapX="true" port="anyPageHeader">
<MINIPAGE name="HeaderStripe" width="min" length="max" alignment="center" layoutDirection="topToBottom">
<WORDBOX name="WB1" alignment="baseline" fontBold="true" fontSize="12" text="MARMOTECH, S. A."/>
<WORDBOX name="WB2" alignment="baseline" text="Sistema de Inventario de Materia Prima"/>
<WORDBOX name="WB3" alignment="baseline" fontBold="true" text="Existencia con Entrada y Salida"/>
</MINIPAGE>
<LAYOUTNODE name="ColHeader" width="max" length="min" bgColor="#cccccc" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="WBc1" width="3cm" alignment="baseline" text="Codigo"/>
<WORDWRAPBOX name="WBc2" width="6cm" alignment="baseline" text="Descripcion"/>
<WORDBOX name="WBc3" width="1.5cm" alignment="baseline" text="Unidad"/>
<WORDBOX name="WBc4" width="2.5cm" alignment="baseline" textAlignment="right" text="Existencia Ant."/>
<WORDBOX name="WBc5" width="2.5cm" alignment="baseline" textAlignment="right" text="Entradas"/>
<WORDBOX name="WBc6" width="2.5cm" alignment="baseline" textAlignment="right" text="Salidas"/>
<WORDBOX name="WBc7" width="2.5cm" alignment="baseline" textAlignment="right" text="Existencia Act."/>
</LAYOUTNODE>
</LAYOUTNODE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="RowNode" width="max" length="min" layoutDirection="leftToRight">
<rtl:input-variable name="x.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WBcodigo" width="3cm" alignment="baseline" text="{{x.cod_n.format(&quot;&amp;&quot;)+&quot;-&quot;+x.cod_grupo.format(&quot;&amp;&quot;)+&quot;-&quot;+x.cod_tipo.format(&quot;&amp;&amp;&quot;)+&quot;-&quot;+x.cod_sec.format(&quot;&amp;&amp;&amp;&quot;)}}"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WBdesc" width="6cm" alignment="baseline" text="{{x.descrip_esp.trim()}}"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WBund" width="1.5cm" alignment="baseline" text="{{x.unidad_med.trim()}}"/>
<rtl:input-variable name="x.existe_ant" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="WBant" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&amp;&amp;" value="{{x.existe_ant}}"/>
<rtl:input-variable name="entradas" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="WBent" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&amp;&amp;" value="{{entradas}}"/>
<rtl:input-variable name="salidas" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="WBsal" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&amp;&amp;" value="{{salidas}}"/>
<rtl:input-variable name="x.existe_act" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="WBact" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&amp;&amp;" value="{{x.existe_act}}"/>
</LAYOUTNODE>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/bin/ipprmt020.4rp
+120
View File
@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/imprequisiciones.rdd" RWFglReportName="requiere"/>
<report:Conflicts>
<report:Conflict nodeName="despiece" message="Node was in trigger &quot;AfterGroup codigo&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="detalledespiece" message="Node was in trigger &quot;AfterGroup codigo&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="totaldespiece" message="Node was in trigger &quot;AfterGroup codigo&quot;, but trigger was removed during schema update"/>
</report:Conflicts>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report" minOccurs="1" maxOccurs="1">
<MINIPAGE name="Page Root" width="max" length="max">
<LAYOUTNODE name="encabezado" width="min" length="max" alignment="center" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox1" width="max-2cm" floatingBehavior="enclosed" textAlignment="center" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox" floatingBehavior="enclosed" text="Pagina:"/>
<PAGENOBOX name="PageNoBox" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<LAYOUTNODE name="encabezado2" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox2" width="max-2cm" fontBold="true" floatingBehavior="enclosed" textAlignment="center" text="REQUISICION DOCUMENTOS"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="{{hora}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="encabezadomaster" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
<LAYOUTNODE name="LayoutNode1" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<rtl:input-variable name="nombreUsuario" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox4" length="1cm" floatingBehavior="enclosed" text="{{&quot;USUARIO: &quot;+nombreUsuario.trim()}}"/>
<rtl:input-variable name="p_iptb57.numero_doc" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox5" fontSize="12" fontBold="true" floatingBehavior="enclosed" text="{{&quot;DOCUMENTO: &quot;+p_iptb57.numero_doc.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
<rtl:input-variable name="p_iptb57.cod_mov" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
<rtl:input-variable name="nombreMov" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDWRAPBOX name="WordWrapBox" width="width(&quot;M&quot;)*27" alignment="baseline" floatingBehavior="enclosed" text="{{&quot;TIPO DOCUMENTO: &quot;+&quot;(&quot;+p_iptb57.cod_mov.format(&quot;&lt;&lt;&lt;&quot;)+&quot;)&quot;+nombreMov.trim()}}"/>
<rtl:input-variable name="p_iptb57.fecha" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox6" floatingBehavior="enclosed" text="{{&quot;FECHA: &quot;+p_iptb57.fecha}}"/>
<rtl:input-variable name="nombreBodega" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox8" floatingBehavior="enclosed" text="{{&quot;BODEGA: &quot;+nombreBodega}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode2" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox12" length="1cm" alignment="baseline" floatingBehavior="enclosed"/>
<rtl:input-variable name="p_iptb57.bodega_destino" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
<rtl:input-variable name="nombreBodegaDestino" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox9" floatingBehavior="enclosed" text="{{&quot;BODEGA DESTINO: &quot;+&quot;(&quot;+p_iptb57.bodega_destino+&quot;)&quot;+nombreBodegaDestino}}"/>
<rtl:input-variable name="p_iptb57.num_oc" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox10" floatingBehavior="enclosed" text="{{&quot;NUMERO ORDEN:&quot;+p_iptb57.num_oc.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
<rtl:input-variable name="p_iptb57.cliente" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*27" floatingBehavior="enclosed" text="{{&quot;CLIENTE: &quot;+p_iptb57.cliente}}"/>
<rtl:input-variable name="p_iptb57.observacion" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDWRAPBOX name="WordWrapBox2" width="width(&quot;M&quot;)*20" floatingBehavior="enclosed" text="{{&quot;OBSERVACION: &quot;+p_iptb57.observacion.trim()}}"/>
</LAYOUTNODE>
</LAYOUTNODE>
<LAYOUTNODE name="encabezadodetalle" width="min" length="min" fontSize="8" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox13" width="3.5inch" floatingBehavior="enclosed" text="ITEM(S)" roundedCorners="false" borderWidth="1"/>
<WORDBOX name="WordBox14" width="2.2inch" floatingBehavior="enclosed" textAlignment="right" text="UNIDAD"/>
<WORDBOX name="WordBox15" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="CANTIDAD"/>
</LAYOUTNODE>
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1"/>
<rtl:match name="Group codigo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="table" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<rtl:input-variable name="detalle.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.descripcion" type="FGLString" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox3" width="width(&quot;M&quot;)*30" length="min" alignment="baseline" floatingBehavior="enclosed" text="{{detalle.cod_n.format(&quot;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+detalle.cod_grupo.format(&quot;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+detalle.cod_tipo.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+detalle.cod_sec.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot; &quot;+detalle.descripcion.trim()+&quot; &quot;+detalle.unidad_med}}"/>
<rtl:input-variable name="detalle.cantidad_1" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox17" width="2.4inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad_1.format(&quot;###,###.#####&quot;)}}"/>
<rtl:input-variable name="detalle.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" width="1.5inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad.format(&quot;###,###.#####&quot;)}}"/>
</MINIPAGE>
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedAhead"/>
<LAYOUTNODE name="despiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="topToBottom" floatingBehavior="enclosed">
<WORDBOX name="WordBox20" width="max" floatingBehavior="enclosed" textAlignment="center" text="DESPIECE" roundedCorners="true" borderWidth="1" borderStyle="solid"/>
<LAYOUTNODE name="encabezadodespiece" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox24" width="1.5inch" floatingBehavior="enclosed" text="Etiquetas"/>
<WORDBOX name="WordBox26" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 1"/>
<WORDBOX name="WordBox27" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 2"/>
<WORDBOX name="WordBox28" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 3"/>
<WORDBOX name="WordBox29" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Unidades"/>
<WORDBOX name="WordBox30" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Medida"/>
</LAYOUTNODE>
</LAYOUTNODE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedHere"/>
<LAYOUTNODE name="detalledespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="etiqueta" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="etiqueta Value" class="grwStringValue" width="width(&quot;M&quot;)*15" alignment="baseline" floatingBehavior="enclosed" text="{{etiqueta}}"/>
<rtl:input-variable name="xdespiece.lado_1" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.lado_1 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.lado_1}}"/>
<rtl:input-variable name="xdespiece.lado_2" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.lado_2 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.lado_2}}"/>
<rtl:input-variable name="xdespiece.lado_3" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.lado_3 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.lado_3}}"/>
<rtl:input-variable name="xdespiece.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.cantidad Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.cantidad}}"/>
<rtl:input-variable name="xdespiece.medida" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.medida Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.medida}}"/>
</LAYOUTNODE>
</rtl:match>
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedBefore"/>
<LAYOUTNODE name="totaldespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox21" width="4.8inch" floatingBehavior="enclosed" text="TOTALES"/>
<rtl:input-variable name="total_cantidad" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox22" width="1inch" floatingBehavior="enclosed" text="{{total_cantidad.format(&quot;##,###.#####&quot;)}}"/>
<rtl:input-variable name="total_medida" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox23" width="1inch" floatingBehavior="enclosed" text="{{total_medida.format(&quot;##,###.######&quot;)}}"/>
</LAYOUTNODE>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/bin/ipprmt020_1.4rp
+126
View File
@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/ipautorizareq.rdd" RWFglReportName="requiereAutoriza"/>
<report:Conflicts>
<report:Conflict nodeName="encabezado" message="Node was in trigger &quot;FirstPageHeader [0; 1]&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="encabezado2" message="Node was in trigger &quot;FirstPageHeader [0; 1]&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="encabezadomaster" message="Node was in trigger &quot;FirstPageHeader [0; 1]&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="encabezadodetalle" message="Node was in trigger &quot;FirstPageHeader [0; 1]&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="despiece" message="Node was in trigger &quot;AfterGroup codigo&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="detalledespiece" message="Node was in trigger &quot;AfterGroup codigo&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="totaldespiece" message="Node was in trigger &quot;AfterGroup codigo&quot;, but trigger was removed during schema update"/>
</report:Conflicts>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report" minOccurs="1" maxOccurs="1">
<MINIPAGE name="Page Root" width="max" length="max">
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1">
<LAYOUTNODE name="encabezado" width="min" length="max" alignment="center" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox1" width="max-2cm" floatingBehavior="enclosed" textAlignment="center" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox" floatingBehavior="enclosed" text="Pagina:"/>
<PAGENOBOX name="PageNoBox" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<LAYOUTNODE name="encabezado2" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox2" width="max-2cm" fontBold="true" floatingBehavior="enclosed" textAlignment="center" text="REQUISICION DOCUMENTOS"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="{{hora}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="encabezadomaster" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
<LAYOUTNODE name="LayoutNode1" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<rtl:input-variable name="nombreusuario" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox4" length="1cm" floatingBehavior="enclosed" text="{{&quot;USUARIO: &quot;+nombreusuario.trim()}}"/>
<rtl:input-variable name="x.numero_doc" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox5" fontSize="12" fontBold="true" floatingBehavior="enclosed" text="{{&quot;DOCUMENTO: &quot;+x.numero_doc.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
<rtl:input-variable name="x.cod_mov" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="nombreMov" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox" width="width(&quot;M&quot;)*27" alignment="baseline" floatingBehavior="enclosed" text="{{&quot;TIPO DOCUMENTO: &quot;+&quot;(&quot;+x.cod_mov.format(&quot;&lt;&lt;&lt;&quot;)+&quot;)&quot;+nombreMov.trim()}}"/>
<rtl:input-variable name="x.fecha" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox6" floatingBehavior="enclosed" text="{{&quot;FECHA: &quot;+x.fecha}}"/>
<rtl:input-variable name="nombreBodega" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox8" floatingBehavior="enclosed" text="{{&quot;BODEGA: &quot;+nombreBodega}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode2" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox12" length="1cm" alignment="baseline" floatingBehavior="enclosed"/>
<rtl:input-variable name="nombreBodegaDestino" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox9" floatingBehavior="enclosed" text="{{&quot;BODEGA DESTINO: &quot;+nombreBodegaDestino}}"/>
<rtl:input-variable name="x.num_oc" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox10" floatingBehavior="enclosed" text="{{&quot;NUMERO ORDEN:&quot;+x.num_oc.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
<rtl:input-variable name="vendedor" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="vendedor Value" class="grwStringValue" width="width(&quot;M&quot;)*25" alignment="baseline" floatingBehavior="enclosed" text="{{&quot;VENDEDOR: &quot;+vendedor.trim()}}"/>
<rtl:input-variable name="x.cliente" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*27" floatingBehavior="enclosed" text="{{&quot;CLIENTE: &quot;+x.cliente}}"/>
<rtl:input-variable name="x.observacion" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox2" width="width(&quot;M&quot;)*20" floatingBehavior="enclosed" text="{{&quot;OBSERVACION: &quot;+x.observacion.trim()}}"/>
</LAYOUTNODE>
</LAYOUTNODE>
<LAYOUTNODE name="encabezadodetalle" width="min" length="min" fontSize="8" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox13" width="3.5inch" floatingBehavior="enclosed" text="ITEM(S)" roundedCorners="false" borderWidth="1"/>
<WORDBOX name="WordBox14" width="2.2inch" floatingBehavior="enclosed" textAlignment="right" text="UNIDAD"/>
<WORDBOX name="WordBox15" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="CANTIDAD"/>
</LAYOUTNODE>
</rtl:match>
<rtl:match name="Group codigo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="table" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<rtl:input-variable name="detalle.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.descripcion" type="FGLString" expectedLocation="expectedHere"/>
<rtl:input-variable name="detalle.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox3" width="width(&quot;M&quot;)*30" length="min" alignment="baseline" floatingBehavior="enclosed" text="{{detalle.cod_n.format(&quot;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+detalle.cod_grupo.format(&quot;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+detalle.cod_tipo.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+detalle.cod_sec.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot; &quot;+detalle.descripcion.trim()+&quot; &quot;+detalle.unidad_med}}"/>
<rtl:input-variable name="detalle.cantidad_1" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox17" width="2.4inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad_1.format(&quot;###,###.#####&quot;)}}"/>
<rtl:input-variable name="detalle.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" width="1.5inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad.format(&quot;###,###.#####&quot;)}}"/>
</MINIPAGE>
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedAhead"/>
<LAYOUTNODE name="despiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="topToBottom" floatingBehavior="enclosed">
<WORDBOX name="WordBox20" width="max" floatingBehavior="enclosed" textAlignment="center" text="DESPIECE" roundedCorners="true" borderWidth="1" borderStyle="solid"/>
<LAYOUTNODE name="encabezadodespiece" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox24" width="1.5inch" floatingBehavior="enclosed" text="Etiquetas"/>
<WORDBOX name="WordBox26" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 1"/>
<WORDBOX name="WordBox27" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 2"/>
<WORDBOX name="WordBox28" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 3"/>
<WORDBOX name="WordBox29" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Unidades"/>
<WORDBOX name="WordBox30" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Medida"/>
</LAYOUTNODE>
</LAYOUTNODE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedHere"/>
<LAYOUTNODE name="detalledespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="etiqueta" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="etiqueta Value" class="grwStringValue" width="width(&quot;M&quot;)*15" alignment="baseline" floatingBehavior="enclosed" text="{{etiqueta}}"/>
<rtl:input-variable name="xdespiece.lado_1" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.lado_1 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.lado_1}}"/>
<rtl:input-variable name="xdespiece.lado_2" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.lado_2 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.lado_2}}"/>
<rtl:input-variable name="xdespiece.lado_3" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.lado_3 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.lado_3}}"/>
<rtl:input-variable name="xdespiece.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.cantidad Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.cantidad}}"/>
<rtl:input-variable name="xdespiece.medida" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="despiece.medida Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.medida}}"/>
</LAYOUTNODE>
</rtl:match>
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedBefore"/>
<LAYOUTNODE name="totaldespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox21" width="4.8inch" floatingBehavior="enclosed" text="TOTALES"/>
<rtl:input-variable name="total_cantidad" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox22" width="1inch" floatingBehavior="enclosed" text="{{total_cantidad.format(&quot;##,###.#####&quot;)}}"/>
<rtl:input-variable name="total_medida" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox23" width="1inch" floatingBehavior="enclosed" text="{{total_medida.format(&quot;##,###.######&quot;)}}"/>
</LAYOUTNODE>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/codir/cofmcs009.per
+5 -5
View File
@@ -1,4 +1,4 @@
database marmotech
database smarmotech
screen size 24 by 80
{
@@ -9,10 +9,10 @@ screen size 24 by 80
\g-----------------------------------------------------------------------------\g
Requi. Codigo Cantidad Precio Valor
\g-----------------------------------------------------------------------------\g
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
Descripcion [d1 ]
}
end
PROYECTO/codir/cofmrp019.per
+1 -1
View File
@@ -1,4 +1,4 @@
database marmotech
database smarmotech
screen size 24 by 80
{
Fecha [f1 ]
PROYECTO/codir/cofmwd016.per
+1 -1
View File
@@ -1,4 +1,4 @@
DATABASE marmotech
DATABASE smarmotech
screen
{
Ship To [st ]
PROYECTO/codir/coprcs009.4gl
+4 -4
View File
@@ -243,10 +243,10 @@ LET idx = 1
FOREACH buscate INTO detalle1.*
LET cs_ordena[idx].num_req = detalle1.num_req
LET cs_ordena[idx].codigo = detalle1.cod_n using "&","-",
detalle1.cod_grupo using "&","-",
detalle1.cod_tipo using "&&","-",
detalle1.cod_sec using "&&&"
LET cs_ordena[idx].codigo = detalle1.cod_n using "##","-",
detalle1.cod_grupo using "####","-",
detalle1.cod_tipo using "####","-",
detalle1.cod_sec using "#####"
LET cs_ordena[idx].cantidad = detalle1.cantidad using "##########.##"
LET cs_ordena[idx].precio = detalle1.precio using "##########.##"
PROYECTO/codir/coprgb000.4gl
+1 -1
View File
@@ -27,7 +27,7 @@ GLOBALS
DEFINE cs_ordena ARRAY [20] OF RECORD
num_req INTEGER,
codigo CHAR(10),
codigo CHAR(20),
cantidad CHAR(14),
precio CHAR(13),
valor CHAR(14)
PROYECTO/codir/coprmt009.4gl
+7 -5
View File
@@ -1037,6 +1037,9 @@ FUNCTION copcmf009()
CALL lugarentregas()
# Aqui se prepara para la captura del criterio de seleccion
-- cotb00014.bodega excluido: es el mismo combo oculto (tabIndex=-1) en
-- cofmmt009 que ya se excluye en copcad009(); el CONSTRUCT fallaba con
-- "Field (bodega) not found in form".
CONSTRUCT criterio
ON cotb00014.num_oc,
cotb00014.tipo,
@@ -1049,8 +1052,7 @@ FUNCTION copcmf009()
cotb00014.fech_enviada,
cotb00014.pago,
cotb00014.fech_pago,
cotb00014.cierre,
cotb00014.bodega
cotb00014.cierre
FROM num_oc,
tipo,
fech_oc,
@@ -1062,8 +1064,7 @@ FUNCTION copcmf009()
fech_enviada,
pago,
fech_pago,
cierre,
bodega
cierre
IF int_flag THEN
LET numero_msg = 2
@@ -2360,7 +2361,8 @@ FUNCTION escoge()
ordenes.pago,
ordenes.fech_pago
DISPLAY BY NAME ordenes.bodega
-- ordenes.bodega excluido (ver nota en copcad009()): no esta en el
-- formulario, DISPLAY BY NAME fallaba con "Field (bodega) not found in form".
IF ordenes.cod_sp = 22 OR ordenes.cod_sp = 24 THEN
LET flete1.total_1 =
PROYECTO/codir/coprrp001.4gl
+5 -13
View File
@@ -144,19 +144,11 @@ FUNCTION coprrp001()
archivo,
copia
LET r_filename = 'coprrp001.4rp'
CALL seleccionarSalida() RETURNING r_output
LET preview = 1
IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
LET handler = fgl_report_commitCurrentSettings() -- commit changes
END IF
-- 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 usar la plantilla .4rp con vista previa.
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp001_catalogo.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
START REPORT catalogo2 TO XML HANDLER handler
#### Enviando la informacion al registro del reporte
PROYECTO/codir/coprrp004.4gl
+10 -3
View File
@@ -35,6 +35,8 @@ FUNCTION coprrp004()
monto DECIMAL(12,2)
END RECORD
DEFINE r_filename STRING
#WHENEVER ERROR CONTINUE
OPTIONS
@@ -115,9 +117,14 @@ END IF
# doce,normal,archivo,copia
CALL seleccionarsalida() RETURNING salida
CALL configureoutput(salida) RETURNING HANDLER
-- La API de configuracion de reportes (fgl_report_*) no esta
-- disponible en este FGL; seleccionarsalida()/configureoutput()
-- tampoco estan definidas en este programa. Se escribe el XML
-- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
-- .4rp con vista previa.
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp004_cronologico.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
START REPORT cronologico TO XML HANDLER handler
PROYECTO/codir/coprrp007.4gl
+11 -4
View File
@@ -38,9 +38,11 @@ FUNCTION coprrp007()
uso VARCHAR(100),
descrip_esp VARCHAR(100),
unidad_med LIKE intb00001.unidad_med
END RECORD
DEFINE r_filename STRING
# WHENEVER ERROR CONTINUE
OPTIONS
@@ -161,9 +163,14 @@ LET idx = 1
RETURN
END IF
IF idx = 1 THEN
CALL seleccionarsalida() RETURNING salida
CALL configureoutput(salida) RETURNING HANDLER
-- La API de configuracion de reportes (fgl_report_*) no esta
-- disponible en este FGL; seleccionarsalida()/configureoutput()
-- tampoco estan definidas en este programa. Se escribe el XML
-- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
-- .4rp con vista previa.
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp007_organiza.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
START REPORT organiza TO XML HANDLER handler
END IF
PROYECTO/codir/coprrp019.4gl
+16 -3
View File
@@ -10,12 +10,20 @@ DIRECTOR PROYECTO : JOSE ALFREDO PAULINO ALEJO
GLOBALS "coprgb000.4gl"
MAIN
DEFER INTERRUPT
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CALL ARG_VAL(3) RETURNING impresor
CONNECT TO "smarmotech" USER usuarios USING clave
SELECT a.* INTO p_companias.* FROM companias a
CALL coprrp019()
END MAIN
FUNCTION coprrp019()
DEFINE select_fech,select_movi,select_ent CHAR(1000)
DEFINE r_filename STRING
DEFINE idx_o,idx_e,idx_p,idx_m SMALLINT
DEFINE esta,encontre,salir2,salir1,salir CHAR(1)
DEFINE recibida,pendiente DECIMAL(12,2)
@@ -97,9 +105,14 @@ FUNCTION coprrp019()
DECLARE ent_curs SCROLL CURSOR FOR busca_entrega
OPEN ent_curs
CALL seleccionarsalida() RETURNING r_output
CALL configureoutput(r_output) RETURNING HANDLER
-- La API de configuracion de reportes (fgl_report_*) no esta
-- disponible en este FGL; seleccionarsalida()/configureoutput()
-- tampoco estan definidas en este programa. Se escribe el XML
-- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
-- .4rp con vista previa.
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp019_documento.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
START REPORT documento TO XML HANDLER handler
DISPLAY " " AT 19,14
PROYECTO/codir/departamento.4gl
+5 -2
View File
@@ -2,8 +2,11 @@ FUNCTION busca_departamento()
DEFINE pdepartamento ui.combobox,
kdepartamento SMALLINT,kdescripcion CHAR(30)
LET pdepartamento = ui.combobox.forname("formonly.depto_a")
CALL pdepartamento.clear()
LET pdepartamento = ui.combobox.forname("formonly.departamento")
IF pdepartamento IS NULL THEN
RETURN
END IF
CALL pdepartamento.clear()
DECLARE pagar CURSOR FOR
SELECT departamento, nom_dpto FROM adtb00001
WHERE status_t is null
PROYECTO/codir/smarmotech.sch
+3
View File
@@ -199,6 +199,9 @@ adtb00003^sexo^0^10^67^
adtb00003^email_corporativo^201^100^68^
adtb00003^enviar_encuesta^0^10^69^
adtb00003^enviar_volante^0^10^70^
adtb00003^telefonoCorporativo^0^15^71^
adtb00003^numeroOficina^0^15^72^
adtb00003^extension^0^5^73^
adtb00004^cod_puesto^1^2^1^
adtb00004^nom_puesto^0^180^2^
adtb00004^otra_descripcion^0^180^3^
PROYECTO/cpdir/smarmotech.sch
+3192 -994
View File
File diff suppressed because it is too large Load Diff
PROYECTO/ctdir/smarmotech.sch
+8320 -835
View File
File diff suppressed because it is too large Load Diff
PROYECTO/indir/defecto.4gl
+69
View File
@@ -1,3 +1,25 @@
FUNCTION msgrp000(tipo_papel)
DEFINE tipo_papel SMALLINT,
longitud CHAR(11),
linea_papel CHAR(50)
CASE
WHEN tipo_papel = 1
LET longitud = " 9 1/2 x 11"
WHEN tipo_papel = 2
LET longitud = "14 7/8 x 11"
END CASE
LET linea_papel = "Coloque papel ",longitud," en la impresora."
DISPLAY linea_papel
AT 15,14
DISPLAY "Asegurese de que la impresora este encendida."
AT 16,14
DISPLAY "<Esc> Ejecuta impresion <Delete> Cancela impresion"
AT 18,14
END FUNCTION
FUNCTION defecto(usuarios,clave,impresor)
DEFINE impresor,idx SMALLINT,
@@ -142,3 +164,50 @@ RETURN imprime,negrillas_on,negrillas_off,doble_on,doble_off,
comp_on,comp_off,doce,normal,archivo,copia
END FUNCTION
FUNCTION configureOutput(tipo_file)
DEFINE tipo_file CHAR(3)
IF NOT fgl_report_loadCurrentSettings(NULL) THEN
RETURN NULL
END IF
CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
CALL fgl_report_configureCompatibilityOutput(160,"Monospaced",NULL,NULL,NULL,NULL)
CALL fgl_report_selectDevice(tipo_file)
CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
CALL fgl_report_selectPreview(TRUE)
RETURN fgl_report_commitCurrentSettings()
RETURN NULL
END FUNCTION
FUNCTION selectOutput()
DEFINE
r_output STRING,
r_action STRING,
preview INTEGER
OPTIONS INPUT WRAP
OPEN WINDOW f_configuration WITH FORM "Configuration"
LET INT_FLAG=FALSE
LET preview = FALSE
INPUT BY NAME r_output
ON ACTION CANCEL
EXIT PROGRAM
ON ACTION CLOSE
EXIT PROGRAM
END INPUT
CLOSE WINDOW f_configuration
CALL ui.interface.refresh()
IF r_action IS NOT NULL THEN
IF r_action == "preview" THEN
LET preview = TRUE
END IF
END IF
RETURN r_output
END FUNCTION
FUNCTION seleccionarSalida()
RETURN selectOutput()
END FUNCTION
PROYECTO/indir/infmcs006.4fd
+6 -6
View File
@@ -12,8 +12,8 @@
<RecordField colName="unidad_med" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{720c8ace-b521-4ab2-93a4-5aaebd3c052d}"/>
<RecordField colName="fech_in" fieldIdRef="7" name="fech_in" sqlTabName="formonly" sqlType="DATE" uid="{f7cdd239-7791-4788-9c92-1e29d181a356}"/>
<RecordField colName="fech_fi" fieldIdRef="8" name="fech_fi" sqlTabName="formonly" sqlType="DATE" uid="{ef37027a-09ec-4b91-8016-58321fe9523c}"/>
<RecordField fieldIdRef="6" name="bodega" uid="{900b8556-f902-4c08-b7f1-a2de9d054534}"/>
<RecordField fieldIdRef="9" name="mensaje_ini" uid="{5fcab4dd-77dd-4cc5-8641-848be157b658}"/>
<RecordField colName="bodega" fieldIdRef="6" name="bodega" sqlTabName="formonly" uid="{900b8556-f902-4c08-b7f1-a2de9d054534}"/>
<RecordField colName="mensaje_ini" fieldIdRef="9" name="mensaje_ini" sqlTabName="formonly" uid="{5fcab4dd-77dd-4cc5-8641-848be157b658}"/>
</Record>
<Record name="s_csmov" uid="{d4ca2e1f-7d30-4026-84bc-8e7b2b0ae0cb}">
<RecordField fieldIdRef="18" name="num_doc" uid="{15a69691-abe4-4c90-bb06-486540da34b4}"/>
@@ -25,8 +25,8 @@
<RecordField fieldIdRef="13" name="parent_id" uid="{4a028887-b5ed-4b25-9eb1-702752bee614}"/>
<RecordField fieldIdRef="19" name="chield_id" uid="{a972d067-b0bc-478a-add7-995fd25b5c9c}"/>
</Record>
<Form gridHeight="24" gridWidth="80" name="infmcs006">
<Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
<Form gridHeight="24" gridWidth="86" name="infmcs006" text="MOVIMIENTO MATERIA PRIMA">
<Grid gridHeight="24" gridWidth="86" name="grid1" posX="0" posY="0">
<Label gridHeight="1" gridWidth="22" justify="right" name="label1" posX="1" posY="1" text="Codigo Materia Prima :"/>
<Edit autoNext="true" colName="cod_n" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_n" posX="24" posY="1" sqlTabName="intb00001" tabIndex="1" widget="Edit"/>
<Edit autoNext="true" colName="cod_grupo" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_grupo" posX="28" posY="1" sqlTabName="intb00001" tabIndex="2" widget="Edit"/>
@@ -39,8 +39,8 @@
<Label gridHeight="1" gridWidth="14" justify="right" name="label7" posX="9" posY="3" text="Fecha Final:"/>
<DateEdit colName="fech_fi" fieldId="8" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="24" posY="3" sqlTabName="formonly" sqlType="DATE" tabIndex="8" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="7" justify="right" name="label5" posX="16" posY="4" text="Bodega:"/>
<ComboBox fieldId="6" gridHeight="1" gridWidth="48" items="" name="bodega" posX="24" posY="4" tabIndex="-1" title="combobox1" widget="ComboBox"/>
<Edit fieldId="9" gridHeight="1" gridWidth="53" name="mensaje_ini" posX="2" posY="7" scroll="true" style="encabezado name" tabIndex="-1" title="edit1" widget="Edit"/>
<ComboBox colName="bodega" fieldId="6" gridHeight="1" gridWidth="60" items="" name="bodega" posX="24" posY="4" sqlTabName="formonly" tabIndex="9" title="combobox1" widget="ComboBox"/>
<Edit colName="mensaje_ini" fieldId="9" gridHeight="1" gridWidth="53" name="mensaje_ini" posX="2" posY="7" scroll="true" sqlTabName="formonly" style="encabezado name" tabIndex="-1" title="edit1" widget="Edit"/>
<Group gridHeight="9" gridWidth="76" name="group1" posX="2" posY="8">
<Tree gridHeight="6" gridWidth="73" idColumn="chield_id" name="table1" parentIdColumn="parent_id" posX="2" posY="1" style="Table.detalle" totalRows="5">
<Edit fieldId="18" gridHeight="1" gridWidth="8" name="num_doc" posX="0" posY="0" tabIndex="-1" title="Documento" widget="Edit"/>
PROYECTO/indir/infmcs006.per
+4 -2
View File
@@ -1,10 +1,11 @@
database smarmotech
screen size 24 by 80
screen size 24 by 80 TITLE "CONSULTA BALANCES MATERIA PRIMA"
{
Codigo Materia Prima :[a]-[b]-[c ]-[d ] [a1 ] [a2 ]
Bodega: [h ]
Fecha Inicial:[f1 ] Fecha Final:[f2 ]
[g ]
\g---------------------------------------------------------------------------\g
C a n t i d a d
Fecha Documento Entrada Salida Balance
@@ -31,7 +32,7 @@ c = intb00001.cod_tipo,autonext;
d = intb00001.cod_sec,autonext;
a1 = intb00001.descrip_esp,noentry;
a2 = intb00001.unidad_med,noentry;
h = intb00006.bodega,autonext;
COMBOBOX h = formonly.bodega;
f1 = formonly.fech_in type date,format = "dd/mm/yyyy";
f2 = formonly.fech_fi type date,format = "dd/mm/yyyy";
d1 = intb00006.num_doc;
@@ -39,6 +40,7 @@ f2 = formonly.fech_fi type date,format = "dd/mm/yyyy";
d4 = formonly.entrada;
d5 = formonly.salida;
d6 = formonly.balance;
g = formonly.mensaje_ini,noentry;
instructions
screen record s_csmov[8] (num_doc,fecha,entrada,salida,balance)
PROYECTO/indir/infmmt036.4fd
+46 -52
View File
@@ -1,75 +1,69 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{e7174189-8870-4ba4-8809-0d7723748408}">
<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{2588a591-b057-476a-b4a8-b08042d6f2f7}">
<AGSettings>
<DynamicProperties version="2"/>
<DynamicProperties version="4"/>
</AGSettings>
<Record name="record1" uid="{5f98391b-bea0-4211-a080-65f585d7f377}">
<RecordField colName="num_doc" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{d2a35378-2bc5-4c14-a5b2-d9d31602318b}"/>
<RecordField colName="fecha" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{b2c2e592-dc75-4e19-a9ff-93cc5b1f77c2}"/>
<RecordField colName="depto_a" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.depto_a" sqlTabName="intb00006" uid="{acbbeead-342c-4c6f-a091-347f83c07636}"/>
<RecordField colName="nom_dpto" fieldIdRef="3" fieldType="NON_DATABASE" name="nombre_d" sqlTabName="adtb00001" uid="{0dac7bb5-0381-4afe-8c40-96b4b36dd9cd}"/>
<RecordField colName="bodega" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00006.bodega" sqlTabName="intb00006" uid="{cadd22d3-f600-4af7-9fc9-696c6e7f1bbb}"/>
<RecordField fieldIdRef="4" name="cod_mov" uid="{fc7dc520-056a-4e29-9fd9-06882be58fd6}"/>
<RecordField fieldIdRef="5" name="descrip_mov" uid="{db6f3fa0-9339-4078-8c1f-c07b259095f4}"/>
<RecordField fieldIdRef="6" name="nombre" uid="{9601d4ae-5d55-452b-9426-6235f628d523}"/>
<RecordField fieldIdRef="7" name="apellido" uid="{7ab2f8e2-4efd-4810-aac8-f702974f3d82}"/>
<RecordField fieldIdRef="9" name="impresion" uid="{77ff2cb8-ae51-4e61-9880-5bedaf2864ef}"/>
<Record name="s_movi1" uid="{ea5f2f49-b9ed-4006-89ed-1b0ccb85921a}">
<RecordField colName="cod_n" fieldIdRef="4" fieldType="TABLE_COLUMN" name="intb00006.cod_n" sqlTabName="intb00006" uid="{035e9495-92e7-49b4-b08b-9c0d186cda04}"/>
<RecordField colName="cod_grupo" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00006.cod_grupo" sqlTabName="intb00006" uid="{5fd30570-d08f-4a17-a017-2e344b0e17e7}"/>
<RecordField colName="cod_tipo" fieldIdRef="6" fieldType="TABLE_COLUMN" name="intb00006.cod_tipo" sqlTabName="intb00006" uid="{e25df3e0-273a-437a-8175-bcb27619b24a}"/>
<RecordField colName="cod_sec" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00006.cod_sec" sqlTabName="intb00006" uid="{7c65560d-d48e-4bf5-b7f9-b20d9569c99e}"/>
<RecordField colName="cantidad_1" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00006.cantidad_1" sqlTabName="intb00006" uid="{1175d8c0-9c6c-454d-bcb7-55661372b958}"/>
<RecordField colName="cantidad_2" fieldIdRef="9" fieldType="TABLE_COLUMN" name="intb00006.cantidad_2" sqlTabName="intb00006" uid="{ed4c635e-94b8-4c6e-bedf-23ec775579f8}"/>
<RecordField colName="unidad_med" fieldIdRef="13" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{ead4e1e1-a2fe-45e1-b2c7-6561bd53f367}"/>
<RecordField colName="descrip_esp" fieldIdRef="12" fieldType="TABLE_COLUMN" name="intb00001.descrip_esp" sqlTabName="intb00001" uid="{9d609a5f-5f39-478f-826e-5bc411f55e52}"/>
<RecordField colName="existencia" fieldIdRef="14" name="existencia" sqlTabName="formonly" uid="{a1b2c3d4-4444-4001-8001-000000000001}"/>
</Record>
<Record name="s_movi1" uid="{f4a6ba20-de96-44b0-846f-190d18414d47}">
<RecordField fieldIdRef="13" name="cod_n" uid="{db75acf0-1055-476c-8243-3de0be0ff959}"/>
<RecordField fieldIdRef="14" name="cod_grupo" uid="{5f8f596e-eac0-4b35-b7c4-b1a8a3c6ef0d}"/>
<RecordField fieldIdRef="15" name="cod_tipo" uid="{1ccef9ef-ed49-42c7-a21d-0057636e5c93}"/>
<RecordField fieldIdRef="16" name="cod_Sec" uid="{39fdf508-1f80-4033-8ef6-5cccac37de36}"/>
<RecordField fieldIdRef="17" name="cantidad_1" uid="{7d6c051e-7772-4f29-bc49-2db9b7f3317f}"/>
<RecordField fieldIdRef="18" name="cantidad_2" uid="{228f3fb6-d439-4bdb-8304-2ea2a813db1c}"/>
<RecordField fieldIdRef="19" name="unidad_med" uid="{5776cd4e-a3f2-4ff0-b540-a00b6e0fdf5e}"/>
<RecordField fieldIdRef="20" name="descrip_esp" uid="{73bfd3ea-3edd-4965-a5e8-cdc35e4a16f8}"/>
<RecordField fieldIdRef="8" name="existencia" uid="{b583914e-c5af-4370-80a5-ba66b7779a23}"/>
<Record name="record1" uid="{5cc1cbdd-fac8-4ffc-98e4-331d5c9fb810}">
<RecordField colName="num_doc" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{3dcc2cab-2a20-4581-b11b-95c27ba55b87}"/>
<RecordField colName="fecha" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{effe3be7-6235-4ebb-88d9-4d99fe14bf42}"/>
<RecordField colName="depto_a" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.depto_a" sqlTabName="intb00006" uid="{408aa475-0b97-4d2c-aa5e-b6695c0b4299}"/>
<RecordField colName="nombre_d" fieldIdRef="3" name="nombre_d" sqlTabName="formonly" uid="{b2e366d3-59b8-4d1e-96ca-68a7eac26f2b}"/>
<RecordField colName="bodega" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00006.bodega" sqlTabName="intb00006" uid="{9befab7b-9bfd-4fb5-ac59-646fca90afe9}"/>
<RecordField colName="impresion" defaultValue="MATRICIAL" fieldIdRef="11" name="impresion" sqlTabName="formonly" uid="{97a456ba-6f98-44dd-962d-203916eabb50}"/>
</Record>
<Form gridHeight="22" gridWidth="92" name="infmmt036" text="REQUISICION MATERIALES">
<Form gridHeight="18" gridWidth="100" name="infmmt036" text="REQUISICION MATERIALES">
<ToolBar name="toolbar1">
<ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/>
<ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documentos"/>
<ToolBarSeparator name="toolbarseparator1"/>
<ToolBarItem image="quit" name="salir" text="Salir"/>
</ToolBar>
<Grid gridHeight="22" gridWidth="92" name="grid1" posX="0" posY="0">
<Group gridHeight="7" gridWidth="83" name="group1" posX="1" posY="1">
<Grid gridHeight="18" gridWidth="100" name="grid1" posX="0" posY="0">
<Group gridHeight="5" gridWidth="78" name="group1" posX="1" posY="1">
<Label gridHeight="1" gridWidth="9" name="label1" posX="1" posY="1" text="Documento"/>
<Edit colName="num_doc" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" noEntry="true" posX="17" posY="1" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="label2" posX="28" posY="1" text="Fecha"/>
<Edit autoNext="true" colName="fecha" comment="Digite Fecha Documento" fieldId="1" fieldType="TABLE_COLUMN" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="intb00006.fecha" posX="35" posY="1" sqlTabName="intb00006" tabIndex="2" widget="Edit"/>
<Label gridHeight="1" gridWidth="15" name="label3" posX="1" posY="2" text="Codigo de Dpto"/>
<Edit autoNext="true" colName="depto_a" comment="Digite Codigo Departamento" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00006.depto_a" posX="17" posY="2" sqlTabName="intb00006" tabIndex="3" widget="Edit"/>
<Edit colName="nom_dpto" fieldId="3" fieldType="NON_DATABASE" gridHeight="1" gridWidth="30" length="30" name="nombre_d" noEntry="true" posX="24" posY="2" sqlTabName="adtb00001" sqlType="CHAR" tabIndex="4" widget="Edit"/>
<Edit autoNext="true" colName="depto_a" comment="Digite Codigo Departamento" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00006.depto_a" posX="17" posY="2" sqlTabName="intb00006" tabIndex="3" widget="Edit"/>
<Edit colName="nombre_d" fieldId="3" gridHeight="1" gridWidth="30" name="nombre_d" noEntry="true" posX="24" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
<Label gridHeight="1" gridWidth="8" name="label4" posX="1" posY="3" text="Bodega :"/>
<Edit autoNext="true" colName="bodega" comment="Digite el codigo de la bodega de almacenamiento" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00006.bodega" posX="17" posY="3" sqlTabName="intb00006" tabIndex="5" widget="Edit"/>
<RadioGroup fieldId="9" gridHeight="1" gridWidth="10" items="PDF, MATRICIAL" name="impresion" posX="27" posY="3" tabIndex="-1" title="radiogroup1" widget="RadioGroup">
<Item lstrtext="false" name="PDF" text="PDF"/>
<Item lstrtext="false" name="MATRICIAL" text="MATRICIAL"/>
<Edit autoNext="true" colName="bodega" comment="Digite el codigo de la bodega de almacenamiento" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.bodega" posX="17" posY="3" sqlTabName="intb00006" tabIndex="5" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label5" posX="24" posY="3" text="Impresion"/>
<RadioGroup colName="impresion" defaultValue="MATRICIAL" fieldId="11" gridHeight="1" gridWidth="3" items="MATRICIAL, PDF" name="impresion" posX="35" posY="3" sqlTabName="formonly" tabIndex="6" widget="RadioGroup">
<Item name="MATRICIAL" text="MATRICIAL"/>
<Item name="PDF" text="PDF"/>
</RadioGroup>
<Label gridHeight="1" gridWidth="10" name="label5" posX="1" posY="4" text="Codigo Mov"/>
<Edit fieldId="4" gridHeight="1" gridWidth="5" name="cod_mov" posX="17" posY="4" tabIndex="-1" title="edit1" widget="Edit"/>
<Edit fieldId="5" gridHeight="1" gridWidth="30" name="descrip_mov" posX="24" posY="4" tabIndex="-1" title="edit1" widget="Edit"/>
<Edit fieldId="6" gridHeight="1" gridWidth="10" name="nombre" posX="24" posY="5" tabIndex="-1" title="edit1" widget="Edit"/>
<Edit fieldId="7" gridHeight="1" gridWidth="10" name="apellido" posX="36" posY="5" tabIndex="-1" title="edit2" widget="Edit"/>
</Group>
<Group gridHeight="11" gridWidth="90" name="group2" posX="2" posY="9" text="Detalle">
<Table gridHeight="8" gridWidth="82" name="table1" posX="7" posY="2" totalRows="5">
<Edit fieldId="13" gridHeight="1" gridWidth="8" name="cod_n" posX="0" posY="0" tabIndex="-1" title="Codigo" widget="Edit"/>
<Edit fieldId="14" gridHeight="1" gridWidth="8" name="cod_grupo" posX="8" posY="0" tabIndex="-1" widget="Edit"/>
<Edit fieldId="15" gridHeight="1" gridWidth="8" name="cod_tipo" posX="16" posY="0" tabIndex="-1" widget="Edit"/>
<Edit fieldId="16" gridHeight="1" gridWidth="8" name="cod_Sec" posX="24" posY="0" tabIndex="-1" widget="Edit"/>
<Edit fieldId="17" gridHeight="1" gridWidth="8" name="cantidad_1" posX="32" posY="0" tabIndex="-1" title="Ordenada" widget="Edit"/>
<Edit fieldId="18" gridHeight="1" gridWidth="8" name="cantidad_2" posX="40" posY="0" tabIndex="-1" title="Entregada" widget="Edit"/>
<Edit fieldId="19" gridHeight="1" gridWidth="8" name="unidad_med" posX="48" posY="0" tabIndex="-1" title="Unidad Med" widget="Edit"/>
<Edit fieldId="20" gridHeight="1" gridWidth="8" name="descrip_esp" posX="56" posY="0" scroll="true" tabIndex="-1" title="Descripcion" widget="Edit"/>
<Edit fieldId="8" gridHeight="1" gridWidth="8" name="existencia" posX="64" posY="0" tabIndex="-1" title="Existencia" widget="Edit"/>
</Table>
<Group gridHeight="12" gridWidth="98" name="group2" posX="1" posY="6">
<Label gridHeight="1" gridWidth="15" name="label6" posX="19" posY="1" text="C A N T I D A D"/>
<Label gridHeight="1" gridWidth="6" name="label7" posX="2" posY="2" text="Codigo"/>
<Label gridHeight="1" gridWidth="8" name="label8" posX="18" posY="2" text="Ordenada"/>
<Label gridHeight="1" gridWidth="9" name="label9" posX="31" posY="2" text="Entregada"/>
<Label gridHeight="1" gridWidth="6" name="label10" posX="42" posY="2" text="Unidad"/>
<Label gridHeight="1" gridWidth="21" name="label11" posX="53" posY="2" text="D e s c r i p c i o n"/>
<Edit autoNext="true" colName="cod_n" columnCount="1" comment="Digite Codigo Articulo" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_n" posX="3" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="7" widget="Edit"/>
<Edit autoNext="true" colName="cod_grupo" columnCount="1" comment="Digite Codigo Articulo" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_grupo" posX="8" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="8" widget="Edit"/>
<Edit autoNext="true" colName="cod_tipo" columnCount="1" comment="Digite Codigo Articulo" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_tipo" posX="13" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="9" widget="Edit"/>
<Edit autoNext="true" colName="cod_sec" columnCount="1" comment="Digite Codigo Articulo" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00006.cod_sec" posX="18" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="10" widget="Edit"/>
<Edit autoNext="true" colName="cantidad_1" columnCount="1" comment="Digite La Cantidad Ordenada" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="intb00006.cantidad_1" posX="24" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="11" widget="Edit"/>
<Edit autoNext="true" colName="cantidad_2" columnCount="1" comment="Digite La Cantidad Entregada" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="intb00006.cantidad_2" posX="37" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="12" widget="Edit"/>
<Edit colName="unidad_med" columnCount="1" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="50" posY="4" repeat="true" rowCount="6" sqlTabName="intb00001" stepX="1" stepY="0" tabIndex="13" widget="Edit"/>
<Edit autoNext="true" colName="descrip_esp" columnCount="1" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="31" name="intb00001.descrip_esp" noEntry="true" posX="55" posY="4" repeat="true" rowCount="6" sqlTabName="intb00001" stepX="1" stepY="0" tabIndex="14" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label12" posX="87" posY="2" text="Existencia"/>
<Edit colName="existencia" columnCount="1" fieldId="14" gridHeight="1" gridWidth="10" name="existencia" noEntry="true" posX="87" posY="4" repeat="true" rowCount="6" sqlTabName="formonly" stepX="1" stepY="0" tabIndex="15" widget="Edit"/>
</Group>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA1AGYAOQA4ADMAOQAxAGIALQBiAGUAYQAwAC0ANAAyADEAMQAtAGEAMAA4ADAALQA2ADUAZgA1ADgANQBkADcAZgAzADcANwB9QGqZmcGAABhAIAAAGAAADz9gYk3S8an8AQAAAEwAewBmADQAYQA2AGIAYQAyADAALQBkAGUAOQA2AC0ANAA0AGIAMAAtADgANAA2AGYALQAxADkAMABkADEAOAA0ADEANABkADQANwB9QICszOXQABBANMzM7AAAEz9wYk3S8an8AQ==]]>
</DiagramLayout>
</ManagedForm>
PROYECTO/indir/infmmt036.per
+5 -4
View File
@@ -22,8 +22,8 @@ LAYOUT (TEXT="REQUISICION MATERIALES")
<g >
Documento [f000 ] Fecha [f001 ]
Codigo de Dpto [f4 ] [a1 ]
Bodega : [a7]
Bodega : [a7] Impresion [imp]
<g >
C A N T I D A D
Codigo Ordenada Entregada Unidad D e s c r i p c i o n
@@ -49,7 +49,7 @@ f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
f4 = intb00006.depto_a,autonext,
comments = "Digite Codigo Departamento";
a1 = adtb00001.nom_dpto,noentry;
a1 = formonly.nombre_d,noentry;
a = intb00006.cod_n,autonext,
comments = "Digite Codigo Articulo";
b = intb00006.cod_grupo,autonext,
@@ -63,7 +63,8 @@ f02 = intb00006.cantidad_1,autonext,
f03 = intb00006.cantidad_2,autonext,
comments = "Digite La Cantidad Entregada";
a7 = intb00006.bodega,autonext,
comments = "Digite el codigo de la bodega de almacenamiento";
comments = "Digite el codigo de la bodega de almacenamiento";
RADIOGROUP imp = formonly.impresion,ITEMS=(("MATRICIAL","MATRICIAL"),("PDF","PDF")),DEFAULT="MATRICIAL";
k = intb00001.descrip_esp,noentry,autonext;
p = intb00001.unidad_med,noentry;
PROYECTO/indir/infmmt046.4fd
+42 -25
View File
@@ -12,6 +12,8 @@
<RecordField colName="unidad_med" fieldIdRef="15" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{5d253d6f-9d68-4c95-9a22-76aabe75fa79}"/>
<RecordField colName="descrip_esp" fieldIdRef="14" fieldType="TABLE_COLUMN" name="intb00001.descrip_esp" sqlTabName="intb00001" uid="{ff167e69-f067-4d4c-ac10-5ec84b88decd}"/>
<RecordField colName="existencia" fieldIdRef="0" name="existencia" sqlTabName="formonly" uid="{efcd0bfb-50b3-4fae-b2fc-1649d7f569da}"/>
<RecordField colName="maquina" fieldIdRef="25" name="codigo" sqlTabName="formonly" uid="{a1b2c3d4-3333-4001-8001-000000000001}"/>
<RecordField colName="clasf_bloque" fieldIdRef="26" name="clasf_bloque" sqlTabName="formonly" uid="{a1b2c3d4-3333-4001-8001-000000000002}"/>
</Record>
<Record name="record1" uid="{43dfdfd8-2c00-47d0-888c-3c710875f92b}">
<RecordField colName="num_doc" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{3654cddf-82ff-4ffc-8f10-5ee4ab25b47c}"/>
@@ -20,50 +22,65 @@
<RecordField colName="descrip_mov" fieldIdRef="18" name="descrip_mov" sqlTabName="formonly" uid="{813f8ba1-8157-4849-a0e8-f3140299e9ce}"/>
<RecordField colName="fecha" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{f2a62dee-1ec8-465f-aa1c-f58542f4edd1}"/>
<RecordField colName="bodega" fieldIdRef="16" name="bodega" sqlTabName="formonly" uid="{41b65fc5-5db4-45f6-99af-ff9c385e505b}"/>
<RecordField colName="depto_a" fieldIdRef="2" name="depto_a" sqlTabName="formonly" uid="{6bdacdf3-1238-4efc-8288-c9e414078e9f}"/>
<RecordField colName="nombre_d" fieldIdRef="3" name="nombre_d" sqlTabName="formonly" uid="{17baeaa2-59e8-43c6-acfa-36eab3ba34dd}"/>
<RecordField colName="departamento" fieldIdRef="2" name="departamento" sqlTabName="formonly" uid="{6bdacdf3-1238-4efc-8288-c9e414078e9f}"/>
<RecordField colName="conduce" fieldIdRef="19" name="conduce" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000001}"/>
<RecordField colName="cod_transp" fieldIdRef="20" name="cod_transp" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000002}"/>
<RecordField colName="sec_transp" fieldIdRef="21" name="sec_transp" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000003}"/>
<RecordField colName="nombre_transp" fieldIdRef="22" name="nombre_transp" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000004}"/>
<RecordField colName="ficha_vehiculo" fieldIdRef="23" name="ficha_vehiculo" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000005}"/>
<RecordField colName="placa" fieldIdRef="24" name="placa" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000006}"/>
<RecordField colName="pnum_emp" fieldIdRef="4" name="pnum_emp" sqlTabName="formonly" uid="{bfe61fca-3b3d-4e21-b8e1-5932090c7559}"/>
<RecordField colName="nombre" fieldIdRef="5" name="nombre" sqlTabName="formonly" uid="{60a5474c-aa47-4275-a45f-98d878404e80}"/>
<RecordField colName="apellido" fieldIdRef="6" name="apellido" sqlTabName="formonly" uid="{7c4796f9-5c66-4c91-a3d5-c3a44527d85e}"/>
</Record>
<Form gridHeight="16" gridWidth="87" name="infmmt046" text="TRANSACCIONES INVENTARIOS">
<Form gridHeight="19" gridWidth="87" name="infmmt046" text="TRANSACCIONES INVENTARIOS">
<ToolBar name="toolbar1">
<ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/>
<ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documento"/>
<ToolBarSeparator name="toolbarseparator1"/>
<ToolBarItem image="quit" name="salir" text="Salir"/>
</ToolBar>
<Grid gridHeight="16" gridWidth="87" name="grid1" posX="0" posY="0">
<Group gridHeight="7" gridWidth="83" name="group1" posX="1" posY="1">
<Grid gridHeight="19" gridWidth="87" name="grid1" posX="0" posY="0">
<Group gridHeight="10" gridWidth="83" name="group1" posX="1" posY="1">
<Label gridHeight="1" gridWidth="17" name="label1" posX="2" posY="1" text="Documento Numero"/>
<Edit autoNext="true" colName="num_doc" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" noEntry="true" posX="20" posY="1" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
<Label gridHeight="1" gridWidth="13" name="label2" posX="32" posY="1" text="Orden Compra"/>
<Edit colName="orden_compra" fieldId="1" gridHeight="1" gridWidth="7" name="orden_compra" posX="46" posY="1" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
<Label gridHeight="1" gridWidth="17" name="label3" posX="2" posY="2" text="Codigo Movimiento"/>
<ComboBox autoNext="true" colName="cod_mov" comment="Digite codigo del movimiento" fieldId="17" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_mov" posX="20" posY="2" sqlTabName="intb00006" tabIndex="3" widget="ComboBox"/>
<Edit colName="descrip_mov" fieldId="18" gridHeight="1" gridWidth="34" name="descrip_mov" noEntry="true" posX="25" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
<ComboBox autoNext="true" colName="cod_mov" comment="Digite codigo del movimiento" fieldId="17" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="35" name="intb00006.cod_mov" posX="20" posY="2" sqlTabName="intb00006" tabIndex="3" widget="ComboBox"/>
<Edit colName="descrip_mov" fieldId="18" gridHeight="1" gridWidth="26" name="descrip_mov" noEntry="true" posX="56" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
<Label gridHeight="1" gridWidth="5" name="label4" posX="2" posY="3" text="Fecha"/>
<Edit autoNext="true" colName="fecha" comment="Digite Fecha Documento" fieldId="8" fieldType="TABLE_COLUMN" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="intb00006.fecha" posX="20" posY="3" sqlTabName="intb00006" tabIndex="5" widget="Edit"/>
<Label gridHeight="1" gridWidth="8" name="label5" posX="32" posY="3" text="Bodega :"/>
<ComboBox autoNext="true" colName="bodega" fieldId="16" gridHeight="1" gridWidth="3" name="bodega" posX="41" posY="3" sqlTabName="formonly" tabIndex="6" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="7" name="label6" posX="45" posY="3" text="Conduce"/>
<Label gridHeight="1" gridWidth="12" name="label7" posX="2" posY="4" text="DEPARTAMENTO"/>
<ComboBox colName="depto_a" fieldId="2" gridHeight="1" gridWidth="4" name="depto_a" posX="20" posY="4" sqlTabName="formonly" tabIndex="7" widget="ComboBox"/>
<Edit colName="nombre_d" fieldId="3" gridHeight="1" gridWidth="23" name="nombre_d" noEntry="true" posX="26" posY="4" sqlTabName="formonly" tabIndex="8" widget="Edit"/>
<Label gridHeight="1" gridWidth="13" name="label8" posX="2" posY="5" text="Operador Grua"/>
<Edit colName="pnum_emp" fieldId="4" gridHeight="1" gridWidth="4" name="pnum_emp" posX="20" posY="5" sqlTabName="formonly" tabIndex="9" widget="Edit"/>
<Edit colName="nombre" fieldId="5" gridHeight="1" gridWidth="17" name="nombre" noEntry="true" posX="26" posY="5" sqlTabName="formonly" tabIndex="10" widget="Edit"/>
<Edit colName="apellido" fieldId="6" gridHeight="1" gridWidth="23" name="apellido" noEntry="true" posX="45" posY="5" sqlTabName="formonly" tabIndex="11" widget="Edit"/>
<ComboBox autoNext="true" colName="bodega" fieldId="16" gridHeight="1" gridWidth="35" name="bodega" posX="41" posY="3" sqlTabName="formonly" tabIndex="6" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="7" name="label6" posX="2" posY="4" text="Conduce"/>
<Edit colName="conduce" fieldId="19" gridHeight="1" gridWidth="9" name="conduce" posX="20" posY="4" sqlTabName="formonly" tabIndex="7" widget="Edit"/>
<Label gridHeight="1" gridWidth="12" name="label7" posX="2" posY="5" text="DEPARTAMENTO"/>
<ComboBox colName="departamento" fieldId="2" gridHeight="1" gridWidth="35" name="departamento" posX="20" posY="5" sqlTabName="formonly" tabIndex="8" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="13" name="label8" posX="2" posY="6" text="Operador Grua"/>
<Edit colName="pnum_emp" fieldId="4" gridHeight="1" gridWidth="4" name="pnum_emp" posX="20" posY="6" sqlTabName="formonly" tabIndex="9" widget="Edit"/>
<Edit colName="nombre" fieldId="5" gridHeight="1" gridWidth="17" name="nombre" noEntry="true" posX="26" posY="6" sqlTabName="formonly" tabIndex="10" widget="Edit"/>
<Edit colName="apellido" fieldId="6" gridHeight="1" gridWidth="23" name="apellido" noEntry="true" posX="45" posY="6" sqlTabName="formonly" tabIndex="11" widget="Edit"/>
<Label gridHeight="1" gridWidth="13" name="label9" posX="2" posY="7" text="Transportista"/>
<Edit colName="cod_transp" fieldId="20" gridHeight="1" gridWidth="4" name="cod_transp" posX="20" posY="7" sqlTabName="formonly" tabIndex="12" widget="Edit"/>
<Edit colName="sec_transp" fieldId="21" gridHeight="1" gridWidth="4" name="sec_transp" posX="25" posY="7" sqlTabName="formonly" tabIndex="13" widget="Edit"/>
<Edit colName="nombre_transp" fieldId="22" gridHeight="1" gridWidth="30" name="nombre_transp" noEntry="true" posX="30" posY="7" sqlTabName="formonly" tabIndex="14" widget="Edit"/>
<Label gridHeight="1" gridWidth="14" name="label10" posX="2" posY="8" text="Ficha Vehiculo"/>
<Edit colName="ficha_vehiculo" fieldId="23" gridHeight="1" gridWidth="20" name="ficha_vehiculo" posX="20" posY="8" sqlTabName="formonly" tabIndex="15" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="label11" posX="42" posY="8" text="Placa"/>
<Edit colName="placa" fieldId="24" gridHeight="1" gridWidth="15" name="placa" posX="49" posY="8" sqlTabName="formonly" tabIndex="16" widget="Edit"/>
</Group>
<Table gridHeight="7" gridWidth="86" name="table1" posX="1" posY="8" totalRows="6" unitWidth="characters" width="86">
<Edit colName="cod_n" comment="Digite el NIVEL" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_n" posX="0" posY="0" sqlTabName="intb00006" tabIndex="12" title="CODIGO" widget="Edit"/>
<Edit autoNext="true" colName="cod_grupo" comment="Digite el GRUPO" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_grupo" posX="2" posY="0" sqlTabName="intb00006" tabIndex="13" widget="Edit"/>
<Edit autoNext="true" colName="cod_tipo" comment="Digite el TIPO" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_tipo" posX="5" posY="0" sqlTabName="intb00006" tabIndex="14" widget="Edit"/>
<Edit autoNext="true" colName="cod_sec" comment="Digite la SECUENCIA " fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00006.cod_sec" posX="8" posY="0" sqlTabName="intb00006" tabIndex="15" widget="Edit"/>
<Edit colName="cantidad_2" comment="Digite La Cantidad Ordenada" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="intb00006.cantidad_2" posX="12" posY="0" sqlTabName="intb00006" tabIndex="16" title="CANTIDAD" widget="Edit"/>
<Edit colName="unidad_med" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="23" posY="0" sqlTabName="intb00001" tabIndex="17" widget="Edit"/>
<Edit colName="descrip_esp" fieldId="14" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="30" name="intb00001.descrip_esp" posX="26" posY="0" sqlTabName="intb00001" tabIndex="18" title="DESCRIPCION" widget="Edit"/>
<Edit colName="existencia" fieldId="0" gridHeight="1" gridWidth="8" name="existencia" posX="56" posY="0" sqlTabName="formonly" tabIndex="19" title="EXISTENCIA" widget="Edit"/>
<Table gridHeight="7" gridWidth="86" name="table1" posX="1" posY="11" totalRows="6" unitWidth="characters" width="114">
<Edit colName="cod_n" comment="Digite el NIVEL" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_n" posX="0" posY="0" sqlTabName="intb00006" tabIndex="18" title="CODIGO" widget="Edit"/>
<Edit autoNext="true" colName="cod_grupo" comment="Digite el GRUPO" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_grupo" posX="2" posY="0" sqlTabName="intb00006" tabIndex="19" widget="Edit"/>
<Edit autoNext="true" colName="cod_tipo" comment="Digite el TIPO" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_tipo" posX="5" posY="0" sqlTabName="intb00006" tabIndex="20" widget="Edit"/>
<Edit autoNext="true" colName="cod_sec" comment="Digite la SECUENCIA " fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00006.cod_sec" posX="8" posY="0" sqlTabName="intb00006" tabIndex="21" widget="Edit"/>
<Edit colName="cantidad_2" comment="Digite La Cantidad Ordenada" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="intb00006.cantidad_2" posX="12" posY="0" sqlTabName="intb00006" tabIndex="22" title="CANTIDAD" widget="Edit"/>
<Edit colName="unidad_med" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="23" posY="0" sqlTabName="intb00001" tabIndex="23" widget="Edit"/>
<Edit colName="descrip_esp" fieldId="14" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="30" name="intb00001.descrip_esp" posX="26" posY="0" sqlTabName="intb00001" tabIndex="24" title="DESCRIPCION" widget="Edit"/>
<Edit colName="existencia" fieldId="0" gridHeight="1" gridWidth="8" name="existencia" posX="56" posY="0" sqlTabName="formonly" tabIndex="25" title="EXISTENCIA" widget="Edit"/>
<ComboBox colName="maquina" fieldId="25" gridHeight="1" gridWidth="25" name="codigo" posX="64" posY="0" sqlTabName="formonly" tabIndex="26" title="MAQUINA" widget="ComboBox"/>
<ComboBox colName="clasf_bloque" fieldId="26" gridHeight="1" gridWidth="25" name="clasf_bloque" posX="89" posY="0" sqlTabName="formonly" tabIndex="27" title="CLASF. BLOQUE" widget="ComboBox"/>
</Table>
</Grid>
</Form>
PROYECTO/indir/infmmt046.per
+12 -4
View File
@@ -13,9 +13,11 @@ GRID
<G >
Documento Numero [f000 ] Orden Compra [ord ]
Codigo Movimiento[m ] [m1 ]
Fecha [f001 ] Bodega :[p1 ]Conduce
DEPARTAMENTO [f1 ][d1 ]
Operador Grua [op ][nomop ][ap ]
Fecha [f001 ] Bodega :[p1 ]Conduce [f002 ]
DEPARTAMENTO [f1 ][d1 ]
Operador Grua [op ][nomop ][ap ]
Transportista [tr1 ][tr2 ][nomtr ]
Ficha Vehiculo [fveh ] Placa [pplaca ]
<t >
[a ][b ][c ][d ][f02 ] [p ][k ] [ex1 ]
@@ -34,11 +36,17 @@ cotb00001
ATTRIBUTES
ex1 = formonly.existencia, TITLE="EXISTENCIA";
ord = formonly.orden_compra;
f1 = formonly.depto_a;
COMBOBOX f1 = formonly.departamento;
d1 = formonly.nombre_d,noentry;
op = formonly.pnum_emp;
nomop = formonly.nombre,noentry;
ap = formonly.apellido,noentry;
f002 = formonly.conduce;
tr1 = formonly.cod_transp;
tr2 = formonly.sec_transp;
nomtr = formonly.nombre_transp,noentry;
fveh = formonly.ficha_vehiculo;
pplaca = formonly.placa;
f000 = intb00006.num_doc,autonext,noentry;
f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
comments = "Digite Fecha Documento";
PROYECTO/indir/infmrp008.4fd
+18
View File
@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{7a1f2c30-8e4b-4d5a-9b6a-2f3c4d5e6f70}">
<AGSettings>
<DynamicProperties version="4"/>
</AGSettings>
<Record name="record1" uid="{4a2b3c4d-5e6f-4a7b-8c9d-0e1f2a3b4c5d}">
<RecordField colName="decide" comment="Digite A - Alfabetico N - Numerico" fieldIdRef="0" name="decide" sqlTabName="formonly" uid="{1a2b3c4d-5e6f-4a7b-8c9d-0e1f2a3b4c51}"/>
<RecordField colName="cod_mov" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00005.cod_mov" sqlTabName="intb00005" uid="{1a2b3c4d-5e6f-4a7b-8c9d-0e1f2a3b4c52}"/>
</Record>
<Form gridHeight="5" gridWidth="60" name="infmrp008" text="Tipos de Movimientos">
<Grid gridHeight="5" gridWidth="60" name="grid1" posX="0" posY="0">
<Label gridHeight="1" gridWidth="20" name="label1" posX="0" posY="0" text="Ordenamiento"/>
<Edit autoNext="true" colName="decide" comment="Digite A - Alfabetico N - Numerico" fieldId="0" gridHeight="1" gridWidth="2" name="decide" posX="22" posY="0" sqlTabName="formonly" tabIndex="1" widget="Edit"/>
<Label gridHeight="1" gridWidth="20" name="label2" posX="0" posY="1" text="Codigo Movimiento"/>
<Edit colName="cod_mov" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00005.cod_mov" posX="22" posY="1" sqlTabName="intb00005" tabIndex="2" widget="Edit"/>
</Grid>
</Form>
</ManagedForm>
PROYECTO/indir/infmrp008.per
+1 -1
View File
@@ -2,7 +2,7 @@ database smarmotech
screen size 24 by 80
{
Ordenamiento [k]
Ordenamiento [k ]
Codigo Movimiento [a ]
}
end
PROYECTO/indir/infmrp009.4fd
+2 -2
View File
@@ -15,7 +15,7 @@
<RecordField fieldIdRef="9" name="bodega" uid="{29e8d1d3-d3fb-4bb5-9a5e-5870d09c4012}"/>
<RecordField fieldIdRef="3" name="tipoReporte" uid="{af73cc7b-ed97-4526-9306-7ceb3e14bb9d}"/>
</Record>
<Form gridHeight="24" gridWidth="80" name="infmrp009">
<Form gridHeight="24" gridWidth="80" name="infmrp009" text="Existencias a Diferentes Fechas">
<Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
<Label gridHeight="1" gridWidth="11" name="label2" posX="9" posY="1" text="Fecha Final"/>
<Edit colName="fech_fi" comment="Introduzca Fecha Final" fieldId="4" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="24" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" widget="Edit"/>
@@ -34,7 +34,7 @@
<Edit colName="cod_tipo" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_tipo" posX="39" posY="5" sqlTabName="intb00001" tabIndex="6" widget="Edit"/>
<Edit colName="cod_sec" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_sec" posX="46" posY="5" sqlTabName="intb00001" tabIndex="7" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label12" posX="10" posY="6" text="Bodega"/>
<ComboBox fieldId="9" gridHeight="1" gridWidth="31" items="" name="bodega" posX="25" posY="6" tabIndex="-1" title="combobox1" widget="ComboBox"/>
<ComboBox fieldId="9" gridHeight="1" gridWidth="31" items="" name="bodega" notNull="true" posX="25" posY="6" tabIndex="-1" title="combobox1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="1" name="label9" posX="10" posY="8" text="0"/>
<Label gridHeight="1" gridWidth="2" name="label10" posX="21" posY="8" text="50"/>
<Label gridHeight="1" gridWidth="3" name="label11" posX="35" posY="8" text="100"/>
PROYECTO/indir/infmwd005.4fd
+23 -26
View File
@@ -1,33 +1,30 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{65e99c2b-637a-44ff-8fe8-a549b250be19}">
<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{2fae125f-712d-4f29-87a1-51b726921e16}">
<AGSettings>
<DynamicProperties version="2"/>
<DynamicProperties version="4"/>
</AGSettings>
<Record name="record1" uid="{4fb0f919-f3a6-4b1e-aeea-b43f83982b8d}">
<RecordField colName="cod_mov" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.cod_mov" sqlTabName="intb00006" uid="{6d6beaab-e13f-455b-a61c-41a07f5bb273}"/>
<RecordField colName="descrip_mov" fieldIdRef="0" name="descrip_mov" sqlTabName="formonly" uid="{cf4f43bc-bc24-4688-944e-dca1a58acf72}"/>
<RecordField colName="num_doc" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{7c5fe677-d27f-45db-a069-79ea3f129654}"/>
<RecordField colName="fecha" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{1e9e7956-1f9c-4dec-9275-727f4c491b23}"/>
<RecordField colName="cod_sp" fieldIdRef="3" name="cod_sp" sqlTabName="formonly" uid="{f394897d-ade5-4aca-8038-701585ee1147}"/>
<RecordField colName="cod_sp_sec" fieldIdRef="4" name="cod_sp_sec" sqlTabName="formonly" uid="{20475402-fe48-4d1b-8183-fa75e7cfe42c}"/>
<RecordField fieldIdRef="6" name="bodega" uid="{b7e97b0b-c303-4171-bd41-37f7be2a872f}"/>
<Record name="record1" uid="{32862f17-82e9-4928-817b-6c11b279ff27}">
<RecordField colName="cod_mov" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.cod_mov" sqlTabName="intb00006" uid="{50bb55c2-f401-4e27-acc9-fa6cf556b0d9}"/>
<RecordField colName="descrip_mov" fieldIdRef="0" name="descrip_mov" sqlTabName="formonly" uid="{28315cc1-66c8-423e-a86b-af455ec52be9}"/>
<RecordField colName="num_doc" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{7368fae7-1c4b-437e-9c34-1f1572963b87}"/>
<RecordField colName="fecha" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{0f076029-3b03-4f4f-bde6-3616828a265a}"/>
<RecordField colName="bodega" fieldIdRef="6" name="bodega" sqlTabName="formonly" uid="{3aabc13b-ab73-4e6c-acb9-389250bda868}"/>
<RecordField colName="cod_sp" fieldIdRef="3" name="cod_sp" sqlTabName="formonly" uid="{fb3bd8a4-297a-4ff5-93cc-dafeb2f762c9}"/>
<RecordField colName="cod_sp_sec" fieldIdRef="4" name="cod_sp_sec" sqlTabName="formonly" uid="{3b346e58-ffc8-4572-bc0f-49c1312d3120}"/>
</Record>
<Form gridHeight="9" gridWidth="56" name="infmwd005" text="ANULAR DOCUMENTOS">
<Grid gridHeight="9" gridWidth="56" name="grid1" posX="0" posY="0">
<Label gridHeight="1" gridWidth="10" name="label4" posX="2" posY="1" text="Bodega"/>
<ComboBox fieldId="6" gridHeight="1" gridWidth="34" items="" name="bodega" posX="21" posY="1" tabIndex="-1" title="combobox1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="18" name="label1" posX="2" posY="2" text="Codigo Movimiento"/>
<Edit colName="cod_mov" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_mov" posX="21" posY="2" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
<Edit colName="descrip_mov" fieldId="0" gridHeight="1" gridWidth="30" name="descrip_mov" noEntry="true" posX="25" posY="2" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
<Label gridHeight="1" gridWidth="16" name="label2" posX="2" posY="3" text="Numero Documento"/>
<Edit colName="num_doc" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" posX="21" posY="3" sqlTabName="intb00006" tabIndex="3" widget="Edit"/>
<Label gridHeight="1" gridWidth="5" name="label3" posX="2" posY="4" text="Fecha"/>
<Edit colName="fecha" fieldId="5" fieldType="TABLE_COLUMN" format="dd/mm/yy" gridHeight="1" gridWidth="9" name="intb00006.fecha" noEntry="true" posX="21" posY="4" sqlTabName="intb00006" tabIndex="4" widget="Edit"/>
<Edit colName="cod_sp" fieldId="3" gridHeight="1" gridWidth="2" name="cod_sp" noEntry="true" posX="21" posY="5" sqlTabName="formonly" tabIndex="5" widget="Edit"/>
<Edit colName="cod_sp_sec" fieldId="4" gridHeight="1" gridWidth="4" name="cod_sp_sec" noEntry="true" posX="25" posY="5" sqlTabName="formonly" tabIndex="6" widget="Edit"/>
<Form gridHeight="5" gridWidth="56" name="infmwd005" text="ANULAR DOCUMENTOS">
<Grid gridHeight="5" gridWidth="56" name="grid1" posX="0" posY="0">
<Label gridHeight="1" gridWidth="18" name="label1" posX="2" posY="0" text="Codigo Movimiento"/>
<Edit colName="cod_mov" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_mov" posX="21" posY="0" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
<Edit colName="descrip_mov" fieldId="0" gridHeight="1" gridWidth="30" name="descrip_mov" noEntry="true" posX="25" posY="0" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
<Label gridHeight="1" gridWidth="16" name="label2" posX="2" posY="1" text="Numero Documento"/>
<Edit colName="num_doc" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" posX="21" posY="1" sqlTabName="intb00006" tabIndex="3" widget="Edit"/>
<Label gridHeight="1" gridWidth="5" name="label3" posX="2" posY="2" text="Fecha"/>
<Edit colName="fecha" fieldId="5" fieldType="TABLE_COLUMN" format="dd/mm/yy" gridHeight="1" gridWidth="9" name="intb00006.fecha" noEntry="true" posX="21" posY="2" sqlTabName="intb00006" tabIndex="4" widget="Edit"/>
<Label gridHeight="1" gridWidth="6" name="label4" posX="2" posY="3" text="Bodega"/>
<ComboBox colName="bodega" fieldId="6" gridHeight="1" gridWidth="35" items="" name="bodega" posX="21" posY="3" sqlTabName="formonly" tabIndex="5" widget="ComboBox"/>
<Edit colName="cod_sp" fieldId="3" gridHeight="1" gridWidth="2" name="cod_sp" noEntry="true" posX="21" posY="4" sqlTabName="formonly" tabIndex="6" widget="Edit"/>
<Edit colName="cod_sp_sec" fieldId="4" gridHeight="1" gridWidth="4" name="cod_sp_sec" noEntry="true" posX="25" posY="4" sqlTabName="formonly" tabIndex="7" widget="Edit"/>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA0AGYAYgAwAGYAOQAxADkALQBmADMAYQA2AC0ANABiADEAZQAtAGEAZQBlAGEALQBiADQAMwBmADgAMwA5ADgAMgBiADgAZAB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
PROYECTO/indir/infmwd005.per
+3 -1
View File
@@ -15,7 +15,8 @@ LAYOUT (TEXT="ANULAR DOCUMENTOS")
{
Codigo Movimiento [f0][a ]
Numero Documento [f02 ]
Fecha [f5 ]
Fecha [f5 ]
Bodega [bod]
[f1][f2 ]
}
end
@@ -28,6 +29,7 @@ f02 = intb00006.num_doc;
f1 = formonly.cod_sp,noentry;
f2 = formonly.cod_sp_sec,noentry;
f5 = intb00006.fecha,noentry,format = "dd/mm/yy";
COMBOBOX bod = formonly.bodega;
instructions
delimiters " "
end
PROYECTO/indir/inprcs006.4gl
+5 -8
View File
@@ -101,15 +101,13 @@ FUNCTION inprcs006()
END INPUT
CONSTRUCT criterio ON p.bodega FROM bodega
BEFORE CONSTRUCT
CALL bodegas('1')
ON ACTION buscar ATTRIBUTE(TEXT="Ejecuta Busqueda",IMAGE="find")
ON ACTION buscar ATTRIBUTE(TEXT="Ejecuta Busqueda",IMAGE="find")
IF datos_cons.fech_fi IS NULL THEN
CALL msg(16)
NEXT FIELD fecha_in
CONTINUE DIALOG
END IF
LET criterio = "p.bodega = ", datos_cons.bodega
LET query1 =
"SELECT ISNULL(SUM(p.cantidad_2),0) FROM intb00006 p
WHERE ", criterio clipped," and p.cod_n = ? and p.cod_grupo = ? and
@@ -207,8 +205,7 @@ FUNCTION inprcs006()
# FOR idx = 1 TO csmov2.getLength()
# DISPLAY csmov2[idx].num_doc," ",csmov2[idx].fecha_2," ",csmov2[idx].entrada," p ",csmov2[idx].parent_id," c ",csmov2[idx].chield_id
# END FOR
END CONSTRUCT
DISPLAY ARRAY csmov2 TO s_csmov.*
END DISPLAY
PROYECTO/indir/inprfu000.4gl
+162 -117
View File
@@ -3,7 +3,8 @@ GLOBALS
DEFINE nombre,apellido CHAR(30),
xinserta CHAR(1),
kprograma varchar(20),
xdescrip_mov VARCHAR(50)
xdescrip_mov VARCHAR(50),
xcod_mov_tmp LIKE intb00005.cod_mov
FUNCTION reimprime(xprograma)
DEFINE xprograma CHAR(20),
@@ -11,7 +12,7 @@ FUNCTION reimprime(xprograma)
IF xprograma = 'inprmt046' THEN
CONSTRUCT criterio ON a.cod_mov,a.num_doc,a.fecha,a.depto_a,a.bodega FROM
cod_mov,num_doc,fecha,depto_a,bodega
cod_mov,num_doc,fecha,departamento,bodega
BEFORE CONSTRUCT
CALL cincodmov()
CALL busca_departamento()
@@ -41,148 +42,192 @@ FUNCTION reimprime(xprograma)
LET xinserta = 'N'
END IF
LET kprograma = xprograma
PREPARE breimprime FROM selec
DECLARE bdocumento SCROLL CURSOR FOR breimprime
OPEN bdocumento
FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
IF kprograma = 'inprmt046' THEN
FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH FIRST bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
IF STATUS = NOTFOUND THEN
CALL msg(3)
RETURN
END IF
LET kprograma = xprograma
CALL busca_info()
MENU "NAVEGACION:"
COMMAND "Siguiente" "Busca el siguiente documento"
FETCH NEXT bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
IF kprograma = 'inprmt046' THEN
FETCH NEXT bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH NEXT bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
CALL busca_info()
COMMAND "Primero" "Busca el siguiente documento"
FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
CALL busca_info()
IF kprograma = 'inprmt046' THEN
FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH FIRST bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
CALL busca_info()
COMMAND "Anterior" "Busca el Registrosiguiente documento"
FETCH PREVIOUS bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
IF kprograma = 'inprmt046' THEN
FETCH PREVIOUS bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH PREVIOUS bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
CALL busca_info()
COMMAND "Ultimo" "Busca el Ultimo Documento"
FETCH LAST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
IF kprograma = 'inprmt046' THEN
FETCH LAST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH LAST bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
CALL busca_info()
COMMAND KEY("T") "reTornar" "Salir de busqueda"
EXIT MENU
END MENU
END FUNCTION
FUNCTION busca_info()
SELECT UNIQUE nom_dpto INTO nombre_d FROM adtb00001 a
WHERE a.departamento = datos1.depto_a and
a.status_t is NULL
LET nombre =NULL
LET apellido = NULL
SELECT a.nom1_emp,a.apell1_emp INTO nombre,apellido FROM adtb00003 a
WHERE a.num_Emp = pnum_emp
DISPLAY BY NAME otros_mov.cod_mov,otros_mov.num_doc,
otros_mov.fecha,nombre,apellido
DISPLAY datos1.depto_a TO departamento
DECLARE busca CURSOR FOR
SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_Sec,a.cantidad_2, b.unidad_med, b.descrip_Esp,NULL,
a.maquina, a.clasf_bloque
FROM intb00006 a,intb00001 b
WHERE a.num_Doc = otros_mov.num_doc AND
a.cod_mov = otros_mov.cod_mov AND
a.cod_n = b.cod_n AND
a.cod_grupo = b.cod_grupo AND
a.cod_tipo = b.cod_tipo AND
a.cod_Sec = b.cod_Sec AND
a.bodega = otros_mov.bodega
IF kprograma = 'inprmt046' THEN
SELECT UNIQUE nom_dpto INTO nombre_d FROM adtb00001 a
WHERE a.departamento = datos1.depto_a and
a.status_t is NULL
LET idx = 1
IF kprograma = 'inprmt046' THEN
FOREACH busca INTO movi2[idx].cod_n,movi2[idx].cod_grupo,
movi2[idx].cod_tipo,movi2[idx].cod_sec,
movi2[idx].cantidad_2, movi2[idx].unidad_med,
movi2[idx].descrip_esp, movi2[idx].existencia,
movi2[idx].maquina, movi2[idx].clasf_bloque
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
DISPLAY ARRAY movi2 TO s_movi1.*
BEFORE DISPLAY
CALL maquinaria()
CALL clasf_bloque()
ON ACTION rimprimir
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
LET nombre =NULL
LET apellido = NULL
# CALL configureoutput('PDF') RETURNING handler
# START REPORT formu46 TO XML HANDLER handler
SELECT a.nom1_emp,a.apell1_emp INTO nombre,apellido FROM adtb00003 a
WHERE a.num_Emp = pnum_emp
DISPLAY BY NAME otros_mov.cod_mov,otros_mov.num_doc,
otros_mov.fecha,nombre,apellido
DISPLAY datos1.depto_a TO departamento
DECLARE busca CURSOR FOR
SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_Sec,a.cantidad_2, b.unidad_med, b.descrip_Esp,NULL,
a.maquina, a.clasf_bloque
FROM intb00006 a,intb00001 b
WHERE a.num_Doc = otros_mov.num_doc AND
a.cod_mov = otros_mov.cod_mov AND
a.cod_n = b.cod_n AND
a.cod_grupo = b.cod_grupo AND
a.cod_tipo = b.cod_tipo AND
a.cod_Sec = b.cod_Sec AND
a.bodega = otros_mov.bodega
LET idx = 1
FOREACH busca INTO movi2[idx].cod_n,movi2[idx].cod_grupo,
movi2[idx].cod_tipo,movi2[idx].cod_sec,
movi2[idx].cantidad_2, movi2[idx].unidad_med,
movi2[idx].descrip_esp, movi2[idx].existencia,
movi2[idx].maquina, movi2[idx].clasf_bloque
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
DISPLAY ARRAY movi2 TO s_movi1.*
BEFORE DISPLAY
CALL maquinaria()
CALL clasf_bloque()
ON ACTION rimprimir
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
START REPORT formu46 TO archivo
FOR idx = 1 TO movi2.getLength()
OUTPUT TO REPORT formu46(otros_mov.num_doc,otros_mov.fecha,
otros_mov.cod_mov,otros_mov.bodega,xdescrip_mov,
nombre_d,
movi2[idx].*)
END FOR
FINISH REPORT formu46
RUN imprime
END DISPLAY
ELSE
SELECT UNIQUE nom_dpto INTO datos1.nom_dpto FROM adtb00001 a
WHERE a.departamento = datos1.depto_a and
a.status_t is NULL
DISPLAY BY NAME datos1.num_doc,datos1.fecha,datos1.depto_a,datos1.bodega
DISPLAY datos1.nom_dpto TO nombre_d
DECLARE busca36 CURSOR FOR
SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_Sec,a.cantidad_1,a.cantidad_2,
b.unidad_med, b.descrip_Esp
FROM intb00006 a,intb00001 b
WHERE a.num_Doc = datos1.num_doc AND
a.cod_mov = 36 AND
a.cod_n = b.cod_n AND
a.cod_grupo = b.cod_grupo AND
a.cod_tipo = b.cod_tipo AND
a.cod_Sec = b.cod_Sec AND
a.bodega = datos1.bodega
LET idx = 1
FOREACH busca36 INTO movi[idx].cod_n,movi[idx].cod_grupo,
movi[idx].cod_tipo,movi[idx].cod_sec,
movi[idx].cantidad_1,movi[idx].cantidad_2,
movi[idx].unidad_med,movi[idx].descrip_esp
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
DISPLAY ARRAY movi TO s_movi1.*
ON ACTION rimprimir
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
START REPORT formu36 TO archivo
FOR idx = 1 TO movi.getLength()
IF movi[idx].cod_n is not null and movi[idx].cod_grupo is not null and
movi[idx].cod_tipo is not null and movi[idx].cod_sec is not null THEN
LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1
OUTPUT TO REPORT formu36(datos1.num_doc,datos1.fecha,
datos1.depto_a,datos1.nom_dpto,
movi[idx].*)
END IF
END FOR
FINISH REPORT formu36
RUN imprime
START REPORT formu46 TO archivo
FOR idx = 1 TO movi2.getLength()
OUTPUT TO REPORT formu46(otros_mov.num_doc,otros_mov.fecha,
otros_mov.cod_mov,otros_mov.bodega,xdescrip_mov,
nombre_d,
movi2[idx].*)
END FOR
FINISH REPORT formu46
RUN imprime
END DISPLAY
{ ELSE
FOREACH busca INTO movi[idx].cod_n,movi[idx].cod_grupo,
movi[idx].cod_tipo,movi[idx].cod_sec,
movi[idx].descrip_esp,movi[idx].cantidad_2
LET idx = idx + 1
END FOREACH
DISPLAY ARRAY movi TO s_movi1.*
ON ACTION rimprimir
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
# CALL configureoutput('PDF') RETURNING HANDLER
# START REPORT formu36 TO XML HANDLER HANDLER
START REPORT formu36 TO archivo
FOR idx = 1 TO movi.getLength()
IF movi[idx].cod_n is not null and movi[idx].cod_grupo is not null and
movi[idx].cod_tipo is not null and movi[idx].cod_sec is not null THEN
LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1
OUTPUT TO REPORT formu36(datos1.num_doc,datos1.fecha,
datos1.depto_a,datos1.nom_dpto,
movi[idx].*)
END IF
END FOR
FINISH REPORT formu36
RUN imprime
END DISPLAY
}
END IF
END IF
END FUNCTION
REPORT formu46(x,xnombre_d,z)
PROYECTO/indir/inprmt046.4gl
-21
View File
@@ -663,24 +663,3 @@ FUNCTION inprad046()
END INPUT
END FUNCTION
FUNCTION maquinaria()
DEFINE
kmaquina VARCHAR(14),
kdescripcion CHAR(75),
maquinas ui.ComboBox
LET maquinas = ui.combobox.forname("formonly.codigo")
DECLARE busca_maquinas1 CURSOR FOR
SELECT a.cod_maquina, a.descrip_maquina
FROM intb00059 a
ORDER BY a.cod_maquina
CALL maquinas.clear()
FOREACH busca_maquinas1 INTO kmaquina, kdescripcion
CALL maquinas.additem(kmaquina, kdescripcion)
END FOREACH
END FUNCTION
PROYECTO/indir/inprrp005.4gl
+25 -6
View File
@@ -46,6 +46,10 @@ FUNCTION inprrp005()
us_anula CHAR(9)
END RECORD
DEFINE nombre_suplidor CHAR(30)
DEFINE p_fecha RECORD
fecha DATE
END RECORD
DEFINE filtro_fecha CHAR(60)
OPTIONS
@@ -61,11 +65,9 @@ FUNCTION inprrp005()
DISPLAY " Documentos " AT 6,33
LET tipo_papel = 1
CALL msgrp000(tipo_papel)
CALL msgrp000(tipo_papel)
CONSTRUCT criterio ON a.fecha,a.cod_mov,a.num_doc
FROM fecha,cod_mov,num_doc
INPUT BY NAME p_fecha.fecha
IF int_flag THEN
LET numero_msg = 2
@@ -73,6 +75,22 @@ FUNCTION inprrp005()
LET int_flag = FALSE
RETURN
END IF
CONSTRUCT criterio ON a.cod_mov,a.num_doc
FROM cod_mov,num_doc
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
END IF
LET filtro_fecha = ""
IF p_fecha.fecha IS NOT NULL THEN
LET filtro_fecha = " AND CONVERT(CHAR(10),a.fecha,103) = '",
p_fecha.fecha USING "dd/mm/yyyy", "' "
END IF
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
@@ -82,7 +100,7 @@ FUNCTION inprrp005()
let selec =
"SELECT a.cod_n, a.cod_grupo, a.cod_tipo, a.cod_sec,b.descrip_esp, ",
" b.unidad_med,a.num_doc,CONVERT(char(10),a.fecha,104),a.cantidad_1,a.cantidad_2, ",
" b.unidad_med,a.num_doc,CONVERT(char(10),a.fecha,103),a.cantidad_1,a.cantidad_2, ",
" c.cod_mov,c.descrip_mov,a.conduce_no,a.fact_no,a.orden_compra, ",
" a.cod_sp,a.cod_sp_sec,a.depto_de,a.depto_a,a.cod_seccion, ",
" a.status_t,CONVERT(CHAR(16),a.fech_mod),a.us_mod ",
@@ -91,7 +109,8 @@ FUNCTION inprrp005()
" a.cod_grupo = b.cod_grupo AND a.cod_tipo = b.cod_tipo AND " ,
" a.cod_sec = b.cod_sec AND c.cod_mov = a.cod_mov AND ",
" b.status_t is NULL AND c.status_t is NULL ",
"ORDER BY c.cod_mov,a.num_doc "
filtro_fecha CLIPPED,
"ORDER BY c.cod_mov,a.num_doc "
PREPARE busca FROM selec
DECLARE accion CURSOR FOR busca
PROYECTO/indir/inprrp008.4gl
+13 -4
View File
@@ -8,8 +8,13 @@ FECHA REALIZACION : Septiembre 29, 1992
}
GLOBALS "inprgb000.4gl"
MAIN
MAIN
DEFER INTERRUPT
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CALL ARG_VAL(3) RETURNING impresor
CONNECT to "smarmotech" USER usuarios USING clave
SELECT * INTO p_companias.* FROM companias
CALL inprrp008()
END MAIN
@@ -92,8 +97,10 @@ WHENEVER ERROR CONTINUE
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
START REPORT movimiento TO "C:\\archivo"
FOREACH accion INTO tipo.*
LET archivo = FGL_GETENV("FGLSPOOL"),"\\archivo_tipomov.txt"
START REPORT movimiento TO archivo
FOREACH accion INTO tipo.*
IF status = NOTFOUND THEN
EXIT FOREACH
ELSE
@@ -104,7 +111,9 @@ WHENEVER ERROR CONTINUE
CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
LET dcmd = "type \"",archivo CLIPPED,"\" > %USPRINT%"
RUN dcmd
END FUNCTION
REPORT movimiento(x)
DEFINE x RECORD
PROYECTO/indir/inprrp011.4gl
+7 -7
View File
@@ -159,14 +159,11 @@ LET selec =
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
LET opt1 = "yes"
CALL seleccionarsalida() RETURNING r_output
CALL configureoutput(r_output) RETURNING handler
START REPORT opera TO XML HANDLER HANDLER
CALL seleccionarsalida() RETURNING r_output
CALL configureoutput(r_output) RETURNING handler
START REPORT opera TO XML HANDLER HANDLER
PREPARE busca_p FROM selec
DECLARE periodo SCROLL CURSOR FOR busca_p
OPEN periodo using ano_act,datos_cons.fech_in,datos_cons.fech_fi
@@ -185,6 +182,9 @@ LET selec =
FINISH REPORT opera
CLEAR SCREEN
IF opt1 <> "yes" THEN
RUN imprime
END IF
END FUNCTION
REPORT opera(x)
PROYECTO/indir/inprrp028.4gl
+30 -9
View File
@@ -179,14 +179,19 @@ LET select_ant =
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
#CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
# doble_on,doble_off,comp_on,comp_off,
# doce,normal,archivo,copia
LET opt1 = fgl_winquestion("Atencion","Desea Reporte Grafico?",
"no","yes|no","question",0)
CALL seleccionarsalida() RETURNING r_output
CALL configureoutput(r_output) RETURNING HANDLER
START REPORT prt_exist TO XML HANDLER handler
IF opt1 = "yes" THEN
CALL seleccionarsalida() RETURNING r_output
CALL configureOutputRp028(r_output) RETURNING HANDLER
START REPORT prt_exist TO XML HANDLER handler
ELSE
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
START REPORT prt_exist TO archivo
END IF
LET idx_ant = 1
@@ -277,8 +282,10 @@ END WHILE
FINISH REPORT prt_exist
CLEAR SCREEN
RUN imprime
IF opt1 <> "yes" THEN
RUN imprime
END IF
END FUNCTION
REPORT prt_exist(x)
@@ -431,3 +438,17 @@ END FUNCTION
PRINT COLUMN 4, ASCII 27, ASCII 80
END REPORT
FUNCTION configureOutputRp028(tipo_file)
DEFINE tipo_file CHAR(3)
IF NOT fgl_report_loadCurrentSettings("inprrp028.4rp") THEN
RETURN NULL
END IF
CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
CALL fgl_report_selectDevice(tipo_file)
CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
CALL fgl_report_selectPreview(TRUE)
RETURN fgl_report_commitCurrentSettings()
RETURN NULL
END FUNCTION
PROYECTO/indir/maquinaria.4gl
+21
View File
@@ -0,0 +1,21 @@
FUNCTION maquinaria()
DEFINE
kmaquina VARCHAR(14),
kdescripcion CHAR(75),
maquinas ui.ComboBox
LET maquinas = ui.combobox.forname("formonly.codigo")
DECLARE busca_maquinas1 CURSOR FOR
SELECT a.cod_maquina, a.descrip_maquina
FROM intb00059 a
ORDER BY a.cod_maquina
CALL maquinas.clear()
FOREACH busca_maquinas1 INTO kmaquina, kdescripcion
CALL maquinas.additem(kmaquina, kdescripcion)
END FOREACH
END FUNCTION
PROYECTO/ipdir
-3213
View File
File diff suppressed because it is too large Load Diff
PROYECTOS/ipdir/GST_FGL_CE_TX134.4gl → PROYECTO/ipdir/GST_FGL_CE_TX134.4gl
View File
PROYECTOS/ipdir/GST_FGL_CE_TX325.4gl → PROYECTO/ipdir/GST_FGL_CE_TX325.4gl
View File
PROYECTOS/ipdir/IPPRMT076.4gl → PROYECTO/ipdir/IPPRMT076.4gl
View File
PROYECTOS/ipdir/IPPRRP048.4gl → PROYECTO/ipdir/IPPRRP048.4gl
View File
PROYECTOS/ipdir/IPPRRP048_1.4gl → PROYECTO/ipdir/IPPRRP048_1.4gl
View File
PROYECTOS/ipdir/IPRP.BAT → PROYECTO/ipdir/IPRP.BAT
View File
PROYECTOS/ipdir/RUBIOBONDY.txt → PROYECTO/ipdir/RUBIOBONDY.txt
View File
PROYECTOS/ipdir/act.sql → PROYECTO/ipdir/act.sql
View File
PROYECTOS/ipdir/actExistencia.4gl → PROYECTO/ipdir/actExistencia.4gl
View File
PROYECTOS/ipdir/actorden.per → PROYECTO/ipdir/actorden.per
View File
PROYECTOS/ipdir/adtb00001.per → PROYECTO/ipdir/adtb00001.per
View File
PROYECTOS/ipdir/busca_c.sql → PROYECTO/ipdir/busca_c.sql
View File
PROYECTOS/ipdir/busca_productos.4gl → PROYECTO/ipdir/busca_productos.4gl
View File
PROYECTOS/ipdir/buscarequisicion.4gl → PROYECTO/ipdir/buscarequisicion.4gl
+16 -3
View File
@@ -4,10 +4,10 @@ FUNCTION buscadoc(numid,codmov)
DEFINE numid,codmov INT
SELECT a.numero_Doc,a.cod_mov,a.fecha,a.num_oc,a.tipo_cliente,a.sec_cliente,a.nombre,a.bodega,a.bodega_destino,
a.estado,a.url_destino,b.descripcion,a.observacion
a.estado,a.url_destino,b.descripcion,a.observacion,a.us_crea
INTO p_iptb57.numero_doc,p_iptb57.cod_mov,p_iptb57.fecha,p_iptb57.num_oc,p_iptb57.tipo_cliente,p_iptb57.sec_cliente,
p_iptb57.cliente,p_iptb57.bodega,p_iptb57.bodega_destino,p_iptb57.estado,
p_iptb57.url_file,p_iptb57.observacion
p_iptb57.url_file,p_iptb57.idstado,p_iptb57.observacion,p_iptb57.us_crea
FROM iptb00057 a, iptb00061 b
WHERE a.numero_doc = numid AND a.cod_mov = codmov AND
a.idestado = b.idestado
@@ -15,7 +15,20 @@ FUNCTION buscadoc(numid,codmov)
#BODEGA DESTINO
IF p_iptb57.bodega_destino IS NOT NULL THEN
SELECT a.descripcion INTO nombreBodegaDestino FROM intb00009 a WHERE a.cod_bodega = p_iptb57.bodega_destino
END IF
END IF
#BODEGA ORIGEN
IF p_iptb57.bodega IS NOT NULL THEN
SELECT a.descripcion INTO nombreBodega FROM intb00009 a WHERE a.cod_bodega = p_iptb57.bodega
END IF
#TIPO DE MOVIMIENTO
IF p_iptb57.cod_mov IS NOT NULL THEN
SELECT RTRIM(a.descrip_mov) || '(' || CAST(a.cod_mov AS VARCHAR(6)) || ')' INTO nombreMov
FROM iptb00005 a WHERE a.cod_mov = p_iptb57.cod_mov
END IF
#USUARIO QUE CREO EL DOCUMENTO
IF p_iptb57.us_crea IS NOT NULL THEN
CALL usuarioSistema(p_iptb57.us_crea) RETURNING nombreUsuario,email
END IF
DECLARE buscardetalle CURSOR FOR
SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,a.unidad_med,
a.cantidad_1,a.cantidad_2,b.factor_conv,
PROYECTOS/ipdir/buscarequisicion_1.4gl → PROYECTO/ipdir/buscarequisicion_1.4gl
View File
PROYECTOS/ipdir/cambia → PROYECTO/ipdir/cambia
View File
PROYECTOS/ipdir/categoria_conteo.4gl → PROYECTO/ipdir/categoria_conteo.4gl
View File
PROYECTOS/ipdir/ccfmrp003.per → PROYECTO/ipdir/ccfmrp003.per
View File
PROYECTOS/ipdir/coloca_ubicacion.4fd → PROYECTO/ipdir/coloca_ubicacion.4fd
View File
PROYECTOS/ipdir/companias.per → PROYECTO/ipdir/companias.per
View File
PROYECTOS/ipdir/conduces.4gl → PROYECTO/ipdir/conduces.4gl
View File
PROYECTOS/ipdir/control_costos.4gl → PROYECTO/ipdir/control_costos.4gl
View File
PROYECTOS/ipdir/datos.ld → PROYECTO/ipdir/datos.ld
View File
PROYECTOS/ipdir/desglose.4gl → PROYECTO/ipdir/desglose.4gl
View File
PROYECTOS/ipdir/devoluciones.sql → PROYECTO/ipdir/devoluciones.sql
View File
PROYECTOS/ipdir/dynamic-tree.4gl → PROYECTO/ipdir/dynamic-tree.4gl
View File
PROYECTOS/ipdir/dynamic-tree.per → PROYECTO/ipdir/dynamic-tree.per
View File
PROYECTOS/ipdir/edfmrp000.per → PROYECTO/ipdir/edfmrp000.per
View File
PROYECTOS/ipdir/edprrp000.4gl → PROYECTO/ipdir/edprrp000.4gl
View File
PROYECTOS/ipdir/estadosprocesos.4gl → PROYECTO/ipdir/estadosprocesos.4gl
View File
PROYECTOS/ipdir/estadosprocesos_1.4gl → PROYECTO/ipdir/estadosprocesos_1.4gl
View File
PROYECTOS/ipdir/exterior.sch → PROYECTO/ipdir/exterior.sch
View File
PROYECTOS/ipdir/f → PROYECTO/ipdir/f
View File
PROYECTOS/ipdir/iL → PROYECTO/ipdir/iL
View File
PROYECTOS/ipdir/imprequisiciones.4gl → PROYECTO/ipdir/imprequisiciones.4gl
View File
PROYECTOS/ipdir/inetsrv/iisdump.dll → PROYECTO/ipdir/inetsrv/iisdump.dll
View File
PROYECTOS/ipdir/infmcs007.err → PROYECTO/ipdir/infmcs007.err
View File
PROYECTOS/ipdir/infmcs007.per → PROYECTO/ipdir/infmcs007.per
View File
PROYECTOS/ipdir/infmrp001.err → PROYECTO/ipdir/infmrp001.err
View File
PROYECTOS/ipdir/infmrp001.per → PROYECTO/ipdir/infmrp001.per
View File
PROYECTOS/ipdir/inmnmt000.erc → PROYECTO/ipdir/inmnmt000.erc
View File
PROYECTOS/ipdir/insertatemporal.4gl → PROYECTO/ipdir/insertatemporal.4gl
View File
PROYECTOS/ipdir/insertaubicacion.4gl → PROYECTO/ipdir/insertaubicacion.4gl
View File
PROYECTOS/ipdir/ipactualizareqtrx.4gl → PROYECTO/ipdir/ipactualizareqtrx.4gl
View File
PROYECTOS/ipdir/ipactualizareqtrx_1.4gl → PROYECTO/ipdir/ipactualizareqtrx_1.4gl
View File
PROYECTOS/ipdir/ipautorizareq.4fd → PROYECTO/ipdir/ipautorizareq.4fd
View File
PROYECTOS/ipdir/ipautorizareq.4gl → PROYECTO/ipdir/ipautorizareq.4gl
+12 -11
View File
@@ -77,7 +77,7 @@ FUNCTION ipautorizadas(xusuario)
END IF
ON ACTION imprimir ATTRIBUTE(TEXT="Imprimir", IMAGE="printer")
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
CALL buscadoc(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
CALL buscadocAutoriza(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
LET data.rnumeroDoc = arr_busqueda1[arr_curr()].numeroid
LET data.rcodMov = arr_busqueda1[arr_curr()].cod_mov1
LET data.rtipo_cliente = arr_busqueda1[arr_curr()].rtipo_cliente
@@ -88,7 +88,7 @@ FUNCTION ipautorizadas(xusuario)
LET data.bodega_destino = arr_busqueda1[arr_curr()].bodega_destino
LET nombreUsuario = arr_busqueda1[arr_curr()].usuario
CALL impdocumento()
CALL impdocumentoAutoriza()
END IF
ON ACTION procesar ATTRIBUTE(TEXT="Procesa",IMAGE="")
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
@@ -172,7 +172,7 @@ FUNCTION buscadataReq(pusuario)
END FUNCTION
FUNCTION buscadoc(numid,codmov)
FUNCTION buscadocAutoriza(numid,codmov)
DEFINE numid,codmov INT
LET vendedor = null
@@ -235,7 +235,7 @@ FUNCTION buscadoc(numid,codmov)
LET idx = idx + 1
END FOREACH
END FUNCTION
FUNCTION impdocumento()
FUNCTION impdocumentoAutoriza()
DEFINE idx_l INT,
xcodigo VARCHAR(50)
LET r_filename = "ipprmt020_1.4rp"
@@ -251,7 +251,7 @@ FUNCTION impdocumento()
ELSE
RETURN
END IF
START REPORT requiere TO XML HANDLER HANDLER
START REPORT requiereAutoriza TO XML HANDLER HANDLER
FOR idx = 1 TO arr_iptb58.getLength()
@@ -261,15 +261,15 @@ FUNCTION impdocumento()
arr_iptb58[idx].cod_tipo USING '&&&&&&','-',
arr_iptb58[idx].cod_sec USING '&&&&&&&'
OUTPUT TO REPORT requiere(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
OUTPUT TO REPORT requiereAutoriza(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
END IF
END FOR
FINISH REPORT requiere
FINISH REPORT requiereAutoriza
END FUNCTION
REPORT requiere(x,detalle,xdespiece,codigo)
REPORT requiereAutoriza(x,detalle,xdespiece,codigo)
DEFINE hora STRING,
detalle RECORD
area INT,
@@ -308,7 +308,8 @@ REPORT requiere(x,detalle,xdespiece,codigo)
estado VARCHAR(50),
ruta_documento ,
url_file ,
idestado VARCHAR(200)
idestado VARCHAR(200),
us_crea VARCHAR(50)
END RECORD,
etiqueta VARCHAR(100),
PROYECTOS/ipdir/ipcontrolOrdnes.4gl → PROYECTO/ipdir/ipcontrolOrdnes.4gl
View File
PROYECTOS/ipdir/ipcs.bat → PROYECTO/ipdir/ipcs.bat
View File
PROYECTOS/ipdir/ipfm.bat → PROYECTO/ipdir/ipfm.bat
View File
PROYECTOS/ipdir/ipfmcs001.err → PROYECTO/ipdir/ipfmcs001.err
View File
PROYECTOS/ipdir/ipfmcs001.per → PROYECTO/ipdir/ipfmcs001.per
View File
PROYECTOS/ipdir/ipfmcs002.per → PROYECTO/ipdir/ipfmcs002.per
View File
PROYECTOS/ipdir/ipfmcs004.4fd → PROYECTO/ipdir/ipfmcs004.4fd
View File
PROYECTOS/ipdir/ipfmcs004.per → PROYECTO/ipdir/ipfmcs004.per
View File
PROYECTOS/ipdir/ipfmcs004_1.4fd → PROYECTO/ipdir/ipfmcs004_1.4fd
View File
PROYECTOS/ipdir/ipfmcs004_1.per → PROYECTO/ipdir/ipfmcs004_1.per
View File
PROYECTOS/ipdir/ipfmcs004_2.4fd → PROYECTO/ipdir/ipfmcs004_2.4fd
View File

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