Amigos:
Disculpen otra vez la lata con xBrowse...
necesito saber como calculo el total de cada columna de un xBrowse
para colocarla en los footers.
Muchas gracias.
Ruben Fernandez.
@ 30,0 LISTBOX oLbx FIELDS (aAlias[26])->Codigo,;
(aAlias[26])->Nombre,;
transform(((aAlias[26])->CO01+(aAlias[26])->CR01),Publicas:cPic),;
transform(((aAlias[26])->CO02+(aAlias[26])->CR02),Publicas:cPic),;
transform(((aAlias[26])->CO03+(aAlias[26])->CR03),Publicas:cPic),;
transform(((aAlias[26])->CO04+(aAlias[26])->CR04),Publicas:cPic),;
transform(((aAlias[26])->CO05+(aAlias[26])->CR05),Publicas:cPic),;
transform(((aAlias[26])->CO06+(aAlias[26])->CR06),Publicas:cPic),;
transform(((aAlias[26])->CO07+(aAlias[26])->CR07),Publicas:cPic),;
transform(((aAlias[26])->CO08+(aAlias[26])->CR08),Publicas:cPic),;
transform(((aAlias[26])->CO09+(aAlias[26])->CR09),Publicas:cPic),;
transform(((aAlias[26])->CO10+(aAlias[26])->CR10),Publicas:cPic),;
transform(((aAlias[26])->CO11+(aAlias[26])->CR11),Publicas:cPic),;
transform(((aAlias[26])->CO12+(aAlias[26])->CR12),Publicas:cPic),;
transform(((aAlias[26])->Tot),Publicas:cPic);
HEADER " Código ","Nombre"," Enero "," Febrero "," Marzo "," Abril "," Mayo "," Junio "," Julio "," Agosto "," Sepbre "," Octubre "," Novbre "," Dicbre "," Total ";
FIELDSIZES 35,200,52,52,52,52,52,52,52,52,52,52,52,52,52;
ALIAS aAlias[26];
CURSOR oCurdedo;
COLOR CLR_BLACK, nRGB(226,226,208) ;
ON LEFT DBLCLICK (iif(!(aAlias[26])->(eof()) .and. Publicas:cAccesoM,(cTitulo:="Modificación de Conductores ",Enconduc(cTitulo,"M",aAlias,aoDbf),oLbx:Refresh()),.T.));
OF oDlg;
PIXEL
oLbx:nLineStyle := 1
oLbx:nClrBackHead := RGB(248,191,36)
oLbx:lDrawFooters:= .T.
oLbx:aFooters := {"", "Total por Mes.....", Trans(Publicas:tMes[1],Publicas:cPic ), Trans(Publicas:tMes[2],Publicas:cPic ), Trans(Publicas:tMes[3],Publicas:cPic ), Trans(Publicas:tMes[4],Publicas:cPic ),;
Trans(Publicas:tMes[5],Publicas:cPic ), Trans(Publicas:tMes[6],Publicas:cPic ), Trans(Publicas:tMes[7],Publicas:cPic ), Trans(Publicas:tMes[8],Publicas:cPic ), ;
Trans(Publicas:tMes[9],Publicas:cPic ), Trans(Publicas:tMes[10],Publicas:cPic ), Trans(Publicas:tMes[11],Publicas:cPic ), Trans(Publicas:tMes[12],Publicas:cPic ),Trans(Publicas:ntotal,Publicas:cPic )}
oLbx:bKeyChar := { | nKey, nFlags | ;
iif (nKey == 43 .or. nKey == 65 .or. nKey == 97,;
(Enconduc(cTitulo,"A",aAlias,aoDbf), oLbx:Refresh()), ),;
iif (nKey == 66 .or. nKey == 98,;
(Borrar(aAlias[26],(aAlias[26])->nombre,'Conductor nombre: '),oLbx:UpStable(), oLbx:Refresh()), ),;
iif (nKey == 77 .or. nKey == 109, ;
(Enconduc(cTitulo,"M",aAlias,aoDbf),oLbx:Refresh() ), ) }
oLbx:nClrPane:={||iIF((oLbx:cAlias)->(OrdKeyNo())%2==0,nRGB(242,247,252),nRGB(226,226,208))}
oLbx:nClrfBack := RGB(196,229,244)//(3,187,85)
oLbx:aJustify := {.T.,.F.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.}
oLbx:aHJustify := {2,2,2,2,2,2,2,2,2,2,2,2,2,2,2}
OlBX:nFooterStyle:=11
cFooter := IF(::bStrFooter==NIL,::cFooter,Eval( ::bStrFooter )) //Biel
oCol:=oBrw:AddCol()
oCol:bStrData:= {|| oDbf:Campo }
oCol:cHeader := 'Cabecera'
oCol:bStrFooter:={||VisTot()}
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 103 guests