FiveTech Software tech support forums

... DIALOG 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 GET oDetalle VAR ...

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

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()
Msginfo('No existe ninguna ...

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.

why 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 ; PICTURE "999" ; FONT ...

... en el campo blob puede guardar cualquier cosa.



oTb:=TMsQuery():New(::oDataBase)
cImagen:=oTb:ReadFromFile(cFoto)

cInsert:= "INSERT INTO `fotos` (`cfoto`,`codigo`,`ctexto`) VALUES "
cInsert +="('"+cImagen+"','"+str(nCodigo)+"','"+alltrim(cTexto)+"');"

::oDataBase:Execute(cInsert)

... La sentencia para filtro debe ser del estilo

local ccondicion := " FIELD->FSERIE+Str(FIELD->FNUMERO,10) >= '"+cFSERIE1+ Str( nCodigo1,10 ) +;
"'&#46;AND&#46; FIELD->FSERIE+Str&#40;FIELD->FNUMERO,10&#41; <= '"+cFserie2+Str&#40;nCodigo2,10&#41;+"'"


Suponiendo fnumero un ...

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

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

... LO ESTOY HACIENDO PORQUE SE SUPONE QUE LA LECTURA LA HECE EL CODIGO+UN ENTER, ENTONCES LO QUIERO ACER ASI PERO NO FUNCIONA...



@ 35,20 GET nCodigo VAR mensa PIXEL SIZE 80,10
oDlg:bKeyDown = { | nKey,nFlags | KeyChar(nKey,nFlags)}



FUNCTION KeyChar(nKey,nFlags)
local nColPos := 0 ...