FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsoft.com/

Please Mr Nages Problem with xbrowse footer

https://forums.fivetechsoft.com/viewtopic.php?f=3&t=24961

Page 1 of 1

Please Mr Nages Problem with xbrowse footer

Posted: Thu Oct 04, 2012 11:38 pm
by Eoeo
I have a xbrowse and I wish show the total of 8° column at footer

Image

why I cannot show the totals at oBrw:aCols[8] ?

the code

Code: Select all

 


@ 1, 1 XBROWSE oBrw  SIZE oFld1:aDialogs[1]:nwidth-5,oFld1:aDialogs[1]:nbottom-35 PIXEL OF oFld1:aDialogs[1] ALIAS "PF";
                                 COLUMNS 'PF->codice','PF->Voce','PF->Quantita',;
                                         ' PF->Unita','PF->Prezzo','PF->Sconti','PF->Iva','pf->importo' ;
                                 COLSIZES 90,140,50,60,40,80,90,90 ;
                                 HEADERS i18n("Codice"),i18n("Descrizione"), i18n("Quantità"),;
                                 i18n("Unità di misura"),i18n("Prezzo"),i18n("Sconti"),i18n("Iva"),i18n("Importo") ;
                                 PICTURES ,,'@ 9999',,'@ €99,999.99',,'99.99 %','@ €99,999.99' ;
                                 CELL LINES FOOTERS NOBORDER FASTEDIT
FOR i := 1 TO LEN( oBrw:aCols)
      oCol := oBrw:aCols[ i ]
     * oCol:bLDClickData  := {||   }
     oCol:oDataFont := oFontGrid
     oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, ( DBRLOCK(), FieldPut( o:nCreationOrder, v ), DBUNLOCK() ), ) }
     oCol:bOnChange := { || oBrw:MakeTotals(), oBrw:RefreshFooters() }
   NEXT



                        WITH OBJECT  oBrw
                             WITH OBJECT  oBrw:aCols[1]
                                      :nBtnBmp := 1
                                      :nEditType := EDIT_BUTTON
                                      :bEditBlock  :={||Selezione_prodotti(oBrw)}
                                   END

                                WITH OBJECT  oBrw:aCols[4]
                                      :nEditType := EDIT_LISTBOX
                                      :aEditListTxt:={"pz.","gr","kg","mm" }
                                END

                                 WITH OBJECT  oBrw:aCols[7]
                                      :nBtnBmp := 1
                                      :nEditType := EDIT_LISTBOX
                                      :aEditListTxt:={"20","12","8","4" }

                                 END


                                 WITH OBJECT oBrw:aCols[8]
                                     :bStrData := { ||  Calcolo_Importo_Riga( PF->QUANTITA,PF->PREZZO,VAL(PF->IVA),PF->SCONTI,oBrw) }
                                     :nTotal := 0
                                     :lTotal := .t.
                                     :nFooterType := AGGR_SUM
                                     :addbmpfile( ".\bitmaps\cassa16.bmp" )
                                     :nDataStrAlign := AL_RIGHT
                                     :cEditPicture := '@ €99,999.99'
                                     :nFootStrAlign := AL_RIGHT
                                     :nFootBmpNo := 1 // Footer BMP
                                  END


                        END






                                  oBrw:lColDividerComplete := .t.
                                  oBrw:lRecordSelector     := .F.
                                  oBrw:lVScroll            := .F.
                                  oBrw:lHScroll            := .F.

                                  oBrw:nHeaderHeight       := 20
                                  oBrw:nRowHeight          := 20
                                  oBrw:nStretchCol  := STRETCHCOL_WIDEST
                                  oBrw:lFooter:=.t.
                                  oBrw:MakeTotals()
                                 * oBrw:RefreshFooters()
                                  oBrw:CreateFromCode()

Re: Problem with xbrowse footer

Posted: Fri Oct 05, 2012 1:40 am
by Kleyber
Silvio,

Put this before the browse:

Code: Select all

DbEval( { || nTotal += CHE1->valor } )
DbGoTop()
 

Re: Problem with xbrowse footer

Posted: Fri Oct 05, 2012 7:36 am
by Eoeo
sorry but on another app I use the same code and it run ok


ntotal is a value of XBROWSE

Re: Problem with xbrowse footer

Posted: Fri Oct 05, 2012 9:00 am
by Mulyadi
Hi..
me to have a problem like this.

Mulyadi.

Please Nages Problem with xbrowse footer

Posted: Fri Oct 05, 2012 11:13 am
by Eoeo
Please Nages try this test sample



it create the dbf

New for insert a record

press Quantity to set the quantity of record

the total of footer not refresh()


Code: Select all

 
#Include "Fivewin.ch"
#Include "dtpicker.ch"
#include "xbrowse.ch"
#include "constant.ch"
#include "ribbon.ch"
#define MARQSTYLE_HIGHLWIN7  7
#define LIGHTCYAN        nRGB( 203, 225, 252 )


  REQUEST DBFCDX
  REQUEST DBFFPT
  External ordkeyno, ordkeycount,ordcreate,ordkeygoto

 static oBrw

   Function Main()
   Local oFrmFattura
   Local oFld1,oFont
   Local  nBottom   := 42.3
   Local  nRight    := 110
   Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local nHeight := nBottom * DLG_CHARPIX_H
   local nClrText := CLR_BLACK
   RddSetDefault( "DBFCDX" )

    CREATE_DBF()




  if ! Db_OpenNoIndex("PARFAT","PF")
      return nil
   endif




DEFINE DIALOG oFrmFattura        ;
   TITLE "Fattura "    ;
   SIZE nWidth, nHeight  TRANSPARENT PIXEL               ;
     GRADIENT { { 1,CLR_WHITE, LIGHTCYAN } }    ;
   FONT oFont      STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION,  4 )



@  25,   3 FOLDEREX oFld1 Items "&Righe Documento",;
                                 "Pagamento",;
                                 "Note",;
                                 "Indirizzi",;
                                 "Opzioni";
              SIZE oFrmFattura:nwidth-440,230 PIXEL;
              OF oFrmFattura




 IF Iswinxp()
      oFontGrid:= TFont():New( "Lucida Console", 0, 12,, )
  ELSE
     oFontGrid:= TFont():New( "Lucida Console", 0, 12,, )
  ENDIF


 Table_Fattura(oFld1,oFont,nClrText)

 @ 0.5,10 BUTTON oBtn  PROMPT "New record" ACTION Selezione_prodotti(oBrw)  OF  oFrmFattura
 @ 0.5,40 BUTTON oBtn  PROMPT "Insert Quantity" ACTION Manual(oBrw)  OF  oFrmFattura

 ACTIVATE DIALOG oFrmFattura   RESIZE16 CENTERED
                        if oFrmFattura:nresult == IDOK
                             //Salvataggio


                         endif
  Return NIL


Function Manual(oBrw)

  FOR i := 1 TO LEN( oBrw:aCols)
      oCol := oBrw:aCols[ i ]
      oCol:nEditType := 1
     oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, ( DBRLOCK(), FieldPut( o:nCreationOrder, v ), DBUNLOCK() ), ) }
   NEXT

Return NIL









//---------------------------------------------------------//

Function Table_Fattura(oFld1,oFont,nClrText)
  @ 1, 1 XBROWSE oBrw  SIZE oFld1:aDialogs[1]:nwidth-5,oFld1:aDialogs[1]:nbottom-35 PIXEL OF oFld1:aDialogs[1] ALIAS "PF";
                                 COLUMNS 'PF->codice','PF->Voce','PF->Quantita',;
                                         ' PF->Unita','PF->Prezzo','PF->Sconti','PF->Iva','pf->importo' ;
                                 COLSIZES 90,140,50,60,40,80,90,90 ;
                                 HEADERS i18n("Codice"),i18n("Descrizione"), i18n("Quantità"),;
                                 i18n("Unità di misura"),i18n("Prezzo"),i18n("Sconti"),i18n("Iva"),i18n("Importo") ;
                                 PICTURES ,,'@ 9999',,'@ €99,999.99',,'99.99 %','@ €99,999.99'





   FOR i := 1 TO LEN( oBrw:aCols)
      oCol := oBrw:aCols[ i ]
     * oCol:bLDClickData  := {||   }
     oCol:oDataFont := oFontGrid
     oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, ( DBRLOCK(), FieldPut( o:nCreationOrder, v ), DBUNLOCK() ), ) }
     oCol:bOnChange := { ||Calcolo_Importo_Riga( PF->QUANTITA,PF->PREZZO,VAL(PF->IVA),PF->SCONTI,oBrw),;
                            oBrw:MakeTotals(), ;
                            oBrw:RefreshFooters() }
   NEXT



                       WITH OBJECT  oBrw

                             WITH OBJECT  oBrw:aCols[1]
                                      :nBtnBmp := 1
                                      :nEditType := EDIT_BUTTON
                                      :bEditBlock  :={||Selezione_prodotti(oBrw)}
                                END
                                WITH OBJECT  oBrw:aCols[4]
                                      :nEditType := EDIT_LISTBOX
                                      :aEditListTxt:={"pz.","gr","kg","mm" }
                                END

                                 WITH OBJECT  oBrw:aCols[7]
                                      :nBtnBmp := 1
                                      :nEditType := EDIT_LISTBOX
                                      :aEditListTxt:={"20","12","8","4" }

                                   END


            WITH OBJECT oBrw:aCols[8]
              :bStrData := { ||  Calcolo_Importo_Riga( PF->QUANTITA,PF->PREZZO,VAL(PF->IVA),PF->SCONTI,oBrw) }


                                                  :addbmpfile( ".\bitmaps\cassa16.bmp" )
                                                  :nDataStrAlign := AL_RIGHT
                                                  :cEditPicture := '99,999.99'
                                                  :lTotal := .t.
                                                  :nTotal := 0
                                                  *:nFooterType := AGGR_TOTAL
                                                  :nFootStrAlign := AL_RIGHT
                                                  :nFootBmpNo := 1 // Footer BMP


                                END

                                 :nColDividerStyle := LINESTYLE_LIGHTGRAY
                                 :nMarqueeStyle    := MARQSTYLE_HIGHLWIN7
                                 :lColDividerComplete := .T.
                                 :lRecordSelector     := .F.
                                 :lVScroll            := .F.
                                 :lHScroll            := .F.
                                 :nHeaderHeight       := 20
                                 :nRowHeight          := 20
                                 :nStretchCol  := STRETCHCOL_WIDEST

                               END



                                 oBrw:SetRDD()
                                 oBrw:CreateFromCode()
                                 oBrw:lFooter:=.t.
                                 oBrw:MakeTotals()






RETURN NIL


//---------------------------------------------------------------------------------------------//

fUNCTION CREATE_DBF()


 DbCreate('PF', {{ "CODICE"    , "C",      10,    0 },;
                 { "VOCE"      , "C",      60,    0 },;
                 { "QUANTITA"  , "N",       6,    0 },;
                 { "UNITA"     , "C",      10,    0 },;
                 { "PREZZO"    , "N",      10,    0 },;
                 { "SCONTI"    , "C",      10,    0 },;
                 { "IVA"       , "C",       2,    0 },;
                 { "IMPORTO"   , "N",      12,    0 } } , 'DBFCDX')


       close all
      use &('PF') new
      select PF
      if FILE('PARFAT.DBF')
         delete file &('PARFAT.cdx')
         append from &('PARFAT')
         dbcommitall()
         close all
         delete file &('PARFAT.dbf')
      endif
      close all
      rename &('PF.dbf') to &('PARFAT.dbf')
     dbcloseall()


RETURN NIL



fUNCTION Selezione_prodotti(oBrw)
SELECT PF
                            PF->(DbAppend())
                            n:=recno()
                            Replace PF->codice   with  "0000"+str(n)
                            Replace PF->Voce     with  "ARTICLE"+str(n)
                            Replace PF->Unita    with  "PZ."
                            Replace PF->Iva      with  "20"
                            Replace PF->Prezzo   with  3.4


                               oBrw:maketotals()
                               oBrw:refresh()

RETURN NIL





Function Calcolo_Importo_Riga( quant,unitario,iva,sconti,oBrw)
  Local  nImporto     := 0
  Local  nImponibile  := 0
  Local  nNetto       := 0
  Local  nNettot      := 0
  Local  nSconto      := 0


   nImporto:=quant*unitario
   nImponibile:= ((nImporto/100)*iva)
   nNetto:=nImponibile+nImporto
   nSconto:=nNetto*(val(sconti)/100)
   nNettoT := nNetto-nSconto
   oBrw:MakeTotals()
   *oBrw:RefreshFooters()
  * oBrw:Refresh()


 Return nNettoT





















//---------------------------------------------------------------------------//

function Db_OpenNoIndex(cDbf,cAlias)
   if file( cDbf + ".dbf" )
      USE &(cDbf+".dbf")      ;
         ALIAS &(cAlias) NEW
   else
     MsgStop( i18n( "Non si è trovato l'archivio dei dati." ) + CRLF + ;
               i18N( "Per favore  controlla la configurazone") + CRLF + ;
                i18N( "e indicizza gli archivi dell'applicazione." ) )
      return .f.
      return .f.
   END if
   if NetErr()
     msgStop( i18n( "Errore nell'aprire un archivio" ) + CRLF + ;
              i18n( "Per favore caricare di nuovo l'applicazione." ) )
      DbCloseAll()
      return .f.
   endif
return .t

Re: Please Mr Nages Problem with xbrowse footer

Posted: Fri Oct 05, 2012 12:07 pm
by Otto
Silvio,
change quantity does not write in your database.
This is working for me.
Regards,
Otto

Function Calcolo_Importo_Riga( quant,unitario,iva,sconti,oBrw)
Local nImporto := 0
Local nImponibile := 0
Local nNetto := 0
Local nNettot := 0
Local nSconto := 0


nImporto:=quant*unitario
nImponibile:= ((nImporto/100)*iva)
nNetto:=nImponibile+nImporto
nSconto:=nNetto*(val(sconti)/100)
nNettoT := nNetto-nSconto

pf->importo := nImporto

oBrw:MakeTotals()


Return nNettoT

Re: Problem with xbrowse footer

Posted: Fri Oct 05, 2012 10:30 pm
by Kleyber
Silvio,
Eoeo wrote:sorry but on another app I use the same code and it run ok
ntotal is a value of XBROWSE
I know ntotal is a value of XBrowse, but I think you misunderstood my answer. Anyway, if you have the same code running ok in other app, maybe you have to see more carefully in what you did.

Good luck.

Re: Please Mr Nages Problem with xbrowse footer

Posted: Sat Oct 06, 2012 6:18 pm
by Eoeo
Sorry Yu're right
I made a mistake
I'm working from many days to converte Dos application clipper over 5000 lines and Im very tired !!!

thanks Otto!!!

Re: Please Mr Nages Problem with xbrowse footer

Posted: Sat Oct 06, 2012 6:20 pm
by Eoeo
Otto,
is there a method into xbrowse to insert a spinner on field quantity to add or del numeric field ?
All times are UTC
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited