FiveTech Software tech support forums

... I call the fields array use this command RptAddColumn( {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() ...

... LOCAL aFiles :={},nSize:=0,oFile,cMemo:="" LOCAL cBin :=Lower(cFilePath(GetModuleFileName( GetInstance() ))) LOCAL aPages:={},I,aTotal:={},nTotal:=0,lZip:=.F. LOCAL aPag :={},nPage LOCAL nFileMax :=(1024**4)*2 // Tamaño maximo permitido para almacenar, en paginado el limite esta ...

... "+oReport:aGroups[1]:cValue+" "+LTrim(Str(oReport:aGroups[1]:nCounter))+" -----> "+ Transform(oReport:aGroups[1]:aTotal[4] ,"999,999,999.99") //[4] es la columna en el reporte, que totalizas además: ACTIVATE REPORT oReport ON STARTGROUP ( oReport:aColumns[4]:nTotal:=0 ...

... Registros "+oReport:aGroups[1]:cValue+" "+LTrim(Str(oReport:aGroups[1]:nCounter))+" -----> "+ Str(oReport:aGroups[1]:aTotal[1],6,2) ; FONT 1 Desde ya muchas gracias .....

... ADD COLUMN TO ::oLbx2 ; // 3 HEADER "Cargos" ; SIZE 100 PIXELS ; DATA FieldWblock( "M_CARGO", Select() ) ; PICTURE "99999,999.99" ; FOOTER { || ::aTotal[1] } ; 3DLOOK TRUE ALIGN DT_RIGHT, DT_CENTER, DT_RIGHT; EDITABLE MOVE DT_MOVE_NEXT ADD COLUMN TO ::oLbx2 ; // 4 HEADER "Abonos" ; SIZE 100 PIXELS ...

... TWBROWSE: Acho que o que precisas é a linha: oLbx:bEdit:= {|nCol, cBuffer, lFirstEdit|; EditaCelda( oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal ) } Exemplo: #include "FiveWin.ch" Function Main() LOCAL aTotal:= {0,0,0, Nil, Nil, Nil} LOCAL aDatos:= {} // Array MultiDimensional // Cod.Art. ...

... noticed that you have a syntax error in your code--too many parenthses. It should be: oReport:bEndGroup:={ ; | oCol | ; (oCol:oReport:aGroups[1]:aTotal[2]:=(oCol:oReport:aGroups[1]:aTotal[4] * 30) ),; (oCol:oReport:aGroups[2]:aTotal[2]:=(oCol:oReport:aGroups[2]:aTotal[4] * 30) ); } James

... like this: {| | function1(), function2(), function3() } So for your code just do this: oReport:bEndGroup:={ ; | oCol | ; (oCol:oReport:aGroups[1]:aTotal[2]:=((oCol:oReport:aGroups[1]:aTotal[4] * 30) ),; (oCol:oReport:aGroups[2]:aTotal[2]:=((oCol:oReport:aGroups[2]:aTotal[4] * 30)); } James

Hi I have a Report with 2 groups and i need to declare 2 bEndGroup oReport:bEndGroup:={ | oCol | (oCol:oReport:aGroups[1]:aTotal[2]:=((oCol:oReport:aGroups[1]:aTotal[4] * 30) )} oReport:bEndGroup:={ | oCol | (oCol:oReport:aGroups[2]:aTotal[2]:=((oCol:oReport:aGroups[2]:aTotal[4] * 30))} ...

... Fijate estos metodos: oLbx:lAutoEdit := .t. oLbx:bEdit:= {|nCol, cBuffer, lFirstEdit|; EditaCelda( oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal ) } Algo similar podes hacer con browses sobre dbfs: oBcli:lAutoEdit := .t. oBcli:bKeyChar := {|nK| if( nK==VK_RETURN,oBcli:Edit(oBcli:nColAct,.t.),) ...

>I discovered the solution. I need to force de Atotal[4]

Right. Sorry I didn't mention that.

Glad to hear you got it working.

James

Hi James

I discovered the solution. I need to force de Atotal[4]


oReport:bEndGroup:={ | oCol | (oCol:oReport:aGroups[1]:aTotal[4]:=(oCol:oReport:aGroups[1]:aTotal[3] / oCol:oReport:aGroups[1]:aTotal[2]) * iif(tcalc=1,365,12) )}


Regards

Pedro

... FOOTER "Total factor - "+oReport:aGroups[1]:cValue+ ; " ("+ltrim(str(oReport:aGroups[1]:nCounter))+")"; FONT 1 pmp_g:=(aGroups[1]:aTotal[3] / aGroups[1]:aTotal[3]) * iif(tcalc=1,365,12) ?? How can i print pmp_g ?? under the 4 column END REPORT Activate Report oReport ON STARTGROUP ...

Group Totals Here is how you can get access to the group totals: oReport:bEndGroup:={ | oCol | msgInfo( oCol:oReport:aGroups[1]:aTotal[4]) } This would show the group total for column 4 of group 1 (if you are only using one group then it will be 1. Note that bEndgroup is eval'd before ...

... nRow, 18) )} aAlign[1]:=3 aAlign[2]:=3 aAncho[1]:=13 aAncho[2]:=10 aPicture[1]:="#,##0" aPicture[2]:="#,##0" aFormula[1]:=.F. aFormula[2]:=.T. aTotal[1]:=.T. aTotal[2]:=.T. FOR i= 1 to len(aDato) DEFINE XLS FORMAT aFormat[i] PICTURE aPicture[i] NEXT //Creo objeto XLS XLS oXLS FILE &cNomFile ...