topic-24151

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

WITH OBJECT oBrw + TMySql
Posted: Fri May 25, 2012 09:21 PM

Hola amigos, tengo un problemita que no he podido resolver.

Este codigo trabaja bien :

   REDEFINE XBROWSE oBrw ID 181 OF oDlg ;
      COLUMNS "Codigo","Descrip";
     ALIAS "MAEPRODT"  CELL LINES FOOTERS  

   WITH OBJECT oBrw
      :codigo:nWidth := 105
      :descrip:nWidth := 400     ;   :descrip:cHeader := "Descripcion del Producto"
  END

Pero, al quererlo pasar a MySql...

Code (fw): Select all Collapse

   REDEFINE XBROWSE oBrw ID 181 OF oDlg ;
      COLUMNS "Codigo","Descrip";
      CELL LINES FOOTERS  // FASTEDIT

   WITH OBJECT oBrw
      oBrw:SetMySql(oMaeprodt,.f.)

      :codigo:nWidth := 105
      :descrip:nWidth := 400     ;   :descrip:cHeader := "Descripcion del Producto"
  END

Salta este error:
Error description: Error BASE/1004 Message not found: TXBROWSE:CODIGO

Called from: .\source\function\HARBOUR.PRG => _CLSSETERROR(166)
Called from: XBROWSE.PRG => TXBROWSE:CODIGO(7088)
Called from: D:\FAPSOFT\NEWFIC~1\wfic32.prg => MAEPRODT(71) //este linea es = :nWidth := 105

Da la impresion como si trabajar con los comandos XBROWSE, no hubiese soporte para MySql.

Si lo hago creando cada columna con oCol = oBrw:AddCol() funciona bien. (pero quiero usar el estilo de programacion con comandos XBROWSE)

Alguno de ustedes puede decirme en que estoy equivocado?, o sacarme de la duda sobre el soporte a MySql en comandos XBROWSE?
Mi version es FWH 10.06
Gracias de antemano.

Un abrazo.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

nnicanor

Posts: 302

Joined: Fri Apr 23, 2010 04:30 AM

Re: WITH OBJECT oBrw + TMySql
Posted: Sat May 26, 2012 01:02 AM

Debes refereciar el obejeto query donde estan definidas las columnas,

Code (fw): Select all Collapse

 REDEFINE XBROWSE oBrw ID 181 OF oDlg ;
      COLUMNS oMaeprodt:Codigo,oMaeprodt:Descrip ;
      CELL LINES FOOTERS  // FASTEDIT

   WITH OBJECT oBrw
      oBrw:SetMySql(oMaeprodt,.f.)

      :codigo:nWidth := 105
      :descrip:nWidth := 400     ;   :descrip:cHeader := "Descripcion del Producto"
  END

Slds

Nicanor Martinez M.
Auditoria y Sistemas Ltda.
MicroExpress Ltda.
FW + FWH + XHARBOUR + HARBOUR + PELLES C + XDEVSTUDIO + XEDIT + BCC + VC_X86 + VCC_X64 + MINGW + R&R Reports + FastReport + Tdolphin + ADO + MYSQL + MARIADB + ORACLE
nnicanor@yahoo.com

nnicanor

Posts: 302

Joined: Fri Apr 23, 2010 04:30 AM

Re: WITH OBJECT oBrw + TMySql
Posted: Sat May 26, 2012 01:05 AM

Con tdolphin lo hago asi:

Code (fw): Select all Collapse

     oQry := oServer:Query( "Select * From capitan order by nomcap" )

     oData := oQry

     DEFINE DIALOG oDlg RESOURCE "BROWSEB" FONT oFontb // TRANSPARENT

     oDlg:Settext("Operadores Registrados")

     oDlg:lHelpIcon:=.F.

     REDEFINE XBROWSE oBrw ID 101  ; //  OBJECT oQry  ;
             FIELDS oData:codcap  ,;
                    oData:nomcap   ;
          HEADERS "Codigo",;
                  "Nombre del Capitan" ;
          FIELDSIZES  80,600 ;
          AUTOSORT ;
          ON DBLCLICK ( lok:=.t.,oDlg:End(),cCod := oData:codcap ) ;
          OF oDlg

     WITH OBJECT oBrw

         :nMarqueeStyle       := MARQSTYLE_HIGHLROW
         :nColDividerStyle    := LINESTYLE_BLACK
         :lColDividerComplete := .T.
         :nHeaderLines        := 1
         :nDataLines          := 1
         :bKeyDown            := { |nkey| iif(nKey==13,(lok:=.t.,oDlg:End()),) }
         :SetDolphin( oQry, .f., .f. )


     END

Nicanor Martinez M.
Auditoria y Sistemas Ltda.
MicroExpress Ltda.
FW + FWH + XHARBOUR + HARBOUR + PELLES C + XDEVSTUDIO + XEDIT + BCC + VC_X86 + VCC_X64 + MINGW + R&R Reports + FastReport + Tdolphin + ADO + MYSQL + MARIADB + ORACLE
nnicanor@yahoo.com

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: WITH OBJECT oBrw + TMySql
Posted: Sun May 27, 2012 02:36 PM

nnicanor, gracias por responder.

Asi, sigue dando el error.

Code (fw): Select all Collapse

 REDEFINE XBROWSE oBrw ID 181 OF oDlg ;
      COLUMNS oMaeprodt:Codigo,oMaeprodt:Descrip ;
      CELL LINES FOOTERS  // FASTEDIT

   WITH OBJECT oBrw
      oBrw:SetMySql(oMaeprodt,.f.)

      :codigo:nWidth := 105
      :descrip:nWidth := 400     ;   :descrip:cHeader := "Descripcion del Producto"
  END

Despues de estudiar la classe, lo resolví asi:

Code (fw): Select all Collapse

 REDEFINE XBROWSE oBrw ID 181 OF oDlg ;
      COLUMNS "Codigo","Descrip" ;
      OBJECT oMaeProdT CELL LINES FOOTERS  // FASTEDIT

   WITH OBJECT oBrw
      :codigo:nWidth := 105
      :descrip:nWidth := 400     ;   :descrip:cHeader := "Descripcion del Producto"
  END

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion