FiveTech Software tech support forums

... moment, there are over 16,000 lines of code in a single sequence. For instance, I think the methods should be placed in separate classes: METHOD SetDolphin( oMysql, lAddCols, lAutoOrder, aFldNames ) METHOD SetMySql( oMysql, lAddCols, lAutoOrder, aFldNames ) // TMySql object METHOD SetColFromMySQL( ...

... moment, there are over 16,000 lines of code in a single sequence. For instance, I think the methods should be placed in separate classes: METHOD SetDolphin( oMysql, lAddCols, lAutoOrder, aFldNames ) METHOD SetMySql( oMysql, lAddCols, lAutoOrder, aFldNames ) // TMySql object METHOD SetColFromMySQL( ...

... ::oMysql ) .AND. ::oMysql:IsKindOf( 'TMYSQLQUERY' ) ::SetMysql( ::oMysql ) elseif ! Empty( ::oMysql ) .AND. ::oMysql:IsKindOf( 'TDOLPHINQRY' ) ::SetDolphin( ::oMysql ) elseif ! Empty( ::oMysql ) .AND. ::oMysql:IsKindOf( 'TMSQUERY' ) ::SetEagle( ::oMysql ) elseif ! Empty ( ::oDbf ) ::SetoDbf( ...

... cTab_Art:cod_art), cTab_Art:Refresh() } oBrw:bKeyDown := { | nKey | TeclasProducto(nKey, oBrw, cTab_Art, cEmpresa) } oBrw:oFont := oFont2 oBrw:SetDolphin(cTab_Art,.T.,.T.) oBrw:aCols[1]:SetCheck( { "BOTONSI", "BOTONNO" } ) NO QUIERO QUE PASE NADA AL HACER DOBLE CLICK SOBRE ...

... :bClrSel := { || { CLR_BLACK, CLR_HGRAY } } :SetGroupHeader( 'FACTURACION', 2, 5, oFont ) :SetGroupHeader( 'CONDICIONES DE PAGO', 9, 12, oFont ) :SetDolphin( oQry, .F. ) END oBrw:aCols[01]:cOrder = "A" oBrw:aCols[01]:bLClickHeader := {|| SetOrden(oBrw:aCols[01],"doc+0 ASC",oQry ...

... OF oWChld y al presionar el boton refrescar Pantalla: STATIC FUNCTION RefrescarPantalla(oLbx) *---------------------------------- SetDolphin( oLbx, cViaje,.f. ) cViaje:Refresh() oLbx:Refresh(.t.) oLbx:SetFocus() RETURN .T. SALE ERROR: Time from start: 0 hours 0 mins 11 secs Error ...

Mr Nages solved the problem. Thanks

s_oData := M->oServer:Query( cNotes )
s_oData:refresh()
s_oBrowse:acols := {}
s_oBrowse:SetDolphin(s_oData, .t.)
s_oBrowse:GoTop()
s_oBrowse:Refresh()

... to clear the previous query to get only the columns for the new query. s_oResult := M->oServer:Query( cNotes ) s_oData := s_oResult s_oBrowse:SetDolphin(s_oData, .t.) s_oBrowse:GoTop() s_oBrowse:Refresh()

MGA wrote:Mr Nages,

is posslble?

Please open new query and if successfully opened, try
oBrw:SetDolphin( oNewQry, .t. )

Mr. Jimmy
For PostGre SQL also please try the same thing
oBrw:SetPostGre( oNewQry, .t. )

... STRETCHCOL_WIDEST oBrw:oFont := oFont2 oBrw:bLDblClick := {|| Ing_Inv_Gral(oBrw, cTab_Art, cTab_Art:cod_art , cEmpresa), cTab_Art:Refresh() } oBrw:SetDolphin(cTab_Art,.T.,.T.) oBrw:aCols[1]:cHeader := "Código" oBrw:aCols[1]:bStrData := { || cTab_Art:cod_art } oBrw:aCols[1]:nHeadStrAlign ...

Muchas gracias estimado Cesar

Funciona, pero no actualiza el Browse
Con con TDolphin se usa: oBrw:SetDolphin(oSQL)

Cómo es con MariaDB?

... cTab_Art), cTab_Art:Refresh() } oBrw:bKeyDown := { | nKey | TeclasProducto(nKey, oBrw, cTab_Art) } oBrw:oFont := oFont2 oBrw:SetDolphin(cTab_Art,.T.,.T.) alguien me orienta...no veo el error.

... } aWhere := "cod_mar='"+AllTrim(cCod_Mar)+"'" xServer: Update( "ext_mar", aCampos, aValues, aWhere ) Endif Endif SetDolphin( oBrw, cExt_Mar,.f. ) cExt_Mar:Refresh() oBrw:SetFocus() oBrw:Refresh() RETURN NIL

... oBrw:lAutoSort:=.T. oBrw:bLDblClick := {|| Add_Marca_Extintores(.F.,oBrw, cExt_Mar), cExt_Mar:Refresh() } oBrw:oFont := oFont2 oBrw:SetDolphin(cExt_Mar,.T.,.T.) oBrw:aCols[1]:cHeader := "Código" oBrw:aCols[1]:bStrData := { || cExt_Mar:cod_mar } oBrw:aCols[1]:nHeadStrAlign ...

... FUNCTION DelModelo(oBrw,cEmpresa,cAclave,cTab_Modelo, cod_modelo) Local cSql If Alltrim(cAclave)=Alltrim( cEmpresa [15]) cTab_Modelo:delete() SetDolphin( oBrw, cTab_Modelo,.f. ) cTab_Modelo:Refresh() oBrw:SetFocus() oBrw:Refresh() Else TipoMensaje("Usuario no habilitado") Endif RETURN( ...