FiveTech Software tech support forums

... = " + "'" + 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

... 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 ...

... --> 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: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() ...

... 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 ...

... xCols, 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 Do Case ...

... busca 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 una ...

... 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. ...

... línea 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 ...

... 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 ( ...

... 1 ] IF aWData[ 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 ) local ...

... 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 , ; ...

... 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.