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

Compare commits

base: jsoto/MBS:33f477778e0e1d3dec4413d7eca392a786193d3d
Branches Tags
jsoto/MBS:main
...
compare: jsoto/MBS:main
Branches Tags
jsoto/MBS:main
45 Commits
33f477778e ... 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
Abel López b7877d7c07 Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS 2026-08-27 16:19:01 -04:00
Abel LópezandClaude Sonnet 5 b05e858ac6 Añadir coprmt010, coprmt015, coprmt016, coprmt025 y coprcs005 (modulo COMPRAS) 
- coprmt010 (Paises): corregir condicion invertida en "Escoger" que
  bloqueaba editar registros activos y solo permitia editar los ya
  eliminados (status_t != "E" -> = "E").
- coprmt016 (Terminos de Pago): usar el formulario .4fd (el .per no tenia
  el grid "Tabla" que el codigo espera); agregar columna "dias" faltante
  al INSERT (la tabla real tiene 9 columnas, el INSERT solo daba 8 valores
  sin lista de columnas explicita).
- coprmt025 (Requisicion Compras): agregar funciones faltantes
  (busca_departamento2 en depto.4gl, enviaemail en FUNCIONESEMAIL);
  sincronizar el RECORD "data" y la aridad de RETURNING de ApiMaintainC
  con el fix de api_test.4gl; reemplazar fgl_report_* (no disponible) por
  om.XmlWriter en las 3 rutas de impresion.
- coprmt015 y coprcs005: sin cambios de codigo, solo registro en el
  proyecto.
- mbsERP.4pw: registrar los 5 programas; investigar/configurar Java para
  coprmt025 (FGLJVMPATH/JAVA_HOME/CLASSPATH apuntando a un JRE Temurin
  8u504 local). Pendiente: el puente Java de esta instalacion de Genero
  sigue fallando ("Can not create java VM") incluso con el ejemplo oficial
  de FGL: parece un problema de la instalacion misma, no de version de
  Java. Se sugirio reparar via MsiExec /f {3B1E10F3-FBCC-4737-8BDF-284359029D70}
  (Four Js Genero BDL with Web Services 6.00.02), pendiente de ejecutar.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-08-27 16:18:51 -04:00
416 changed files with 58172 additions and 6464 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 IF acc_per.estado_civil = "C" THEN
LET estado = "CASADO" LET estado = "CASADO"
END IF END IF
IF acc_per.estado_civil = "U" THEN
LET estado = "UNION LIBRE"
END IF
IF acc_per.sexo = "M" THEN IF acc_per.sexo = "M" THEN
LET tipo_sexo = "MASCULINO" 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"?> <?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:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList> <report:FormatList>
<report:Format-PDF/> <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 screen size 24 by 80
{ {
@@ -9,10 +9,10 @@ screen size 24 by 80
\g-----------------------------------------------------------------------------\g \g-----------------------------------------------------------------------------\g
Requi. Codigo Cantidad Precio Valor Requi. Codigo Cantidad Precio Valor
\g-----------------------------------------------------------------------------\g \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 ] Descripcion [d1 ]
} }
end end
PROYECTO/codir/cofmrp019.per
+1 -1
View File
@@ -1,4 +1,4 @@
database marmotech database smarmotech
screen size 24 by 80 screen size 24 by 80
{ {
Fecha [f1 ] Fecha [f1 ]
PROYECTO/codir/cofmwd016.per
+1 -1
View File
@@ -1,4 +1,4 @@
DATABASE marmotech DATABASE smarmotech
screen screen
{ {
Ship To [st ] Ship To [st ]
PROYECTO/codir/coprcs009.4gl
+4 -4
View File
@@ -243,10 +243,10 @@ LET idx = 1
FOREACH buscate INTO detalle1.* FOREACH buscate INTO detalle1.*
LET cs_ordena[idx].num_req = detalle1.num_req LET cs_ordena[idx].num_req = detalle1.num_req
LET cs_ordena[idx].codigo = detalle1.cod_n using "&","-", LET cs_ordena[idx].codigo = detalle1.cod_n using "##","-",
detalle1.cod_grupo using "&","-", detalle1.cod_grupo using "####","-",
detalle1.cod_tipo using "&&","-", detalle1.cod_tipo using "####","-",
detalle1.cod_sec using "&&&" detalle1.cod_sec using "#####"
LET cs_ordena[idx].cantidad = detalle1.cantidad using "##########.##" LET cs_ordena[idx].cantidad = detalle1.cantidad using "##########.##"
LET cs_ordena[idx].precio = detalle1.precio 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 DEFINE cs_ordena ARRAY [20] OF RECORD
num_req INTEGER, num_req INTEGER,
codigo CHAR(10), codigo CHAR(20),
cantidad CHAR(14), cantidad CHAR(14),
precio CHAR(13), precio CHAR(13),
valor CHAR(14) valor CHAR(14)
PROYECTO/codir/coprmt009.4gl
+7 -5
View File
@@ -1037,6 +1037,9 @@ FUNCTION copcmf009()
CALL lugarentregas() CALL lugarentregas()
# Aqui se prepara para la captura del criterio de seleccion # 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 CONSTRUCT criterio
ON cotb00014.num_oc, ON cotb00014.num_oc,
cotb00014.tipo, cotb00014.tipo,
@@ -1049,8 +1052,7 @@ FUNCTION copcmf009()
cotb00014.fech_enviada, cotb00014.fech_enviada,
cotb00014.pago, cotb00014.pago,
cotb00014.fech_pago, cotb00014.fech_pago,
cotb00014.cierre, cotb00014.cierre
cotb00014.bodega
FROM num_oc, FROM num_oc,
tipo, tipo,
fech_oc, fech_oc,
@@ -1062,8 +1064,7 @@ FUNCTION copcmf009()
fech_enviada, fech_enviada,
pago, pago,
fech_pago, fech_pago,
cierre, cierre
bodega
IF int_flag THEN IF int_flag THEN
LET numero_msg = 2 LET numero_msg = 2
@@ -2360,7 +2361,8 @@ FUNCTION escoge()
ordenes.pago, ordenes.pago,
ordenes.fech_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 IF ordenes.cod_sp = 22 OR ordenes.cod_sp = 24 THEN
LET flete1.total_1 = LET flete1.total_1 =
PROYECTO/codir/coprmt010.4gl
+1 -1
View File
@@ -178,7 +178,7 @@ FUNCTION copcmf010()
COMMAND "Escoger" COMMAND "Escoger"
"<Esc> Actualiza Registro <Delete> Cancela Operacion" "<Esc> Actualiza Registro <Delete> Cancela Operacion"
IF paises.status_t != "E" THEN IF paises.status_t = "E" THEN
LET numero_msg = 36 LET numero_msg = 36
CALL msg(numero_msg) CALL msg(numero_msg)
RETURN RETURN
PROYECTO/codir/coprmt016.4gl
+12 -2
View File
@@ -191,7 +191,16 @@ FUNCTION insertData()
BEGIN WORK BEGIN WORK
INSERT INTO cotb00024 INSERT INTO cotb00024 (
term_sp,
descrip_term,
descrip_ting,
status_t,
us_crea,
fech_crea,
us_mod,
fech_mod,
dias)
VALUES (pagos.term_sp, VALUES (pagos.term_sp,
pagos.descrip_term, pagos.descrip_term,
pagos.descrip_ting, pagos.descrip_ting,
@@ -199,7 +208,8 @@ FUNCTION insertData()
usuarios, -- us_crea usuarios, -- us_crea
pagos.fech_crea, -- fech_crea pagos.fech_crea, -- fech_crea
NULL, -- us_mod NULL, -- us_mod
NULL) -- fech_mod NULL, -- fech_mod
NULL) -- dias (no se captura en esta pantalla)
CALL integridad() CALL integridad()
PROYECTO/codir/coprmt025.4gl
+22 -5
View File
@@ -35,6 +35,9 @@ DEFINE xusername,xsmtphost,xsmtpport,xpassword STRING,
toEmail, orden_trabajo, answer_workorder, descrip_depto STRING, depto INT toEmail, orden_trabajo, answer_workorder, descrip_depto STRING, depto INT
-- Debe coincidir exactamente (mismos campos, mismo orden) con el RECORD
-- "data" del parametro de ApiMaintainC() en otrodir/api_test.4gl: el
-- enlazador exige la misma aridad en todos los llamadores.
DEFINE data RECORD DEFINE data RECORD
area_sp VARCHAR(10), area_sp VARCHAR(10),
ciu_sp VARCHAR(30), ciu_sp VARCHAR(30),
@@ -43,6 +46,7 @@ DEFINE data RECORD
cod_sp_sec SMALLINT, cod_sp_sec SMALLINT,
cont_sp VARCHAR(30), cont_sp VARCHAR(30),
contactID INTEGER, contactID INTEGER,
cuenta_no VARCHAR(10),
dir_sp VARCHAR(60), dir_sp VARCHAR(60),
email VARCHAR(60), email VARCHAR(60),
fax_sp VARCHAR(25), fax_sp VARCHAR(25),
@@ -50,13 +54,17 @@ DEFINE data RECORD
fech_mod DATETIME YEAR TO FRACTION, fech_mod DATETIME YEAR TO FRACTION,
id_maintainx INTEGER, id_maintainx INTEGER,
nom_sp VARCHAR(41), nom_sp VARCHAR(41),
rnc VARCHAR(11),
status_t VARCHAR(1), status_t VARCHAR(1),
tel_sp VARCHAR(25), tel_sp VARCHAR(25),
term_sp SMALLINT, term_sp SMALLINT,
tipo_doc VARCHAR(10),
us_crea VARCHAR(50), us_crea VARCHAR(50),
us_mod VARCHAR(50) us_mod VARCHAR(50)
END RECORD END RECORD
DEFINE p_reportfile STRING
DEFINE container RECORD DEFINE container RECORD
tipo_inv STRING, tipo_inv STRING,
cod_n INT, cod_n INT,
@@ -111,6 +119,7 @@ END FUNCTION
FUNCTION copcad025() FUNCTION copcad025()
DEFINE tiene_Dato CHAR(2), answer STRING DEFINE tiene_Dato CHAR(2), answer STRING
DEFINE answer2 INTEGER
INITIALIZE depto TO NULL INITIALIZE depto TO NULL
# Captura los datos que va a contener el registro # Captura los datos que va a contener el registro
@@ -312,7 +321,7 @@ FUNCTION copcad025()
INITIALIZE data.* TO NULL INITIALIZE data.* TO NULL
CALL ApiMaintainC('CHECK', orden_trabajo, data.*, usuarios) RETURNING answer CALL ApiMaintainC('CHECK', orden_trabajo, data.*, usuarios) RETURNING answer, answer2
IF answer = 0 OR answer IS NULL THEN IF answer = 0 OR answer IS NULL THEN
@@ -733,7 +742,7 @@ ON ACTION guardar ATTRIBUTE(TEXT="Salvar", IMAGE="save")
ELSE ELSE
CALL ApiMaintainC('PATCH_WORKORDER',answer_workorder, Data.*, usuarios) CALL ApiMaintainC('PATCH_WORKORDER',answer_workorder, Data.*, usuarios)
RETURNING answer RETURNING answer, answer2
IF answer != 1 THEN IF answer != 1 THEN
DISPLAY "AQUI PATCH_WORKORDER" DISPLAY "AQUI PATCH_WORKORDER"
@@ -777,7 +786,11 @@ ON ACTION guardar ATTRIBUTE(TEXT="Salvar", IMAGE="save")
COMMIT WORK COMMIT WORK
CALL seleccionarsalida() RETURNING salida CALL seleccionarsalida() RETURNING salida
CALL configureoutput(salida) RETURNING HANDLER -- La API de configuracion de reportes (fgl_report_*) no esta
-- disponible en este FGL; se escribe el XML directo a un archivo
-- en FGLSPOOL en lugar de la vista previa/exportacion nativa.
LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req1.xml"
LET handler = om.XmlWriter.createFileWriter(p_reportfile)
START REPORT print_req TO XML HANDLER HANDLER START REPORT print_req TO XML HANDLER HANDLER
@@ -894,7 +907,9 @@ ON ACTION guardar ATTRIBUTE(TEXT="Salvar", IMAGE="save")
COMMIT WORK COMMIT WORK
CALL seleccionarsalida() RETURNING salida CALL seleccionarsalida() RETURNING salida
CALL configureoutput(salida) RETURNING HANDLER -- Ver nota sobre fgl_report_* mas arriba en este archivo.
LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req2.xml"
LET handler = om.XmlWriter.createFileWriter(p_reportfile)
START REPORT print_req TO XML HANDLER HANDLER START REPORT print_req TO XML HANDLER HANDLER
PREPARE query FROM PREPARE query FROM
@@ -1177,7 +1192,9 @@ FUNCTION copcmf025()
IF salida IS NULL THEN IF salida IS NULL THEN
LET salida = 'PDF' LET salida = 'PDF'
END IF END IF
CALL configureoutput(salida) RETURNING HANDLER -- Ver nota sobre fgl_report_* mas arriba en este archivo.
LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req3.xml"
LET handler = om.XmlWriter.createFileWriter(p_reportfile)
START REPORT print_req TO XML HANDLER HANDLER START REPORT print_req TO XML HANDLER HANDLER
PREPARE query FROM PREPARE query FROM
PROYECTO/codir/coprrp001.4gl
+5 -13
View File
@@ -144,19 +144,11 @@ FUNCTION coprrp001()
archivo, archivo,
copia copia
LET r_filename = 'coprrp001.4rp' -- La API de configuracion de reportes (fgl_report_*) no esta
CALL seleccionarSalida() RETURNING r_output -- 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 preview = 1 LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp001_catalogo.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
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
START REPORT catalogo2 TO XML HANDLER handler START REPORT catalogo2 TO XML HANDLER handler
#### Enviando la informacion al registro del reporte #### Enviando la informacion al registro del reporte
PROYECTO/codir/coprrp004.4gl
+9 -2
View File
@@ -35,6 +35,8 @@ FUNCTION coprrp004()
monto DECIMAL(12,2) monto DECIMAL(12,2)
END RECORD END RECORD
DEFINE r_filename STRING
#WHENEVER ERROR CONTINUE #WHENEVER ERROR CONTINUE
OPTIONS OPTIONS
@@ -115,8 +117,13 @@ END IF
# doce,normal,archivo,copia # doce,normal,archivo,copia
CALL seleccionarsalida() RETURNING salida -- La API de configuracion de reportes (fgl_report_*) no esta
CALL configureoutput(salida) RETURNING HANDLER -- 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 START REPORT cronologico TO XML HANDLER handler
PROYECTO/codir/coprrp007.4gl
+9 -2
View File
@@ -41,6 +41,8 @@ FUNCTION coprrp007()
END RECORD END RECORD
DEFINE r_filename STRING
# WHENEVER ERROR CONTINUE # WHENEVER ERROR CONTINUE
OPTIONS OPTIONS
@@ -162,8 +164,13 @@ LET idx = 1
END IF END IF
IF idx = 1 THEN IF idx = 1 THEN
CALL seleccionarsalida() RETURNING salida -- La API de configuracion de reportes (fgl_report_*) no esta
CALL configureoutput(salida) RETURNING HANDLER -- 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 START REPORT organiza TO XML HANDLER handler
END IF END IF
PROYECTO/codir/coprrp019.4gl
+15 -2
View File
@@ -10,12 +10,20 @@ DIRECTOR PROYECTO : JOSE ALFREDO PAULINO ALEJO
GLOBALS "coprgb000.4gl" GLOBALS "coprgb000.4gl"
MAIN MAIN
DEFER INTERRUPT 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() CALL coprrp019()
END MAIN END MAIN
FUNCTION coprrp019() FUNCTION coprrp019()
DEFINE select_fech,select_movi,select_ent CHAR(1000) DEFINE select_fech,select_movi,select_ent CHAR(1000)
DEFINE r_filename STRING
DEFINE idx_o,idx_e,idx_p,idx_m SMALLINT DEFINE idx_o,idx_e,idx_p,idx_m SMALLINT
DEFINE esta,encontre,salir2,salir1,salir CHAR(1) DEFINE esta,encontre,salir2,salir1,salir CHAR(1)
DEFINE recibida,pendiente DECIMAL(12,2) DEFINE recibida,pendiente DECIMAL(12,2)
@@ -97,8 +105,13 @@ FUNCTION coprrp019()
DECLARE ent_curs SCROLL CURSOR FOR busca_entrega DECLARE ent_curs SCROLL CURSOR FOR busca_entrega
OPEN ent_curs OPEN ent_curs
CALL seleccionarsalida() RETURNING r_output -- La API de configuracion de reportes (fgl_report_*) no esta
CALL configureoutput(r_output) RETURNING HANDLER -- 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 START REPORT documento TO XML HANDLER handler
PROYECTO/codir/departamento.4gl
+4 -1
View File
@@ -2,7 +2,10 @@ FUNCTION busca_departamento()
DEFINE pdepartamento ui.combobox, DEFINE pdepartamento ui.combobox,
kdepartamento SMALLINT,kdescripcion CHAR(30) kdepartamento SMALLINT,kdescripcion CHAR(30)
LET pdepartamento = ui.combobox.forname("formonly.depto_a") LET pdepartamento = ui.combobox.forname("formonly.departamento")
IF pdepartamento IS NULL THEN
RETURN
END IF
CALL pdepartamento.clear() CALL pdepartamento.clear()
DECLARE pagar CURSOR FOR DECLARE pagar CURSOR FOR
SELECT departamento, nom_dpto FROM adtb00001 SELECT departamento, nom_dpto FROM adtb00001
PROYECTO/codir/smarmotech.sch
+3
View File
@@ -199,6 +199,9 @@ adtb00003^sexo^0^10^67^
adtb00003^email_corporativo^201^100^68^ adtb00003^email_corporativo^201^100^68^
adtb00003^enviar_encuesta^0^10^69^ adtb00003^enviar_encuesta^0^10^69^
adtb00003^enviar_volante^0^10^70^ 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^cod_puesto^1^2^1^
adtb00004^nom_puesto^0^180^2^ adtb00004^nom_puesto^0^180^2^
adtb00004^otra_descripcion^0^180^3^ 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) FUNCTION defecto(usuarios,clave,impresor)
DEFINE impresor,idx SMALLINT, 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 comp_on,comp_off,doce,normal,archivo,copia
END FUNCTION 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="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_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 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 colName="bodega" fieldIdRef="6" name="bodega" sqlTabName="formonly" uid="{900b8556-f902-4c08-b7f1-a2de9d054534}"/>
<RecordField fieldIdRef="9" name="mensaje_ini" uid="{5fcab4dd-77dd-4cc5-8641-848be157b658}"/> <RecordField colName="mensaje_ini" fieldIdRef="9" name="mensaje_ini" sqlTabName="formonly" uid="{5fcab4dd-77dd-4cc5-8641-848be157b658}"/>
</Record> </Record>
<Record name="s_csmov" uid="{d4ca2e1f-7d30-4026-84bc-8e7b2b0ae0cb}"> <Record name="s_csmov" uid="{d4ca2e1f-7d30-4026-84bc-8e7b2b0ae0cb}">
<RecordField fieldIdRef="18" name="num_doc" uid="{15a69691-abe4-4c90-bb06-486540da34b4}"/> <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="13" name="parent_id" uid="{4a028887-b5ed-4b25-9eb1-702752bee614}"/>
<RecordField fieldIdRef="19" name="chield_id" uid="{a972d067-b0bc-478a-add7-995fd25b5c9c}"/> <RecordField fieldIdRef="19" name="chield_id" uid="{a972d067-b0bc-478a-add7-995fd25b5c9c}"/>
</Record> </Record>
<Form gridHeight="24" gridWidth="80" name="infmcs006"> <Form gridHeight="24" gridWidth="86" name="infmcs006" text="MOVIMIENTO MATERIA PRIMA">
<Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0"> <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 :"/> <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_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"/> <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:"/> <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"/> <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:"/> <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"/> <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 fieldId="9" gridHeight="1" gridWidth="53" name="mensaje_ini" posX="2" posY="7" scroll="true" style="encabezado name" tabIndex="-1" title="edit1" widget="Edit"/> <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"> <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"> <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"/> <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 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 ] Codigo Materia Prima :[a]-[b]-[c ]-[d ] [a1 ] [a2 ]
Bodega: [h ] Bodega: [h ]
Fecha Inicial:[f1 ] Fecha Final:[f2 ] Fecha Inicial:[f1 ] Fecha Final:[f2 ]
[g ]
\g---------------------------------------------------------------------------\g \g---------------------------------------------------------------------------\g
C a n t i d a d C a n t i d a d
Fecha Documento Entrada Salida Balance Fecha Documento Entrada Salida Balance
@@ -31,7 +32,7 @@ c = intb00001.cod_tipo,autonext;
d = intb00001.cod_sec,autonext; d = intb00001.cod_sec,autonext;
a1 = intb00001.descrip_esp,noentry; a1 = intb00001.descrip_esp,noentry;
a2 = intb00001.unidad_med,noentry; a2 = intb00001.unidad_med,noentry;
h = intb00006.bodega,autonext; COMBOBOX h = formonly.bodega;
f1 = formonly.fech_in type date,format = "dd/mm/yyyy"; f1 = formonly.fech_in type date,format = "dd/mm/yyyy";
f2 = formonly.fech_fi type date,format = "dd/mm/yyyy"; f2 = formonly.fech_fi type date,format = "dd/mm/yyyy";
d1 = intb00006.num_doc; d1 = intb00006.num_doc;
@@ -39,6 +40,7 @@ f2 = formonly.fech_fi type date,format = "dd/mm/yyyy";
d4 = formonly.entrada; d4 = formonly.entrada;
d5 = formonly.salida; d5 = formonly.salida;
d6 = formonly.balance; d6 = formonly.balance;
g = formonly.mensaje_ini,noentry;
instructions instructions
screen record s_csmov[8] (num_doc,fecha,entrada,salida,balance) 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" ?> <?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> <AGSettings>
<DynamicProperties version="2"/> <DynamicProperties version="4"/>
</AGSettings> </AGSettings>
<Record name="record1" uid="{5f98391b-bea0-4211-a080-65f585d7f377}"> <Record name="s_movi1" uid="{ea5f2f49-b9ed-4006-89ed-1b0ccb85921a}">
<RecordField colName="num_doc" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{d2a35378-2bc5-4c14-a5b2-d9d31602318b}"/> <RecordField colName="cod_n" fieldIdRef="4" fieldType="TABLE_COLUMN" name="intb00006.cod_n" sqlTabName="intb00006" uid="{035e9495-92e7-49b4-b08b-9c0d186cda04}"/>
<RecordField colName="fecha" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{b2c2e592-dc75-4e19-a9ff-93cc5b1f77c2}"/> <RecordField colName="cod_grupo" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00006.cod_grupo" sqlTabName="intb00006" uid="{5fd30570-d08f-4a17-a017-2e344b0e17e7}"/>
<RecordField colName="depto_a" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.depto_a" sqlTabName="intb00006" uid="{acbbeead-342c-4c6f-a091-347f83c07636}"/> <RecordField colName="cod_tipo" fieldIdRef="6" fieldType="TABLE_COLUMN" name="intb00006.cod_tipo" sqlTabName="intb00006" uid="{e25df3e0-273a-437a-8175-bcb27619b24a}"/>
<RecordField colName="nom_dpto" fieldIdRef="3" fieldType="NON_DATABASE" name="nombre_d" sqlTabName="adtb00001" uid="{0dac7bb5-0381-4afe-8c40-96b4b36dd9cd}"/> <RecordField colName="cod_sec" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00006.cod_sec" sqlTabName="intb00006" uid="{7c65560d-d48e-4bf5-b7f9-b20d9569c99e}"/>
<RecordField colName="bodega" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00006.bodega" sqlTabName="intb00006" uid="{cadd22d3-f600-4af7-9fc9-696c6e7f1bbb}"/> <RecordField colName="cantidad_1" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00006.cantidad_1" sqlTabName="intb00006" uid="{1175d8c0-9c6c-454d-bcb7-55661372b958}"/>
<RecordField fieldIdRef="4" name="cod_mov" uid="{fc7dc520-056a-4e29-9fd9-06882be58fd6}"/> <RecordField colName="cantidad_2" fieldIdRef="9" fieldType="TABLE_COLUMN" name="intb00006.cantidad_2" sqlTabName="intb00006" uid="{ed4c635e-94b8-4c6e-bedf-23ec775579f8}"/>
<RecordField fieldIdRef="5" name="descrip_mov" uid="{db6f3fa0-9339-4078-8c1f-c07b259095f4}"/> <RecordField colName="unidad_med" fieldIdRef="13" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{ead4e1e1-a2fe-45e1-b2c7-6561bd53f367}"/>
<RecordField fieldIdRef="6" name="nombre" uid="{9601d4ae-5d55-452b-9426-6235f628d523}"/> <RecordField colName="descrip_esp" fieldIdRef="12" fieldType="TABLE_COLUMN" name="intb00001.descrip_esp" sqlTabName="intb00001" uid="{9d609a5f-5f39-478f-826e-5bc411f55e52}"/>
<RecordField fieldIdRef="7" name="apellido" uid="{7ab2f8e2-4efd-4810-aac8-f702974f3d82}"/> <RecordField colName="existencia" fieldIdRef="14" name="existencia" sqlTabName="formonly" uid="{a1b2c3d4-4444-4001-8001-000000000001}"/>
<RecordField fieldIdRef="9" name="impresion" uid="{77ff2cb8-ae51-4e61-9880-5bedaf2864ef}"/>
</Record> </Record>
<Record name="s_movi1" uid="{f4a6ba20-de96-44b0-846f-190d18414d47}"> <Record name="record1" uid="{5cc1cbdd-fac8-4ffc-98e4-331d5c9fb810}">
<RecordField fieldIdRef="13" name="cod_n" uid="{db75acf0-1055-476c-8243-3de0be0ff959}"/> <RecordField colName="num_doc" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{3dcc2cab-2a20-4581-b11b-95c27ba55b87}"/>
<RecordField fieldIdRef="14" name="cod_grupo" uid="{5f8f596e-eac0-4b35-b7c4-b1a8a3c6ef0d}"/> <RecordField colName="fecha" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{effe3be7-6235-4ebb-88d9-4d99fe14bf42}"/>
<RecordField fieldIdRef="15" name="cod_tipo" uid="{1ccef9ef-ed49-42c7-a21d-0057636e5c93}"/> <RecordField colName="depto_a" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.depto_a" sqlTabName="intb00006" uid="{408aa475-0b97-4d2c-aa5e-b6695c0b4299}"/>
<RecordField fieldIdRef="16" name="cod_Sec" uid="{39fdf508-1f80-4033-8ef6-5cccac37de36}"/> <RecordField colName="nombre_d" fieldIdRef="3" name="nombre_d" sqlTabName="formonly" uid="{b2e366d3-59b8-4d1e-96ca-68a7eac26f2b}"/>
<RecordField fieldIdRef="17" name="cantidad_1" uid="{7d6c051e-7772-4f29-bc49-2db9b7f3317f}"/> <RecordField colName="bodega" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00006.bodega" sqlTabName="intb00006" uid="{9befab7b-9bfd-4fb5-ac59-646fca90afe9}"/>
<RecordField fieldIdRef="18" name="cantidad_2" uid="{228f3fb6-d439-4bdb-8304-2ea2a813db1c}"/> <RecordField colName="impresion" defaultValue="MATRICIAL" fieldIdRef="11" name="impresion" sqlTabName="formonly" uid="{97a456ba-6f98-44dd-962d-203916eabb50}"/>
<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> </Record>
<Form gridHeight="22" gridWidth="92" name="infmmt036" text="REQUISICION MATERIALES"> <Form gridHeight="18" gridWidth="100" name="infmmt036" text="REQUISICION MATERIALES">
<ToolBar name="toolbar1"> <ToolBar name="toolbar1">
<ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/> <ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/>
<ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documentos"/> <ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documentos"/>
<ToolBarSeparator name="toolbarseparator1"/> <ToolBarSeparator name="toolbarseparator1"/>
<ToolBarItem image="quit" name="salir" text="Salir"/> <ToolBarItem image="quit" name="salir" text="Salir"/>
</ToolBar> </ToolBar>
<Grid gridHeight="22" gridWidth="92" name="grid1" posX="0" posY="0"> <Grid gridHeight="18" gridWidth="100" name="grid1" posX="0" posY="0">
<Group gridHeight="7" gridWidth="83" name="group1" posX="1" posY="1"> <Group gridHeight="5" gridWidth="78" name="group1" posX="1" posY="1">
<Label gridHeight="1" gridWidth="9" name="label1" posX="1" posY="1" text="Documento"/> <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"/> <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"/> <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"/> <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"/> <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 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="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 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 :"/> <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"/> <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"/>
<RadioGroup fieldId="9" gridHeight="1" gridWidth="10" items="PDF, MATRICIAL" name="impresion" posX="27" posY="3" tabIndex="-1" title="radiogroup1" widget="RadioGroup"> <Label gridHeight="1" gridWidth="10" name="label5" posX="24" posY="3" text="Impresion"/>
<Item lstrtext="false" name="PDF" text="PDF"/> <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 lstrtext="false" name="MATRICIAL" text="MATRICIAL"/> <Item name="MATRICIAL" text="MATRICIAL"/>
<Item name="PDF" text="PDF"/>
</RadioGroup> </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>
<Group gridHeight="11" gridWidth="90" name="group2" posX="2" posY="9" text="Detalle"> <Group gridHeight="12" gridWidth="98" name="group2" posX="1" posY="6">
<Table gridHeight="8" gridWidth="82" name="table1" posX="7" posY="2" totalRows="5"> <Label gridHeight="1" gridWidth="15" name="label6" posX="19" posY="1" text="C A N T I D A D"/>
<Edit fieldId="13" gridHeight="1" gridWidth="8" name="cod_n" posX="0" posY="0" tabIndex="-1" title="Codigo" widget="Edit"/> <Label gridHeight="1" gridWidth="6" name="label7" posX="2" posY="2" text="Codigo"/>
<Edit fieldId="14" gridHeight="1" gridWidth="8" name="cod_grupo" posX="8" posY="0" tabIndex="-1" widget="Edit"/> <Label gridHeight="1" gridWidth="8" name="label8" posX="18" posY="2" text="Ordenada"/>
<Edit fieldId="15" gridHeight="1" gridWidth="8" name="cod_tipo" posX="16" posY="0" tabIndex="-1" widget="Edit"/> <Label gridHeight="1" gridWidth="9" name="label9" posX="31" posY="2" text="Entregada"/>
<Edit fieldId="16" gridHeight="1" gridWidth="8" name="cod_Sec" posX="24" posY="0" tabIndex="-1" widget="Edit"/> <Label gridHeight="1" gridWidth="6" name="label10" posX="42" posY="2" text="Unidad"/>
<Edit fieldId="17" gridHeight="1" gridWidth="8" name="cantidad_1" posX="32" posY="0" tabIndex="-1" title="Ordenada" widget="Edit"/> <Label gridHeight="1" gridWidth="21" name="label11" posX="53" posY="2" text="D e s c r i p c i o n"/>
<Edit fieldId="18" gridHeight="1" gridWidth="8" name="cantidad_2" posX="40" posY="0" tabIndex="-1" title="Entregada" widget="Edit"/> <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 fieldId="19" gridHeight="1" gridWidth="8" name="unidad_med" posX="48" posY="0" tabIndex="-1" title="Unidad Med" 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 fieldId="20" gridHeight="1" gridWidth="8" name="descrip_esp" posX="56" posY="0" scroll="true" tabIndex="-1" title="Descripcion" 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 fieldId="8" gridHeight="1" gridWidth="8" name="existencia" posX="64" posY="0" tabIndex="-1" title="Existencia" 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"/>
</Table> <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> </Group>
</Grid> </Grid>
</Form> </Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA1AGYAOQA4ADMAOQAxAGIALQBiAGUAYQAwAC0ANAAyADEAMQAtAGEAMAA4ADAALQA2ADUAZgA1ADgANQBkADcAZgAzADcANwB9QGqZmcGAABhAIAAAGAAADz9gYk3S8an8AQAAAEwAewBmADQAYQA2AGIAYQAyADAALQBkAGUAOQA2AC0ANAA0AGIAMAAtADgANAA2AGYALQAxADkAMABkADEAOAA0ADEANABkADQANwB9QICszOXQABBANMzM7AAAEz9wYk3S8an8AQ==]]>
</DiagramLayout>
</ManagedForm> </ManagedForm>
PROYECTO/indir/infmmt036.per
+3 -2
View File
@@ -22,7 +22,7 @@ LAYOUT (TEXT="REQUISICION MATERIALES")
<g > <g >
Documento [f000 ] Fecha [f001 ] Documento [f000 ] Fecha [f001 ]
Codigo de Dpto [f4 ] [a1 ] Codigo de Dpto [f4 ] [a1 ]
Bodega : [a7] Bodega : [a7] Impresion [imp]
<g > <g >
C A N T I D A D C A N T I D A D
@@ -49,7 +49,7 @@ f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
f4 = intb00006.depto_a,autonext, f4 = intb00006.depto_a,autonext,
comments = "Digite Codigo Departamento"; comments = "Digite Codigo Departamento";
a1 = adtb00001.nom_dpto,noentry; a1 = formonly.nombre_d,noentry;
a = intb00006.cod_n,autonext, a = intb00006.cod_n,autonext,
comments = "Digite Codigo Articulo"; comments = "Digite Codigo Articulo";
b = intb00006.cod_grupo,autonext, b = intb00006.cod_grupo,autonext,
@@ -64,6 +64,7 @@ f03 = intb00006.cantidad_2,autonext,
comments = "Digite La Cantidad Entregada"; comments = "Digite La Cantidad Entregada";
a7 = intb00006.bodega,autonext, 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; k = intb00001.descrip_esp,noentry,autonext;
p = intb00001.unidad_med,noentry; 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="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="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="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>
<Record name="record1" uid="{43dfdfd8-2c00-47d0-888c-3c710875f92b}"> <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}"/> <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="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="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="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="departamento" fieldIdRef="2" name="departamento" 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="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="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="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}"/> <RecordField colName="apellido" fieldIdRef="6" name="apellido" sqlTabName="formonly" uid="{7c4796f9-5c66-4c91-a3d5-c3a44527d85e}"/>
</Record> </Record>
<Form gridHeight="16" gridWidth="87" name="infmmt046" text="TRANSACCIONES INVENTARIOS"> <Form gridHeight="19" gridWidth="87" name="infmmt046" text="TRANSACCIONES INVENTARIOS">
<ToolBar name="toolbar1"> <ToolBar name="toolbar1">
<ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/> <ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/>
<ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documento"/> <ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documento"/>
<ToolBarSeparator name="toolbarseparator1"/> <ToolBarSeparator name="toolbarseparator1"/>
<ToolBarItem image="quit" name="salir" text="Salir"/> <ToolBarItem image="quit" name="salir" text="Salir"/>
</ToolBar> </ToolBar>
<Grid gridHeight="16" gridWidth="87" name="grid1" posX="0" posY="0"> <Grid gridHeight="19" gridWidth="87" name="grid1" posX="0" posY="0">
<Group gridHeight="7" gridWidth="83" name="group1" posX="1" posY="1"> <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"/> <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"/> <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"/> <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"/> <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"/> <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"/> <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="34" name="descrip_mov" noEntry="true" posX="25" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/> <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"/> <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"/> <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 :"/> <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"/> <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="45" posY="3" text="Conduce"/> <Label gridHeight="1" gridWidth="7" name="label6" posX="2" posY="4" text="Conduce"/>
<Label gridHeight="1" gridWidth="12" name="label7" posX="2" posY="4" text="DEPARTAMENTO"/> <Edit colName="conduce" fieldId="19" gridHeight="1" gridWidth="9" name="conduce" posX="20" posY="4" sqlTabName="formonly" tabIndex="7" widget="Edit"/>
<ComboBox colName="depto_a" fieldId="2" gridHeight="1" gridWidth="4" name="depto_a" posX="20" posY="4" sqlTabName="formonly" tabIndex="7" widget="ComboBox"/> <Label gridHeight="1" gridWidth="12" name="label7" posX="2" posY="5" text="DEPARTAMENTO"/>
<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"/> <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="5" text="Operador Grua"/> <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="5" sqlTabName="formonly" tabIndex="9" widget="Edit"/> <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="5" sqlTabName="formonly" tabIndex="10" 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="5" sqlTabName="formonly" tabIndex="11" 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> </Group>
<Table gridHeight="7" gridWidth="86" name="table1" posX="1" posY="8" totalRows="6" unitWidth="characters" width="86"> <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="12" title="CODIGO" widget="Edit"/> <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="13" 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="14" 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="15" 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="16" title="CANTIDAD" 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="17" 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="18" title="DESCRIPCION" 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="19" title="EXISTENCIA" 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> </Table>
</Grid> </Grid>
</Form> </Form>
PROYECTO/indir/infmmt046.per
+10 -2
View File
@@ -13,9 +13,11 @@ GRID
<G > <G >
Documento Numero [f000 ] Orden Compra [ord ] Documento Numero [f000 ] Orden Compra [ord ]
Codigo Movimiento[m ] [m1 ] Codigo Movimiento[m ] [m1 ]
Fecha [f001 ] Bodega :[p1 ]Conduce Fecha [f001 ] Bodega :[p1 ]Conduce [f002 ]
DEPARTAMENTO [f1 ][d1 ] DEPARTAMENTO [f1 ][d1 ]
Operador Grua [op ][nomop ][ap ] Operador Grua [op ][nomop ][ap ]
Transportista [tr1 ][tr2 ][nomtr ]
Ficha Vehiculo [fveh ] Placa [pplaca ]
<t > <t >
[a ][b ][c ][d ][f02 ] [p ][k ] [ex1 ] [a ][b ][c ][d ][f02 ] [p ][k ] [ex1 ]
@@ -34,11 +36,17 @@ cotb00001
ATTRIBUTES ATTRIBUTES
ex1 = formonly.existencia, TITLE="EXISTENCIA"; ex1 = formonly.existencia, TITLE="EXISTENCIA";
ord = formonly.orden_compra; ord = formonly.orden_compra;
f1 = formonly.depto_a; COMBOBOX f1 = formonly.departamento;
d1 = formonly.nombre_d,noentry; d1 = formonly.nombre_d,noentry;
op = formonly.pnum_emp; op = formonly.pnum_emp;
nomop = formonly.nombre,noentry; nomop = formonly.nombre,noentry;
ap = formonly.apellido,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; f000 = intb00006.num_doc,autonext,noentry;
f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext, f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
comments = "Digite Fecha Documento"; 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 screen size 24 by 80
{ {
Ordenamiento [k] Ordenamiento [k ]
Codigo Movimiento [a ] Codigo Movimiento [a ]
} }
end 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="9" name="bodega" uid="{29e8d1d3-d3fb-4bb5-9a5e-5870d09c4012}"/>
<RecordField fieldIdRef="3" name="tipoReporte" uid="{af73cc7b-ed97-4526-9306-7ceb3e14bb9d}"/> <RecordField fieldIdRef="3" name="tipoReporte" uid="{af73cc7b-ed97-4526-9306-7ceb3e14bb9d}"/>
</Record> </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"> <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"/> <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"/> <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_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"/> <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"/> <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="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="2" name="label10" posX="21" posY="8" text="50"/>
<Label gridHeight="1" gridWidth="3" name="label11" posX="35" posY="8" text="100"/> <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" ?> <?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> <AGSettings>
<DynamicProperties version="2"/> <DynamicProperties version="4"/>
</AGSettings> </AGSettings>
<Record name="record1" uid="{4fb0f919-f3a6-4b1e-aeea-b43f83982b8d}"> <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="{6d6beaab-e13f-455b-a61c-41a07f5bb273}"/> <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="{cf4f43bc-bc24-4688-944e-dca1a58acf72}"/> <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="{7c5fe677-d27f-45db-a069-79ea3f129654}"/> <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="{1e9e7956-1f9c-4dec-9275-727f4c491b23}"/> <RecordField colName="fecha" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{0f076029-3b03-4f4f-bde6-3616828a265a}"/>
<RecordField colName="cod_sp" fieldIdRef="3" name="cod_sp" sqlTabName="formonly" uid="{f394897d-ade5-4aca-8038-701585ee1147}"/> <RecordField colName="bodega" fieldIdRef="6" name="bodega" sqlTabName="formonly" uid="{3aabc13b-ab73-4e6c-acb9-389250bda868}"/>
<RecordField colName="cod_sp_sec" fieldIdRef="4" name="cod_sp_sec" sqlTabName="formonly" uid="{20475402-fe48-4d1b-8183-fa75e7cfe42c}"/> <RecordField colName="cod_sp" fieldIdRef="3" name="cod_sp" sqlTabName="formonly" uid="{fb3bd8a4-297a-4ff5-93cc-dafeb2f762c9}"/>
<RecordField fieldIdRef="6" name="bodega" uid="{b7e97b0b-c303-4171-bd41-37f7be2a872f}"/> <RecordField colName="cod_sp_sec" fieldIdRef="4" name="cod_sp_sec" sqlTabName="formonly" uid="{3b346e58-ffc8-4572-bc0f-49c1312d3120}"/>
</Record> </Record>
<Form gridHeight="9" gridWidth="56" name="infmwd005" text="ANULAR DOCUMENTOS"> <Form gridHeight="5" gridWidth="56" name="infmwd005" text="ANULAR DOCUMENTOS">
<Grid gridHeight="9" gridWidth="56" name="grid1" posX="0" posY="0"> <Grid gridHeight="5" gridWidth="56" name="grid1" posX="0" posY="0">
<Label gridHeight="1" gridWidth="10" name="label4" posX="2" posY="1" text="Bodega"/> <Label gridHeight="1" gridWidth="18" name="label1" posX="2" posY="0" text="Codigo Movimiento"/>
<ComboBox fieldId="6" gridHeight="1" gridWidth="34" items="" name="bodega" posX="21" posY="1" tabIndex="-1" title="combobox1" widget="ComboBox"/> <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"/>
<Label gridHeight="1" gridWidth="18" name="label1" posX="2" posY="2" text="Codigo Movimiento"/> <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"/>
<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"/> <Label gridHeight="1" gridWidth="16" name="label2" posX="2" posY="1" text="Numero Documento"/>
<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"/> <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="16" name="label2" posX="2" posY="3" text="Numero Documento"/> <Label gridHeight="1" gridWidth="5" name="label3" posX="2" posY="2" text="Fecha"/>
<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"/> <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="5" name="label3" posX="2" posY="4" text="Fecha"/> <Label gridHeight="1" gridWidth="6" name="label4" posX="2" posY="3" text="Bodega"/>
<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"/> <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="5" sqlTabName="formonly" tabIndex="5" widget="Edit"/> <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="5" 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> </Grid>
</Form> </Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA0AGYAYgAwAGYAOQAxADkALQBmADMAYQA2AC0ANABiADEAZQAtAGEAZQBlAGEALQBiADQAMwBmADgAMwA5ADgAMgBiADgAZAB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm> </ManagedForm>
PROYECTO/indir/infmwd005.per
+2
View File
@@ -16,6 +16,7 @@ LAYOUT (TEXT="ANULAR DOCUMENTOS")
Codigo Movimiento [f0][a ] Codigo Movimiento [f0][a ]
Numero Documento [f02 ] Numero Documento [f02 ]
Fecha [f5 ] Fecha [f5 ]
Bodega [bod]
[f1][f2 ] [f1][f2 ]
} }
end end
@@ -28,6 +29,7 @@ f02 = intb00006.num_doc;
f1 = formonly.cod_sp,noentry; f1 = formonly.cod_sp,noentry;
f2 = formonly.cod_sp_sec,noentry; f2 = formonly.cod_sp_sec,noentry;
f5 = intb00006.fecha,noentry,format = "dd/mm/yy"; f5 = intb00006.fecha,noentry,format = "dd/mm/yy";
COMBOBOX bod = formonly.bodega;
instructions instructions
delimiters " " delimiters " "
end end
PROYECTO/indir/inprcs006.4gl
+3 -6
View File
@@ -101,15 +101,13 @@ FUNCTION inprcs006()
END INPUT END INPUT
CONSTRUCT criterio ON p.bodega FROM bodega ON ACTION buscar ATTRIBUTE(TEXT="Ejecuta Busqueda",IMAGE="find")
BEFORE CONSTRUCT
CALL bodegas('1')
ON ACTION buscar ATTRIBUTE(TEXT="Ejecuta Busqueda",IMAGE="find")
IF datos_cons.fech_fi IS NULL THEN IF datos_cons.fech_fi IS NULL THEN
CALL msg(16) CALL msg(16)
NEXT FIELD fecha_in CONTINUE DIALOG
END IF END IF
LET criterio = "p.bodega = ", datos_cons.bodega
LET query1 = LET query1 =
"SELECT ISNULL(SUM(p.cantidad_2),0) FROM intb00006 p "SELECT ISNULL(SUM(p.cantidad_2),0) FROM intb00006 p
WHERE ", criterio clipped," and p.cod_n = ? and p.cod_grupo = ? and WHERE ", criterio clipped," and p.cod_n = ? and p.cod_grupo = ? and
@@ -207,7 +205,6 @@ FUNCTION inprcs006()
# FOR idx = 1 TO csmov2.getLength() # 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 # 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 FOR
END CONSTRUCT
DISPLAY ARRAY csmov2 TO s_csmov.* DISPLAY ARRAY csmov2 TO s_csmov.*
END DISPLAY END DISPLAY
PROYECTO/indir/inprfu000.4gl
+151 -106
View File
@@ -3,7 +3,8 @@ GLOBALS
DEFINE nombre,apellido CHAR(30), DEFINE nombre,apellido CHAR(30),
xinserta CHAR(1), xinserta CHAR(1),
kprograma varchar(20), kprograma varchar(20),
xdescrip_mov VARCHAR(50) xdescrip_mov VARCHAR(50),
xcod_mov_tmp LIKE intb00005.cod_mov
FUNCTION reimprime(xprograma) FUNCTION reimprime(xprograma)
DEFINE xprograma CHAR(20), DEFINE xprograma CHAR(20),
@@ -11,7 +12,7 @@ FUNCTION reimprime(xprograma)
IF xprograma = 'inprmt046' THEN IF xprograma = 'inprmt046' THEN
CONSTRUCT criterio ON a.cod_mov,a.num_doc,a.fecha,a.depto_a,a.bodega FROM 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 BEFORE CONSTRUCT
CALL cincodmov() CALL cincodmov()
CALL busca_departamento() CALL busca_departamento()
@@ -41,42 +42,73 @@ FUNCTION reimprime(xprograma)
LET xinserta = 'N' LET xinserta = 'N'
END IF END IF
LET kprograma = xprograma
PREPARE breimprime FROM selec PREPARE breimprime FROM selec
DECLARE bdocumento SCROLL CURSOR FOR breimprime DECLARE bdocumento SCROLL CURSOR FOR breimprime
OPEN bdocumento OPEN bdocumento
FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov, IF kprograma = 'inprmt046' THEN
otros_mov.num_doc,otros_mov.fecha, FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
datos1.depto_a,pnum_emp,otros_mov.bodega 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 IF STATUS = NOTFOUND THEN
CALL msg(3) CALL msg(3)
RETURN RETURN
END IF END IF
LET kprograma = xprograma
CALL busca_info() CALL busca_info()
MENU "NAVEGACION:" MENU "NAVEGACION:"
COMMAND "Siguiente" "Busca el siguiente documento" COMMAND "Siguiente" "Busca el siguiente documento"
FETCH NEXT bdocumento INTO otros_mov.cod_mov,xdescrip_mov, IF kprograma = 'inprmt046' THEN
otros_mov.num_doc,otros_mov.fecha, FETCH NEXT bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
datos1.depto_a,pnum_emp,otros_mov.bodega 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() CALL busca_info()
COMMAND "Primero" "Busca el siguiente documento" COMMAND "Primero" "Busca el siguiente documento"
FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov, IF kprograma = 'inprmt046' THEN
otros_mov.num_doc,otros_mov.fecha, FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
datos1.depto_a,pnum_emp,otros_mov.bodega 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() CALL busca_info()
COMMAND "Anterior" "Busca el Registrosiguiente documento" COMMAND "Anterior" "Busca el Registrosiguiente documento"
FETCH PREVIOUS bdocumento INTO otros_mov.cod_mov,xdescrip_mov, IF kprograma = 'inprmt046' THEN
otros_mov.num_doc,otros_mov.fecha, FETCH PREVIOUS bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
datos1.depto_a,pnum_emp,otros_mov.bodega 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() CALL busca_info()
COMMAND "Ultimo" "Busca el Ultimo Documento" COMMAND "Ultimo" "Busca el Ultimo Documento"
FETCH LAST bdocumento INTO otros_mov.cod_mov,xdescrip_mov, IF kprograma = 'inprmt046' THEN
otros_mov.num_doc,otros_mov.fecha, FETCH LAST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
datos1.depto_a,pnum_emp,otros_mov.bodega 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() CALL busca_info()
COMMAND KEY("T") "reTornar" "Salir de busqueda" COMMAND KEY("T") "reTornar" "Salir de busqueda"
EXIT MENU EXIT MENU
@@ -84,105 +116,118 @@ FUNCTION reimprime(xprograma)
END FUNCTION END FUNCTION
FUNCTION busca_info() FUNCTION busca_info()
SELECT UNIQUE nom_dpto INTO nombre_d FROM adtb00001 a IF kprograma = 'inprmt046' THEN
WHERE a.departamento = datos1.depto_a and SELECT UNIQUE nom_dpto INTO nombre_d FROM adtb00001 a
a.status_t is NULL WHERE a.departamento = datos1.depto_a and
a.status_t is NULL
LET nombre =NULL LET nombre =NULL
LET apellido = NULL LET apellido = NULL
SELECT a.nom1_emp,a.apell1_emp INTO nombre,apellido FROM adtb00003 a SELECT a.nom1_emp,a.apell1_emp INTO nombre,apellido FROM adtb00003 a
WHERE a.num_Emp = pnum_emp WHERE a.num_Emp = pnum_emp
DISPLAY BY NAME otros_mov.cod_mov,otros_mov.num_doc, DISPLAY BY NAME otros_mov.cod_mov,otros_mov.num_doc,
otros_mov.fecha,nombre,apellido otros_mov.fecha,nombre,apellido
DISPLAY datos1.depto_a TO departamento DISPLAY datos1.depto_a TO departamento
DECLARE busca CURSOR FOR 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, 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 a.maquina, a.clasf_bloque
FROM intb00006 a,intb00001 b FROM intb00006 a,intb00001 b
WHERE a.num_Doc = otros_mov.num_doc AND WHERE a.num_Doc = otros_mov.num_doc AND
a.cod_mov = otros_mov.cod_mov AND a.cod_mov = otros_mov.cod_mov AND
a.cod_n = b.cod_n AND a.cod_n = b.cod_n AND
a.cod_grupo = b.cod_grupo AND a.cod_grupo = b.cod_grupo AND
a.cod_tipo = b.cod_tipo AND a.cod_tipo = b.cod_tipo AND
a.cod_Sec = b.cod_Sec AND a.cod_Sec = b.cod_Sec AND
a.bodega = otros_mov.bodega a.bodega = otros_mov.bodega
LET idx = 1 LET idx = 1
IF kprograma = 'inprmt046' THEN FOREACH busca INTO movi2[idx].cod_n,movi2[idx].cod_grupo,
FOREACH busca INTO movi2[idx].cod_n,movi2[idx].cod_grupo, movi2[idx].cod_tipo,movi2[idx].cod_sec,
movi2[idx].cod_tipo,movi2[idx].cod_sec, movi2[idx].cantidad_2, movi2[idx].unidad_med,
movi2[idx].cantidad_2, movi2[idx].unidad_med, movi2[idx].descrip_esp, movi2[idx].existencia,
movi2[idx].descrip_esp, movi2[idx].existencia, movi2[idx].maquina, movi2[idx].clasf_bloque
movi2[idx].maquina, movi2[idx].clasf_bloque LET idx = idx + 1
LET idx = idx + 1 END FOREACH
END FOREACH
CALL set_count(idx-1) CALL set_count(idx-1)
DISPLAY ARRAY movi2 TO s_movi1.* DISPLAY ARRAY movi2 TO s_movi1.*
BEFORE DISPLAY BEFORE DISPLAY
CALL maquinaria() CALL maquinaria()
CALL clasf_bloque() CALL clasf_bloque()
ON ACTION rimprimir ON ACTION rimprimir
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of, CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off, doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia doce,normal,archivo,copia
# CALL configureoutput('PDF') RETURNING handler START REPORT formu46 TO archivo
# START REPORT formu46 TO XML HANDLER handler
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
FOR idx = 1 TO movi2.getLength() RUN imprime
OUTPUT TO REPORT formu46(otros_mov.num_doc,otros_mov.fecha, END DISPLAY
otros_mov.cod_mov,otros_mov.bodega,xdescrip_mov, ELSE
nombre_d, SELECT UNIQUE nom_dpto INTO datos1.nom_dpto FROM adtb00001 a
movi2[idx].*) WHERE a.departamento = datos1.depto_a and
END FOR a.status_t is NULL
FINISH REPORT formu46
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
RUN imprime
END DISPLAY END DISPLAY
{ ELSE END IF
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 FUNCTION END FUNCTION
REPORT formu46(x,xnombre_d,z) REPORT formu46(x,xnombre_d,z)
PROYECTO/indir/inprmt046.4gl
-21
View File
@@ -663,24 +663,3 @@ FUNCTION inprad046()
END INPUT END INPUT
END FUNCTION 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
+23 -4
View File
@@ -46,6 +46,10 @@ FUNCTION inprrp005()
us_anula CHAR(9) us_anula CHAR(9)
END RECORD END RECORD
DEFINE nombre_suplidor CHAR(30) DEFINE nombre_suplidor CHAR(30)
DEFINE p_fecha RECORD
fecha DATE
END RECORD
DEFINE filtro_fecha CHAR(60)
OPTIONS OPTIONS
@@ -63,9 +67,7 @@ FUNCTION inprrp005()
LET tipo_papel = 1 LET tipo_papel = 1
CALL msgrp000(tipo_papel) CALL msgrp000(tipo_papel)
INPUT BY NAME p_fecha.fecha
CONSTRUCT criterio ON a.fecha,a.cod_mov,a.num_doc
FROM fecha,cod_mov,num_doc
IF int_flag THEN IF int_flag THEN
LET numero_msg = 2 LET numero_msg = 2
@@ -73,6 +75,22 @@ FUNCTION inprrp005()
LET int_flag = FALSE LET int_flag = FALSE
RETURN RETURN
END IF 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, CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off, doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia doce,normal,archivo,copia
@@ -82,7 +100,7 @@ FUNCTION inprrp005()
let selec = let selec =
"SELECT a.cod_n, a.cod_grupo, a.cod_tipo, a.cod_sec,b.descrip_esp, ", "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, ", " 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.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 ", " a.status_t,CONVERT(CHAR(16),a.fech_mod),a.us_mod ",
@@ -91,6 +109,7 @@ FUNCTION inprrp005()
" a.cod_grupo = b.cod_grupo AND a.cod_tipo = b.cod_tipo AND " , " 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 ", " 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 ", " b.status_t is NULL AND c.status_t is NULL ",
filtro_fecha CLIPPED,
"ORDER BY c.cod_mov,a.num_doc " "ORDER BY c.cod_mov,a.num_doc "
PREPARE busca FROM selec PREPARE busca FROM selec
PROYECTO/indir/inprrp008.4gl
+11 -2
View File
@@ -10,6 +10,11 @@ GLOBALS "inprgb000.4gl"
MAIN MAIN
DEFER INTERRUPT 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 SELECT * INTO p_companias.* FROM companias
CALL inprrp008() CALL inprrp008()
END MAIN END MAIN
@@ -92,7 +97,9 @@ WHENEVER ERROR CONTINUE
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>" DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE) AT 19,14 ATTRIBUTE (REVERSE)
START REPORT movimiento TO "C:\\archivo" LET archivo = FGL_GETENV("FGLSPOOL"),"\\archivo_tipomov.txt"
START REPORT movimiento TO archivo
FOREACH accion INTO tipo.* FOREACH accion INTO tipo.*
IF status = NOTFOUND THEN IF status = NOTFOUND THEN
EXIT FOREACH EXIT FOREACH
@@ -104,7 +111,9 @@ WHENEVER ERROR CONTINUE
CLEAR SCREEN CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION LET dcmd = "type \"",archivo CLIPPED,"\" > %USPRINT%"
RUN dcmd
END FUNCTION
REPORT movimiento(x) REPORT movimiento(x)
DEFINE x RECORD DEFINE x RECORD
PROYECTO/indir/inprrp011.4gl
+7 -7
View File
@@ -159,13 +159,10 @@ LET selec =
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>" DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE) AT 19,14 ATTRIBUTE (REVERSE)
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of, LET opt1 = "yes"
doble_on,doble_off,comp_on,comp_off, CALL seleccionarsalida() RETURNING r_output
doce,normal,archivo,copia 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 PREPARE busca_p FROM selec
DECLARE periodo SCROLL CURSOR FOR busca_p DECLARE periodo SCROLL CURSOR FOR busca_p
@@ -185,6 +182,9 @@ LET selec =
FINISH REPORT opera FINISH REPORT opera
CLEAR SCREEN CLEAR SCREEN
IF opt1 <> "yes" THEN
RUN imprime
END IF
END FUNCTION END FUNCTION
REPORT opera(x) REPORT opera(x)
PROYECTO/indir/inprrp028.4gl
+29 -8
View File
@@ -179,14 +179,19 @@ LET select_ant =
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>" DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE) AT 19,14 ATTRIBUTE (REVERSE)
#CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of, LET opt1 = fgl_winquestion("Atencion","Desea Reporte Grafico?",
# doble_on,doble_off,comp_on,comp_off, "no","yes|no","question",0)
# doce,normal,archivo,copia
CALL seleccionarsalida() RETURNING r_output IF opt1 = "yes" THEN
CALL configureoutput(r_output) RETURNING HANDLER CALL seleccionarsalida() RETURNING r_output
CALL configureOutputRp028(r_output) RETURNING HANDLER
START REPORT prt_exist TO XML HANDLER 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 LET idx_ant = 1
@@ -278,7 +283,9 @@ END WHILE
FINISH REPORT prt_exist FINISH REPORT prt_exist
CLEAR SCREEN CLEAR SCREEN
RUN imprime IF opt1 <> "yes" THEN
RUN imprime
END IF
END FUNCTION END FUNCTION
REPORT prt_exist(x) REPORT prt_exist(x)
@@ -431,3 +438,17 @@ END FUNCTION
PRINT COLUMN 4, ASCII 27, ASCII 80 PRINT COLUMN 4, ASCII 27, ASCII 80
END REPORT 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
+15 -2
View File
@@ -4,10 +4,10 @@ FUNCTION buscadoc(numid,codmov)
DEFINE numid,codmov INT 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, 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, 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.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 FROM iptb00057 a, iptb00061 b
WHERE a.numero_doc = numid AND a.cod_mov = codmov AND WHERE a.numero_doc = numid AND a.cod_mov = codmov AND
a.idestado = b.idestado a.idestado = b.idestado
@@ -16,6 +16,19 @@ FUNCTION buscadoc(numid,codmov)
IF p_iptb57.bodega_destino IS NOT NULL THEN 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 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 DECLARE buscardetalle CURSOR FOR
SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,a.unidad_med, 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, 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
+10 -9
View File
@@ -77,7 +77,7 @@ FUNCTION ipautorizadas(xusuario)
END IF END IF
ON ACTION imprimir ATTRIBUTE(TEXT="Imprimir", IMAGE="printer") ON ACTION imprimir ATTRIBUTE(TEXT="Imprimir", IMAGE="printer")
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN 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.rnumeroDoc = arr_busqueda1[arr_curr()].numeroid
LET data.rcodMov = arr_busqueda1[arr_curr()].cod_mov1 LET data.rcodMov = arr_busqueda1[arr_curr()].cod_mov1
LET data.rtipo_cliente = arr_busqueda1[arr_curr()].rtipo_cliente 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 data.bodega_destino = arr_busqueda1[arr_curr()].bodega_destino
LET nombreUsuario = arr_busqueda1[arr_curr()].usuario LET nombreUsuario = arr_busqueda1[arr_curr()].usuario
CALL impdocumento() CALL impdocumentoAutoriza()
END IF END IF
ON ACTION procesar ATTRIBUTE(TEXT="Procesa",IMAGE="") ON ACTION procesar ATTRIBUTE(TEXT="Procesa",IMAGE="")
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
@@ -172,7 +172,7 @@ FUNCTION buscadataReq(pusuario)
END FUNCTION END FUNCTION
FUNCTION buscadoc(numid,codmov) FUNCTION buscadocAutoriza(numid,codmov)
DEFINE numid,codmov INT DEFINE numid,codmov INT
LET vendedor = null LET vendedor = null
@@ -235,7 +235,7 @@ FUNCTION buscadoc(numid,codmov)
LET idx = idx + 1 LET idx = idx + 1
END FOREACH END FOREACH
END FUNCTION END FUNCTION
FUNCTION impdocumento() FUNCTION impdocumentoAutoriza()
DEFINE idx_l INT, DEFINE idx_l INT,
xcodigo VARCHAR(50) xcodigo VARCHAR(50)
LET r_filename = "ipprmt020_1.4rp" LET r_filename = "ipprmt020_1.4rp"
@@ -251,7 +251,7 @@ FUNCTION impdocumento()
ELSE ELSE
RETURN RETURN
END IF END IF
START REPORT requiere TO XML HANDLER HANDLER START REPORT requiereAutoriza TO XML HANDLER HANDLER
FOR idx = 1 TO arr_iptb58.getLength() FOR idx = 1 TO arr_iptb58.getLength()
@@ -261,15 +261,15 @@ FUNCTION impdocumento()
arr_iptb58[idx].cod_tipo USING '&&&&&&','-', arr_iptb58[idx].cod_tipo USING '&&&&&&','-',
arr_iptb58[idx].cod_sec 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 IF
END FOR END FOR
FINISH REPORT requiere FINISH REPORT requiereAutoriza
END FUNCTION END FUNCTION
REPORT requiere(x,detalle,xdespiece,codigo) REPORT requiereAutoriza(x,detalle,xdespiece,codigo)
DEFINE hora STRING, DEFINE hora STRING,
detalle RECORD detalle RECORD
area INT, area INT,
@@ -308,7 +308,8 @@ REPORT requiere(x,detalle,xdespiece,codigo)
estado VARCHAR(50), estado VARCHAR(50),
ruta_documento , ruta_documento ,
url_file , url_file ,
idestado VARCHAR(200) idestado VARCHAR(200),
us_crea VARCHAR(50)
END RECORD, END RECORD,
etiqueta VARCHAR(100), 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

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