!GLOBAL DATA
QxParametros          QUEUE,PRE(QxPar),TYPE
QIdParametro           CSTRING(21),NAME('PorId')
QDescripcion           CSTRING(81),NAME('PorDescripcion')
QTipoDato              STRING(10)
QValor_String          STRING(40)
QValor_Integer         LONG
QValor_Date            DATE
QValor_Time            TIME
QValor_Decimal         DECIMAL(15,4)
QValor_Memo            STRING(5000)
                    END

! ----------------------------------------------------------------------
! Clase : XParametros      CLASS()
! ----------------------------------------------------------------------
xParametrosClass      CLASS(),TYPE
Parametros   &QxParametros
Interactivo  BYTE
SetDatos     SHORT,PRIVATE !GUARDA EL SET DE DATOS A UTILIZAR POR LA CLASE
Init         PROCEDURE(SHORT SetDatos=0,BYTE Interactivo=0),BYTE !SI EL SetDatos es omitido se trabajo con el set cero

Fetch        PROCEDURE(String IdParametro),ANY!RETORNA EL VALOR DE ESTE PARAMETRO

Update       PROCEDURE(String IdParametro,ANY Dato,<STRING Padre>, <SHORT Orden>, <ANY Nota>),BYTE !ACTUALIZA EL VALOR DE ESTE PARAMETRO
LocalUpdate       PROCEDURE(String IdParametro,ANY Dato,<STRING Padre>, <SHORT Orden>, <ANY Nota>),BYTE !ACTUALIZA EL VALOR DE ESTE PARAMETRO

Insert       PROCEDURE(String IdParametro,STRING TipoDato,ANY Dato,STRING Descripcion,<STRING Padre>, <SHORT Orden>, <ANY Nota>),BYTE !AGREGAR EL VALOR DE ESTE PARAMETRO
Delete       PROCEDURE(String IdParametro),BYTE

VInsert       PROCEDURE(String IdParametro),BYTE,PRIVATE !AGREGAR EL VALOR DE ESTE PARAMETRO CON VENTANA

FetchServer  PROCEDURE(String IdParametro),BYTE,PRIVATE!USADO POR Update, abre y lee los datos del archivo y del queue

Close        PROCEDURE(),BYTE,PRIVATE,PROC!USADO POR Update e Init
Value        PROCEDURE(STRING TipoDato),ANY,PRIVATE!USADO POR Fetch
Construct    PROCEDURE()
Destruct     PROCEDURE()
            END!CLASS