FiveTech Software tech support forums

... // bold DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE DIALOG oDlg RESOURCE "CodLiqVar" . . . select _CoLiAux _CoLiAux->(DbGotop()) REDEFINE LISTBOX oLbx FIELDS str(_CoLiAux->Locatario,4,0) , ; _CoLiAux->Nombre , ; str(_CoLiAux->Propiedad,4,0) , ; _CoLiAux->Domicilio ...

... // bold DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE DIALOG oDlg RESOURCE "CodLiqVar" . . . select _CoLiAux _CoLiAux->(DbGotop()) REDEFINE LISTBOX oLbx FIELDS str(_CoLiAux->Locatario,4,0) , ; _CoLiAux->Nombre , ; str(_CoLiAux->Propiedad,4,0) , ; _CoLiAux->Domicilio ...

... el Material '+alltrim(cdetalle),'Modifico el Material '+alltrim(cDetalle)) dbcommitall() endif Materia->(dbsetorder(queor)) Materia->(DbGoTop()) return NIL *----------------------------------------------------------------------------------------------------------// //----------------------------------------------------------------------- ...

... 131, 0, /* 131 */ HB_P_PUSHLOCALNEAR, 2, /* PASSWORD */ HB_P_DOSHORT, 2, /* 00061 */ HB_P_LINEOFFSET, 4, /* 142 */ HB_P_PUSHSYMNEAR, 5, /* DBGOTOP */ HB_P_PUSHNIL, HB_P_DOSHORT, 0, /* 00068 */ HB_P_LINEOFFSET, 6, /* 144 */ HB_P_PUSHSYMNEAR, 6, /* WQOUT */ HB_P_PUSHNIL, HB_P_PUSHSYMNEAR, ...

... MYMEN("Error grave. No fue posible abrir archivo : "+FilePag ) RETURN ENDIF SELECT TEM TEM->( DBGOTOP() ) // hay casos como este... después de una apertura y del mismo select reporta tabla cerrada IF FILE( PathPag+cNomTab ) // SIEMPRE SERAN DBF'S ...

... MYMEN("Error grave. No fue posible abrir archivo : "+FilePag ) RETURN ENDIF SELECT TEM TEM->( DBGOTOP() ) // hay casos como este... después de una apertura y del mismo select reporta tabla cerrada IF FILE( PathPag+cNomTab ) // SIEMPRE SERAN DBF'S

... str(DetVtaF->Cliente,4) = str(CliFor->CodCliente,4) .and. DetVtaF->FecVenta>=dDesde .and. DetVtaF->FecVenta<=dHasta DetVtaF->(DbGoTop()) set relation to Articulo into ArtFor while !DetVtaF->(Eof()) xTotVtas += 1 DetVtaF->(DbSkip()) end DEFINE DIALOG oDlgMed RESOURCE "Medidores" ...

... 'E', .t. ) SetBalloon( .t. ) dbcloseall() use colorfw new use tecnico new use acciones index accione1 new use corregir index corregi1 new dbgoTOP() DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE BRUSH oBr RESOURCE "beige2" // con esta definicion es lo mas cerca del ...

... el código del producto. SELECT 3 PRODUCTOS->(DBSETORDER(1)) nProc := 1 cBcod:=1 SET FILTER TO ITEM13 = "BEBIDA" PRODUCTOS->(DBGOTOP()) IF ! PRODUCTOS->(EOF()) WHILE ! PRODUCTOS->(EOF()) SysRefresh() nCodPr =nProc cBebida:= PRODUCTOS->NOME cBcod := PRODUCTOS->CODIGO ...

... new use ArtFor index ArtFor1, ArtFor2, ArtFor3, ArtFor4, ArtFor5 new use _ArtFor index _ArtFor1, _ArtFor2 new zap select ArtFor ArtFor->(DbGoTop()) While !ArtFor->(Eof()) select _ArtFor _ArtFor->(DbAppend()) _ArtFor->Articulo := ArtFor->Articulo _ArtFor->Detalle := ArtFor->Detalle ...

... function RefXBrw(regi) select _ArtFor _ArtFor->(DbGoTop()) While !_ArtFor->(Eof()) _ArtFor->Total := _ArtFor->Costo*_ArtFor->Pedir _ArtFor->(DbSkip()) end _ArtFor->(DbGoTo(regi)) ...

... 'Tempo da leitura dos registros: ' + CRLF +; ElapTime(cTime,TIME()) + CRLF +; NETNAME() SELECT MULTIFUN MULTIFUN->(DBSETORDER(1)) MULTIFUN->(DBGOTOP()) MULTIFUN->(DBSEEK("00132")) ? MULTIFUN->NOMFUN , MULTIFUN->CODFUN SELECT 1 MULTIFUN->(DBSETORDER(1)) MULTIFUN->(DBGOTOP()) ...

... } :bChange := { || scopetimer(oBrw),('foto')->(DBGOTOP()),oBrw2:Refresh(),oBrw4:gotop(),oBrw4:Refresh(),oImage:Refresh(),oImage2:Refresh(),Obrw:refresh(),Oget:refresh(),oGet2:refresh() } oFld:bAction ...

... , "Cobrar" , {||editapago(nporciento, dfliq,nncons),dbgobottom(),oBrw:Refresh(),oBrw:SetFocus(),DbGoTop(),oBrw:Refresh(),oBrw:SetFocus() },VK_RETURN,"<Return>" }  Hola me parece que ese DbGoTop() ...

... Registro " , "Cobrar" , {||editapago(nporciento, dfliq,nncons),dbgobottom(),oBrw:Refresh(),oBrw:SetFocus(),DbGoTop(),oBrw:Refresh(),oBrw:SetFocus() },VK_RETURN,"<Return>" } como se debe repintar el xbrowse para subsanar este error? gracias