Sistema de Gestión de Negocios "Hexa"
Base de datos de conocimiento.
| Doc. Ref. 9791 Título: Opciones de gestión de existencias de Hexa V.8x en la V.7.x Autor: Hexa Última actualización: 03/08/2015 |
documentos\Cliente-3223-HEXA-Opc.Ges.exist de V.8x a V.7x-Doc.9791.htm
Opciones de gestión de existencias de Hexa V.8x en la V.7.x
La versión 8 de hexa renueva y mejora la mayoría de formularios y botones de acción que ejecutan procesos rde gestión de existencias. En este documento se presenta unos scripts que permiten exportar estas nuevas opciones de la versión 8 a la 7 para poder aprovecharlas.
El primer script se debe ejecutar en un Hexa versión 8 para exportar a ficheros DAT toda la información de formularios, sus correspondientes campos y acciones y las opciomes de menú.
Function Main (PS0, PS1, PS2)
'Menús
Resultado = Intercambios.ExpTbl ("Nombre='Menu'", "Nombre", "Referencia='Logistica' Datos=Si Sobreescribir=Si Criterio='(Codigo>=''0699'' And Codigo <= ''06E1'') Or Codigo=''01B0'''")
'Estructura artículos
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriArticulos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpArticulos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpArticulosExistencias'", "Nombre", "")
'Criterios de documentos
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriPedidosProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriPedidos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriAlbaranesProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriAlbaranes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriOrdenesFabricacion'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriAlbaranesInternos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriFacturasProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriFacturas'", "Nombre", "")
'Exploración de documentos
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpPedidosProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpPedidos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpAlbaranesProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpAlbaranes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpOrdenesFabricacion'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpAlbaranesInternos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpFacturasProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpFacturas'", "Nombre", "")
' Criterios de movimientos
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriAlbaranesInternos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriMovimientosPrevistos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriMovimientos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriArticulosLotes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriArticulosUnidades'", "Nombre", "")
'Exploración de movimientos
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpMovimientosPrevistos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpMovimientos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpArticulosLotes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpArticulosUnidades'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpMovimientosLotes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpMovimientosUnidades'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpMovimientosPrevistosLotes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpMovimientosPrevistosUnidades'", "Nombre", "")
Main = Resultado
End Function
Este segundo script se debe ejecutar en un Hexa V.7x que no disponga de estos formularios. Los archivos DAT generados en el script anterior deben estar disponibles en la carpeta estandar "dat" de esta instalación.
Function Main (PS0, PS1, PS2)
Resultado = Intercambios.ImpTbl ("Nombre='Menu'", "Nombre", "Referencia='Logistica' Sobreescribir=No Datos=Si")
'Estructura artículos
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriArticulos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpArticulos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpArticulosExistencias'", "Nombre", "")
'Criterios de documentos
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriPedidosProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriPedidos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriAlbaranesProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriAlbaranes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriOrdenesFabricacion'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriAlbaranesInternos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriFacturasProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriFacturas'", "Nombre", "")
'Exploración de documentos
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpPedidosProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpPedidos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpAlbaranesProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpAlbaranes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpOrdenesFabricacion'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpAlbaranesInternos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpFacturasProveedor'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpFacturas'", "Nombre", "")
' Criterios de movimientos
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriAlbaranesInternos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriMovimientosPrevistos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriMovimientos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriArticulosLotes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriArticulosUnidades'", "Nombre", "")
'Exploración de movimientos
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpMovimientosPrevistos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpMovimientos'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpArticulosLotes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpArticulosUnidades'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpMovimientosLotes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpMovimientosUnidades'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpMovimientosPrevistosLotes'", "Nombre", "")
Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpMovimientosPrevistosUnidades'", "Nombre", "")
Main = Resultado
End Function