FiveTech Software tech support forums

... 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, and generally more understandable. ...

Lamentablemente mi version debe ser muy vieja porque los dos ultimos paramentros ( [cSaveTo], [lShow ]) no los contempla
La que tengo llega hasta aqui FW_DbfToExcel( [cFieldList], [bFor], [bWhile], [nNext], [nRec], [lRest] )
Igualmente gracias
Abrazo

...  TAG neworder  FOR !DELETED() MEMORY ADDITIVE   Endif With Tdatabase oDbf local cfor := "!Deleted()" local bFor := "{ || " + cfor + "}" //take the fields cExpression:="" IF !Empty(cField1 ) .and. !Empty(cField2 ) .and. !Empty(cField3) ...

... Siempre he utilizado, sin problemas, esta función para crear consultas, Browsers, y reportes, utilizando los dos primeros parámetros: cFieldList y bFor. Hoy se me presenta la necesidad de crear el array extrayendo los datos desde varias tablas DBF, sin resultados. En el siguiente ejemplo, el browser ...

cfor := "!Deleted()"
bFor := "{ || " + cfor + "}"

OrdCondSet(cFor,bFor,,,,, RECNO(),,,, )

... ::aIdx ) ) NEXT the "!deleted()" where I can insert ? I tried with bCode := "{ || " + ::aIdx[ i, 2, k, 1 ] + "}" bFor := "{ || " + "!Deleted()" + "}" OrdCondSet(,bFor,,,,, RECNO(),,,, ) OrdCreate( ::aIdx[ i, 2, k, 3 ], ::aIdx[ i, 2, ...

... functions are ready: function MH_ArrayToHTML( aData, aHead, lWebPage ) function MH_BinrayRsToHTML( oRs ) function MH_DbfToArray( cFieldList, bFor, bWhile, nNext, nRec, lRest, aData ) function MH_DbfToHTML( cFieldList, lWebPage ) function MH_ImageToBase64( cImage ) function MH_RecordSetToHTML( ...

... por otras funciones, por ejemplo: FW_DbfToExcel(), FW_AdoToExcel(), etc. * Mejoras en la función FW_DbfToExcel() FW_DbfToExcel( [cFieldList], [bFor], [bWhile], [nNext], [nRec], [lRest], [cSaveTo], [lShow] ) Fuente: \source\function\dbffunc2.prg: lShow: Nuevo parámetro opcional. Por defecto ...

... function is internally used by other functions eg. FW_DbfToExcel(), FW_AdoToExcel(), etc. * Enhancements to function FW_DbfToExcel( [cFieldList], [bFor], [bWhile], [nNext], [nRec], [lRest], [cSaveTo], [lShow] ) Source: \source\function\dbffunc2.prg: lShow: New optional parameter. Defaults to .f. ...

artu01 wrote:
Try this way

Dear artu01,
we allready resolved

For Groups
oReport:aGroups[ nGroup ]:nCounter

for bfor and others
local nCounter:= 0

...
oReport:bStartRecord := { || nCounter++ }

...
ACTIVATE REPORT oReport ;
....
oReport:Say(1, 'Total customers: '+Tran(nCounter, '@E 999,999'), 1)

... Mr NagesWarao explain how we must make there is also a sample , it run for bfor condition but when you try to insert a group not run I used his test sample and I insert group command    #include 'fivewin.ch'    #include 'report.ch'  ...

... makes a mistake) but we have to invent a local variable in our program to count the records, often when we have to print for a certain condition (bFor) It wasn't like that before. I don't remember right now but fw didn't have these problems

... Mr NagesWarao explain how we must make there is also a sample , it run for bfor condition but when you try to insert a group not run I used his test sample and I insert group command    #include 'fivewin.ch'  ...

... I made a research, this problem was from before perhaps 2009 For the test, If you think to found a good solution, You must try with alone , with bfor condition, and group condition

... ; FONT 1 oReport:nCounter is right for each group and the total counter is right If I not use Groups but only easy bfor sample : ACTIVATE REPORT oReport FOR dInicio <= CU->HIREDATE .AND. CU->HIREDATE <= dFinal ; ON END ( oReport:StartLine(), oReport:EndLine(), ...