No refresca totales con TXBrowse ,Solucionado!!?
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Hola buenas tardes, me estoy iniciandome con TXBrowse, me muestra los datos, bien sin problemas, ahora porque no me justifica, y por otro lado, quiero mostrar en footer, los totales, o importe total, pero me marca error de arrays, o que estare haciendo mal, de esa forma estoy creando TXBrowse, con recursos , que es mas facil y rapido de crear,digo yo, .
Me podran echar la mano?
Gracias y buen dia .
Me podran echar la mano?
Gracias y buen dia .
- Code: Select all Expand view
- #Include "FiveWin.ch"
#Include "xBrowse.ch"
*+CRLF+"Póliza"
STATIC oDlg
STATIC S12, S13
STATIC nTotal1,nTotal2,aSum
MemVar oWnd, oMOpc, nNumEmp, cDescrEmp, Mes_Per, Ano_Per, nStation
//------------------------------------------------------------------------------
FUNCTION MOD_PBAS()
LOCAL oItem:=oMOpc,oBrw,oBrw2,oCol,oCol2
S12 := Abre_Dbf(12,12) // Abre: POLZxMxA.DBF
S13 := Abre_Dbf(13,13) // Abre: MOVTxMxA.DBF
nTotal1 := 0
nTotal2 := 0
DEFINE DIALOG oDlg RESOURCE "INTEGFACT" TITLE 'Listado de Pólizas y Movimientos'
REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
ALIAS (S12)->(ALIAS()) ;
HEADERS "Tipo", "Número","Fecha","Concepto","Cargo","Abono","Fec Capt" ;
FIELDS (S12)->A_TIPO,STR((S12)->A_NUMPOL),DTOC((S12)->A_FHAMOV),SUBS((S12)->A_CONCEP,1,35), ;
TRANS((S12)->A_TOTCARG,"99,999,999.99"),TRANS((S12)->A_TOTCRED,"99,999,999.99"), ;
DTOC((S12)->FECALTA) ;
COLSIZES 30,45,52,180,80,80,52 ;
JUSTIFY .T., .T., .T., .T., .T., .T.,.T. // Esta parte no me justifica
// Activa Footers
oBrw:lFooter := .T.
// Estilos de lineas
oBrw:nColDividerStyle := LINESTYLE_BLACK
*oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:lColDividerComplete := .T. // Completa pintado hasta el Footer cuando lineas no llenan todo ;
// el Browse Headers Y Footers
En esta parte, porque no me muestra o como hacerle , para que me totalice, o que instruccion me falta, tengo activado, lFooter := .F.
*oCol:oBrw:= aCols[ 4 ]
oCol:oBrw:cFooter := "Prueba Adriano"
ACTIVATE DIALOG oDlg CENTERED // ON INIT Refresca(oBrw,oBrw2)
(S13)->( OrdScope(0,nil) )
(S13)->( OrdScope(0,nil) )
oItem:Enable()
RETURN NIL