FiveTech Software tech support forums

... and Clipper:

1. When record or table is unlocked then just before this
operations RDD writes all local modifications in table and
index files.
2. DBSKIP(0) just like DBGOTO( RECNO() ) writes all local
modifications (if any) and then discards local record
buffer so record has to be read again when ...

... 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"
REDEFINE SAY oMensaje PROMPT cmensaje ID Med_Mensaje OF oDlgMed color colorfw->ForeSay ...

... PRODUCTOS->(EOF())
WHILE ! PRODUCTOS->(EOF())
SysRefresh()
nCodPr =nProc
cBebida:= PRODUCTOS->NOME
cBcod := PRODUCTOS->CODIGO

PRODUCTOS->(DBSKIP(1))
*====================================================
Aadd(aBtns, { cBebida + CRLF + "REFRESCO" + CRLF + cBcod,LoadBitmap( GetResources ...

... ArtFor->StockAct
_ArtFor->Pedir := ArtFor->StockMin-ArtFor->StockAct
_ArtFor->Total := _ArtFor->Pedir*_ArtFor->Costo
select ArtFor
ArtFor->(DbSkip())
end
select _ArtFor
_ArtFor->(DbGoTop())



DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15
DEFINE BRUSH oBr RESOURCE "beige2"

DEFINE DIALOG ...

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

... AADD( aReport, aDados )// eroni - para o relatorio


// If Mod(nContador,100)==0 // ALTEREI AQUI
// ThreadSleep(1)
// EndIf


Retido->(dbSkip())

ENDDO

// SKIP -1

// oEmp := oAvu:Add( cEmpresa+"-"+RetornaNomeEmpresa( cEmpresa ),IF( lAllOk,2,3 ) ) // Item nivel 2 do tree
//oEmp:Cargo ...