DCBROWSE headboards

[MIGUELON]

Hello everyone, I'm moving my program from Xbase ++ 1.9 to 2.0.875 and express 2.0 build 265
The problem is that all the grids the head is reduced.
Shipping Image

Thank you
Miguel

[MIGUELON]

Imagen

[rdonnay]

Can I see your code?

I especially need to see your presentation parameters.

[MIGUELON]

bColorCan := {||iif(oAlbaranCTemp:dataarea:Cantidad_P=0 .and. oAlbaranCTemp:dataarea:Obsequio=0 .and. ! empty(oAlbaranCTemp:dataarea:Articulo),{GRA_CLR_WHITE,GRA_CLR_RED},NIL)}



@ 7.4,1 DCBROWSE M->oLineasCompraModificar data oAlbaranCTemp;
RBSELECT ;
RBDOWN BrowseMenuBlock(@M->oLineasCompraModificar,.t.) ;
EDIT xbeBRW_ItemSelected ;
EXIT {||iif(aRef[1]=1,{aRef[1]:=0,M->oGrabaAlbaranCompra:action()},;
iif(aRef[1]=2,{aRef[1]:=0,M->oCancelaAlbaranCompra:action()},NIL) )};
MODE 106 ;
SIZE 101.5+nFactorX,10+nFactorY ;
COLOR ColorZebra(oAlbaranCTemp) ;
NOSOFTTRACK ;
HANDLER CapturaEventosGrid REFERENCE aRef ;
HIDE {||!lEditModo} ;
CURSORMODE XBPBRW_CURSOR_CELL ;
GOTFOCUS {||PostAppevent(xbeBRW_ItemSelected,,,M->oLineasCompraModificar)} ;
ID "AlbaranCompra" ;
ITEMMARKED{||M->compra_codigo:=oAlbaranCTemp:dataarea:Codigo,oPedido:SetData()}



// MODE 106 ;


DCBROWSECOL FIELD oAlbaranCTemp:dataarea:ARTICULO WIDTH 13 HEADER EE1[1] OBJECT oArtiModificar ;
PARENT M->oLineasCompraModificar ;
picture pp1[1] lostfocus bLostFocus;
editor 'ArticuloCAlbaran'



// DESCRIPCION
DCBROWSECOL data SQLBLOQUETEXTO( oAlbaranCTemp, "DESCRIPCIO") WIDTH 12+nFactorX HEADER EE1[2] OBJECT oDescModificar ;
PARENT M->oLineasCompraModificar ;
protect {||DC_ReadGuiLastKey(Getlist)=xbeK_ENTER };
picture pp1[2]


DCBROWSECOL FIELD oAlbaranCTemp:dataarea:CANTIDAD_P WIDTH 4 HEADER EE1[3] OBJECT oCantModificar ;
PARENT M->oLineasCompraModificar ;
EVAL{ |o|o:colorBlock := bColorCan } ;
editor 'UnidadesCAlbaran' PROTECT {|| iif( M->lArtCon, .T., .F.) };
PICTURE PP1[3]




DCBROWSECOL FIELD oAlbaranCTemp:dataarea:OBSEQUIO WIDTH 4 HEADER EE1[4] OBJECT oObseModificar ;
PARENT M->oLineasCompraModificar ;
EVAL{ |o|o:colorBlock := bColorCan } ;
editor 'BonificacionCAlbaran'



// % D
DCBROWSECOL FIELD oAlbaranCTemp:dataarea:DESCUENTO WIDTH 5 HEADER EE1[5] OBJECT oDescuModificar ;
PARENT M->oLineasCompraModificar ;
editor 'DescuentoCAlbaran'



// PRECIO
DCBROWSECOL FIELD oAlbaranCTemp:dataarea:PRECIO WIDTH 8 HEADER EE1[6] OBJECT oPrecModificar ;
PARENT M->oLineasCompraModificar ;
editor 'PrecioCAlbaran' ;
PROTECT {|| iif( M->lArtCon, InicializarLArtCon(), .F.) }



// TOTAL
DCBROWSECOL FIELD oAlbaranCTemp:dataarea:TOTAL_L WIDTH IIF(M->Canarias .or. M->PA_GE200=SI,6,8) ;
HEADER EE1[7] OBJECT oPrefaModificar ;
PARENT M->oLineasCompraModificar ;
picture pp1[7]

// PVP
DCBROWSECOL FIELD oAlbaranCTemp:dataarea:PVP WIDTH IIF(M->Canarias .or. M->PA_GE200=SI,4,8);
HEADER EE1[8] OBJECT oPreVenModificar ;
PARENT M->oLineasCompraModificar ;
picture pp1[8]

// IMP
DCBROWSECOL FIELD oAlbaranCTemp:dataarea:IMPUESTO WIDTH 2 HEADER EE1[9] OBJECT oDessvModificar ;
PARENT M->oLineasCompraModificar ;
valid {||ValidaImpuesto(oAlbaranCTemp:dataarea:Impuesto)>=0} ;
picture pp1[9]

*************************************************************************************
@ nil,nil DCGET xVariableParaEditarCeldas SIZE nil,1.1;
ID 'ArticuloCAlbaran';
MESSAGE "[F2]Ayuda de art¡culos [F6]Borrar L¡nea [F11]Captar Pedidos [AlT+F8]Condiciones de Proveedor [ALT+F12]Calcula" INTO oMsgBox1 ;
POPUP {|cDat,oGet|iif(pa_ge243=SI,AyudaF2SQL(1001,cDat,"2",oGet,"REFERENCIA"),AYUDAF2(1,cDat,"1",oGet,,.t.))};
POPKEY xbeK_F2 ;
valid {|oGet|MAR_ALCOMPRA(oGet,oAlbaranCTemp,,M->compra_REFERENCIA,M->compra_PROVEEDOR)}

// lo he desconectado porque me lo pide Mindi de fotocine
// if M->cNumeroSerie=SI
// @ nil,nil DCGET xVariableParaEditarCeldas SIZE nil,1.1;
// picture pp1[3] ;
// ID 'UnidadesCAlbaran';
// POPUP {|nUnidad,oGet|NUMEROSERIE(M->compra_PROVEEDOR,M->compra_REFERENCIA,oAlbaranCTemp:dataarea:CANTIDAD_P,oAlbaranCTemp:dataarea:ARTICULO)};
// POPKEY xbeK_F2 ;
// valid{||MiraNSerieAC(M->compra_PROVEEDOR,M->compra_REFERENCIA,oAlbaranCTemp:dataarea:ARTICULO,oAlbaranCTemp:dataarea:CANTIDAD_P)} ;
// lostfocus bLostFocus
// else

@ nil,nil DCGET xVariableParaEditarCeldas SIZE nil,1.1;
picture pp1[3] ;
ID 'UnidadesCAlbaran';
lostfocus bLostFocus
// endif
@ nil,nil DCGET xVariableParaEditarCeldas SIZE nil,1.1;
picture pp1[4] ;
ID 'BonificacionCAlbaran';
lostfocus bLostFocus

@ nil,nil DCGET xVariableParaEditarCeldas SIZE nil,1.1;
picture pp1[05] ;
MESSAGE "[F4]Varios descuentos" INTO oMsgBox1 ;
KEYBLOCK {|mp1,xNada,oBjeto|iif(mp1=xbeK_F4,VariosDes(oBjeto,oAlbaranCTemp),nil)};
ID 'DescuentoCAlbaran';
lostfocus bLostFocus


@ nil,nil DCGET xVariableParaEditarCeldas SIZE nil,1.1;
picture pp1[06] ;
ID 'PrecioCAlbaran';
lostfocus bLostFocus ;
valid {||oAlbaranCTemp:dataarea:precio>=0 .and. oAlbaranCTemp:dataarea:precio<=99999.999 }
*************************************************************************************

[rdonnay]

This is not enough information.

Can you reproduce this in a PRG file that I can compile?

Also, what build of eXpress++ are you using?

[messaoudlazhar]

hy,

See in Dc_BrowPres()
Fix height Header : XBP_PP_COL_HA_HEIGHT

Example

aBrowPres := DC_BrowPres()
AAdd(aBrowPres,{XBP_PP_COL_HA_HEIGHT, 20 }) // Height header
.
.
.


Messaoud Mohamed Lazhar