Problems updating from 2006.4 to 2008.1
Posted: Wed May 14, 2008 6:05 am
Hi,
I've recently updated StimulReports from 2006.4 to 2008.1 version.
I have this problem: a report, under certain conditions doesn't work well.
This is a master-detail report, with 2 subreports (details)
when a master record in printed on the top of the page (excluding the first), one of the subreport doesn't show all the detail lines, or doesn't show at all
it's not a problem due to data, because if I filter data, the same master record appers in a different position on the page, and also the subreport details work well
what's wrong? it's a bug?
thanks
this is the original report
True
Dim factor As Integer
' se non sono specificati i parametri, allora nascondo il relativo contenitore e sposto in alto quelli sotto
Me.contDataCreaz.Enabled = Not ((Me.P_DATA_CREAZ = String.Empty) AndAlso (Me.P_DATA_CREAZ_A = String.Empty))
If (Not Me.contDataCreaz.Enabled) Then factor += 1
Me.contNrProg.Enabled = Not ((Me.P_NR_PROG = String.Empty) AndAlso (Me.P_NR_PROG_A = String.Empty))
Me.contNrProg.Top -= factor * contDataCreaz.Height
If (Not Me.contNrProg.Enabled) Then factor += 1
Me.contDataConc.Enabled = Not ((Me.P_DATA_CONC = String.Empty) AndAlso (Me.P_DATA_CONC_A = String.Empty))
Me.contDataConc.Top -= factor * contDataCreaz.Height
If (Not Me.contDataConc.Enabled) Then factor += 1
Me.contNrConc.Enabled = Not ((Me.P_NR_CONC = String.Empty) AndAlso (Me.P_NR_CONC_A = String.Empty))
Me.contNrConc.Top -= factor * contDataCreaz.Height
If (Not Me.contNrConc.Enabled) Then factor += 1
Me.contDataScad.Enabled = Not ((Me.P_DATA_SCAD = String.Empty) AndAlso (Me.P_DATA_SCAD_A = String.Empty))
Me.contDataScad.Top -= factor * contDataCreaz.Height
If (Not Me.contDataScad.Enabled) Then factor += 1
Me.contAnnoBil.Enabled = Not ((Me.P_ANNO = String.Empty) AndAlso (Me.P_ANNO_A = String.Empty))
Me.contAnnoBil.Top -= factor * contDataCreaz.Height
' se e specificato il tipo di contributo, allora nascondo la label e il campo
' e sposto le altre etichette e campi
If (Me.P_COD_TIPO_CONTRIB_DESC <> String.Empty) Then
Me.lblTipoContrib.Enabled = False
Me.txtTipoContrib.Enabled = False
Me.txtRata.Left -= Me.lblTipoContrib.Width
Me.txtDataScad.Left -= Me.lblTipoContrib.Width
Me.txtStato.Left -= Me.lblTipoContrib.Width
Me.txtImporto.Left -= Me.lblTipoContrib.Width
Me.txtInteressi.Left -= Me.lblTipoContrib.Width
Me.SubPagamenti.Width -= Me.lblTipoContrib.Width
Me.SubPagamenti.Left += Me.lblTipoContrib.Width
Me.lblRichiedenti.Width += Me.lblTipoContrib.Width
Me.SubRichiedenti.Width += Me.lblTipoContrib.Width
End If
False
Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=DTP_Base;Data Source=SERVER2000\SQL2000
CONNECTION
PROGETTI
COD_PRATICA,System.Int32
COD_PROG,System.Int32
NR_PROG,System.String
DATA_CREAZ,System.DateTime
NR_CONC,System.String
DATA_CONC,System.DateTime
30
CONNECTION
PROGETTI
Select COD_PRATICA,COD_PROG,NR_PROG,DATA_CREAZ,NR_CONC,DATA_CONC from PROGETTI where COD_PROG in
(Select distinct COD_PROG from RPT_PAGAMENTI where (((DATA_PAG is null) or
(DATA_PAG is not null and IMPORTO_INT is not null and DATA_PAG_INT is null)))
{FILTER_CONDITION}) order by NR_PROG
RPT_RICHIEDENTI
COD_PRATICA,System.Int32
COD_PROG,System.Int32
COD_RICHIEDENTE,System.Int32
COD_ANAG,System.Int32
COD_VER,System.Int16
DENOMINAZIONE,System.String
DATA_INIZIO,System.DateTime
DATA_FINE,System.DateTime
30
CONNECTION
RPT_RICHIEDENTI
Select * from RPT_RICHIEDENTI where DATA_FINE is null
RPT_PAGAMENTI
COD_PRATICA,System.Int32
COD_PROG,System.Int32
NR_PROG,System.String
DATA_CREAZ,System.DateTime
NR_CONC,System.String
DATA_CONC,System.DateTime
COD_CONTRIB,System.Int32
COD_TIPO_CONTRIB,System.Int32
FLG_TIPO,System.String
COD_PAGAM,System.Int32
PROGRESSIVO,System.Int16
IMPORTO,System.Decimal
IMPORTO_INT,System.Object
IMPORTO_TOT,System.Decimal
DATA_SCAD,System.Object
DATA_PAG_INT,System.DateTime
DATA_PAG,System.Object
ANNO,System.Int16
IMPORTO_SUM,IMPORTO_SUM,System.Object,IIf_x0028_RPT_PAGAMENTI.DATA_PAG_x0020_Is_x0020_DBNull.Value_x002C__x0020_RPT_PAGAMENTI.IMPORTO_x002C__x0020_DBNull.Value_x0029_
STATO,STATO,System.String,GetStato_x0028_RPT_PAGAMENTI.DATA_SCAD_x002C_RPT_PAGAMENTI.DATA_PAG_x0029_
IMP_INT_SUM,IMP_INT_SUM,System.Object,GetInteressi_x0028_RPT_PAGAMENTI.DATA_SCAD_x002C_RPT_PAGAMENTI.IMPORTO_x002C_RPT_PAGAMENTI.IMPORTO_INT_x002C_RPT_PAGAMENTI.FLG_TIPO_INT_x002C_RPT_PAGAMENTI.PERC_INT_LEG_x0029_
DESC_TIPO_CONTRIB,System.String
COD_LINGUA,System.Int32
FLG_TIPO_INT,System.String
PERC_INT_LEG,System.Single
30
CONNECTION
RPT_PAGAMENTI
Select * from RPT_PAGAMENTI where (((DATA_PAG is null) or
(DATA_PAG is not null and IMPORTO_INT is not null and DATA_PAG_INT is null)))
{FILTER_CONDITION} order by COD_TIPO_CONTRIB, PROGRESSIVO
PROGETTI_RPT_RICHIEDENTI
COD_PROG
PROGETTI_RPT_RICHIEDENTI
COD_PROG
PROGETTI_RPT_RICHIEDENTI
PROGETTI_RPT_PAGAMENTI
COD_PROG
PROGETTI_RPT_PAGAMENTI
COD_PROG
PROGETTI_RPT_PAGAMENTI
,FILTER_CONDITION,FILTER_CONDITION,System.String,,False,False
,ENTE,ENTE,System.String,,False,False
,P_COD_TIPO_CONTRIB_DESC,P_COD_TIPO_CONTRIB_DESC,System.String,,False,False
,P_DATA_CREAZ,P_DATA_CREAZ,System.String,,False,False
,P_DATA_CREAZ_A,P_DATA_CREAZ_A,System.String,,False,False
,P_NR_PROG,P_NR_PROG,System.String,,False,False
,P_NR_PROG_A,P_NR_PROG_A,System.String,,False,False
,P_DATA_CONC,P_DATA_CONC,System.String,,False,False
,P_DATA_CONC_A,P_DATA_CONC_A,System.String,,False,False
,P_NR_CONC,P_NR_CONC,System.String,,False,False
,P_NR_CONC_A,P_NR_CONC_A,System.String,,False,False
,P_DATA_SCAD,P_DATA_SCAD,System.String,,False,False
,P_DATA_SCAD_A,P_DATA_SCAD_A,System.String,,False,False
,P_ANNO,P_ANNO,System.String,,False,False
,P_ANNO_A,P_ANNO_A,System.String,,False,False
None;Black;2;Solid;False;4;Black
Transparent
Transparent
0,18.6,27.7,0.4
True
Transparent
0,0,1.6,0.4
Arial,8
0,0,0,0
txtData
Data: {Today}
Black
Transparent
24.8,0,2.9,0.4
Arial,8
Right
0,0,0,0
Text24
{PageNofM}
Black
Bottom
PageFooterBand1
Transparent
True
0,0.4,27.7,4.4
Transparent
0,0,22.2,1.2
Arial,9.75,Regular,Point,False,0
0,0,0,0
txtEnte
{ENTE}
Black
Transparent
22.2,0,5.5,1.2
Right
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAABqlJREFUeF7tWmloE00YjvdRFe+jnuCtqCiCooiKivhDEEVR8IciFqF/FMUiggqiKFIFfyiIIFYFFasi4n2DIkgxR9M2bbVWe6VHkiZt0uZ6vz7TL5vsZrMzadPyfXUXQkN3MjvzzDPP+7zvrMGgXzoCOgI6AjoCOgI6AjoCOgI6AjoCfyUC9O8VDocjXynyXe1/aMS7f6bmDBmMBjJ8b/vgb4LvRb6iuGcq+//S9CVxX5z+tZ4/0DSQHjgfkEEHQFqD1H2RGBBZ/QR/YxmQ6OkSAzh9SUwTbKczQLkFUrf+RD2SAf6wn6w+K9113qWT1SdpT/ke2l62nX2OVB6hq3VX6Y37DTUEGqIApEgE+5v602LbYtpdvptO15ymmw036Z7zHt1x3KGz9rO0//d+WlG8ggaZBskFU+P5cVtAjQFQ+/pAPd123KYNpRsoPT+d+pn6RZU9Zr/1MvaiYeZhNLtwNi0qWqTaRrlPRTTAHrDTJ88nqvHXUCAcUCVqKBxi48zz5tGxqmM0q3AWYTxausDVgJZQC1vRlcUrqZ+xbdJqaHYiDGFwImEw2SgFMIpbihkQWJBEYViTAU2hJjpRfYKGmIcIrWSyChxpL8KAjmoTgHjlfkUTrRNV55CQAY6Ag3b+2km9jb25RoZndHj3u4IBSiNV1lrG9EE5FlUGgPYQGjZ5wXjamXZdyYBY5hT4CmiJbYlsTnEAQOUv1V5qF4/I3u7kHv8vMCDCiLfutzTCMkKKEnEAfGv+RmPyx3TLyneHBii1AxHkeNVxKTrIAMDq7/q1K14xewgDIiyAvqVb0xnDZQB89Hyk4ZbhQqvfx9iH1pWuo/P283TfeZ9yHDmU8SeDplqnCv0+VjOS1QB30E2PXI/oUMUh2lq2lTJ+Z9Atxy2q8lcJBwu4VGicDICsyiyhOD+tYBpzgq6gi6XEkbQY9LK12Ghv+V65Z0iBE8TMENJMXhOtLllNaeY0mUZFXOJj12OhdB5bfbRldBQADH5B0QLu6o3PH09PG59qIg1g9v3ex+0rWQ0oaSlhDlMr4oyyjKL3nvfSoiQaaGu4lZbalkYBQIgYY2kTP47TO1V9Sgjhan81TbFOSVlBxBvystDMGx/uY2LOoJNbsDnw50AUALglnuObkD+B2UuRC3Q9WnlUiAUiGmD2mqPhS8CbQCN41+Xay1EAUBaCIGghvKZkDTkDTiEGoBEyNezNVPgACG3C8poKa7OqsrgMuFZ/TQUADXSRCTYGG3nASvdful9GU1ONfkUYkNOQI8SmiD5kVmRyx4nIIUWBh66H7YPV0ADYSOxtZWamWkilMF2pu0IIl6lgwGv368R5icqYs2uzuQzA+CQAEBYki5hgtdD4necdF1k0gKnaUrZFaNVEGFDeWk7zCucJ9TfANICMXiN3nCjoSADAHU2yTuKq7KYfm5jCKrMtJStAf6kYkQIfAJZdr7/ezihliT2mfzzzcOVhQpjjle03/9wsN0L4By+rQ1EEzssRdKgiDPVH5WZO4RxuX8n6gOZQMyvDMbFWYWlfY1/CAqEcx7vqAnU0s2CmHACoIg9h7Ge0WV+6nhmOSn8lE0Y8FFSGT5hsnSxck0u2IoRU/UbDDVpevJzG5o9ljhCObmHRQrpgvyCbvBYDECbTTGlyAFA0mFs4V3jlUBeEM0N0QLGBpyGJ2CWiAcoV9YV89N37nZ41PiPoVzLRqc28045fO9g849Lhi7UXe3w2+Lnps5SrxAFQG6iltaVrhVnA0wyR+x1hAG+PJ7oPAV9Vskqan2pNMK85j5D09LSKEPIJVIljo5NqTRDikevKbU+OBHx3Z9t0BwPgSyDyg82DtWuCsa4u15krZ0Kio+5OVoy6oyp8zn6OhpqHilWFY02NxWchEX/QGRZ0JQNKW0ppW9m2hBVu7skQGIECB87hEHvZ6ZCGE4v1/VLbFDjBYDjIjsREX+BA8STbns3Mjux4TDEWobPBCCPgnmAgcAgJ44HTFpgQ1BFQSxyXP46mF0ynjT82EsIpHKMIM0QYACYiduMgFMWbCn8FYTyekIeZH9QDUY574nrCqlEzCmbITZ1GftOhN0TgyGw+G31t+krPG5/TB88HloDY/XZWu8PVVa/IYC/DsC0rXsasL84t5xfNp5GWkdxcRuhkqKMxVvm7Hvl+gOge7EoGiGqQiI9JSgOSZYbOgP/ja3LJrrJW+xeNLyjzTyb3g7c+eNfP1p/cfkSepWxzsOIgyyr/ypdD9UnrCOgI6AjoCOgI6AjoCOgI6AgYDP8AtA3AWxxWT0AAAAAASUVORK5CYII=
imgLogo
Center
True
Transparent
0,1.2,27.7,0.8
Arial,12,Bold,Point,False,0
Center
0,0,0,0
txtTitolo
SCADENZARIO PAGAMENTI {P_COD_TIPO_CONTRIB_DESC}
Black
Center
Transparent
True
0,2,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataCreazDa
Da data dom.:
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataCreazA
a data dom.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataCreazDa
{P_DATA_CREAZ}
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataCreazA
{P_DATA_CREAZ_A}
Black
Center
contDataCreaz
Transparent
True
0,2.4,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblNrProgDa
Da num. dom.:
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblNrProgA
a num. dom.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtNrProgDa
{P_NR_PROG}
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtNrProgA
{P_NR_PROG_A}
Black
Center
contNrProg
Transparent
True
0,2.8,27.7,0.4
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataConcDa
{P_DATA_CONC}
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataConcA
a data conc.:
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataConcA
{P_DATA_CONC_A}
Black
Center
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataConcDa
Da data conc.:
Black
Center
contDataConc
Transparent
True
0,3.2,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblNrConcDa
Da num. conc.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtNrConcDa
{P_NR_CONC}
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblNrConcA
a num. conc.:
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtNrConcA
{P_NR_CONC_A}
Black
Center
contNrConc
Transparent
True
0,4,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblAnnoBilDa
Da anno bil.:
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblAnnoBilA
a anno bil.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtAnnoBilDa
{P_ANNO}
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtAnnoBilA
{P_ANNO_A}
Black
Center
contAnnoBil
Transparent
True
0,3.6,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataScadDa
Da data scad.:
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataScadA
a data scad.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataScadDa
{P_DATA_SCAD}
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataScadA
{P_DATA_SCAD_A}
Black
Center
contDataScad
Top
ReportTitleBand1
Top, Bottom;Black;1;Solid;False;4;Black
Transparent
0,5.6,27.7,0.6
Transparent
0,0,1.8,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
Text17
Data Dom.
Black
Center
Transparent
1.8,0,1.8,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
Text18
Nr. Dom.
Black
Center
Transparent
3.6,0,1.8,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
Text19
Data Conc.
Black
Center
Transparent
5.4,0,1.8,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
Text20
Nr. Conc.
Black
Center
Transparent
7.2,0,6.6,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblRichiedenti
Richiedenti
Black
Center
Transparent
25.2,0,2.5,0.6
Arial,8.25,Bold,Point,False,0
Right
0,0,0,0
lblInteressi
Interessi
Black
Center
Transparent
22.8,0,2.4,0.6
Arial,8.25,Bold,Point,False,0
Right
0,0,0,0
lblImporto
Importo
Black
Center
Transparent
20.2,0,2.6,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblStato
Stato
Black
Center
Transparent
18.2,0,2,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblDataScad
Data Scad.
Black
Center
Transparent
17.8,0,0.4,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblRata
R.
Black
Center
Transparent
13.8,0,3,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblTipoContrib
Tipo contributo
Black
Center
Top
HeaderBand1
True
Bottom;Black;1;Dot;False;4;Black
Transparent
0,7,27.7,0.6
Transparent
0,0,1.8,0.6
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text13
{PROGETTI.DATA_CREAZ}
Black
Transparent
1.8,0,1.8,0.6
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text14
{PROGETTI.NR_PROG}
Black
Transparent
3.6,0,1.8,0.6
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text15
{PROGETTI.DATA_CONC}
Black
Transparent
5.4,0,1.8,0.6
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text16
{PROGETTI.NR_CONC}
Black
Transparent
7.2,0,6.6,0.6
SubRichiedenti
Transparent
13.8,0,13.9,0.6
SubPagamenti
PROGETTI
Top
DataBandProgetti
True
Transparent
0,8.4,27.7,0.6
Transparent
18.2,0,4.6,0.6
Arial,9,Bold,Point,False,0
0,0,0,0
lblTotali
Totali da incassare:
Black
Center
Transparent
25.2,0,2.5,0.6
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
txtSumInteressi
{Sum(DataBandProgetti:DataBandPagamenti,RPT_PAGAMENTI.IMP_INT_SUM)}
Black
,
0
0
Center
Transparent
22.8,0,2.4,0.6
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
txtSumImporto
{Sum(DataBandProgetti:DataBandPagamenti,RPT_PAGAMENTI.IMPORTO_SUM)}
Black
,
0
0
Center
Top
ReportSummaryBand1
1,1,1,1
MainPage
Landscape
21
29.7
Arial,100
[50:0:0:0]
None;Black;2;Solid;False;4;Black
Transparent
Transparent
0,0.4,19,0.4
Transparent
True
True
0,0,19,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text1
{RPT_RICHIEDENTI.DENOMINAZIONE}
Black
HotkeyPrefix=None, LineLimit=False, RightToLeft=False, Trimming=None, WordWrap=True, Angle=0, FirstTabOffset=40, DistanceBetweenTabs=20,
PROGETTI_RPT_RICHIEDENTI
RPT_RICHIEDENTI
Top
DataBandRichiedenti
1,1,1,1
subReport_Richiedenti
29.7
21
True
Arial,100
[50:0:0:0]
None;Black;2;Solid;False;4;Black
Transparent
Transparent
0,0.4,19,0.4
Transparent
11.4,0,2.5,0.4
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
txtInteressi
{RPT_PAGAMENTI.IMP_INT_SUM}
Black
,
0
0
Transparent
9,0,2.4,0.4
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
txtImporto
{RPT_PAGAMENTI.IMPORTO_SUM}
Black
,
0
0
Transparent
4.4,0,2,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
txtDataScad
{RPT_PAGAMENTI.DATA_SCAD}
Black
Transparent
6.4,0,2.6,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
txtStato
{RPT_PAGAMENTI.STATO}
Black
Transparent
4,0,0.4,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
txtRata
{RPT_PAGAMENTI.PROGRESSIVO}
Black
Transparent
True
0,0,3.6,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
txtTipoContrib
Hide
{RPT_PAGAMENTI.DESC_TIPO_CONTRIB}
Black
Center
Transparent
3.6,0,0.4,0.4
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
Text2
Hide
{RPT_PAGAMENTI.FLG_TIPO}
Black
PROGETTI_RPT_PAGAMENTI
RPT_PAGAMENTI
Top
DataBandPagamenti
1,1,1,1
subReport_Pagamenti
29.7
21
True
Arial,100
[50:0:0:0]
System.Dll
System.Drawing.Dll
System.Windows.Forms.Dll
System.Data.Dll
System.Xml.Dll
Stimulsoft.Controls.Dll
Stimulsoft.Base.Dll
Stimulsoft.Report.Dll
Microsoft.VisualBasic.Dll
ScadenzePagamenti
2/26/2008 4:46:48 PM
9/14/2006 12:45:19 PM
8d27d0ddc6824afd8e2a28c25cbf5815
ScadenzePagamenti
Centimeters
2006.4
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.ReportControls
Imports Stimulsoft.Report.Components
Imports Microsoft.VisualBasic
Namespace Reports
Public Class ScadenzePagamenti
Inherits Stimulsoft.Report.StiReport
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region "StiReport Designer generated code - do not modify"#End Region 'StiReport Designer generated code - do not modify
Private Function GetStato(ByVal dataScad As Object, ByVal dataPag As Object) As String
If (Not dataScad Is DBNull.Value) Then
If (dataPag Is DBNull.Value) Then
If (dataScad < DateTime.Today) Then
Return "SCADUTA"
Else
Return Nothing
End If
Else
Return "INTERESSI"
End If
End If
End Function
Private Function GetInteressi(ByVal dataScad As Object, ByVal importo As Decimal, ByVal importoInt As Object, ByVal flgTipoCalc As String, ByVal percInt As Decimal) As Object
If (Not importoInt Is DBNull.Value) Then
Return importoInt
Else
If ((Not dataScad Is DBNull.Value) AndAlso (dataScad < DateTime.Today)) Then
Dim diff As TimeSpan = DateTime.Today.Subtract(CType(dataScad, DateTime))
If (diff.Days > 0) Then
Select Case flgTipoCalc
Case "V"
If (diff.Days <= 30) Then
Return (importo * percInt * (diff.Days / 365))
ElseIf (diff.Days <= 60) Then
Return (2 * importo * percInt * (diff.Days / 365))
ElseIf (diff.Days <= 120) Then
Return (importo / 3)
ElseIf (diff.Days <= 180) Then
Return (importo * 2 / 3)
ElseIf (diff.Days <= 240) Then
Return (importo * 4 / 3)
Else
Return (importo * 4 / 3)
End If
Case Else
If (diff.Days <= 120) Then
Return (importo * 0.1)
ElseIf (diff.Days <= 180) Then
Return (importo * 0.2)
ElseIf (diff.Days <= 240) Then
Return (importo * 0.4)
Else
Return (importo * 0.4)
End If
End Select
End If
Else
Return DBNull.Value
End If
End If
End Function
End Class
End Namespace
VB
I've recently updated StimulReports from 2006.4 to 2008.1 version.
I have this problem: a report, under certain conditions doesn't work well.
This is a master-detail report, with 2 subreports (details)
when a master record in printed on the top of the page (excluding the first), one of the subreport doesn't show all the detail lines, or doesn't show at all
it's not a problem due to data, because if I filter data, the same master record appers in a different position on the page, and also the subreport details work well
what's wrong? it's a bug?
thanks
this is the original report
True
Dim factor As Integer
' se non sono specificati i parametri, allora nascondo il relativo contenitore e sposto in alto quelli sotto
Me.contDataCreaz.Enabled = Not ((Me.P_DATA_CREAZ = String.Empty) AndAlso (Me.P_DATA_CREAZ_A = String.Empty))
If (Not Me.contDataCreaz.Enabled) Then factor += 1
Me.contNrProg.Enabled = Not ((Me.P_NR_PROG = String.Empty) AndAlso (Me.P_NR_PROG_A = String.Empty))
Me.contNrProg.Top -= factor * contDataCreaz.Height
If (Not Me.contNrProg.Enabled) Then factor += 1
Me.contDataConc.Enabled = Not ((Me.P_DATA_CONC = String.Empty) AndAlso (Me.P_DATA_CONC_A = String.Empty))
Me.contDataConc.Top -= factor * contDataCreaz.Height
If (Not Me.contDataConc.Enabled) Then factor += 1
Me.contNrConc.Enabled = Not ((Me.P_NR_CONC = String.Empty) AndAlso (Me.P_NR_CONC_A = String.Empty))
Me.contNrConc.Top -= factor * contDataCreaz.Height
If (Not Me.contNrConc.Enabled) Then factor += 1
Me.contDataScad.Enabled = Not ((Me.P_DATA_SCAD = String.Empty) AndAlso (Me.P_DATA_SCAD_A = String.Empty))
Me.contDataScad.Top -= factor * contDataCreaz.Height
If (Not Me.contDataScad.Enabled) Then factor += 1
Me.contAnnoBil.Enabled = Not ((Me.P_ANNO = String.Empty) AndAlso (Me.P_ANNO_A = String.Empty))
Me.contAnnoBil.Top -= factor * contDataCreaz.Height
' se e specificato il tipo di contributo, allora nascondo la label e il campo
' e sposto le altre etichette e campi
If (Me.P_COD_TIPO_CONTRIB_DESC <> String.Empty) Then
Me.lblTipoContrib.Enabled = False
Me.txtTipoContrib.Enabled = False
Me.txtRata.Left -= Me.lblTipoContrib.Width
Me.txtDataScad.Left -= Me.lblTipoContrib.Width
Me.txtStato.Left -= Me.lblTipoContrib.Width
Me.txtImporto.Left -= Me.lblTipoContrib.Width
Me.txtInteressi.Left -= Me.lblTipoContrib.Width
Me.SubPagamenti.Width -= Me.lblTipoContrib.Width
Me.SubPagamenti.Left += Me.lblTipoContrib.Width
Me.lblRichiedenti.Width += Me.lblTipoContrib.Width
Me.SubRichiedenti.Width += Me.lblTipoContrib.Width
End If
False
Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=DTP_Base;Data Source=SERVER2000\SQL2000
CONNECTION
PROGETTI
COD_PRATICA,System.Int32
COD_PROG,System.Int32
NR_PROG,System.String
DATA_CREAZ,System.DateTime
NR_CONC,System.String
DATA_CONC,System.DateTime
30
CONNECTION
PROGETTI
Select COD_PRATICA,COD_PROG,NR_PROG,DATA_CREAZ,NR_CONC,DATA_CONC from PROGETTI where COD_PROG in
(Select distinct COD_PROG from RPT_PAGAMENTI where (((DATA_PAG is null) or
(DATA_PAG is not null and IMPORTO_INT is not null and DATA_PAG_INT is null)))
{FILTER_CONDITION}) order by NR_PROG
RPT_RICHIEDENTI
COD_PRATICA,System.Int32
COD_PROG,System.Int32
COD_RICHIEDENTE,System.Int32
COD_ANAG,System.Int32
COD_VER,System.Int16
DENOMINAZIONE,System.String
DATA_INIZIO,System.DateTime
DATA_FINE,System.DateTime
30
CONNECTION
RPT_RICHIEDENTI
Select * from RPT_RICHIEDENTI where DATA_FINE is null
RPT_PAGAMENTI
COD_PRATICA,System.Int32
COD_PROG,System.Int32
NR_PROG,System.String
DATA_CREAZ,System.DateTime
NR_CONC,System.String
DATA_CONC,System.DateTime
COD_CONTRIB,System.Int32
COD_TIPO_CONTRIB,System.Int32
FLG_TIPO,System.String
COD_PAGAM,System.Int32
PROGRESSIVO,System.Int16
IMPORTO,System.Decimal
IMPORTO_INT,System.Object
IMPORTO_TOT,System.Decimal
DATA_SCAD,System.Object
DATA_PAG_INT,System.DateTime
DATA_PAG,System.Object
ANNO,System.Int16
IMPORTO_SUM,IMPORTO_SUM,System.Object,IIf_x0028_RPT_PAGAMENTI.DATA_PAG_x0020_Is_x0020_DBNull.Value_x002C__x0020_RPT_PAGAMENTI.IMPORTO_x002C__x0020_DBNull.Value_x0029_
STATO,STATO,System.String,GetStato_x0028_RPT_PAGAMENTI.DATA_SCAD_x002C_RPT_PAGAMENTI.DATA_PAG_x0029_
IMP_INT_SUM,IMP_INT_SUM,System.Object,GetInteressi_x0028_RPT_PAGAMENTI.DATA_SCAD_x002C_RPT_PAGAMENTI.IMPORTO_x002C_RPT_PAGAMENTI.IMPORTO_INT_x002C_RPT_PAGAMENTI.FLG_TIPO_INT_x002C_RPT_PAGAMENTI.PERC_INT_LEG_x0029_
DESC_TIPO_CONTRIB,System.String
COD_LINGUA,System.Int32
FLG_TIPO_INT,System.String
PERC_INT_LEG,System.Single
30
CONNECTION
RPT_PAGAMENTI
Select * from RPT_PAGAMENTI where (((DATA_PAG is null) or
(DATA_PAG is not null and IMPORTO_INT is not null and DATA_PAG_INT is null)))
{FILTER_CONDITION} order by COD_TIPO_CONTRIB, PROGRESSIVO
PROGETTI_RPT_RICHIEDENTI
COD_PROG
PROGETTI_RPT_RICHIEDENTI
COD_PROG
PROGETTI_RPT_RICHIEDENTI
PROGETTI_RPT_PAGAMENTI
COD_PROG
PROGETTI_RPT_PAGAMENTI
COD_PROG
PROGETTI_RPT_PAGAMENTI
,FILTER_CONDITION,FILTER_CONDITION,System.String,,False,False
,ENTE,ENTE,System.String,,False,False
,P_COD_TIPO_CONTRIB_DESC,P_COD_TIPO_CONTRIB_DESC,System.String,,False,False
,P_DATA_CREAZ,P_DATA_CREAZ,System.String,,False,False
,P_DATA_CREAZ_A,P_DATA_CREAZ_A,System.String,,False,False
,P_NR_PROG,P_NR_PROG,System.String,,False,False
,P_NR_PROG_A,P_NR_PROG_A,System.String,,False,False
,P_DATA_CONC,P_DATA_CONC,System.String,,False,False
,P_DATA_CONC_A,P_DATA_CONC_A,System.String,,False,False
,P_NR_CONC,P_NR_CONC,System.String,,False,False
,P_NR_CONC_A,P_NR_CONC_A,System.String,,False,False
,P_DATA_SCAD,P_DATA_SCAD,System.String,,False,False
,P_DATA_SCAD_A,P_DATA_SCAD_A,System.String,,False,False
,P_ANNO,P_ANNO,System.String,,False,False
,P_ANNO_A,P_ANNO_A,System.String,,False,False
None;Black;2;Solid;False;4;Black
Transparent
Transparent
0,18.6,27.7,0.4
True
Transparent
0,0,1.6,0.4
Arial,8
0,0,0,0
txtData
Data: {Today}
Black
Transparent
24.8,0,2.9,0.4
Arial,8
Right
0,0,0,0
Text24
{PageNofM}
Black
Bottom
PageFooterBand1
Transparent
True
0,0.4,27.7,4.4
Transparent
0,0,22.2,1.2
Arial,9.75,Regular,Point,False,0
0,0,0,0
txtEnte
{ENTE}
Black
Transparent
22.2,0,5.5,1.2
Right
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAABqlJREFUeF7tWmloE00YjvdRFe+jnuCtqCiCooiKivhDEEVR8IciFqF/FMUiggqiKFIFfyiIIFYFFasi4n2DIkgxR9M2bbVWe6VHkiZt0uZ6vz7TL5vsZrMzadPyfXUXQkN3MjvzzDPP+7zvrMGgXzoCOgI6AjoCOgI6AjoCOgI6AjoCfyUC9O8VDocjXynyXe1/aMS7f6bmDBmMBjJ8b/vgb4LvRb6iuGcq+//S9CVxX5z+tZ4/0DSQHjgfkEEHQFqD1H2RGBBZ/QR/YxmQ6OkSAzh9SUwTbKczQLkFUrf+RD2SAf6wn6w+K9113qWT1SdpT/ke2l62nX2OVB6hq3VX6Y37DTUEGqIApEgE+5v602LbYtpdvptO15ymmw036Z7zHt1x3KGz9rO0//d+WlG8ggaZBskFU+P5cVtAjQFQ+/pAPd123KYNpRsoPT+d+pn6RZU9Zr/1MvaiYeZhNLtwNi0qWqTaRrlPRTTAHrDTJ88nqvHXUCAcUCVqKBxi48zz5tGxqmM0q3AWYTxausDVgJZQC1vRlcUrqZ+xbdJqaHYiDGFwImEw2SgFMIpbihkQWJBEYViTAU2hJjpRfYKGmIcIrWSyChxpL8KAjmoTgHjlfkUTrRNV55CQAY6Ag3b+2km9jb25RoZndHj3u4IBSiNV1lrG9EE5FlUGgPYQGjZ5wXjamXZdyYBY5hT4CmiJbYlsTnEAQOUv1V5qF4/I3u7kHv8vMCDCiLfutzTCMkKKEnEAfGv+RmPyx3TLyneHBii1AxHkeNVxKTrIAMDq7/q1K14xewgDIiyAvqVb0xnDZQB89Hyk4ZbhQqvfx9iH1pWuo/P283TfeZ9yHDmU8SeDplqnCv0+VjOS1QB30E2PXI/oUMUh2lq2lTJ+Z9Atxy2q8lcJBwu4VGicDICsyiyhOD+tYBpzgq6gi6XEkbQY9LK12Ghv+V65Z0iBE8TMENJMXhOtLllNaeY0mUZFXOJj12OhdB5bfbRldBQADH5B0QLu6o3PH09PG59qIg1g9v3ex+0rWQ0oaSlhDlMr4oyyjKL3nvfSoiQaaGu4lZbalkYBQIgYY2kTP47TO1V9Sgjhan81TbFOSVlBxBvystDMGx/uY2LOoJNbsDnw50AUALglnuObkD+B2UuRC3Q9WnlUiAUiGmD2mqPhS8CbQCN41+Xay1EAUBaCIGghvKZkDTkDTiEGoBEyNezNVPgACG3C8poKa7OqsrgMuFZ/TQUADXSRCTYGG3nASvdful9GU1ONfkUYkNOQI8SmiD5kVmRyx4nIIUWBh66H7YPV0ADYSOxtZWamWkilMF2pu0IIl6lgwGv368R5icqYs2uzuQzA+CQAEBYki5hgtdD4necdF1k0gKnaUrZFaNVEGFDeWk7zCucJ9TfANICMXiN3nCjoSADAHU2yTuKq7KYfm5jCKrMtJStAf6kYkQIfAJZdr7/ezihliT2mfzzzcOVhQpjjle03/9wsN0L4By+rQ1EEzssRdKgiDPVH5WZO4RxuX8n6gOZQMyvDMbFWYWlfY1/CAqEcx7vqAnU0s2CmHACoIg9h7Ge0WV+6nhmOSn8lE0Y8FFSGT5hsnSxck0u2IoRU/UbDDVpevJzG5o9ljhCObmHRQrpgvyCbvBYDECbTTGlyAFA0mFs4V3jlUBeEM0N0QLGBpyGJ2CWiAcoV9YV89N37nZ41PiPoVzLRqc28045fO9g849Lhi7UXe3w2+Lnps5SrxAFQG6iltaVrhVnA0wyR+x1hAG+PJ7oPAV9Vskqan2pNMK85j5D09LSKEPIJVIljo5NqTRDikevKbU+OBHx3Z9t0BwPgSyDyg82DtWuCsa4u15krZ0Kio+5OVoy6oyp8zn6OhpqHilWFY02NxWchEX/QGRZ0JQNKW0ppW9m2hBVu7skQGIECB87hEHvZ6ZCGE4v1/VLbFDjBYDjIjsREX+BA8STbns3Mjux4TDEWobPBCCPgnmAgcAgJ44HTFpgQ1BFQSxyXP46mF0ynjT82EsIpHKMIM0QYACYiduMgFMWbCn8FYTyekIeZH9QDUY574nrCqlEzCmbITZ1GftOhN0TgyGw+G31t+krPG5/TB88HloDY/XZWu8PVVa/IYC/DsC0rXsasL84t5xfNp5GWkdxcRuhkqKMxVvm7Hvl+gOge7EoGiGqQiI9JSgOSZYbOgP/ja3LJrrJW+xeNLyjzTyb3g7c+eNfP1p/cfkSepWxzsOIgyyr/ypdD9UnrCOgI6AjoCOgI6AjoCOgI6AgYDP8AtA3AWxxWT0AAAAAASUVORK5CYII=
imgLogo
Center
True
Transparent
0,1.2,27.7,0.8
Arial,12,Bold,Point,False,0
Center
0,0,0,0
txtTitolo
SCADENZARIO PAGAMENTI {P_COD_TIPO_CONTRIB_DESC}
Black
Center
Transparent
True
0,2,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataCreazDa
Da data dom.:
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataCreazA
a data dom.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataCreazDa
{P_DATA_CREAZ}
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataCreazA
{P_DATA_CREAZ_A}
Black
Center
contDataCreaz
Transparent
True
0,2.4,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblNrProgDa
Da num. dom.:
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblNrProgA
a num. dom.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtNrProgDa
{P_NR_PROG}
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtNrProgA
{P_NR_PROG_A}
Black
Center
contNrProg
Transparent
True
0,2.8,27.7,0.4
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataConcDa
{P_DATA_CONC}
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataConcA
a data conc.:
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataConcA
{P_DATA_CONC_A}
Black
Center
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataConcDa
Da data conc.:
Black
Center
contDataConc
Transparent
True
0,3.2,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblNrConcDa
Da num. conc.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtNrConcDa
{P_NR_CONC}
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblNrConcA
a num. conc.:
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtNrConcA
{P_NR_CONC_A}
Black
Center
contNrConc
Transparent
True
0,4,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblAnnoBilDa
Da anno bil.:
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblAnnoBilA
a anno bil.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtAnnoBilDa
{P_ANNO}
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtAnnoBilA
{P_ANNO_A}
Black
Center
contAnnoBil
Transparent
True
0,3.6,27.7,0.4
Transparent
0,0,2.2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataScadDa
Da data scad.:
Black
Center
Transparent
4.4,0,2,0.4
Arial,9,Regular,Point,False,0
True
0,0,0,0
lblDataScadA
a data scad.:
Black
Center
Transparent
2.2,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataScadDa
{P_DATA_SCAD}
Black
Center
Transparent
6.4,0,2.2,0.4
Arial,9,Bold,Point,False,0
True
0,0,0,0
txtDataScadA
{P_DATA_SCAD_A}
Black
Center
contDataScad
Top
ReportTitleBand1
Top, Bottom;Black;1;Solid;False;4;Black
Transparent
0,5.6,27.7,0.6
Transparent
0,0,1.8,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
Text17
Data Dom.
Black
Center
Transparent
1.8,0,1.8,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
Text18
Nr. Dom.
Black
Center
Transparent
3.6,0,1.8,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
Text19
Data Conc.
Black
Center
Transparent
5.4,0,1.8,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
Text20
Nr. Conc.
Black
Center
Transparent
7.2,0,6.6,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblRichiedenti
Richiedenti
Black
Center
Transparent
25.2,0,2.5,0.6
Arial,8.25,Bold,Point,False,0
Right
0,0,0,0
lblInteressi
Interessi
Black
Center
Transparent
22.8,0,2.4,0.6
Arial,8.25,Bold,Point,False,0
Right
0,0,0,0
lblImporto
Importo
Black
Center
Transparent
20.2,0,2.6,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblStato
Stato
Black
Center
Transparent
18.2,0,2,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblDataScad
Data Scad.
Black
Center
Transparent
17.8,0,0.4,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblRata
R.
Black
Center
Transparent
13.8,0,3,0.6
Arial,8.25,Bold,Point,False,0
0,0,0,0
lblTipoContrib
Tipo contributo
Black
Center
Top
HeaderBand1
True
Bottom;Black;1;Dot;False;4;Black
Transparent
0,7,27.7,0.6
Transparent
0,0,1.8,0.6
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text13
{PROGETTI.DATA_CREAZ}
Black
Transparent
1.8,0,1.8,0.6
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text14
{PROGETTI.NR_PROG}
Black
Transparent
3.6,0,1.8,0.6
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text15
{PROGETTI.DATA_CONC}
Black
Transparent
5.4,0,1.8,0.6
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text16
{PROGETTI.NR_CONC}
Black
Transparent
7.2,0,6.6,0.6
SubRichiedenti
Transparent
13.8,0,13.9,0.6
SubPagamenti
PROGETTI
Top
DataBandProgetti
True
Transparent
0,8.4,27.7,0.6
Transparent
18.2,0,4.6,0.6
Arial,9,Bold,Point,False,0
0,0,0,0
lblTotali
Totali da incassare:
Black
Center
Transparent
25.2,0,2.5,0.6
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
txtSumInteressi
{Sum(DataBandProgetti:DataBandPagamenti,RPT_PAGAMENTI.IMP_INT_SUM)}
Black
,
0
0
Center
Transparent
22.8,0,2.4,0.6
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
txtSumImporto
{Sum(DataBandProgetti:DataBandPagamenti,RPT_PAGAMENTI.IMPORTO_SUM)}
Black
,
0
0
Center
Top
ReportSummaryBand1
1,1,1,1
MainPage
Landscape
21
29.7
Arial,100
[50:0:0:0]
None;Black;2;Solid;False;4;Black
Transparent
Transparent
0,0.4,19,0.4
Transparent
True
True
0,0,19,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
Text1
{RPT_RICHIEDENTI.DENOMINAZIONE}
Black
HotkeyPrefix=None, LineLimit=False, RightToLeft=False, Trimming=None, WordWrap=True, Angle=0, FirstTabOffset=40, DistanceBetweenTabs=20,
PROGETTI_RPT_RICHIEDENTI
RPT_RICHIEDENTI
Top
DataBandRichiedenti
1,1,1,1
subReport_Richiedenti
29.7
21
True
Arial,100
[50:0:0:0]
None;Black;2;Solid;False;4;Black
Transparent
Transparent
0,0.4,19,0.4
Transparent
11.4,0,2.5,0.4
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
txtInteressi
{RPT_PAGAMENTI.IMP_INT_SUM}
Black
,
0
0
Transparent
9,0,2.4,0.4
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
txtImporto
{RPT_PAGAMENTI.IMPORTO_SUM}
Black
,
0
0
Transparent
4.4,0,2,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
txtDataScad
{RPT_PAGAMENTI.DATA_SCAD}
Black
Transparent
6.4,0,2.6,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
txtStato
{RPT_PAGAMENTI.STATO}
Black
Transparent
4,0,0.4,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
txtRata
{RPT_PAGAMENTI.PROGRESSIVO}
Black
Transparent
True
0,0,3.6,0.4
Arial,8.25,Regular,Point,False,0
True
0,0,0,0
txtTipoContrib
Hide
{RPT_PAGAMENTI.DESC_TIPO_CONTRIB}
Black
Center
Transparent
3.6,0,0.4,0.4
Arial,8.25,Regular,Point,False,0
True
Right
0,0,0,0
Text2
Hide
{RPT_PAGAMENTI.FLG_TIPO}
Black
PROGETTI_RPT_PAGAMENTI
RPT_PAGAMENTI
Top
DataBandPagamenti
1,1,1,1
subReport_Pagamenti
29.7
21
True
Arial,100
[50:0:0:0]
System.Dll
System.Drawing.Dll
System.Windows.Forms.Dll
System.Data.Dll
System.Xml.Dll
Stimulsoft.Controls.Dll
Stimulsoft.Base.Dll
Stimulsoft.Report.Dll
Microsoft.VisualBasic.Dll
ScadenzePagamenti
2/26/2008 4:46:48 PM
9/14/2006 12:45:19 PM
8d27d0ddc6824afd8e2a28c25cbf5815
ScadenzePagamenti
Centimeters
2006.4
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.ReportControls
Imports Stimulsoft.Report.Components
Imports Microsoft.VisualBasic
Namespace Reports
Public Class ScadenzePagamenti
Inherits Stimulsoft.Report.StiReport
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region "StiReport Designer generated code - do not modify"#End Region 'StiReport Designer generated code - do not modify
Private Function GetStato(ByVal dataScad As Object, ByVal dataPag As Object) As String
If (Not dataScad Is DBNull.Value) Then
If (dataPag Is DBNull.Value) Then
If (dataScad < DateTime.Today) Then
Return "SCADUTA"
Else
Return Nothing
End If
Else
Return "INTERESSI"
End If
End If
End Function
Private Function GetInteressi(ByVal dataScad As Object, ByVal importo As Decimal, ByVal importoInt As Object, ByVal flgTipoCalc As String, ByVal percInt As Decimal) As Object
If (Not importoInt Is DBNull.Value) Then
Return importoInt
Else
If ((Not dataScad Is DBNull.Value) AndAlso (dataScad < DateTime.Today)) Then
Dim diff As TimeSpan = DateTime.Today.Subtract(CType(dataScad, DateTime))
If (diff.Days > 0) Then
Select Case flgTipoCalc
Case "V"
If (diff.Days <= 30) Then
Return (importo * percInt * (diff.Days / 365))
ElseIf (diff.Days <= 60) Then
Return (2 * importo * percInt * (diff.Days / 365))
ElseIf (diff.Days <= 120) Then
Return (importo / 3)
ElseIf (diff.Days <= 180) Then
Return (importo * 2 / 3)
ElseIf (diff.Days <= 240) Then
Return (importo * 4 / 3)
Else
Return (importo * 4 / 3)
End If
Case Else
If (diff.Days <= 120) Then
Return (importo * 0.1)
ElseIf (diff.Days <= 180) Then
Return (importo * 0.2)
ElseIf (diff.Days <= 240) Then
Return (importo * 0.4)
Else
Return (importo * 0.4)
End If
End Select
End If
Else
Return DBNull.Value
End If
End If
End Function
End Class
End Namespace
VB