Otra Pregunta sonbre ADORDD

[ruben Dario]

Segun este codigo no me muestra los datos cuando uso ADORDD pero si manejo tablas tipod DBF si muestra los datos, Anexo codigo.

Code: Select all  Expand view  RUN

   USE basedatm VIA "ADORDD" TABLE "ktipmod" MYSQL ;
      FROM "192.168.10.1" USER "root" PASSWORD "colomp" alias b_tipmod

DEFINE DIALOG oDlgbrow  FROM 5,10 TO 24, 56 TITLE "Consulta General"
   oLbx := TXBrowse():New( oDlgbrow )
   oLbx:nTop     := 5 ;  oLbx:nLeft    := 10 ;  oLbx:nBottom  := 120 ;  oLbx:nRight   := 180 //240
   // oLbx:nHeight  := 4   //   oLbx:Box(5,10,24,76)
   par_browse(4,oLbx)
   oLbx:nHeaderLines        := 1  //altura del titulo
   cPic:= "999,999,999.99"
   tvalo :=0
   aSaldos := { }
   tvalo := DBEVAL ( {|| tvalo += b_tipmod->valo })
   oLbx:bGoTop := dbGotop()

WITH OBJECT oLbx:AddCol()
       :AddResource("CLIP")
       :cHeader       := "Código"
       :bStrData      := { || b_tipmod->tipmod }
       :nHeadStrAlign := AL_LEFT
       :nDataStrAlign := AL_LEFT
//       :nWidth        := 80
       :nHeadBmpNo    := 1
       :nEditType := 0   // 1 Permite MOdificar 0 No modifica
//       :bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, msginfo("jejejeje"), ) }
       :lAllowSizing:=.F. //no permitir q' redimensionen las columnas.(Para cada columna )
     END
   WITH OBJECT oLbx:AddCol()
       :cHeader       := "Nombre"
       :bStrData      := { || b_tipmod->nombre }
       :nHeadStrAlign := AL_LEFT
       :nDataStrAlign := AL_LEFT
//       :nWidth        := 300
       :nEditType := 0   // 1 Permite MOdificar 0 No modifica
//       :bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, msginfo("jejejeje"), ) }
       :lAllowSizing:=.F. //no permitir q' redimensionen las columnas.(Para cada columna )
     END

   oLbx:nFreeze:=1 // para congelar la 1ª
   oLbx:lAllowColSwapping   :=.F.  //Para no permitir swap entre columnas
   oLbx:SetRDD()

   oLbx:CreateFromCode()  //(oDlgBrow)
   oDlgBrow:oClient := oLbx
    @ 7, 1 BUTTON "&Salir" OF oDlgBrow SIZE 40, 12 ACTION oDlgBrow:End()
   ACTIVATE DIALOG  oDlgBrow CENTERED // ON INIT ( Eval(aBlock),dbgotop())
   Release oDlgbrow, oLbx,nRow,nCol,oChild,nFor,oLamcla,cPic,tvalo,aSaldos, aBlock