FiveTech Software tech support forums

... oDlgMa RESOURCE "Material" DEFINE TIMER oTmr INTERVAL 50 ACTION (Fnct_Blinker(@oVeoRamo),oVeoRamo:Refresh()) REDEFINE GET oCodigo VAR nCodigo PICTURE "9999" ID Ma_Codigo OF oDlgMa when .f. //valid nCodigo > 0 .and. ValCodigo(nCodigo,agrega,'Código de Cliente ') REDEFINE ...

... FOR FIELD->NUMERO == nNumero ? COUNT TO nRegistros si DBCLEARFILTER si DbDelete si DbDelete() si DbGoBottom() si Dbgoto( nregistro ) si Dbseek( nCodigo ) si dbSelectArea si DbSetOrder(1) si DBSKIP si DBSKIP() ? DELETE ALL FOR EMPTY( FIELD->CODIGO ) .AND. EMPTY( FIELD->NOMBRE ) si EOF si ...

Cesar Sería de la siguiente manera Oqry (es la conexión al servidor) if empty(ncodigo) return .f. endif Resul:=Oqry:query('select field, field from nom_base where codigo like '+ " '%" +alltrm(str( nCodigo ))+" %' " ) if Resul:lastrec() = 0 Resul:end() ...

Héctor gracias por tu sugerencia,
en mi caso solo quiero buscar un registro, con un campo numérico:

oQry:Seek( cstr( nCodigo ), "CODIGO" )

la tabla solo tiene un registro con ese código,

con tu estrategia como seria?

saludos. gracias.

... the picture does not work "@Z" fields get? only works with the transform( function this also applies to date fields sample ====== local nCodigo := 0 local onCodigo transform( nCodigo , '@Z 9999' )    REDEFINE GET onCodigo           VAR nCodigo         ID 107   ;            OF oCadFornecedor ...

... cImagen:=oTb:ReadFromFile(cFoto) cInsert:= "INSERT INTO `fotos` (`cfoto`,`codigo`,`ctexto`) VALUES " cInsert +="('"+cImagen+"','"+str(nCodigo)+"','"+alltrim(cTexto)+"');" ::oDataBase:Execute(cInsert)

... para filtro debe ser del estilo local ccondicion := " FIELD->FSERIE+Str(FIELD->FNUMERO,10) >= '"+cFSERIE1+ Str( nCodigo1,10 ) +; "'.AND. FIELD->FSERIE+Str(FIELD->FNUMERO,10) <= '"+cFserie2+Str(nCodigo2,10)+"'" ...

... ELSE MsgStop( "Banco de Dados Bloqueado", "Cuidado!" ) RETURN NIL ENDIF IF lAppend //-> Inclusao DbClientes:SetOrder( 1 ) DbClientes:GoBottom() nCodigo := ( DbClientes:Raz_Matric ) DbClientes:SetBuffer( .T. ) DbClientes:Blank() ELSE //-> Altera‡Æo nRecNo := (DbClientes:cAlias)->( RecNo() ...

Hola amigos Tengo un problema con los filtros, una ayuda :) Esto codigo me funciona perfectamente ncodigocli:=517 cFil:="ncodigo="+str(ncodigocli) (oData:narea)->(dbSetFilter({||&cFil},cFil)) Pero esto no me va cNombre:=" Juan" cFil:="cliente="+trim(cNombre) (oData:narea)->(dbSetFilter({||&cFil},cFil)) ...

... STATIC FUNCTION Consulta_Empresa( oNodo, cFile ) Local oIter, oNodeChild , oNode, oIterDia, oNodeDia, oNodeDet Local oNodeHab Local nCodigo , cNombre Local oDoc, oRes, oNode_Empresa, oUnidad, oDbf Local cPath, cFileName If !open( "AGENCIAS" ) Error_Msg( cFile, "NO SE PUDO ABRIR AGENCIAS", ...

... LO ESTOY HACIENDO PORQUE SE SUPONE QUE LA LECTURA LA HECE EL CODIGO+UN ENTER, ENTONCES LO QUIERO ACER ASI PERO NO FUNCIONA... :lol: @ 35,20 GET nCodigo VAR mensa PIXEL SIZE 80,10 oDlg:bKeyDown = { | nKey,nFlags | KeyChar(nKey,nFlags)} FUNCTION KeyChar(nKey,nFlags) local nColPos := 0, nColInit:= ...