Sistema de Gestión de Negocios "Hexa"

Base de datos de conocimiento.

Doc. Ref. 9792
Título: Opciones de gestión de remesas de cobros de Hexa V.8x en la V.7.x
Autor: Hexa
Última actualización: 05/08/2015

documentos\Cliente-3223-HEXA-Opc.Ges.remesas de V.8x a V.7x-Doc.9792.htm

Opciones de gestión de remesas de cobros 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 relacionados con los cobros de remesas de recibos. 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)
    Resultado = Intercambios.ExpTbl ("Nombre='Menu'", "Nombre", "Referencia='Facturacion' Datos=Si Sobreescribir=Si Criterio='(Codigo>=''08A0'' And Codigo <= ''08FF'')'")

    'Facturas
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriFacturas'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpFacturas'", "Nombre", "")

    'Recibos
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriRecibos'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpRecibos'", "Nombre", "")         

    'Remesas y adeudos
    Resultado = Intercambios.ExpTbl ("Nombre='Menu'", "Nombre", "Referencia='Remesas' Datos=Si Sobreescribir=Si Criterio='Codigo=''08C2'''" )
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriRemesas'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpRemesas'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiRemesa'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpAdeudosCSB19'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiAdeudoCSB19'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpAdeudosCSB32'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiAdeudoCSB32'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpAdeudosCSB58'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiAdeudoCSB58'", "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='Facturacion' Sobreescribir=No Datos=Si")

    'Facturas
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriFacturas'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpFacturas'", "Nombre", "")

    'Recibos
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriRecibos'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpRecibos'", "Nombre", "")
    
    Resultado = Intercambios.ImpTbl ("Nombre='Menu'", "Nombre", "Referencia='Remesas' Sobreescribir=No Datos=Si")

    'Remesas y adeudos
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriRemesas'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpRemesas'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiRemesa'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpAdeudosCSB19'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiAdeudoCSB19'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpAdeudosCSB32'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiAdeudoCSB32'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpAdeudosCSB58'", "Nombre", "")
    Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiAdeudoCSB58'", "Nombre", "")
    
    Main = Resultado
End Function

Volver a la búsqueda anterior