bb.donnay-software.com

Donnay Software Web Forums
http://donnay-software.com/DONNAY/

Error with eXpress (DCBROWSE) and Xbase 2.0

http://donnay-software.com/DONNAY/viewtopic.php?f=2&t=3203

Page 1 of 2

Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Fri Dec 22, 2023 10:06 am
by digitsoft
Good afternoon Roger
I have problem using DCBROWSE and FOOTER with SUBCLASS 'DC_XbpOwnerDrawBrowseGeneric()' ;
USEVISUALSTYLE

Attached Example in Yellow color

Re: Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Mon Jan 08, 2024 4:21 pm
by rdonnay
Can you show me your code?

Re: Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Tue Jan 09, 2024 1:12 pm
by digitsoft
Thanks Roger
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

Re: Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Wed Jan 10, 2024 1:25 am
by skiman
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?

Re: Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Wed Jan 10, 2024 6:53 am
by digitsoft
I have already tried that, it doesn't matter if I change it at 12:50 or 09:00 the problem remains the same

Re: Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Thu Jan 11, 2024 1:02 am
by skiman
Hi,

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") }
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.

Re: Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Thu Jan 11, 2024 6:42 am
by digitsoft
Make the changes
and the problem continues

Thank you
for your response

Re: Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Thu Jan 11, 2024 6:49 am
by rdonnay
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.

Re: Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Thu Jan 11, 2024 6:54 am
by skiman

Code: Select all

@ 02.7,0.4 DCBROWSE oDetalleDocumento DATA aDetalleDocumento SIZE 133.80,10.5 PRESENTATION DC_BrowPres( 19 ) ;
DC_BrowPres( 19 ) ??? What is this? You can give an array as parameter, but not a numeric value?

Have you tried without the PRESENTATION?

Re: Error with eXpress (DCBROWSE) and Xbase 2.0

Posted: Thu Jan 11, 2024 7:14 am
by digitsoft

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 }; 
       }
All times are UTC-07:00
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited