FiveTech Software tech support forums

... 6 GROUP ON CODPROV // DEFINO EL ROMPIMIENTO SIN NECESIDAD DEL DO WHILE END REPORT ACTIVATE REPORT oReport ON ENDPAGE oReport:lPageTotal:= .f. ; ON STARTGROUP( oReport:NewLine(), oReport:EndLine(), oReport:Say(0,"CLIENTE : " +codprov+"-"+ALLTRIM(codprov),4,,oReport:nRow), oReport:NewLine(),oReport:EndLine() ...

... "Largo/Alt" DATA largo,ancho FONT 1 SIZE 8 GROUP ON CODPROV END REPORT ACTIVATE REPORT oReport ON ENDPAGE oReport:lPageTotal:= .f. ; ON STARTGROUP( oReport:NewLine(),; oReport:EndLine(),; oReport:Say(0,"CLIENTE : " +codprov+"-"+ALLTRIM(codprov),4,,oReport:nRow),; ...

... ON C->CODIGO // DEFINO EL ROMPIMIENTO SIN NECESIDAD DEL DO WHILE END REPORT ACTIVATE REPORT oReport ON ENDPAGE oReport:lPageTotal:= .f. ; ON STARTGROUP( oReport:NewLine(),; oReport:EndLine(),; oReport:Say(0,"CLIENTE : " +C->CODIGO+"-"+ALLTRIM(C->NOMBRES),4,,oReport:nRow),; ...

... //Bold para lineas 1,2 del titulo oReport:oTitle:aFont[1] := {|| 2 } oReport:oTitle:aFont[2] := {|| 2 } ENDIF ACTIVATE REPORT oReport ; ON STARTGROUP ( oReport:NewLine() ); ON ENDGROUP ( oReport:nPage:=0, Eval(bCabez)); ON END oReport:lTotal:=.f. ; //No imprimir el gran total en la ultima ...

ANGSTIN Espero que esto te pueda ayudar ; ACTIVATE REPORT oReport While .... ON STARTGROUP (oReport:NewLine(),; oReport:EndLine(),; oReport:Say(0,"Dia : "+Fechas( oDatos:Fecha ) ,4,,oReport:nRow),; oReport:NewLine(),; oReport:Say(0,"OTRA LINEA DEL ...

Pedro,

I have never done it so I do not have an example.

If you are only using one defined group, then you may be able to just call the StartGroup method like this:

oRpt:bStartPage := ( || oRpt:startGroup( 1 ) }

Regards,
James

... } oReport:cPageTotal := "TOTAL DE ESTA PAGINA..." oReport:cGrandTotal := "TOTAL DE ESTA PAGINA..." ENDIF ACTIVATE REPORT oReport ; ON STARTGROUP oReport:NewLine(); ON STARTPAGE StartPag(oReport) oFont1:End() oFont2:End() oFont3:End() oPen1:End() oPen2:End() RETURN NIL Espero te sirva ...

... {|| ++nBrinco, oDatos:skip(1) }[/ b] END REPORT ACTIVATE REPORT oReport WHILE nBrinco <= len(oDatos:aDatos) ; ON STARTPAGE Tone( 100, 1 ) ; ON STARTGROUP oReport:NewLine()

... ; STR(oReport:aGroups[2]:nCounter,4) ; FONT 2 END REPORT oReport:lsummary := .T. oReport:aGroups[2]:bFootFont := {|| 2} ACTIVATE REPORT oReport ON STARTGROUP JumpLines(@oReport, 2) oFont1:End() oFont2:End() CLOSE ALL RETURN NIL Error Message: Error description: Error BASE/1132 Bound error: array ...

... REPORT IF cRad = 1 ACTIVATE REPORT oReport ; WHILE !(SERVOLUN->(EOF())); ON CHANGE (escriser(@oReport,SERVOLUN->CVOLUN,@thora,@tminu)) ; ON STARTGROUP (Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO))) ; ON STARTPAGE (Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO)), ...

... LEFT GRID oReport:CellView() oReport:oDevice:lPrvModal:=.T. END REPORT ACTIVATE REPORT oReport ON STARTGROUP BitmapsS(oReport,3.5,.3,.7,.9,(cDirfoto+BITACORA->FOTO)) ON STARTPAGE (BitmapsS(oReport,3.5,.3,.7,.9,(cDirfoto+BITACORA->FOTO))) return ...

Hola Aida, Este es un ejemplo de poner fotos o imagenes en Treport. ACTIVATE REPORT oReport ; WHILE !(SERVOLUN->(EOF())); ON STARTGROUP Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO))) ; ON STARTPAGE (Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO)), ; LinBox(oReport,1.5,.5,.6,.5), ...

ACTIVATE REPORT oReport ON STARTGROUP oReport:NewLine() ; ON STARTPAGE StartPage() STATIC Function StartPage() oReport:Box(0.1, ; 0.1, ; oReport:PhyHeight()-0.1, ; oReport:PhyWidth() -0.1 ) oReport:Line(0.9, 0.55, 2, 0.55, 2 ) oReport:Line(0.55, ...

Corrijo.

Problema arreglado anexando un oReport:endLine() al inicio del StartGroup.

!Armando Muchas Gracias!.

Problema arreglado anexando un oReport:end() al inicio del StartGroup.

Saludos.