FiveTech Software tech support forums

Servicomver:

Con ADO puro

oRsCli:Find("CLI_CLI = " + "'" + STR(nIrA,5,0) + "'" )

CLI_CLI es el campo en el recordset y nIrA es el número a localizar

Por el lContinue supongo que quieres que te muestre todos los iguales,
si es así debes utilizar FILTER

Saludos

... un registro en una Tabla SQL hago:

oRecordSet:Addnew()
oRecordSet:Fields("Bill_num"):value := alltrim(Var1)
oRecordSet:Update()

Para borrar:
oRecordSet:Delete()
oRecordSet:Requery()

Como seria para buscar la Variable xRFC ??
oRecordSet:Find( xRfc, If( lContinue, 1, 0 ) ) //Asi marca error

Gracias

Lucas,

Please remember:
hb_adoSetLocateFor is needed as LOCATE calls in adordd:

ADO_SETLOCATE( nWA, aScopeInfo )
ADO_LOCATE( nWA, lContinue )

Unfortunately aScopeInfo doesnt supply the cFor condition only bFor condition thus we need to set it up before with hb_adoSetLocateFor.

Let me check what we ...

... FCount() --> oRecordSet:Fields:Count
GoTop --> oRecordSet:MoveFirst()
GoBottom --> oRecordSet:MoveLast()
Locate --> oRecordSet:Find( cFor, If( lContinue, 1, 0 ) )
Open --> oRecordSet:Open( cQuery, hConnection )
OrdListClear() --> oRecordSet:Index := ""
RecCount(), LastRec() --> oRecordSet ...

... FCount() --> oRecordSet:Fields:Count
GoTop --> oRecordSet:MoveFirst()
GoBottom --> oRecordSet:MoveLast()
Locate --> oRecordSet:Find( cFor, If( lContinue, 1, 0 ) )
Open --> oRecordSet:Open( cQuery, hConnection )
OrdListClear() --> oRecordSet:Index := ""
RecCount(), LastRec() --> oRecordSet ...

... BOTTOM,RPT_INCHES)
ACTIVATE REPORT oRep ON INIT SayReport(nWidth,"Litros.txt")
oFont:End()

Return nil


STAT FUNC SayReport(nWidth,cFile)
LOCAL lContinue, cLine, lMore, lEoL, nLeng
LOCAL hPrnt, nBlok, cTxt, nCurr, nLMax
DEFAULT cFile:="Report.Prt"
nLeng:=nWidth+2
lContinue:=.T.
nBlok:=4096 ...

... oWnd ) }

//la funcion de edicion:
STATIC Function EDICION( Brw1, nCol, cBuffer, CALIAS, lFirstEdit, xCols, oWnd )
LOCAL aResult, uBuffer, lContinue:= .T.
LOCAL bValid, aItems, bAction, nClrFore, nClrBack
nClrFore := RGB(0,0,0)
nClrBack := RGB(149,198,147)

FOR nCol := 1 TO xCols ...

... por el ctitle y le da el foco pero no me funciona. te anexo el codigo...

Case nCol == 2
uBuffer := (Brw1:CALIAS)->id_com
aResult := ""
IF lContinue:= Brw1:lEditCol( nCol, @uBuffer, "@!")
IF EMPTY(uBuffer)
COMP0101(uBuffer) // aqui llamo a la otra ventana MDI donde debo
// seleccionar ...

... 38 o por la línea 260 por un <> 38.
Solo llega a la línea 263 cuando no se cumple la condición de la línea 254 y la rutina sale por ‘Return lContinue’ final, que no es lo que se quiere en este punto porque nLastKey es 38 y debería salir por la línea 257 para que el oLbx tome el control ...

... 255, luego el de la línea 257, regresa de la rutina de edición con .F. y cancela. Lo mismo si saldría después de hacer el msg de 262.

If ! lContinue .and. aDatos[nAt,TNue] // Se agregado un nuevo Item !!!
?"255 lContinue=.f. ", aDatos[nAt,TNue], oLbx:nat, oLbx:nLastKey
if oLbx:nLastkey=38 ...

... local cFile ,;
aFiles,;
nItem,;
cString,;
cReturn:="",;
nI,;
na,;
aFil,;
cFilepath,;
lContinue

cFile:=cGetFile( "*.zip","Seleccione Archivo a Exportar" )
if len(alltrim(cFile))<>0
lContinue:=.t.
if file(cfile)
if !MsgNoYEs("Archivo Ya ...

... STATIC Function EditaCelda( oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal )
LOCAL aResult, nAt:= oLbx:nAt, uBuffer, lContinue:= .t.
LOCAL bValid, nColReal:= nCol

nCol-- // Para que sea como si no exisiera BitMap

uBuffer:= aDatos[nAt,nCol]

While .t.

Do Case
Case ...

... 3 ]
xValue := ""
ELSE
oADO:Fields( nField - 1 ):Value := xValue
oADO:Update()
ENDIF

RETURN SUCCESS

STATIC FUNCTION ADO_LOCATE( nWA, lContinue )

local oADO := USRRDD_AREADATA( nWA )[ 1 ]

// not implemented yet

RETURN SUCCESS

STATIC FUNCTION ADO_SETLOCATE( nWA, aDBScopeInfo ...

... cBuffer, lFirstEdit|;
Edita2Celda( oDlg,oBcli, nCol,cBuffer,lFirstEdit )}

Function Edita2Celda( oFld,oLbx, nCol, cBuffer, lFirstEdit )
LOCAL lContinue:= .t., bValid, nColReal:= nCol

Do Case
Case nCol == 2
cBuffer:=val( left( Personas->C4, 2 )) //C41
bValid:= {|| If( cBuffer < 0 ...

... evaluated in the Skip() method, then you should control all the skips mouvements of the browse, because all mouvements methods call ::Skip( x ) one or more times and continue without noticing a posible ::Skip's return value.

:bPreChange .and. ::lContinue would be exclusive to skipper events. I think.