FiveTech Software tech support forums

... oBrw, n )} static function RepSetUp( oRep, oBrw, n ) oRep:lJoin := .t. oRep:lSeparator := .t. oRep:lBoxOnTotal := .t. AEval(oRep:aColumns, {|o| o:lGrid := .t.} ) return nil https://i.postimg.cc/VvsQCnns/h.png I not see vertical lines

... GROUP ON oTELE0060:A_ENTRE_60; FOOTER SUBSTR(oReport:aGroups[1]:cValue,1,8) + '=>' + Alltrim(str(oReport:aGroups[1]:nCounter)); FONT 2 oReport:lGrid := .T. oReport:cGrandTotal := "Total Geral ==>" END REPORT IF !oReport:lCreated RETU NIL ENDIF oReport:oTitle:aFont[1] := {|| 2 } ...

... {bTitulo(::aTitulos,i)},,{bCampo(::aCampos,i)},::aWidth[i],{bPicture(::aPicture,i)},{||1},::aTotal[i],,upper(::aAlign[i]),::lshadow,::lGrid,) the function bCampo(::aCampos,i) function bCampo( aCampos, nFor ) return (fieldWBlock(aCampos[nFor],SELECT() )) why not return the field ? the ...

Javier,

Prueba asi:

ACTIVATE REPORT oReport ON STARTLINE oReport:lGrid := .F.

... ::nLblWidth Label Width :nLblOnLine Lables for line ::nLblAtcol Labels for column :nLblHSep Horizontal separation ::nLblVSep Vertical separation ::lGrid if there is Grid ::nPenGrid Pen for grid ::lShadow shadow labels or we can create a file as INI with some template of labels as 7022=3,5|6,4|3|2|2|2 ...

Hola a todos: Yo tenia un problema similar y al final encontre el problema, tenia habilitada la opcion oRpt:lGrid := .T. creo que es la combinacion de Footer + Grid, tb uso Footers en mi reporte Deshabilite el grid y ya no tuve el problema, y para dibujar las lineas las hice ...

... Function ResumenCaja(oReport,nTContado,nTRcaja,nEfectivo,nVauchers) local nLinAdic:=5 oReport:lGrid := .f. CkNewPage(oReport,nLinAdic) //chequear si necesita nueva pagina oReport:NewLine() oReport:Say( 1, "RESUMEN DE CAJA:") oReport:Say( ...

... "+dtoc(date())+ " Página.: "+str(::oReport:nPage,3) ; CAPTION "" PREVIEW ..... ...... ... IF ::oReport:lCreated IF ::lGrid ::oReport:SetPenColor(::nColore) ------------> not run !!!! ::oReport:CellView() ::oReport:SetShdColor(CLR_GRAY) ENDIF ::oReport:nTitleUpLine ...

... Function DatosFin(oReport,aBases,aConcep) *------------------------------------------------------------------------------- local n oReport:lGrid := .f. CkNewPage(oReport) //chequear si necesita nueva pagina oReport:NewLine() //espacio de una linea CkNewPage(oReport) //volver a chequear ...

... Function DatosFin(oReport,aBases,aConcep) *------------------------------------------------------------------------------- local n oReport:lGrid := .f. oReport:lFinish := .f. for n:=1 to len(aBases) oReport:NewLine() If oReport:NeedNewPage() oReport:StartPage() Endif oReport:Say(5, aConcep[n] ...

... oReport:bPostEnd:= {|| prueba(oReport) } ACTIVATE REPORT oReport oFont1:End() dbSetOrder(1) RETURN NIL Function prueba(oReport) oReport:lGrid:=.f. //quitar los divisores de columnas oReport:NewLine() oReport:NewLine() oReport:Say(1,"RESUMO" ) oReport:NewLine() oReport:Say(1,"Saldo ...

... ] ; [ <total: TOTAL> [ FOR <bTotalExpr> ] ] ; [ <ColFmt:LEFT,CENTER,CENTERED,RIGHT> ] ; [ <lShadow:SHADOW> ] ; [ <lGrid:GRID> [ <nPen> ] ] ; [ <memo: MEMO, MULTILINE> ] ; [<img:IMAGE> [ IMGDATA <bimg> ] [HEIGHT <h> [<imgpix:PIXEL>] ...

... ] ; [ <total: TOTAL> [ FOR <bTotalExpr> ] ] ; [ <ColFmt:LEFT,CENTER,CENTERED,RIGHT> ] ; [ <lShadow:SHADOW> ] ; [ <lGrid:GRID> [ <nPen> ] ] ; [ <memo: MEMO, MULTILINE> ] ; [<img:IMAGE> [ IMGDATA <bimg> ] [HEIGHT <h> [<imgpix:PIXEL>] ...

... otto but I have allready try with haircross with no success exit a function drawgrid but I not know How run it METHOD Grid() CLASS Tmetafile if !::lGrid return nil endif ::oWnd:GetDC() DRAWGRID(::oWnd:hDC, 8, 8, 8) ::oWnd:ReleaseDC() return nil but it not run

... * SUM exento TO nTotales[2] * SUM base TO nTotales[3] * SUM iva TO nTotales[4] * SUM ivaret TO nTotales[5] * SUM exento TO nTotales[6] oRpt:lGrid := .F. // DESACTIVA LAS CELDAS DE LOS REGISTRO TIPO EXCEL oRpt:NewLine() oRpt:SAY( 1,"Total Ventas y/o Sin Derecho a Credito Fiscal: " + STR( ...