!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),BYTE !ACTUALIZA EL VALOR DE ESTE PARAMETRO

Insert       PROCEDURE(String IdParametro,STRING TipoDato,ANY Dato,STRING Descripcion),BYTE !AGREGAR EL VALOR DE ESTE PARAMETRO

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