Good afternoon Roger
I have problem using DCBROWSE and FOOTER with SUBCLASS 'DC_XbpOwnerDrawBrowseGeneric()' ;
USEVISUALSTYLE
Attached Example in Yellow color
Error with eXpress (DCBROWSE) and Xbase 2.0
Error with eXpress (DCBROWSE) and Xbase 2.0
- Attachments
-
- Captura.JPG (117.76 KiB) Viewed 16429 times
Nolberto Paulino
Regards
Regards
Re: Error with eXpress (DCBROWSE) and Xbase 2.0
Can you show me your code?
The eXpress train is coming - and it has more cars.
Re: Error with eXpress (DCBROWSE) and Xbase 2.0
Thanks Roger
For your answer, that is the code with DCBROWSE
For your answer, that is the code with DCBROWSE
Code: Select all
@ 11.4,0.0 DCTABPAGE oTabPage1 CAPTION " Producto(s) " TABHEIGHT 28.0 SIZE 134.9,13.38 MESSAGE "Datos Personales" INTO oMsgBox TOOLTIP "Datos Personales" GOTFOCUS {|| cTipoArray := "C", SetAppFocus( oCodProd ) }
@ 1.48,0000000000.5 DCGET cCodProd PICT "@!ks05" MESSAGE "Registre el Código de CodProd." INTO oMsgBox PARENT oTabPage1 ;
GETOBJECT oCodProd ;
GETSIZE 10.4,1.05 ;
POPUP {|c| ConsultaDeProductos( ,,,,,,aDetalleDocumento[nPointer1,01] ) } ;
POPKEY xbeK_F9 ;
KEYBLOCK {|a,b,o| KeySeekBrow(aApp,GetList,a,b,o,oDetalleDocumento,aDetalleDocumento,@cCodProd, nPointer1) } ;
WHEN {|| !EMPT(cDocumento) .AND. lEditar .AND. lCodProd } ;
PARENT oTabPage1
@ 1.5,DCGUI_COL+0.5 DCCOMBOBOX cCodDep LIST aCodDep TYPE XBPCOMBO_DROPDOWNLIST SIZE 05.6,10.2 MESSAGE "Indique el Deposito" INTO oMsgBox ;
COLOR GRA_CLR_BLUE,GRA_CLR_WHITE ;
IMMEDIATE ;
OBJECT oCodDep ;
VALID {|| ValidarCampo(6.0,aApp,GetList) } ;
ITEMSELECTED {|| ValidarCampo(6.0,aApp,GetList) } ;
PARENT oTabPage1 ;
WHEN {|| !EMPT(cDocumento) .AND. !EMPT(cCodProd) .AND. lCodProd .AND. lEditar }
@ 1.48,DCGUI_COL+1.1 DCGET bNombreProducto PICT "@!k" GETSIZE 27.8,1.05 MESSAGE "Descripción del CodProd." INTO oMsgBox PARENT oTabPage1 WHEN {|| .F. }
@ 1.48,DCGUI_COL+1.0 DCGET cCantidad PICT "999999.99" MESSAGE "Registre la Cantidad de Comprar / Cantidad Promoción." INTO oMsgBox PARENT oTabPage1 ;
WHEN {|| !EMPT(cCodProd) .AND. lEditar .AND. lDetalles } ;
OBJECT oCantidad1 ;
GETSIZE 09.0,1.05 ;
VALID {|c| ValidarCampo(07,aApp,GetList) }
@ 1.50,DCGUI_COL+1.0 DCCOMBOBOX cUnidad LIST aUnidad SIZE 8.90,9.00 TYPE XBPCOMBO_DROPDOWNLIST PARENT oTabPage1 OBJECT oUnidad1 WHEN {|| !EMPT(cCodProd) .AND. lEditar .AND. lDetalles .AND. !EMPT(cCantidad) } ;
COLOR GRA_CLR_BLUE,GRA_CLR_WHITE ;
VALID {|c| ValidarCampo(08,aApp,GetList) }
@ 1.48,DCGUI_COL+1.0 DCGET cPrecio PICT "999,999.99999999" PARENT oTabPage1 WHEN {|| !EMPT(cCodProd) .AND. lEditar .AND. lDetalles .AND. !EMPT(cUnidad) .AND. !EMPT(cCantidad) } ;
GETFONT "9.Courier New" ;
GETSIZE 10.10,1.01 ;
VALID {|c| DC_GetRefresh(GetList,,DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE,GETLIST_BITMAP,GETLIST_STATIC} ), .T. }
@ 1.48,DCGUI_COL+1.0 DCGET cPDescuento PICT "999,999.9999999" PARENT oTabPage1 WHEN {|| !EMPT(cCodProd) .AND. lEditar .AND. lDetalles .AND. !EMPT(cUnidad) .AND. !EMPT(cCantidad) } ;
VALID {|c| ValidarCampo(09,aApp,GetList) } ; // 09
GETFONT "9.Courier New" ;
GETSIZE 10.6,1.01 ;
WHEN {|| !EMPT(cCodProd) .AND. lEditar .AND. lDetalles .AND. !EMPT(cUnidad) .AND. !EMPT(cCantidad) .AND. cTipDesc $ "%,$" }
@ 1.48,DCGUI_COL+1.0 DCGET cADvaloren PICT "9,999,999.99" GETSIZE 08.9,1.01 PARENT oTabPage1 WHEN {|| !EMPT(cCodProd) .AND. lEditar .AND. lDetalles .AND. SQLBoolean(SQLFieldGet(oPEPAM01,"Con_Isc")) .AND. !EMPT(cCantidad) }
@ 1.48,DCGUI_COL+1.0 DCGET cSelectivo PICT "9,999,999.99" GETSIZE 08.9,1.01 PARENT oTabPage1 WHEN {|| !EMPT(cCodProd) .AND. lEditar .AND. lDetalles .AND. SQLBoolean(SQLFieldGet(oPEPAM01,"Con_Isc")) .AND. !EMPT(cCantidad) } VALID {|c| ValidarCampo(10,aApp,GetList) }
@ 1.48,DCGUI_COL+1.0 DCGET cItbis PICT "9,999,999.99" GETSIZE 12.2,1.01 PARENT oTabPage1 WHEN {|| !EMPT(cCodProd) .AND. lEditar .AND. lDetalles .AND. !EMPT(cUnidad) .AND. !EMPT(cCantidad) .AND. !EMPT(cPrecio) .AND. cPItbis >0 .AND. .F. } //VALID {|c| ValidarCampo(10,aApp,GetList) }
@ 1.48,DCGUI_COL+1.0 DCGET bImporte PICT "99,999,999.99" GETSIZE 15.8,1.01 PARENT oTabPage1 WHEN {|| .F. } POPUP {|n|DC_PopCalc(n,,,,,,2)}
@ 02.7,0.4 DCBROWSE oDetalleDocumento DATA aDetalleDocumento SIZE 133.80,10.5 PRESENTATION DC_BrowPres( 19 ) ;
USEVISUALSTYLE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
HEADLINES 2 ; // FOOTLINES 2 ;
NOSOFTTRACK ;
NOHSCROLL ;
POINTER nPointer1 ;
INTO aDetalleDocumento ;
PARENT oTabPage1 ;
ITEMMARKED {|| RefrescaExistencia( aApp, GetList ), CargaArrelgos( aApp, GetList ) } ;
ITEMSELECTED {|| CargaProducto( aApp,GetList ) } ;
SUBCLASS 'DC_XbpOwnerDrawBrowseGeneric()' ;
ZEBRA {|l| SQLBrowseZebra(l) } ;
PARENT oTabPage1
DCBROWSECOL DATA {|x|x:= DC_GetColArray(16,oDetalleDocumento), IIF(x,CHECKBOX_ON,CHECKBOX_OFF) } ;
PARENT oDetalleDocumento HEADER " ; " WIDTH 1 ;
TYPE XBPCOL_TYPE_BITMAP ;
eval {|oB|oB:dataArea:lbClick := {|a,b,o|MarcarDesMarcar( aApp, GetList ), CargaArrelgos( aApp, GetList ) } } ;
FONT "14.Arial Bold" ;
PROTECT {|o| .T. } ;
WHEN {|o| lEditar } ;
TOOLTIP "Los Productos que estan Marcados se Liquidaran con la" + chr(13)+chr(10)+ ;
"Promoción Registrada ya sea en Cantidad ó en dinero " + chr(13)+chr(10)+ ;
"Solo dele Click al Producto " ;
FOOTER {|| TRANSFORM(LEN(aDetalleDocumento),"999") }
// DCBROWSECOL DATA {|| IIF(DC_GetColArray(09,oDetalleDocumento)>0," ","e")+DC_GetColArray(01,oDetalleDocumento)+SPACE(4)+DC_GetColArray(24,oDetalleDocumento) } HEADER "CODIGO DE;PRODUTO" PARENT oDetalleDocumento WIDTH 08 PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| "Producto(s)" }
DCBROWSECOL DATA {|| IIF(DC_GetColArray(09,oDetalleDocumento)>0," ","e")+DC_GetColArray(01,oDetalleDocumento) } HEADER "CODIGO DE;PRODUTO" PARENT oDetalleDocumento WIDTH 05 PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| "Producto(s)" }
DCBROWSECOL DATA {|| DC_GetColArray(24,oDetalleDocumento) } HEADER "D;P" PARENT oDetalleDocumento WIDTH 02 PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| "" }
DCBROWSECOL ELEMENT 02 HEADER "DESCRIPCION;DEL PRODUCTO" WIDTH 17 PARENT oDetalleDocumento PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER "" //{|| "Costo Liquidación: "+TRANSFORM( CostoLiquidacion( aApp, nPointer1 ),"999,999.99") }
DCBROWSECOL ELEMENT 03 HEADER "CANT.;COMP." WIDTH 05 PARENT oDetalleDocumento PICTURE "999,999.99" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| TRANSFORM( aDetalleDocumento[nPointer1,03],"999,999.99") }
DCBROWSECOL ELEMENT 05 HEADER "FORMA;COMPRA" WIDTH 05 PARENT oDetalleDocumento PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| "" }
DCBROWSECOL ELEMENT 06 HEADER "PRECIO;COMPRA" WIDTH 06 PARENT oDetalleDocumento PICTURE "999,999.9999999" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| TRANSFORM( CostoLiquidacion( aApp, nPointer1 ),"999,999.99") }
DCBROWSECOL ELEMENT 12 HEADER {||cTipDesc+";DESC."} WIDTH 06 PARENT oDetalleDocumento PICTURE "9,999,999.9999999" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| TRANSFORM( cTotalDescuento,"9,999,999.99") } // DescuentoEnProducto( aApp )
DCBROWSECOL ELEMENT 07 HEADER "AD;VALOREN" WIDTH 05 PARENT oDetalleDocumento PICTURE "9,999,999.99" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| TRANSFORM( cTotalADvaloren,"999,999.99") }
DCBROWSECOL ELEMENT 08 HEADER ";ISC" WIDTH 05 PARENT oDetalleDocumento PICTURE "9,999,999.99" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| TRANSFORM( cTotalSelectivo,"999,999.99") }
// DCBROWSECOL ELEMENT 08 HEADER ";ISC" WIDTH 07 PARENT oDetalleDocumento PICTURE "999,999,999.99" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| TRANSFORM( cTotalSelectivo,"999,999,999.99") }
DCBROWSECOL ELEMENT 09 HEADER ";ITBIS" WIDTH 07 PARENT oDetalleDocumento PICTURE "9,999,999.99" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| TRANSFORM( cTotalItbis,"9,999,999.99") }
// DCBROWSECOL ELEMENT 10 HEADER "IMPORTE;COMPRA" WIDTH 07 PARENT oDetalleDocumento PICTURE "99,999,999.99" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER ""
DCBROWSECOL DATA {|| DC_GetColArray(10,oDetalleDocumento)[02] } HEADER "IMPORTE;COMPRA" WIDTH 09 PARENT oDetalleDocumento PICTURE "99,999,999.99" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER {|| TRANSFORM( cTotal,"99,999,999.99") }
** DCBROWSECOL ELEMENT 13 HEADER "%;DESC." WIDTH 05 PARENT oDetalleDocumento PICTURE "99,999.9999999" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW
** DCBROWSECOL ELEMENT 14 HEADER "$;DESC." WIDTH 05 PARENT oDetalleDocumento PICTURE "99,999.9999999" PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW
** DCBROWSECOL ELEMENT 04 HEADER ";PROMO." WIDTH 05 PARENT oDetalleDocumento PICTURE "999,999.99" PROTECT {|o| .T. }
@ 0,0 DCTABPAGE oTabPage2 CAPTION " 0 Oferta(s)" RELATIVE oTabPage1 MESSAGE "Registro de Promociones" INTO oMsgBox TOOLTIP "Registro de Promociones" PARENT oMyGroup3 WHEN {|| !EMPT(DC_GetColArray(01,oDetalleDocumento)) } GOTFOCUS {|| cTipoArray := "O", SetAppFocus( oCodProd2) }
@ 1.7,00.5 DCSAY bProducto ;
SAYCOLOR GRA_CLR_DARKRED,XBPSYSCLR_TRANSPARENT ;
SAYSIZE 127.2,0.9 ;
SAYFONT "13.Arial Bold" ;
PARENT oTabPage2
@ 2.8,000.5 DCGET cCodProd2 PICT "@!ks05" MESSAGE "Registre el Código de CodProd." INTO oMsgBox PARENT oTabPage1 ;
GETSIZE 11.2,1.1 ;
GETOBJECT oCodProd2 ;
POPUP {|c| ConsultaDeProductos( , LEFT(cCodDep2,2),,,,, IIF(!EMPT(aDetalleDocumento),aDetalleDocumento[nPointer1,01],IIF(!EMPT(aDetalleOferta),aDetalleOferta[nPointer2,01],aDetalleDocumento[nPointer1,01])) ) } ;
POPKEY xbeK_F9 ;
KEYBLOCK {|a,b,o| KeySeekBrow(aApp,GetList,a,b,o,oDetalleOferta,aDetalleOferta,@cCodProd2,nPointer2) } ;
WHEN {|| !EMPT(cDocumento) .AND. lEditar } ;
PARENT oTabPage2
@ 2.80,DCGUI_COL+0.6 DCGET bNombreProducto PICT "@!k" GETSIZE 66.8,1.1 MESSAGE "Descripción del CodProd." INTO oMsgBox PARENT oTabPage2 WHEN {|| .F. }
@ 2.80,DCGUI_COL+1.0 DCGET cCantidad2 PICT "99999.99" MESSAGE "Registre la Cantidad de Comprar / Cantidad Promoción." INTO oMsgBox PARENT oTabPage2 WHEN {|| !EMPT(cCodProd2) .AND. lEditar .AND. lDetalles } ;
GETSIZE 09.1,1.1 ;
GETOBJECT oCantidad2 ;
VALID {|c| ValidarCampo(07.1,aApp,GetList) }
@ 2.76,DCGUI_COL+1.0 DCCOMBOBOX cUnidad2 LIST aUnidad SIZE 8.80,9.30 TYPE XBPCOMBO_DROPDOWNLIST PARENT oTabPage2 OBJECT oUnidad2 WHEN {|| !EMPT(cCodProd2) .AND. lEditar .AND. lDetalles .AND. !EMPT(cCantidad2) } ;
COLOR GRA_CLR_BLUE,GRA_CLR_WHITE ;
VALID {|c| ValidarCampo(08.1,aApp,GetList) } ;
WHEN {|| !EMPT(cCodProd2) .AND. lEditar .AND. lDetalles .AND. !EMPT(cCantidad2) }
@ 2.80,DCGUI_COL+1.0 DCGET cPrecio2 PICT "99,999.9999999" PARENT oTabPage2 ;
GETFONT "9.Courier New" ;
GETSIZE 10.70,1.1 ;
VALID {|c| ValidarCampo(09.1,aApp,GetList) } ;
WHEN {|| !EMPT(cCodProd2) .AND. lEditar .AND. lDetalles .AND. !EMPT(cUnidad2) .AND. !EMPT(cCantidad2) }
@ 2.80,DCGUI_COL+1.0 DCGET bImporte2 PICT "99,999,999.99" PARENT oTabPage2 WHEN {|| .F. } POPUP {|n|DC_PopCalc(n,,,,,,2)}
@ 03.9,0.7 DCBROWSE oDetalleOferta DATA aDetalleOferta SIZE 127.5,09.25 PRESENTATION DC_BrowPres( 18 ) ;
USEVISUALSTYLE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
HEADLINES 2 ;
NOSOFTTRACK ;
NOHSCROLL ;
POINTER nPointer2 ;
INTO aDetalleOferta ;
ITEMMARKED {|| RefrescaExistencia( aApp, GetList ) } ;
ITEMSELECTED {|| CargaProducto( aApp,GetList ) } ;
SUBCLASS 'DC_XbpOwnerDrawBrowseGeneric()' ;
ZEBRA {|l| SQLBrowseZebra(l) } ;
PARENT oTabPage2
DCBROWSECOL DATA {|| DC_GetColArray(07,oDetalleOferta)+DC_GetColArray(01,oDetalleOferta)+SPACE(4)+DC_GetColArray(10,oDetalleOferta) } HEADER "CODIGO DE;PRODUTO" WIDTH 08 PARENT oDetalleOferta eval {|oB|oB:dataArea:lbDblClick := {|a,b,o| RefrescaExistencia( aApp, GetList ) } } PROTECT {|o| .T. } OWNERDRAW
DCBROWSECOL ELEMENT 02 HEADER "DESCRIPCION;DEL PRODUCTO" WIDTH 42 PARENT oDetalleOferta PROTECT {|o| .T. } OWNERDRAW
DCBROWSECOL ELEMENT 03 HEADER "CANT.;OFERT." WIDTH 05 PARENT oDetalleOferta PICTURE "999,999.99" eval {|oB|oB:dataArea:lbDblClick := {|a,b,o| RefrescaExistencia( aApp, GetList ) } } PROTECT {|o| .T. } OWNERDRAW
DCBROWSECOL ELEMENT 04 HEADER "FORMA;OFERT." WIDTH 05 PARENT oDetalleOferta eval {|oB|oB:dataArea:lbDblClick := {|a,b,o| RefrescaExistencia( aApp, GetList ) } } PROTECT {|o| .T. } OWNERDRAW
DCBROWSECOL ELEMENT 05 HEADER "PRECIO;OFERT." WIDTH 06 PARENT oDetalleOferta PICTURE "999,999.9999999" eval {|oB|oB:dataArea:lbDblClick := {|a,b,o| RefrescaExistencia( aApp, GetList ) } } PROTECT {|o| .T. } OWNERDRAW
DCBROWSECOL ELEMENT 06 HEADER "IMPORTE;OFERT." WIDTH 09 PARENT oDetalleOferta PICTURE "99,999,999.99" eval {|oB|oB:dataArea:lbDblClick := {|a,b,o| RefrescaExistencia( aApp, GetList ) } } PROTECT {|o| .T. } OWNERDRAW
@ 0,0 DCTABPAGE oTabPage3 CAPTION " 0 Serial(es)" RELATIVE oTabPage2 MESSAGE "Registro de Seriales" INTO oMsgBox TOOLTIP "Registro de Seriales" PARENT oMyGroup3 GOTFOCUS {|| cTipoArray := "S", SetAppFocus( oNSerial) } WHEN {|| !EMPT(DC_GetColArray(01,oDetalleDocumento)) }
@ 1.7,00.5 DCSAY bProducto ;
SAYCOLOR GRA_CLR_DARKRED,XBPSYSCLR_TRANSPARENT ;
SAYSIZE 112.2,0.9 ;
SAYFONT "13.Arial Bold" ;
PARENT oTabPage3
@ 2.8,000.5 DCGET cNSerial PICT "@!k" MESSAGE "Registre de Serial para el Producto." INTO oMsgBox PARENT oTabPage3 ;
VALID {|| ValidarCampo(9.2,aApp,GetList) } ;
GETOBJECT oNSerial ;
WHEN {|| lEditar .AND. LEN(aDetalleSerial) < aDetalleDocumento[nPointer1][3]} ;
PARENT oTabPage3
@ 03.9,0.7 DCBROWSE oDetalleSerial DATA aDetalleSerial SIZE 47.5,09.25 PRESENTATION DC_BrowPres( 18 ) ;
USEVISUALSTYLE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
HEADLINES 2 ;
NOSOFTTRACK ;
NOHSCROLL ;
POINTER nPointer3 ;
INTO aDetalleOferta ; // ITEMMARKED {|| RefrescaExistencia( aApp, GetList ) } ;
ITEMSELECTED {|| CargaProducto( aApp,GetList ) } ;
SUBCLASS 'DC_XbpOwnerDrawBrowseGeneric()' ;
ZEBRA {|l| SQLBrowseZebra(l) } ;
PARENT oTabPage3
DCBROWSECOL ELEMENT 01 HEADER "Nº;SERIE" WIDTH 19 PICTURE "@!" PARENT oDetalleSerial OWNERDRAW
DCBROWSECOL ELEMENT 02 HEADER "Nº FACTURA;DE VENTA" WIDTH 08 PICTURE "@!" PARENT oDetalleSerial OWNERDRAW
Last edited by digitsoft on Thu Jan 11, 2024 2:07 pm, edited 1 time in total.
Nolberto Paulino
Regards
Regards
Re: Error with eXpress (DCBROWSE) and Xbase 2.0
Hi,
What happens if you change the height of your browse to 8 instead of 10.5? Just wondering if your browse fits in the tabpage or if it is really a footer problem?
What happens if you change the height of your browse to 8 instead of 10.5? Just wondering if your browse fits in the tabpage or if it is really a footer problem?
Re: Error with eXpress (DCBROWSE) and Xbase 2.0
I have already tried that, it doesn't matter if I change it at 12:50 or 09:00 the problem remains the same
Nolberto Paulino
Regards
Regards
Re: Error with eXpress (DCBROWSE) and Xbase 2.0
Hi,
What happens if you change the following:
Change the footer to FOOTER {|| chr(255) }
In the past I noticed problems with footers when there is an empty footer. I usually use {|| chr(255) } as footer when I want it empty. Is doesn't show anything but it isn't empty. If you use a space it is empty.
What happens if you change the following:
Code: Select all
DCBROWSECOL ELEMENT 02 HEADER "DESCRIPCION;DEL PRODUCTO" WIDTH 17 PARENT oDetalleDocumento PROTECT {|o| .T. } eval {|oB|oB:dataArea:lbClick := {|a,b,o| CargaArrelgos( aApp, GetList ) } } OWNERDRAW FOOTER "" //{|| "Costo Liquidación: "+TRANSFORM( CostoLiquidacion( aApp, nPointer1 ),"999,999.99") }In the past I noticed problems with footers when there is an empty footer. I usually use {|| chr(255) } as footer when I want it empty. Is doesn't show anything but it isn't empty. If you use a space it is empty.
Re: Error with eXpress (DCBROWSE) and Xbase 2.0
Make the changes
and the problem continues
Thank you
for your response
and the problem continues
Thank you
for your response
Nolberto Paulino
Regards
Regards
Re: Error with eXpress (DCBROWSE) and Xbase 2.0
Can you write me a small test program that demonstrates this problem?
I can help you if I can simply compile and run the program.
I can help you if I can simply compile and run the program.
The eXpress train is coming - and it has more cars.
Re: Error with eXpress (DCBROWSE) and Xbase 2.0
Code: Select all
@ 02.7,0.4 DCBROWSE oDetalleDocumento DATA aDetalleDocumento SIZE 133.80,10.5 PRESENTATION DC_BrowPres( 19 ) ;Have you tried without the PRESENTATION?
Re: Error with eXpress (DCBROWSE) and Xbase 2.0
Code: Select all
FUNCTION DC_BrowPres( xRowHeight, nFont )
DEFAULT xRowHeight := 19, nFont := "9.Arial"
xRowHeight += 5
return { { XBP_PP_COL_HA_FGCLR , GRA_CLR_DARKBLUE }, ; // Header FG color
{ XBP_PP_COL_HA_BGCLR , GraMakeRGBColor({232,232,232}) }, ; // Header BG color
{ XBP_PP_COL_HA_COMPOUNDNAME , nFont+" Bold" }, ;
{ XBP_PP_COL_DA_ROWHEIGHT , xRowHeight }, ; // rows are 48 pixels high
{ XBP_PP_COL_DA_CELLHEIGHT , xRowHeight }, ; // rows are 48 pixels high
{ XBP_PP_COL_DA_HILITE_BGCLR , DCPBL }, ; &&& DCPBL
{ XBP_PP_COL_DA_HILITE_FGCLR , GRA_CLR_WHITE }, ;
{ XBP_PP_COL_DA_FGCLR , GRA_CLR_BLACK } , ;
{ XBP_PP_COL_DA_COMPOUNDNAME , nFont }, ;
{ XBP_PP_COL_DA_BGCLR , GRA_CLR_WHITE },;
{ XBP_PP_HILITE_FGCLR , GRA_CLR_BLACK },;
{ XBP_PP_COL_FA_FGCLR , GRA_CLR_BLACK }, /* Footer FG Color */ ;
{ XBP_PP_COL_FA_BGCLR , GRA_CLR_DARKGRAY }, /* Footer BG Color */ ;
{ XBP_PP_COL_FA_HEIGHT, 10 } , /* Footer Height */ ;
{ XBP_PP_COL_FA_COMPOUNDNAME , nFont+" Bold" }, ;
{ XBP_PP_COL_DA_COLSEPARATOR , XBPCOL_SEP_LINE},; && Linea = (XBP_PP_COL_DA_BASE+XBPCOL_DA_COLSEPARATOR)
{ XBP_PP_COL_DA_ROWSEPARATOR , XBPCOL_SEP_LINE},;
{ XBP_PP_COL_DA_HILITEFRAMELAYOUT, (XBP_PP_COL_DA_BASE+XBPCOL_DA_HILITEFRAMELAYOUT)},;
{ XBP_PP_COL_DA_CHARWIDTH , (XBP_PP_COL_DA_BASE+XBPCOL_DA_CHARWIDTH)},;
{ XBP_PP_HILITE_BGCLR , DCPBL };
}
Last edited by digitsoft on Fri Jan 12, 2024 12:19 pm, edited 1 time in total.
Nolberto Paulino
Regards
Regards