FiveTech Software tech support forums

Saludos !

Esta es la manera correcta de hacerlo

[CallHBFunc('SubsTr',[<TUVARIABLE>,nDesde,nHasta])]

... ):Value END REPORT if oRpt:lCreated oRpt:bSkip := { || ( nDesde++, oRs:MoveNext() ) } endif ACTIVATE REPORT oRpt WHILE nDesde <= nHasta o bien puedes hacerlo desde el ACTIVATE REPORT como te indique en el post anterior, Saludos, Desde Managua, Nicaragua Ramon Paredes

... ACTIVATE REPORT oReport ON STARTPAGE StartPage(1,oReport) ON STARTLINE versombra(oReport); ON STARTGROUP(oReport:NewLine() WHILE nLinea <= nHasta,; oReport:EndLine(),; oReport:Say(0,"Referencia " +oDatos:Fields("refcat"):Value,3,,oReport:nRow),; oReport:NewLine(),; oReport:EndLine() ...

A mi me funciona Asi. COn Mysql


if oDatos:RecordCount() =0 //ADORecCount()
MsgInfo("No Hay Datos ","Informacion") Return (.t.)
endif
nLinea := 1 ; nHasta := oDatos:RecordCount()
oDatos:MoveFirst()

... Para un reporte con Mysql puedes hacer lo siguiente : FUNCTION Imp_lista() \\ funcion para impresion del listado/reporte LOCAL nLinea := 1 LOCAL nHasta := oRs:RecordCount() \\contador de registros del recordset oRs:MoveFirst() \\ voy al primero REPORT oReport TITLE " MI REPORTE " ECT ...

... SIZE 0,-8 DEFINE FONT oFont3 NAME "TAHOMA" SIZE 0,-12 DEFINE FONT oFont4 NAME "TAHOMA" SIZE 0,-10 BOLD I:= 1 ; nHasta := LEN(AREP) REPORT oReport TITLE TIT1,TIT2,TIT3 HEADER X_CIA CENTER ; FOOTER "PAGINA: "+TRANS(oreport:npage,"999")+SPACE(40)+; ...

... :={||4} oReport:oTITLE:afont[2] :={||4} oReport:oFOOTER:afont[1]:={||2} oReport:CELLVIEW() ENDI oReport:bWhile := { || I <= nHasta } oReport:bSkip := { | | I++} ACTIVATE REPORT oReport

... SIZE 0,-8 DEFINE FONT oFont3 NAME "TAHOMA" SIZE 0,-12 DEFINE FONT oFont4 NAME "TAHOMA" SIZE 0,-10 BOLD I:= 1 ; nHasta := LEN(AREP) REPORT oReport TITLE TIT1,TIT2,TIT3 HEADER X_CIA CENTER ; FOOTER "PAGINA: "+TRANS(oreport:npage,"999")+SPACE(40)+; ...

... el browse, cuando llegaba al final daba error. He modificado la función de la siguiente forma: STATIC FUNCTION I_LISTA( oRs ) local nLinea := 1, nHasta := oRs:RECORDCOUNT(), ; nBookMark := oRs:BookMark oRs:MoveFirst() REPORT oReport ; CAPTION ..... ................... END REPORT oReport:bWhile ...

... no se si eso tengo algo que ver 2.- Me olvide de indicarte estas dos línea de código, tal vez por ahí esta el problema LOCAL nLinea := 1 LOCAL nHasta := oRsPro:RecordCount() LOCAL nBookMark := oRsPro:BookMark .... .... .... ACTIVATE REPORT oReporte ; ON STARTPAGE Alinea(oReporte,1,2); ON END ...

... Manuel, muchas gracias por contestar. Al final la solución la he encontrado haciendo un popurrí con todo lo dicho por Vdes. 1) He utilizado: local nHasta := oRs:RECORDCOUNT(), nLinea := 1 ..... oReport:bWhile := { || nLinea <= nHasta } IF oReport:lCreated oReport:bSkip := { | | nLinea++, Ors:MOVENEXT() ...

... lo hago así con MySql, espero que te funcione con Oracle: Dentro de la función para la impresión tengo FUNCTION Imprime() LOCAL nLinea := 1 LOCAL nHasta := oRsPro:RecordCount() oRsPro:MoveFirst() Aquí van los DEFINE de fonts y REPORT // Creo que aqui esta el truco IF oReporte:lCreated oReporte:bSkip ...

... szText[i] <= 'z' ) szText[i] -= ( 'a' - 'A' ) ; } return( szText ) ; } LPSTR SinEspa( LPSTR szText, LPWORD pwLen ) { WORD nDesde = 0 ; WORD nHasta = *pwLen ; while( szText[nDesde] == ' ' && nDesde < nHasta ) ++nDesde ; while( szText[nHasta-1] == ' ' && nHasta > nDesde ...

... szText[i] <= 'z' ) szText[i] -= ( 'a' - 'A' ) ; } return( szText ) ; } LPSTR SinEspa( LPSTR szText, LPWORD pwLen ) { WORD nDesde = 0 ; WORD nHasta = *pwLen ; while( szText[nDesde] == ' ' && nDesde < nHasta ) ++nDesde ; while( szText[nHasta-1] == ' ' && nHasta > nDesde ...

... RETURN NIL * METHOD PintSombra(hDc) CLASS TDIAG LOCAL hOldP := SelectObject( hDc,::hPen ) LOCAL nCont1,nCont2 := 0 LOCAL nDesde := 2 LOCAL nHasta := ::nWidth+::nHeight-2 * FOR nCont1 = nDesde TO nHasta STEP 2 nCont2 := nCont1 - ::nHeight MoveTo(hDc,nCont1,0) LineTo(hDc,nCont2,::nHeight) ...