TTABLE CLASS

//
// OpenTable(cSql,lFill,oOdbc,lChecktable,lExcluye,lDicc,lLimit,lLower)
// Parámetros
//
// Devuele en Cursor Virtual mediante la clase TTABLE contentivo de los registros de una Sentencia SQL mediante la conexion con una base de datos bien sea Nativa MySQL u conexión ODBC
//
1 cSql := "DPUSUARIOS" // Nombre de la tabla o Sentencia SQL, caso de nombre de la tabla "DPUSUARIOS" asumirá "SELECT * FROM DPUSUARIOS"
2 lFill :=.T. // Valor por defecto es .T. Lectura de Registro o Cursor Vacio para insertar Registros
3 oOdbc := NIL // Objeto de la Base de datos, En caso de ser vacio será obtenido mediante la funcion OpenOdbc() desde el diccionario de datos según nombre de la tabla
4 lCheckTable :=.F. // Revisa la sintaxis SQL y Existencia de las tablas vinculadas de la Sentencia SQL
5 lExcluye :=oDp:lExcluye // Agrega exclusiones en la clausula WHERE
6 lDicc :=.T. // Valida las tablas en el diccionario de Datos, para ser utilizado con otras bases de datos, indicar .F.
7 lLimit :=.F. // Agrega paginado mediante la sentencia LIMIT
8 lLower :=.F. // Convierte el nombre de las tablas en minúscula, según el diccionario de datos.
 
FUNCTION OpenTable(cSql,lFill,oOdbc,lChecktable,lExcluye,lDicc,lLimit,lLower)
   LOCAL oCursor,cTable:=CTABLE(cSql)

   DEFAULT oOdbc:=OPENODBC(cTable)

   oCursor:=TTable():New( NIL, cSql, oOdbc, NIL, IIF(lFill, 0, 1 ), NIL, NIL, NIL, lLower)

RETURN oCursor

METHOD New(oCursor,cSql,oOdbc,cTable,nOption,cPrimary,lCheck,lLimit,lLower) CLASS Ttable
     LOCAL oCursor,cTable:=CTABLE(cSql)

     DEFAULT oOdbc:=OPENODBC(cTable)

   IF oOdbc:ClassName()<>”TODBC”
      oCursor:=MyTable(cSql,.T.,oOdbc:cDsn,NIL,oOdbc)
   ELSE
      oCursor :=oOdbc:Query(cSql)
   ENDIF

RETURN oCursor/

//EOF

CLASS Ttable

    DATA oCursor
    DATA oOdbc
    DATA oScript

    DATA nOption
    DATA nArrayAt
    DATA nRecord
    DATA nPos      // Posición del Ultimo Campo
    DATA nRecno    // Posicion del Registro
    DATA nOrder    // Orden de los Datos
    DATA nCountIns // Cantidad de Registros Contados
    DATA nInsert   // Cantidad de Registros que Seran Incluidos
    DATA nSeconds
    DATA nHandler

    DATA aDataFill INIT {}    // Data Completa de la tabla (Original)
    DATA aBodyLink           // Campos de enlace
    DATA aHeadLink           // Campos de la Tabla enlazadora
    DATA aFieldsNew
    DATA aFieldsFrom
    DATA aFields
    DATA aAddFields        // Campos Agregados en ADDFIELDS
    DATA aBuffers
    DATA aDataOrg          // Data Completa de la taba
    DATA aVars              // Control de los Campos
    DATA aRecord            // Control del Registro
    DATA aFieldSpeed
    DATA aFieldTable
    DATA aIntRef INIT {}      // JN 12/03/2014 Contiene Datos de la Integridad Referencial
    DATA aRecClone INIT {}    // JN 01/11/2014 Copia del Registro de Integridad Referencial
    DATA aFieldsTable INIT {} // Campos exclusivos de la Tabla
    DATA aTotales INIT {}

    DATA cTable
    DATA cFileName
    DATA cWhere                // Condicion del Enlace entre tablas
    DATA cSql
    DATA cPrimary
    DATA cFieldOrder           // permite establecer Orden
    DATA cField_Order INIT ""  // Orden segun ::Sort()

    DATA cName          // Nombre del Campo
    DATA cError
    DATA cSingular      // Nombre Singular de la Tabla
    DATA cType          // Tipo de Data en ODBC
    DATA cInsert        // Indica el Super INSERT INTO de varios registros
    DATA cMsgInt INIT "Requiere Ejecutar metodo IsChkIntRef()"
    DATA cWhereRecord INIT "" // Where con todos los campos del Registros
    DATA cDpXbaseLine INIT "DpXbase: "+oDp:cScript+CRLF+" Función: "+oDp:cScrFunc+" Línea: "+oDp:cScrLine // oDp:cDpXbaseLine // 
    DATA cFieldAud INIT "" // Campo de Auditoria Segun formulario tdocgrid


    DATA lFromCursor
    DATA lDesc INIT .F. // Orden según ::Sort()

    DATA lAppend
    DATA lAutomatic     // Modo de Asignación de Valores
    DATA lFound
    DATA lOnly          // Solo campos de la tabla
    DATA lEof           // Control de Navegación
    DATA lBof
    DATA lMemo          // Indica que Hay Campo Memo
    DATA lIsDef
    DATA lMySqlNativo
    DATA lReloadData    // Luego que Incluye requiere Recargar
    DATA lLock INIT .F.
    DATA lSetFieldDef INIT .T.
    DATA lLower INIT .F.
    DATA lCreaRegIntRef INIT .F. // Crear Registros de Integridad Referencial en Commit, clase TDPEDIT debe ejecutarlo en LOAD y por esto debe asigar .f. a DATA lCreaRegIntRef
    DATA lInsertReplace INIT .F. // Realiza Insert INTO Mediante Sentencia REPLACE
    DATA lUpdate INIT .F.        // Si append() es modificar su valor sera .t. y agrega Where en COMMIT
    DATA lRemote INIT .F       // Indica la Tabla tiene conexion Remota
    DATA lMsgError INIT .F     // Mostrar Error en ONEROR

    DATA lSET_FOREIGN INIT .T.

    METHOD New( oCursor , cSql , oOdbc , cTable , nOption , cPrimary , lCheck , lLimit ,lLower ) CONSTRUCTOR
    METHOD Replace(cField, cValor , nLen, nDec )
    METHOD Replaceifempty(cField, cValor , nLen, nDec) INLINE IF (Empty(::Get(cField)), ::Replace(cField, cValor , nLen, nDec ),NIL)
    METHOD DbStruct() INLINE ::aFields

    METHOD ReplaceSpeed(cField, cValor , lMsg)
    METHOD CommitSpeed(lSave)
    METHOD Commit(cWhere)
    METHOD Append() INLINE IF(::RecCount()=0,(::lUpdate:=.F.,::cWhere:="",::AppendBlank()),::lUpdate:=.T.) // JN 01/07/2017, Agrega si el registro esta Vacio ::lAppend:=.T.
    METHOD SetAuditar(cFieldAud) // Requiere oTable:cPrimary:="Clave"
    METHOD InitFields()
    METHOD AddRecord()
    METHOD GetExcluye() INLINE GetExcluye(::cTable)[2]
    METHOD ATOTAL(cField)

    METHOD LockTable()
    METHOD UnLockTable()

    METHOD SetArray(aData,aFields)
    METHOD Count(cWhere) INLINE Count(::cTable,cWhere)
    METHOD CopiaReg(oOrigen)
    METHOD GetPicture(nField,lMiles) // Genera el picture del Campo
    METHOD Load(nRecord)
    METHOD SaveSpeed()
    METHOD SeekBin(uValue,cField,lSoft)
    METHOD CTONUM(cField) // Convierte en Numerico
    METHOD CTOLOG(cField) // Convierte en Logico
    METHOD CTOASLOG()     // Convierte todos los Campos en Lógicos Cuando Viene de SELECT 0 AS LOGICO

    METHOD SetDefault() INLINE EJECUTAR("DPTABLESETDEF",SELF)
    METHOD CTOD(cField) // Convierte en Numerico
    METHOD ChkDsn()     // Revisa Dsn

    METHOD FieldName(cField)
    METHOD ChkIntRef(cField) // Revisa Valores Faltantes para la Integridad Ref
    METHOD IsChkIntRef(lSay) INLINE (oDp:lChkInt:=EJECUTAR("CHKINTREF",SELF,lSay) ,;
              ::aIntRef:=ACLONE(oDp:aLinks),;
              ::cMsgInt:=oDp:cMsgChkInt,; oDp:lChkInt)

    METHOD ViewIntRef() INLINE (::IsChkIntRef(),ViewArray(::aIntRef))

    METHOD FieldGet(nPos)
    METHOD NewRecord() // Realiza un Nuevo Registro
    METHOD FieldPut(nPos,uValue) INLINE ::Replace(::aFields[nPos,1],uValue)
    METHOD ADEL(nPos)            INLINE ADEL(::aDataFill,nPos)

    METHOD _FieldGet(nPos) // Lee desde la Data Original
    METHOD FieldPos(cField)
    METHOD RecCount()         INLINE LEN(::aDataFill) // Cantidad de Registros
    METHOD nRecCount()        INLINE LEN(::aDataFill)
    METHOD Fieldtype(nField)  INLINE (nField:=::FieldPos(nField),IF(nField>0,::aFields[nField,2],""))
    METHOD FieldLen(nField  INLINE (nField:=::FieldPos(nField),IF(nField>0,::aFields[nField,3],""))
    METHOD FieldDec(nField)   INLINE (nField:=::FieldPos(nField),IF(nField>0,::aFields[nField,4],""))
    METHOD Recno()            INLINE (::nRecno)

    METHOD GoTop()                      INLINE (::nRecno:=1,::UpDateFields())
    METHOD GoTo(nRecno)                 INLINE (::nRecno:=nRecno,::nArrayAt:=nRecno,::UpDateFields())
    METHOD GoBottom()                   INLINE (::Goto(LEN(::aDataFill)))
    METHOD Eof()                        INLINE (::nRecno>LEN(::aDataFill).OR. Empty(::aDataFill)) // ::nRecno=0)
    METHOD Bof()                        INLINE (::nRecno<1)
    METHOD Skip(nSkip,lView)
    METHOD GotoSkip(nStep,cField,cWhere)
    METHOD DbSkip(nSkip,lView)          INLINE (::Skip(nSkip,lView))
    METHOD DbEval(bAction,bWhile,bFor)
    METHOD Fcount()                     INLINE len(::aFields)
    METHOD nFields()                    INLINE len(::aFields)
    METHOD GotoId(nRecord)              INLINE ::Goto(nRecord)
    METHOD Execute(cSql,cCommand)
    METHOD GetTotal(cField)
    METHOD GetMax(cField,cWhere,nLimit) INLINE SqlGetMax(::cTable,cField,cWhere,nLimit,NIL,::oOdbc)
    METHOD TotalField(cField)
    METHOD CreaRegIntRef(lRun) INLINE (RUNNEW("DPCREAREGINTREF",SELF,lRun),;::lCreaRegIntRef:=.F.)
    METHOD ISFIELD(cField)
    METHOD CLOSE()                      INLINE ::End()

    METHOD SetInsert(nRecord) INLINE (nRecord:=IIF(nRecord=NIL,100,nRecord),::nInsert:=nRecord,::nCountIns:=0)

    // Metodo para el Desplazamiento en Documentos
    METHOD GotoMax(cField,cWhere,lMax)
    METHOD GotoMin(cField,cWhere,lMax) INLINE ::GotoMax(cField,cWhere,.F.)

    // Determina la Siguiente/Anterior Clave
    METHOD GetNext(cField,uValue,lMax)
    METHOD GetPrev(cField,uValue,lMax)   INLINE ::GetNext(cField,uValue,.F.)
    METHOD CTODBF(cFile,cRdd)
    METHOD CTOHTML(cFile)                INLINE EJECUTAR("TABLETOHTML",Self,cFile)
    METHOD GETWHERERECORD(cFields,lAll)  INLINE (::cWhereRecord:=EJECUTAR("GETWHERERECORD",SELF,cFields,lAll))

    METHOD CTOTXT(cFile)
    METHOD CLONE(oTable)
    METHOD USE() INLINE NIL // Compatible MyTable Nativo
    METHOD Browse(lOrder,cTitle, lMdi)
    METHOD BRW(lOrder) INLINE EJECUTAR("BRWDINAMICO",SELF,NIL,lOrder)

    METHOD UpDateFields()
    METHOD GetValKey(cFieldKey)
    METHOD GetWhereKey(cFieldKey)
    METHOD IsOk() INLINE (ValType(::aFields)="A" .AND. !Empty(::aFields))
    METHOD DeleteAll(lIni) // Borra todos los Registros
    METHOD Delete(cWhere)
    METHOD ExportBD(oOdbc,cTable,lDelete,oSay) INLINE EJECUTAR("DBTABLEXPORT",Self,oOdbc,cTable,lDelete,oSay)

    METHOD aFill() INLINE (::aDataFill:=::oCursor:aFill()) // ,::Gotop()) // ,::GoTop())

    METHOD DbSeek(uValue,lSoftSeek,cField)
    METHOD AppendBlank()

    METHOD AddFields(cField,uValue)
    METHOD Reload() // Recarga el Query
    METHOD Refresh()

    METHOD GetIndex(lViews)              INLINE ::oOdbc:GetIndex(::cTable,lViews) // JN 29/12/2002
    METHOD IndexKey(nOrder)              INLINE ::oOdbc:IndexKey(::cTable,nOrder) // JN 29/12/2002
    METHOD isIndex(cIndex)               INLINE ::oObdc:IsIndex(::cTable,cIndex )
    METHOD GetDataKey(nOrder)
    METHOD GetValue(cField) //INLINE ::FieldGet(::FieldPos(cField))
    METHOD GenSeek(cKey,nOrder)
    METHOD SeekTable(cField,oGet,cWhere,oSay)
    METHOD ShowError(cTitle)
    METHOD MsgError(cTitle)              INLINE ::ShowError(cTitle)
    METHOD DbSeek2(cKey,lSoftSeek,nOrder)INLINE ::oOdbc:DbSeek(::cTable,cKey,lSoftSeek,nOrder,::GenSeek(cKey,nOrder))
    METHOD AddField(cField,cType,nLen,nDec) // Agregar un Campo Virtual
    METHOD GetWhere()                       // Devuelve Where Segun Valor de todos sus Campos

    METHOD Add   ( cName, xValue )
    METHOD Get   ( cName )
    METHOD Set   ( cName, xValue )
    METHOD GetPos( cName )
    METHOD IsDef ( cName )

    METHOD SetOrder(cField,lDesc) INLINE ::Sort(cField,lDesc)
    METHOD Sort(cFields,lDesc)
    METHOD Inspect()              INLINE EJECUTAR("INSPECT",Self)

    METHOD ViewArray() INLINE ViewArray(::aDataFill,::cTable)

    METHOD SetForeignkeyOff() INLINE ::EXECUTE("SET FOREIGN_KEY_CHECKS = 0"), ::lSET_FOREIGN:=.F.
    METHOD SetForeignkeyOn()  INLINE ::EXECUTE("SET FOREIGN_KEY_CHECKS = 1"), ::lSET_FOREIGN:=.T.

    METHOD HandleEvent(nMsg, nWParam, nLParam) EXTERN ;
                       WndHandleEvent(Self, nMsg, nWParam, nLParam)

    METHOD End()

    ERROR HANDLER OnError(cMsg, nPar1,nPar2,nPar3,nPar4,nPar5,nPar6,nPar7,nPar8,nPar9,nPar10,nPar11,nPar12,nError)

ENDCLASS
//EOF
Solicitar Soporte Tecnicoscreen tag