FiveTech Software tech support forums

FiveWin for xHarbour 23.07
---------------------------

//
Do while !eof()

cPdfFile := m->xpath+"\PDF\"+strzero(99->cliente,6)+".pdf"
PRINTER oprn FILE cPdfFile
.
.
.

sele 99
skip
enddo

... PDF de una facturación, pero con equipo rápido no me genera el contanido de los mismos. Me graba el nombre, pero con contanido vacío. do while !eof() VTA1100PE() // Tiene que generar un archivo PDF. // Pero lo genera vacío, // porque es muy rápido el proceso. // y no se como detenerlo para darle ...

... this is the source AAdd( ademo, {"00000","Nessuna"} ) DO WHILE !oDbf:Eof() AAdd( ademo, {oDbf:Cod,TRIM(oDbf:DESC)} ) oDbf:Skip() ENDDO AAdd( ademo, {"00000","Aggiungi"} ) I wish only "Nessuna" ...

Armando, mira se ayuda:

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=4141&p=18272&hilit=El+valor+de+BOF+o+EOF+es+True&sid=fdf732bd19789fb68e7dee0716c16d70&sid=63a75c395d0fbee47c116d52036b8fa3#p18272

Regards, saludos.

Thanks Mr Rao....

You are right. With RecSet, eof() and bof() do not work. We will try to provide this in future versions. for now you can use this: nRecs := oData:RecCount()nSave := oData:RecNo()do while oData:RecNo() <= nRecs  ...

What about calling oData:MoveFirst() before starting the Do while Loop ?

Mr Rao You can help me please , I use RecSet, but not work correctly, EOF() and BOF() not workink with RecSet, see you this example: I used MaeiaDb Function ListaUser(oCn)local lOK, cData, oData, aRet := {}lOk := .t.cData := "SELECT nick ...

... local c1,c2 local cFileName := "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) ...

Hi to all 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 ...

How can I calculate number of pages in a print using 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 ...

... DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ 1: => EMP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO 6 TOLEAUTO ...

... DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ 1: => EMP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO 6 TOLEAUTO ...

Estimado Elmo, tu código, tal cual, sin cambiar nada. De hecho si no apareciese, no se te crearia TEXTO.PDF pdfend:=At("%EOF",CTXT) sin eso, no obtendrias un valor que te permite salvar el fichero TEXTO.PDF ok,Entiendo, pero a mi me lo crea de igual forma pero en Blanco con ...

Estimado Elmo,

tu código, tal cual, sin cambiar nada. De hecho si no apareciese, no se te crearia TEXTO.PDF

pdfend:=At("%EOF",CTXT)

sin eso, no obtendrias un valor que te permite salvar el fichero TEXTO.PDF