by Ariel » Wed Dec 23, 2009 10:21 am
Hola
claro q se puede, un ej.
REDEFINE XBROWSE oLbx4 ;
FIELDS (aDbf[xTMP4]:cAlias)->TIPDEP,;
(aDbf[xTMP4]:cAlias)->BCODEP,;
(aDbf[xTMP4]:cAlias)->LOCDEP,;
(aDbf[xTMP4]:cAlias)->FECDEP,;
(aDbf[xTMP4]:cAlias)->NRODEP,;
(aDbf[xTMP4]:cAlias)->NROCHE,;
(aDbf[xTMP4]:cAlias)->FECVEN,;
(aDbf[xTMP4]:cAlias)->DESBANC,;
(aDbf[xTMP4]:cAlias)->DESPLAZA,;
(aDbf[xTMP4]:cAlias)->IMPORTE ;
PICTURES ,,, "@D", "99.999.999", "99.999.999", "@D",,, aCliente[ ID_PICT ] ;
HEADERS "Tipo","Banco","Plaza","Fecha",OTA("N£mero"),;
OTA("N£mero"),"Vence","Banco","Plaza", "Importe" ;
FIELDSIZES 65,90,90,60,60,60,60,120,120,90 ;
JUSTIFY ,,, AL_CENTER, AL_RIGHT, AL_RIGHT, AL_CENTER,,, AL_RIGHT ;
ID 83;
OF oFldr:aDialogs[4] ;
ALIAS aDbf[xTMP4]:cAlias ;
LINES CELL
oLbx4:nColDividerStyle:= LINESTYLE_BLACK
oLbx4:nRowDividerStyle:= LINESTYLE_BLACK
oLbx4:lRecordSelector := .f.
// Aca va el tema de encabezado
oLbx4:nHeaderLines := 2
oLbx4:nHeaderHeight := 40
oLbx4:nHeader := 1
oLbx4:aHeaderTop := { "D E P O S I T O", "VALOR DEPOSITADO" }
oLbx4:aCols[1]:nHeaderType := 2 // Comienza el primer grupo
oLbx4:aCols[2]:nHeaderType := 1
oLbx4:aCols[3]:nHeaderType := 1
oLbx4:aCols[4]:nHeaderType := 1
oLbx4:aCols[5]:nHeaderType := 1
oLbx4:aCols[6]:nHeaderType := 1 // Fin primer grupo
oLbx4:aCols[7]:nHeaderType := 4 // Comienzo grupo 2
oLbx4:aCols[8]:nHeaderType := 1
oLbx4:aCols[9]:nHeaderType := 1
oLbx4:aCols[10]:nHeaderType := 1
oLbx4:aCols[11]:nHeaderType := 1
oLbx4:aCols[12]:nHeaderType := 3 // fin grupo 2
Espero te sirva.
Salu2, Ariel