FiveTech Software tech support forums

... = .t. oCancelar:lTransparent = .t. ACTIVATE DIALOG oDlgMa CENTERED if lSave if agrega Materia->(DbAppend()) Materia->Codigo := nCodigo endif Materia->Detalle := cDetalle Materia->Abrevia := cAbrevia Materia->Ramo := nRamo Materia->Costo := nCosto Materia->Unidad := cUnidad ...

Gracias armando, quedo muy bien..
FUNCTION Redondear(nValor)
IF nValor % 10 <= 5
nValor := nValor - (nValor % 10)
ELSE
nValor := nValor + (10 - nValor % 10)
ENDIF
RETURN(Round(nValor,0))

saludos

José:

Creo que esto puede funcionar

FUNCTION Redondear(nValor)
IF nValor % 10 <= 5
nValor := nValor - (nValor % 10)
ELSE
nValor := nValor + (10 - nValor % 10)
ENDIF
RETURN(nValor)

Pruébalo, los hice de salida y asumo que en valor no hay fracciones decimales

Saludos

... .AND. val_num<=5 valor = numero - val_num ElseIf val_num>= 6 .AND. val_num<= 9 valor = numero + (10-val_num) Else valor:=numero Endif Return(valor) Pero no se si se podria mejorar saludos

... not. I wrote such a function: if AtLine(adr, "{|xx|asc(xx)<48.or.asc(xx)>57}")=0 ............................................... endif function AtLine(itm, xBk)  local st, nOk:=0 ** itm - string  ** xBk - code block  xBk:=&xBk for st=1 to len(itm) if eval(xBk, itm[st]) nOk:=st ...

... :",@cPer ) WaitOn("Espere un momento por favor....",@oWait ) If cPer = Space(30) x := "" Else x := Upper(Alltrim( cPer )) EndIf cWhere := "detalle LIKE '"+x+"%'" oQry:SetFilter( cWhere ) aServer:ShowError() SysRefresh() oBrw:Refresh() WaitOff( @oWait ...

... favor....",@oWait ) If cPer = Space(30) cWhere := "" Else x := Upper(Alltrim( cPer )) cWhere := "c.detalle LIKE '% ? %' " EndIf oQry:SetFilter( cWhere ,{x}) aServer:ShowError() SysRefresh() oBrw:Refresh() WaitOff( @oWait ) EndIf Return da este resultado Compiler version: ...

... ) If cPer = Space(30) cWhere := "" Else mWhere := {Upper(Alltrim( cPer ))} cWhere := "c.detalle LIKE '%?%'" EndIf TRY oQry:SetFilter( cWhere , mWhere) CATCH o SysRefresh() END oBrw:Refresh() WaitOff( @oWait ) EndIf Return Pero no me esta realizando el filtrado

... "*.*" ) local i,cFile FOR i = 1 to LEN( aDir ) cFILE := ALLTRIM( aDIR[i][1] ) IF FErase(cDir+cFile ) != 0 Msginfo( FERROR() ,cfile) endif NEXT return nil

... devi controllare il contenuto dell'array IF cFile <> "." .OR. cFile <> ".." IF FErase(cDir+cFile ) != 0 ? FERROR() ENDIF ENDIF consiglio 1 : senza parametro "D" consiglio 2 : metti il path -> cDir + cFile

... := "table.rtf" local oFile := FCreate(cFileName, 0) aTable := {} Do while (!oTemp4:Eof()) * If Empty(oTemp4:Nome) oTemp4:skip() Loop Endif ....................... c1:="Cartella n."+ Trim(oTemp4:codice) c2:=alltrim(oTemp4:nome) procedure to Create atable from oTemp4 ........................ ...

Hello
ors:Find() only works with one field.

If I need more fields use the Filter function

oRs:Filter = "ll_consec="+alltrim(cFcEn)+" AND ll_docume="+alltrim(cFcDc)
IF oRs:RecordCount() == 0

ENDIF
oRs:Filter := "
Maurizio "

... ".", ",") ntest4 := STRTRAN(str(oBrowse:aArraydata[nRecord][5]), ".", ",") Endif https://i.postimg.cc/W3tLsgFM/kk.png test with strtran not run , so tell me where I wrong #include "Fivewin.ch"#include ...

... );" IF !EJECUTA(cCmdSql+cCMDVAL) MsgStop("ERROR AL GRABAR ARCHIVO "+cFILE ,"AVISO") RETURN(.F.) ENDIF RETURN(.T.) PARA RECUPERAR FUNCTION EDATOS(cDAT,cNOM) cARCH=HexToStr(cDAT) ASALIDA:=".\"+cNOM hFile := FCreate(asalida) FWrite( hFile, ...

... oHttp:Send( cHttpSend ) oHttp:WaitForResponse( nSecs ) Sysrefresh() IF oHttp:status=200 cWinResp := oHttp:ResponseBody ENDIF