FiveTech Software tech support forums

... un numero"; action OneNumb(oBtnNum, oSay,@aNatural ) ..... Function OneNumb(oCmb, oSay,aNatural ) local atemp := {} local nAt,nAp local cNum //check and del to aNatural the numbers are allready on alista For n=1 to Len(aLista) cNum:= alista[n] nAp:= AScan( aNatural, val(cNum) ) IF nAp>0 ...

... c10:= "091929394959697989" contacomb:= 1 do while (contacomb <= combinaz) c:= "C" + LTrim(Str(contacomb)) cnum:= LTrim(Trim(&c)) <----------------- give me error here not found c1 conta:= 1 do while (conta <= Len(cnum) / 2) num:= "N" ...

Nages, cNum := cNumToStr( nValue, .f., .f. ) Wow, one line, I like that! Less is more. I note that in my version of FWH 1805, it is not listed in the documentation, but the function is in version 1805. You might want to check ...

Code: Select all  Expand view

cNum := Str( .... )
cTrim := If( "." $ cNum, RemRight( RemRight( cNum, "0" ), "." ), cNum )
 

OR
Simply use the FWH built-in function

Code: Select all  Expand view

cNum := cNumToStr( nValue, .f., .f. )
 

instead of using cNum := Str( nValue )

I wonder if we can use this technique also for the mem variables ? During programming we define a lot of local variables local cNum:="", nTel:=0 ..... Maybe you also make a object out of it, so that ALL vars or at least those that are used othen on several places can be set ...

... la ventana sigue igual. El código completo del archivo es este: #include "fivewin.ch" #define OFN_ENABLESIZING 0x00800000 function ANEXA(cnum, cnom, nLibro, dfecha, cCentro, cDoc, cPrio, cClasedoc) Local cRaiz:="\COMPARTIDO\REGSAT\WINSAT\DOCUMENTAL" LOCAL CarpetaSAT:=alltrim(cnum)+"-"+alltrim(cnom) ...

... incluidas en un oFld en otros prgs. Por ejemplo: @ 190, 25 BUTTON "Editar " OF oFld:aDialogs[ 2 ] SIZE 40,20 PIXEL ACTION editsoc(cnum, cdenom, nptasti, neuti, nRecnoSoc, obrwsoc) Dado que tengo muchos folders que a su vez tienen muchas funciones, me gustaría crear un prg por folder, ...

... customer object, so you probably wouldn't have to do that seek. I just miss the point of using this instead of a function. Function printCustlist(cNum) Code for printing report Return NIL I also can say : printcustlist(Cust->CNo) One reason is database state as I just mentioned. Inheritance, ...

... ) can be done everywhere without thinking of alias.. I just mis the point of using this instead of a function. Function printCustlist(cNum) Code for printing report Return NIL I also can say : printcustlist(Cust->CNo) I agree that with OOp everithing is located in the class Tcustomer, ...

... 7,1 ) Activate Dialog oDlg Center On Init aBtn[1]:Click() return Nil Static Function ps_Seek( aGet, oActiveX ) local i, abEval, cStreet, cNum, cCity, cCountry, cTemp local cHtml := MemoRead( "google\google.html" ) cStreet := GoogleOk( AllTrim( Eval(aGet[1]:bSetGet) ) ) cNum ...

Hola Jose Luis,

Por que no haces la conversión para str ANTES de pasar a Fastreport? mas o menos esto:

cNum_llamada:=str(num_llamada)

Y dentro de fastreport usa el CallHbFunc('SubStr', [cNUM_LLAMADA, 1, 1])

Prueba y me comentas

*-------------------------------------------------------------------------------* function fig2wrd( nNum, cCurr, cPaise ) local cNum := i2c( nNum ), cRet := '', cDec := '' cCurr := iif( cCurr = NIL, 'Rupees', cCurr ) + ' ' cPaise := iif( cPaise = NIL, 'Paise' , cPaise ) + ' ' if '.' $ ...

Rick,

i tried
SELECT * FROM empleados WHERE calle like '%JUAN%' and numero like '%12%'
or
cCalle = 'JUAN'
nNum = STR(12,2)
SELECT * FROM empledos WHERE calle like "'%" + cCalle + "%'" and numero like"'%" +cNum + "%'"
and result is ok
regards
pak.o

... below, the button does not skip ? If I remove skinbuttons(), its ok. #include "fivewin.ch" function main() Local oDlg Local oNum Local cNum skinbuttons() if (!file("TestNum.dbf")) tmpdbf:= {} AAdd(tmpdbf, {"Num", "C", 40, 0}) dbcreate("TestNum.dbf", ...

... below, the button does not skip ? If I remove skinbuttons(), its ok. #include "fivewin.ch" function main() Local oDlg Local oNum Local cNum skinbuttons() if (!file("TestNum.dbf")) tmpdbf:= {} AAdd(tmpdbf, {"Num", "C", 40, 0}) dbcreate("TestNum.dbf", ...