FiveTech Software tech support forums

... bResultado :=.F.   LOCAL iFactor := 0   LOCAL sPrimerCaracter   LOCAL suma   LOCAL dividendo   LOCAL DividendoEntero   LOCAL resto   sRif := StrTran( sRif, "-", "" )   IF Len( sRif ) < 10      sRif := Upper( Left( sRif, 1 ) ) + PadL( ...

... EMF.PRG Error Time from start: 0 hours 0 mins 0 secs Error occurred at: 04/01/24, 11:43:31 Error description: Error BASE/1099 Argument error: STR Args: [ 1] = P 0x77940000 ->>> Justamente este es el pointer del handle de la DLL [ 2] = U [ 3] = U Comparando con versiones anteriores ...

... SIZE 0,-15 DEFINE DIALOG oDlg RESOURCE "CodLiqVar" . . . select _CoLiAux _CoLiAux->(DbGotop()) REDEFINE LISTBOX oLbx FIELDS str(_CoLiAux->Locatario,4,0) , ; _CoLiAux->Nombre , ; str(_CoLiAux->Propiedad,4,0) , ; _CoLiAux->Domicilio , ; str(_CoLiAux->importe,12,0) ...

... SIZE 0,-15 DEFINE DIALOG oDlg RESOURCE "CodLiqVar" . . . select _CoLiAux _CoLiAux->(DbGotop()) REDEFINE LISTBOX oLbx FIELDS str(_CoLiAux->Locatario,4,0) , ; _CoLiAux->Nombre , ; str(_CoLiAux->Propiedad,4,0) , ; _CoLiAux->Domicilio , ; str(_CoLiAux->importe,12,0) ...

... definido por WorkShop y funciona correctamente. en otra funcion en la cual copie el listbox en el prg . asi lo defini REDEFINE LISTBOX oLbx FIELDS str(_CoLiAux->Locatario,4,0) , ; str(_CoLiAux->Propiedad,4,0) ; ID _CLV_Lbx ; FIELDSIZES {50,50} ; HEADERS "Loc.","Prop" ; ...

... not to be standard. These seems to be ok. cErrorLog += " Dynamic memory consume:" + CRLF cErrorLog += " Actual Value: " + Str( MemUsed() ) + " bytes" + CRLF cErrorLog += " Highest Value: " + Str( MemMax() ) + " bytes" + CRLF

... - E:\Datafile\Ihss32\ihss32.exe Terminated at: 2024-02-26 14:12:18 Unrecoverable error 9003: Too many recursive error handler calls Called from STR(0) Called from ERRORDIALOG(151) in .\source\function\ERRSYSW.PRG Called from (b)ERRORSYS(23) in .\source\function\ERRSYSW.PRG Called from STR(0) ...

... days making a html page ? Like this function tabel_html_code_OLD() cTabel:='<br><p><span style="color:#0000CD;"><strong>Enkel deze maten zijn nog beschikbaar :</strong></span></p>' cTabel= cTabel + '<table border="0" cellpadding="1" ...

Gracias Armando, cree esta funcion FUNCTION Redondear(numero) *--------------------------- Local val_num := Val(SubStr(Str(numero,9),-1)) Local Valor := 0 If val_num>=1 .AND. val_num<=5 valor = numero - val_num ElseIf val_num>= 6 .AND. val_num<= 9 valor = numero + (10-val_num) ...

... don't you try using STRTRAN(). It is the solution here. Yes, do you test with STRTRAN ? run all ok ? sure ? IF nMode==2 //modify ntest1 := STRTRAN(str(oBrowse:aArraydata[nRecord][2]), ".", ",") ntest2 := STRTRAN(str(oBrowse:aArraydata[nRecord][3]), ".", ",") ...

... APROG :=DIRECTORY(cFILE) PUBLIC PROGNOM:=APROG[1,1] PUBLIC PROGTAM:=APROG[1,2] PUBLIC PROGFEC:=APROG[1,3] PUBLIC PROGHRS:=APROG[1,4] * cFileG := StrToHex(MemoRead(cFILE)) * cCMDVAL :="" cCmdSql := "INSERT INTO PROGRAMA(TIPO,ARCHIVO,NOMBRE,FECHA,TAMA,HORA) VALUES( " cCMDVAL ...

Otto wrote:Yes, see this line.

oGet[1]:bGotFocus := {|| (oGet[1]:cText := STR(VAL(oGet[1]:cText) *100,6), oGet[1]:Refresh(),oGet[1]:SelectAll()) }
Cesar, changed the GETs to character that you get the inputstyle you wanted.

Yes but nvar Is text array but i have numbers no texts

Yes, see this line.

oGet[1]:bGotFocus := {|| (oGet[1]:cText := STR(VAL(oGet[1]:cText) *100,6), oGet[1]:Refresh(),oGet[1]:SelectAll()) }
Cesar, changed the GETs to character that you get the inputstyle you wanted.

... line: 0 called from: ..\source\exec.prg, EXECUTE, line: 68 Source: 0066: cPRGPATH := hb_GetEnv( "PRGPATH" ) 0067: cPRGPATH := STRTRAN( cPRGPATH , "/", "\" ) 0068 =>cdbf_BLOG := cPRGPATH+ "\data\BLOG.DBF" 0069: lRecord := .T. 0070: but I make ...

... line: 0 called from: ..\source\exec.prg, EXECUTE, line: 68 Source: 0066: cPRGPATH := hb_GetEnv( "PRGPATH" ) 0067: cPRGPATH := STRTRAN( cPRGPATH , "/", "\" ) 0068 =>cdbf_BLOG := cPRGPATH+ "\data\BLOG.DBF" 0069: lRecord := .T. 0070: but I make ...