FiveTech Software tech support forums

Code: Select all | Expand

    REDEFINE XBROWSE oBrwDet                             ;        
        DATASOURCE oRs2                                  ;
        COLUMNS "id","numero", "bruto","neto","brupi","fsali" ;
              ,"parte","pneto"                           ;
        FIELDSIZES 50,60,100,100,100,70,60,100           ;
        HEADERS "id"                                     ;
              ,"CAJA"                                    ;
              ,"BRUTO FAB."                              ;
              ,"NETO FAB."                               ;
              ,"BRUTO PYSA"                              ;
              ,"F.SALIDA  "                              ;
              ,"PARTE"                                   ;
              ,"NETO"                                    ;
        PICTURES ,,'9,999.999','9,999.999', '9,999.999',,,'9,999.999' ;
        ID 4025 OF oDlgDet                               ;
        AUTOSORT LINES CELL NOBORDER UPDATE

        oBrwDet:nStretchCol    := STRETCHCOL_WIDEST
        oBrwDet:nMarqueeStyle    = MARQSTYLE_HIGHLROW
        oBrwDet:bClrSel     := {|| {  CLR_WHITE, GetSysColor(13 ) } }   //ESTO HACE QUE NO SALGA LINEA NEGRA
        oBrwDet:lSeekWild   := .t.
        
{CLR_BLACK, CLR_WHITE} ) }                  
        oBrwDet:aCols[ 5 ]:bClrStd := {|| iif (oRs2:recordcount()>0, { iif( oRs2:Fields("brupi"):value>oRs2:Fields("bruto"):value, CLR_HRED, CLR_BLACK), CLR_WHITE },{CLR_BLACK, CLR_WHITE} ) }                 

        if oRs2:recordcount()>0
          WITH OBJECT oBrwDet:aCols[ 6 ]
            :bStrData         := {|| iif( empty(oRs2:Fields("fsali"):Value), ' ',oRs2:Fields("fsali"):Value) }
          END WITH
        endif

          oBrwDet:lHScroll := .t.
          oBrwDet:lVScroll := .t.
          oBrwDet:aCols[1]:lHide:=.t.  //para ocultar columnas


        REDEFINE BTNBMP oBtn ID 4014 OF oDlgDet UPDATE PIXEL 2007 NOBORDER CENTER  ;           
       ACTION (  oExcel:=oBrwDet:ToExcel() , oExcel:Columns(2):autofit() )       
       oBtn:cTooltip := "Exportar Lote"   
 

Code: Select all | Expand

...
REDEFINE BTNBMP oBtn ID 4014 OF oDlgDet UPDATE PIXEL 2007 NOBORDER CENTER  ;           
ACTION (  oExcel:=oBrwDet:ToExcel()  )       
oBtn:cTooltip := "Exportar Lote"   
 

Code: Select all | Expand

Called from: .\dlgguia.PRG => (b)NUEVODET( 0 )
 

Code: Select all | Expand

.prg.obj:
$(HBDIR)\bin\harbour $< /M /N /W /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include >log-prg.txt
 

Code: Select all | Expand

.prg.obj:
$(HBDIR)\bin\harbour $< /N /W /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include >log-prg.txt
 

Code: Select all | Expand

xHarbour 1.2.3 Intl. (SimpLex) (Build 20201212)
Copyright 1999-2020, http://www.xharbour.org http://www.harbour-project.org/

Syntax:  C:\XHBBCC74\bin\harbour.exe <file[s][.prg]> [options]

Options:  /a               automatic memvar declaration
          /b               debug info
          /build           display detailed version info
          /credits         display credits
          /d<id>[=<val>]   #define <id>
          /es[<level>]     set exit severity
          /ex              create public function list (.xbx)
          /g<type>         output type generated is <type> (see below)
          /gc[<type>]      output type: C source (.c) (default)
                           <type>: 0=compact 1=normal 2=verbose (default)
                                   3=generate real C code
          /go              output type: Platform dependant object module
          /gh              output type: Harbour Portable Object (.hrb)
          /i<path>         #include file search path
          /j[<file>]       output i18n support [to <file>] to .hil
          /k               compilation mode (type -k? for more data)
          /l               suppress line number information
          /m               compile module only
          /n[<type>]       no implicit starting procedure (default)
                           <type>: 0=no implicit starting procedure
                                   1=no starting procedure at all
                                   2=force application starting procedure
          /o<path>         object file drive and/or path
          /p[o<path>]      generate pre-processed output (.ppo) file in <path>
          /pt[o<path>]     generate pre-processor trace (.ppt) file in <path>
          /q               quiet
          /q0              quiet and don't display program header
          /s               syntax check only
          /u[[+]<file>]    use command def set in <file> (or none)
          /undef:<id>      #undef <id>
          /v               variables are assumed M->
          /vd              external functions are assumed as dynamic functions
          /w[<level>]      set warning level number (0..3, default 1)
          /x[<prefix>]     set symbol init function name prefix (for .c only)
          /z               suppress shortcutting (.and. & .or.)
          @<file>          compile list of modules in <file>

Code: Select all | Expand

SysRefresh() // insert now
return oSheet

Code: Select all | Expand

#ifndef __XHARBOUR__
   else
      //
      //SysRefresh()
      //
      // This requires explanation.
      // With xHarbour there is no problem. Problem is with Harbour only
      // return value of this function is oSheet which is an Object. xHarbour returns as object
      // If SysRefresh() is called here, Harbour returns oSheet as an object
      // if not it returns an Array of two numeric elements.
      // I am unable to understand this phenomenon.
      // Till we understand what is happening, keep SysRefresh() here for
      // Harbour build.
      // 2015-06-02
#endif
   endif
   SysRefresh()
return oSheet
 

Code: Select all | Expand

REDEFINE BTNBMP oBtn ID 4014 OF oDlgDet UPDATE PIXEL 2007 NOBORDER CENTER  ;           //38
ACTION (  oExcel:=oBrwDet:ToExcel(),msgalert(valtype(oExcel)), oExcel:Columns(1):hidden:=.t., oexcel:Columns(2):autofit() )       
oBtn:cTooltip := "Exportar Lote"    

 

Code: Select all | Expand

REDEFINE BTNBMP oBtn ID 4014 OF oDlgDet UPDATE PIXEL 2007 NOBORDER CENTER  ;           //38
ACTION (  oExcel:=oBrwDet:ToExcel(),oExcel:Columns(1):hidden:=.t., oexcel:Columns(2):autofit(),oExcel:Cells(1,10):Value :='TOTALES :', oExcel:Cells(1,10):Font:Bold := .t. )       
oBtn:cTooltip := "Exportar Lote"