FiveTech Software tech support forums

... TQuery. - New DATA bClrStd: If specified, the codeblock should return an array of { nClrText, nClrBack } to be used to paint each row. - New DATA aFooters: Optional Array of footer strings. * FW_ReadImage( imgSource ) / oWnd:ReadImage( imgSource ) Now, it is possible to read bitmap from a bmpfile, ...

... que muestra numero de Resgistro: 15 de 1027 Registros http://s2.subirimagenes.com/fotos/previo/thump_9013339registro.jpg oPrLista:aFooters := {|| {"","" ,Alltrim(Transform(("PRODUCTOS")->(OrdKeyNo()),'9,999,999'))+" de "+Alltrim(Transform(("PRODUCTOS")->(OrdKeyCount()),'9,999,999'))+" ...

Jose, Porque no pruebas hacer estos cambios en tu codigo: En donde tienes: oLbx:aFooters:={ "Total:", " ", {|| TotEdad() } } Cambialo por: oLbx:aFooters:={ "Total:", " ", {|| TotEdad( oLbx ) } } Luego en tu funcion TotEdad(), ...

... ) } // oLbx:aActions[5] := nil // oLbx:aActions[6] := nil //ON DBLCLICK dobleclick_PreccosV( oPreccos, aGets , oWndFact01 ) ; //oLbx:aFooters :={|| {"","Total",Tran(aTot[1],"9,999,999,999 "),Tran(aTot[2],"9,999,999,999 "),Tran(aTot[3],"9,999,999,999 "),Tran(aTot[4],"9,999,999,999 ...

... etc aTot2 := aTot2 + 1+2+3 etc aTot3 := aTot3 + 1+2+3 etc aTot4 := aTot4 + 1+2+3 etc ///Esta seria la forma de sumar en el foote del oLbx oLbx:aFooters :={|| {"","Total",Tran(aTot[1],"9,999,999,999 "),Tran(aTot[2],"9,999,999,999 "),Tran(aTot[3],"9,999,999,999 "),Tran(aTot[4],"9,999,999,999 ...

... ) } oLbx:aActions[4] := { || OrdenArEq( 4, 3 , oPreccos, oLbx,oWndFact01,aGets ) } oLbx:aActions[5] := nil oLbx:aActions[6] := nil //oLbx:aFooters :={|| {"","Total",Tran(aTot[1],"9,999,999,999 "),Tran(aTot[2],"9,999,999,999 "),Tran(aTot[3],"9,999,999,999 "),Tran(aTot[4],"9,999,999,999 ...

... { trans(aProdtch[tcobRW1:nat,1],'999999'),; trans(aProdtch[tcobRW1:nat,2],'@!'),; trans(aProdtch[tcobRW1:nat,4],'9999.999')})} tcobRW1:aFooters :={"","Total de Serviços:"+CRLF+"Total Geral:",trans(0,"@E 999,999.99")+CRLF+trans(0,"@E 999,999.99")} else tcobRW1:aFJustify := {1,1} tcobRW1:aHJustify ...

... PUSH, osea presionada. //13) Nuevas Variables: // ::lDrawFooters -> Especifica si se quiere pintar los Footers o no. // Por defecto es .F. // ::aFooters -> Array o Bloque de Codigo que devuelva un Array, de // cadenas o numeros (Bmp), que se pintaran el el borde // inferior del browse. // ...

METHOD Report( cTitle, lPreview, aHeaders, aFooters, cCaption,lModal ) CLASS TXBrowse Local oRpt ,nCols := Len( ::acols ), oldbskip:=::bskip local odevice,cmsg:={"Print","Date","time","Page"} oDevice := TPrinter():New(cmsg[1],.t.) if odevice:hdc==0; ...

Es muy simple: Un "footer" es un arreglo de cadenas de caracteres: oBrw:aFooters := {"Sumas",TRANSFORM(suma(),"99999"), .....} La magia consiste en recalcular los footers cada vez que haces una insercion o un borrado en la tabla. La cosa sale mas rapido si haces ...

Hola,


yo lo hago asi:


oBrw:aFooters := {|| TotxCespite( aElenco ) }

y en la funcion, devuelvo un array con los resultados.


FUNCTION TotxCespite( aElenco )

aArray := { "Totale ammortizzato: "+TRANSFORM( nTotAmm, "@e 999,999,999.99" ), "", "", "", "", ""}

RETURN aArray



Saludos

... tener en cuenta lo siguiente. 1) bLine devuelva un arreglo en funcion del nro de columnas que sean necesarias mostrar. 2) Ajustar ::aHeaders y ::aFooters en el momento del cambio de agregar o quitar columnas 3) Ajustar ::aColSizes que nos define los anchos en pixeles de la columna. 4) Ajustar ...

METHOD SetMySQL(oQuery) METHOD Report( cTitle, lPreview, aheaders,afooters,oFont, nLang, cCaption, lModal ) METHOD RPTSKIP() METHOD NTOTAL() METHOD SAVE() METHOD end() INLINE ::Destroy() METHOD SetMySQL(oquery,ledit) CLASS TXBrowse ::nMarqueeStyle := MARQSTYLE_HIGHLCELL ...