#include "FiveWin.ch"
#include "dtpicker.ch"
#include "calendar.ch"
//----------------------------------------------------------------------------//
function TestGrp()
Private mDatum, oBrwZbr
USE RptStaZbr NEW
DBCREATEINDEX("RptStaZbr","Naziv",{|| Naziv})
USE Inf_Firma SHARED VIA "SQLRDD" NEW
DbSelectArea("Inf_Firma")
do while ! eof()
cComp=Inf_Firma->Naziv
cSta=Inf_Firma->Firma_Id+"_STANJE"
USE &cSta SHARED VIA "SQLRDD" NEW
DbSelectArea("Inf_Firma")
skip
enddo
mDatum = date()
mDTPicker = date()
DEFINE DIALOG oDlg RESOURCE "NADANZBR"
REDEFINE CALENDAR oDTPicker VAR mDTPicker ID 4002;
ON CHANGE (mDatum:= oDTPicker:GetDate(),oDatum:refresh()) UPDATE
REDEFINE GET oDatum VAR mDatum ID 101 OF oDlg;
FONT oFont
REDEFINE XBROWSE oBrwZbr ID 4003 ALIAS "RptStaZbr" ;
FONT oFontBrw;
OF oDlg
oCol := oBrwZbr:AddCol()
oCol:bStrData := { || RptStaZbr->Naziv}
oCol:cHeader := "Naziv"
oCol:nWidth := 220
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol:oDataFont := oFontBrw
oCol:lMergeVert := .t.
* oCol:WorkMergeData()
oCol := oBrwZbr:AddCol()
oCol:bStrData := { || RptStaZbr->Banka}
oCol:cHeader := "Banka"
oCol:nWidth := 200
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol:oDataFont := oFontBrw
oCol := oBrwZbr:AddCol()
oCol:bStrData := { || RptStaZbr->Racun}
oCol:cHeader := "Račun"
oCol:nWidth := 140
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol:oDataFont := oFontBrw
oCol:= oBrwZbr:AddCol()
oCol:bEditValue := { || RptStaZbr->Iznos }
oCol:cEditPicture := '@E 999,999,999.99'
oCol:cHeader := "Iznos"
oCol:bClrHeader := { || { RGB( 255, 255, 255 ), nRGB( 203, 225, 252 ), nRGB( 255, 255, 220 ) } }
oCol:bClrFooter := { || { RGB( 255, 255, 255 ), nRGB( 203, 225, 252 ), nRGB( 255, 255, 220 ) } }
oCol:bClrGrad :={ || {{ 0.4 , nRGB( 0, 160, 160 ), nRGB( 0, 180, 180 ) },{ 0.6, nRGB( 0, 180, 180 ),nRGB( 0, 160, 160 ) } } }
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_RIGHT
oCol:nFootStrAlign := AL_RIGHT
oCol:nWidth := 110
oCol:lTotal := .t.
oCol:nTotal := 0
oCol:oDataFont := oFontBrw
oCol := oBrwZbr:AddCol()
oCol:AddResource("OFF")
oCol:AddResource("ON")
oCol:cHeader := " "
oCol:bBmpData := { || iif( RptStaZbr->Iznos < 0 ,1,2) }
oCol:oDataFont := oFontBrw
oBrwZbr:lMergeVert := .t.
oBrwZbr:nMarqueeStyle := 0
oBrwZbr:nColDividerStyle := LINESTYLE_BLACK
oBrwZbr:nHeaderHeight := 26
oBrwZbr:lColDividerComplete := .t.
oBrwZbr:nRowDividerStyle := LINESTYLE_BLACK
oBrwZbr:nHeaderLines := 1
oBrwZbr:nFooterLines := 1
oBrwZbr:nDataLines := 1
oBrwZbr:lFooter := .t.
REDEFINE BTNBMP oBtnDal ID 18 OF oDlg ;
RESOURCE "Dalje" LEFT 2007 PROMPT " &Primeni ";
ACTION (TestZbr(),oBrwZbr:MakeTotals(),oBrwZbr:Refresh(),oBrwZbr:SetFocus() )
REDEFINE BTNBMP oBtnIzl ID 11 OF oDlg ;
RESOURCE "Izlaz" LEFT 2007 PROMPT " &Izlaz ";
ACTION (DBcloseAll(),oDlg:end())
ACTIVATE DIALOG oDlg CENTERED ON INIT (TestZbr(),oBrwZbr:MakeTotals(),oBrwZbr:Refresh(),oBrwZbr:SetFocus())
DbCloseAll()
return nil
//----------------------------------------------------------------------------//
function TestZbr()
local nErr
DBSelectArea("RptStaZbr")
zap
DbSelectArea("Inf_Firma")
DbGoTop()
do while ! eof()
mFirma_Id=Inf_Firma->Firma_Id
cSta=Inf_Firma->Firma_Id+"_STANJE"
nErr := oSql:exec("SELECT Inf_Firma. Naziv, &cSta .Racun_Id, &cSta .Banka, &cSta .Racun, &cSta .Iznos"+;
" FROM Inf_Firma, &cSta"+;
" WHERE &cSta .Datum='" + dtos(mDatum) + "'"+;
" AND Inf_Firma. Firma_Id = '" + mFirma_Id + "'"+;
" GROUP BY Inf_Firma. Naziv, &cSta .Racun_Id, &cSta .Racun, &cSta .Iznos, &cSta .Banka",,.t.,,"RptStaZbr.dbf")
DbSelectArea("Inf_Firma")
skip
enddo
return nil