Search found 663 matches: enddo

Return to advanced search

Re: JSON2DBF adapter

... well. For example, if you have values and they are negative, you can present these in HTML in red instead of black. Thus, you have the `do while/enddo` not passing parameters like `[bFor]`, `[bWhile]`, `[nNext]`, `[nRec]`, `[lRest]`. Programming the loop and conditions is more readable, maintainable, ...
by Otto
Sun Feb 04, 2024 8:03 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: JSON2DBF adapter
Replies: 3
Views: 475

Re: Creating table with Trichedit

... to Create atable from oTemp4 ........................ then call CreateRtf(aTable,c1,c2,oFile) c1:="" c2:="" aTable := {} Enddo oTemp4:gotop() this is the function ( it must vreate the table on the same file rtf ) Function CreateRtf(aTable,c1,c2,oFile)    ...
by Silvio.Falconi
Thu Jan 25, 2024 10:00 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Creating table with Trichedit
Replies: 18
Views: 1310

Convert a print to Rtf or doc

... I have a print PRINT oPrn NAME "My Print" PREVIEW PAGE WHILE !EOF() some instruction like Prn:Say( nRow, nCol , bla bla ) ENDPAGE PAGE ENDDO ENDPAGE ENDPRINT I need some hints about the possibility to save the print into rtf for or doc You know for instance when you have a report in ...
by MarcoBoschi
Wed Nov 29, 2023 12:59 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Convert a print to Rtf or doc
Replies: 33
Views: 3236

Calculate total pages

... for instance PRINT oPrn NAME "My Print" PREVIEW PAGE WHILE !EOF() some instruction like Prn:Say( nRow, nCol , bla bla ) ENDPAGE PAGE ENDDO ENDPAGE ENDPRINT does exist a clause that permits me to run the function without print anything only for calculate number of pages it would be ...
by MarcoBoschi
Wed Nov 22, 2023 5:31 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Calculate total pages
Replies: 32
Views: 5508

IMPRESION ARCHIVOS PDF

... - Fac.: "+xlet+"-"+str(xemi,1)+"-"+strzero(99->numero,6) oText:refresh() sysrefresh() enddo sele 1 oIndex:End() oDlg:End() sysrefresh() xtim2:=time() msgwait(ELAPTIME(xtim1,xtim2),"Tiempo Transcurrido",4) *------------------- ...
by pedroluis
Mon Oct 02, 2023 3:41 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: IMPRESION ARCHIVOS PDF
Replies: 27
Views: 1487

Re: xHarbour.org updated!

... IF EMPTY( oCli ) BREAK ENDIF IF !oCli:Open( oUrl ) BREAK ENDIF WHILE .T. cString := oCli:Read() IF Empty(cString) EXIT ENDIF cMemo:=cMemo+cString ENDDO cString:=cMemo oCli:Close() oUrl:Close() END SEQUENCE MEMOWRIT("BCV.TXT",cMemo) MsgInfo( cString ) MemoEdit( cString ) Return Nil
by wartiaga
Mon Sep 18, 2023 7:22 pm
 
Forum: WhatsNew / Novedades
Topic: xHarbour.org updated!
Replies: 153
Views: 30980

Shell.Explorer.2 problem

... .t. ) // Disable my app until this window is closed! IF !empty(oDlg) oDlg:disable() ELSE oWnd:disable() ENDIF DO WHILE empty(cHtml) SysRefresh() ENDDO IF !empty(oDlg) oDlg:enable() oDlg:SetFocus() ELSE oWnd:enable() oWnd:SetFocus() ENDIF RETURN cHtml Thanks, Randal
by Randal
Mon Jun 26, 2023 10:05 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Shell.Explorer.2 problem
Replies: 12
Views: 669

Re: Program is frozen

Do you have WHILE... ENDDO with very LONG processing, without the SYSREFRESH() command? And you didn't inform what is the configuration of the computer and what is the capacity of the MEMORY STICK. ¿Tiene WHILE... ENDDO con un procesamiento ...
by karinha
Sun Jun 04, 2023 4:21 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Program is frozen
Replies: 14
Views: 502

Re: Program is frozen

In which FUNCTION? In this function, have WHILE... ENDDO? What memory stick does this machine have? If I wasn't afraid, post the SOURCE code for criticism, ok? ¿En qué FUNCIÓN? En esta función, tenga WHILE... ENDDO? ¿Qué tarjeta de memoria tiene esta ...
by karinha
Sun Jun 04, 2023 2:46 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Program is frozen
Replies: 14
Views: 502

PREVIEW Guardar nombre

... PREVIEW --> ¿ Como lo guardo ? do while !eof() oPrn:cmSay(08.90,03.30, alltrim(xnom)) oPrn:cmSay(08.90,15.00, alltrim(wbar)) l:=l+1 skip enddo ENDPRINT
by pedroluis
Thu Apr 20, 2023 2:54 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: PREVIEW Guardar nombre
Replies: 5
Views: 436

Re: ampersand

example:
select products
goto top
do while .NOT. eof()
cnaam=TRIM(products->naam) to transform in his real fieldname

select sales
append blank
replace sales->fieldname with ....

select products
skip 1

enddo
by jds
Mon Mar 27, 2023 3:08 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: ampersand
Replies: 13
Views: 1095

ampersand

... @ a,5 say cnaam OF oDlg FONT oFont @ b,12 get nalias OF oDlg SIZE 20,11 picture "999" FONT oFont skip 1 a=a+1 b=b+1.15 enddo
by jds
Tue Mar 21, 2023 5:32 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: ampersand
Replies: 13
Views: 1095

DBF REDE/WEB WINDOWS 7/10/11

... MES_ANO == "0121" ) TO RET_TEMP TEMPORARY DbSetIndex( "RET_TEMP" ) RETIDO->(DBGOTOP()) DO WHILE !EOF() ncontador++ SKIP ENDDO ? 'Tempo da leitura dos registros: ' + CRLF +; ElapTime(cTime,TIME()) + CRLF +; NETNAME() + CRLF +; ALLTRIM(STR(nContador)) +' Total Registros ...
by wanderson8
Sun Jan 08, 2023 3:10 pm
 
Forum: All products support
Topic: DBF REDE/WEB WINDOWS 7/10/11
Replies: 0
Views: 4644

Re: Questions about WebView

... if valtype(oDk)="U".or.oDk:ReadyState!="complete" WaitMessage() SysRefresh() else lOk:=.T. exit endif enddo if lOk itm:=oDk:getElementById('auto_cdi') itm:Click() endif
by Natter
Fri Nov 25, 2022 9:46 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Questions about WebView
Replies: 26
Views: 1595

Problem with tmeter

... oProgress:ntotal:= len(nTotaleStorico) //this make me error Do while .not. oStorico:eof() ..... oStorico:skip() oProgress:Set( npos++ ) ENDDO nothing happens the meter is stopped at 1% however both the download from the site and the unpacking, both the conversion from the file "storico.txt" ...
by Silvio.Falconi
Mon Nov 14, 2022 10:05 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Problem with tmeter
Replies: 3
Views: 295
Next

Return to advanced search