تهیه گزارشات مقایسه ای بر اساس سطوح کدینگ حسابها

[eb_1345]

سلام
در یک برنامه حسابداری 6 سطحی در دست تهیه که قبلاً تصاویری از محیط و بعضی فرم های آن در تاپیکی جداگانه قرار داده بودم میخواهم گزارشات مقایسه ای از تجمیع حسابها و بر اساس سطوح کدینگ حسابها تهیه نمایم
قبل از ادامه مطلب لطفاً اولین تصویر ضمیمه رو ملاحظه بفرمائید !
در برنامه اصلی گزارشات مقایسه ای بر اساس فیلتر های متنوعی که در فرم فوق ملاحظه می فرمائید تهیه میشود .
و اما این تاپیک رو به چه منظوری ایجاد کرده ام
واقعیت اینکه چند روزی است برای تهیه چنین گزارشی با یک چالش مواجه شده ام و این تاپیک رو به همین منظور ایجاد کرده ام که از اساتید خودم برای عبور از این چالش کمک بگیرم
در بانک اطلاعاتی برنامه اصلی یک کوئری ایجاد کرده ام که این کوئری تشکیل شده از جداول حسابها و بعضی دیگر از جداول مرتبط
بلحاظ یک مقدار پیچیدگی که این کوئری در برنامه اصلی دارد من در فایل نمونه ضمیمه این کوئری رو بصورت یک جدول ساده تبدیل و فیلدهای اضافه که به آنها نیاز نمی باشد و ممکن است باعث تزاحم و سردرگمی شود از آن حذف کرده ام. نام این جدول Tbl_GroupsTables میباشد
و یک جدول دیگری با عنوان Tbl_Comparative_Reports ایجاد کرده ام که دارای 5 فیلد میباشد که با توجه به اطلاعات جدول Tbl_GroupsTables تحت شرایطی که در ادامه ذکر خواهم کرد رکوردهائی از جدول Tbl_GroupsTables به این جدول اضافه میشود.
در فایل نمونه فرم تهیه گزارشات مقایسه ای قرار دارد که همانطور که در اولین تصویر مشاهده می کنین این فرم دارای آیتم ها و گزینه های متعددی است اما بنده در فایل نمونه آیتم های اضافه این فرم که تاثیری در حل مشکل ندارند و باعث تزاحم و سردر گمی میشوند حذف کرده ام

و اما بپردازیم به شیوه تهیه گزارش:
همانطور که در فرم ملاحظه خواهید کرد 6 کمبوباکس وجود دارد که در هر کدام عناوین کدینک حسابها درج شده است . به استثناء کمبوباکس اول 5 کمبوباکس دیگر دارای گزینه هیچکدام میباشد که وقتی این گزینه از هر کمبو باکس انتخاب میشود گزینه هیچکدام کمبوباکس های بعدی انتخاب میشوند . و این بدان معنی است که نیازی به سطوح کمبوباکس هائی که دارای گزینه هیکدام است نمی باشد.
بفرض اگر میخواهیم گزارش فقط در دو سطح تهیه شود گزینه هیچکدام کمبوباکس سوم را انتخاب می کنیم که فقط سطوح اول و دوم فعال باشند و یا اگر در نظر است گزارش در سه سطح تهیه شود باید گزینه هیچکدام کمبوباکس چهارم انتخاب شود
و اما بعد از تعین سطوح و انتخاب عناوین کدینک حسابها در سطح انتخاب شده شیوه تهیه گزارش باید به شرح زیر باشد:
بطور مثال میخواهیم گزارش ما در دو سطح تهیه شود بطوریکه در سطح اول گروه حسابها بعنوان اولویت اول انتخاب شود و در سطح دوم حسابهای کل . در این حالت رکوردها به جدول Tbl_Comparative_Reports باید بصورت تصویر 2 اضافه و مرتب شوند. تصویر فوق گویای این مطلب است که از
جدول Tbl_GroupsTables ابتدا کد ، عنوان و مبلغ بدهکار و بستانکار گروه حسابها بصورت تجمیعی در سطح اول انتخاب میشوند و این رکوردهای انتخابی به جدول Tbl_Comparative_Reports اضافه میشوند بعد کد ، عنوان و مبلغ بدهکار و بستانکار حسابهای کل مرتبط با گروه حسابها بصورت تجمیعی از همان جدول اول انتخاب و در سطح دوم قرار می گیرند و و تصویر 3 بر عکس این حالت میباشد یعنی حسابهای کل بعنوان اولویت اول و گروه حسابها در اولویت دوم
تهیه گزارش در دو سطح تا حدودی بدون مشکل انجام میشود ولی مشکل در تهیه گزارش بر اساس سه سطح و بیشتر مبباشد که اولویت سطوح بدرستی انجام نمیشود.

[eb_1345]

برای بدست آوردن رشته شماره اندیس های عناوین حسابها در سطوح انتخاب شده میتوان از کد زیر استفاده کرده:


Dim I As Byte
Dim StrIndexNo As String
For I = 1 To 6
If Me.Controls("CbPriority" & I).ListIndex <> 6 Then
StrIndexNo = StrIndexNo & Me.Controls("CbPriority" & I).ListIndex
End If
Next
End Sub


پست شماره 9 این تاپیک (https://barnamenevis.org/showthread.php?577779-%D8%AE%D8%B1%D9%88%D8%AC%DB%8C-%DA%AF%D8%B1%D9%81%D8%AA%D9%86-%D8%A7%D8%B2-%DB%8C%DA%A9-%D8%B9%D8%A8%D8%A7%D8%B1%D8%AA-%D8%B1%D8%B4%D8%AA%D9%87-%D8%A7%DB%8C-%D9%85%D8%AA%D8%BA%DB%8C%D8%B1-%D8%A8%D8%B5%D9%88%D8%B1%D8%AA-%DB%8C%DA%A9-%D8%B9%D8%A8%D8%A7%D8%B1%D8%AA-%D8%B1%D8%B4%D8%AA%D9%87-%D8%A7%DB%8C-%D8%AF%DB%8C%DA%AF%D8%B1)که توسط خودم پاسخ داده شده خوشبختانه در اینجا به درد خودم خورد و توانستم با توجه به رشته شماره اندیس های سطوح انتخاب شده با استفاده از کدهای زیر رشته کد و عنوان حسابها را بدست بیاورم


Dim StCodFld As String
Dim StNamFld As String

Function GetChoice1(Ind As Integer)
GetChoice1 = Choose(Ind + 1, "GroupCode", "TotalCode", "MoeinCode", "FormalCode", "CostCenterCode", "TaskCode")
End Function
Function GetChoice2(Ind As Integer)
GetChoice2 = Choose(Ind + 1, "GroupName", "TotalName", "MoeinName", "FormalName", "CostCenterName", "TaskName")
End Function

Private Sub GetCodingWithIndexNo()
On Error Resume Next
For I = 0 To Len(StrIndexNo)
StCodFld = StCodFld & "," & GetChoice1(Mid(StrIndexNo, I, 1))
StNamFld = StNamFld & "," & GetChoice2(Mid(StrIndexNo, I, 1))
Next
StCodFld = Right(StCodFld, Len(StCodFld) - 1)
StNamFld = Right(StNamFld, Len(StNamFld) - 1)
End Sub

[eb_1345]

و با استفاده از کدهای زیر اگر سطوح انتخاب شده تکراری باشد پیغام تکراری بودن سطوح صادر میشود :


Dim StrPriorityNo As String
For I = 1 To 6
If Me.Controls("CbPriority" & I).ListIndex < 6 Then
StrPriorityNo = StrPriorityNo & Right(Me.Controls("CbPriority" & I).Name, 1)
End If
Next
If Len(Delduplicateletters(StrIndexNo)) <> Len(StrIndexNo) Then
MsgBox "! سطوح انتخاب شده تکراري ميباشد ", vbOKOnly + vbExclamation + vbMsgBoxRight, "خطا!"
Exit Sub
End If

در کدهای فوق از تابع Delduplicateletters که در قسمت ماژول ها ایجاد نموده ام استفاده کرده ام . با استفاده از این تابع کارکترهای تکراری در یک رشته مشخص میشود .

[eb_1345]

حالا تا همین مرحله کدهای دو پست بالا رو در فایل نمونه جدیدتر قرار میدهیم

[eb_1345]

در همین جا از دوستان عزیز خواهش می کنم در این تاپیک از ایجاد پستهای با مطالب حاشیه ای و غیر مرتبط خودداری فرمایند
با تشکر

[eb_1345]

حالا با کدهای زیر میتوانیم رکوردهای 6 سطح کدینگ جدول Tbl_GroupsTables رو در یک سطح در جدول Tbl_Comparative_Reports اضافه کنیم



On Error Resume Next
Dim db As DAO.Database
Dim rs As DAO.Recordset
Call GetCodingWithIndexNo
'SetCriteria
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Tbl_GroupsTables", dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
For I = 1 To rs.RecordCount
DoCmd.RunSQL "INSERT INTO Tbl_Comparative_Reports (codlevel,Code, Title, Debit, Credit ) VALUES (1," & rs.Fields(Split(StCodFld, ",")(0)) & ", '" & rs.Fields(Split(StNamFld, ",")(0)) & "'," & rs.Fields("Debit") & ", " & rs.Fields("Credit") & " )"
DoCmd.RunSQL "INSERT INTO Tbl_Comparative_Reports (codlevel,Code, Title, Debit, Credit ) VALUES (2," & rs.Fields(Split(StCodFld, ",")(1)) & ", '" & rs.Fields(Split(StNamFld, ",")(1)) & "'," & rs.Fields("Debit") & ", " & rs.Fields("Credit") & " )"
DoCmd.RunSQL "INSERT INTO Tbl_Comparative_Reports (codlevel,Code, Title, Debit, Credit ) VALUES (3," & rs.Fields(Split(StCodFld, ",")(2)) & ", '" & rs.Fields(Split(StNamFld, ",")(2)) & "'," & rs.Fields("Debit") & ", " & rs.Fields("Credit") & " )"
DoCmd.RunSQL "INSERT INTO Tbl_Comparative_Reports (codlevel,Code, Title, Debit, Credit ) VALUES (4," & rs.Fields(Split(StCodFld, ",")(3)) & ", '" & rs.Fields(Split(StNamFld, ",")(3)) & "'," & rs.Fields("Debit") & ", " & rs.Fields("Credit") & " )"
DoCmd.RunSQL "INSERT INTO Tbl_Comparative_Reports (codlevel,Code, Title, Debit, Credit ) VALUES (5," & rs.Fields(Split(StCodFld, ",")(4)) & ", '" & rs.Fields(Split(StNamFld, ",")(4)) & "'," & rs.Fields("Debit") & ", " & rs.Fields("Credit") & " )"
DoCmd.RunSQL "INSERT INTO Tbl_Comparative_Reports (codlevel,Code, Title, Debit, Credit ) VALUES (6," & rs.Fields(Split(StCodFld, ",")(5)) & ", '" & rs.Fields(Split(StNamFld, ",")(5)) & "'," & rs.Fields("Debit") & ", " & rs.Fields("Credit") & " )"
rs.MoveNext
Next
rs.Close
Set rs = Nothing

قبل از اجرای کدهای بالا یک فیلد با نام codlevel در جدول Tbl_Comparative_Reports ایجاد می کنیم که در هنگام اضافه شدن رکورد به آن شماره سطح کدینگ در آن درج شود.
و بالاخره در مرحله نهائی با توجه به تجمیعی شدن رکوردها در کوئری qryGroup_Comparative_Reports لازم است شماره ردیف ها را طوری مرتب کنیم که رکوردها بر اساس سطوح انتخاب شده در زیر هم قرار بگیرند .
البته با توجه به قابل ویرایش نبودن کوئری qryGroup_Comparative_Reports میتوان این کوئری رو به یک جدول تبدیل کرد و در آن ستون ردیف رو ویرایش کرد
در واقع چالش و مشکل کار همینجاست که با توجه به ستون شماره سطح شماره های ستون ردیف رو به چه صورتی باید تغییر داد که رکوردها بر اساس سطوح انتخاب شده زیر هم قرار بگیرند

[eb_1345]

https://barnamenevis.org/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdMAAABACAIAAAD OGQqjAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJc EhZcwAADsMAAA7DAcdvqGQAACSUSURBVHhe7Z0HeBTV2scnIQm 9d65AeiO9V0pCB6khdBCEqEgTFBS4KqJgwxvhIl5BxYJ ylXxqqEmAUICCSUECOltNzvb0ns27TtnZpKdmZ3ZndnshiDze8 6TB2bPeU97z3/eOTOzi7QJCAgICHQtgvIKCAgIdDWC8goICAh0NUZQ3tbWtob61 qryllJ5i6wYplI5 C842NbaQuQREBAQeIoxkPKqGptRUWPixdrvj1Z sKPslSWlz08vWT2xZFkQTKsnlT4/rWzbkspD22u jW5ION8szm9rbCDKCggICDxldE55m5ubxXl1Z7 p2POcMsJHFjZOGjJSFjIKptDRME3E/uIJHh8pDR4pmzxWudCzfNfquv ebC7MBkYIawICAgJPB/oqr6pRlZoEwlvlfDdZ0HBpwFBp4DBZ0AjZpH/IZ9orIv1Knp9Wunlh2Y6lZTuXlW1dXLJxpnJZoHyOE5BdKcgfO BQUkQUMVcx1rnjn5cZb14QQWEBA4OmBv/K2tqjS71S8/aI8bLzUd4DUb5DUf4hsyljlihBwsOb00fqrf6ke3mrKz2yWFDZ LxTCBfxRmqx7dbUi6VPvfk5Uf7Cx5frp8ug3Ua9 BUp8B8iljK/ZtUKXdbGsRNoIFBNjIiQ5CECQoKjqHONDWFhOFH4pRHxJ4EuCn vC2l8urPDwLRRL36Sb37S/0Gy dOKN 3oe7sN6q05KainGa0qFkqapaJYZIXE0kGEpBgEUySwiZRnupRa v3FXyo/fBVExzD 9e4PDMrCLauOvtWiQInKnihyYqLhEggirQkBAYMSEwU0lgBILT iCKzGB4HtPFDyUt/HezZKNs6Re/XDZlc92rDiwpT72LAhmm3IewpSbDkPdwpwWcX4LWtQiFbXIRPA vKmoBYa8or6kwuyk/A bMfgCSKvMeiIKr/v22Euiv3yDUq6/Us69ybVhjyhWiyu4PobjtYOtBQMDwUFQWEhVDlmKIoL1PENyUt 7mp9vfvZdNtUffeqGcfWfDIsu2RdX cbrybCOQYJNWDlKaM1Obs 42PUmtuXSu5dBY9c0p86qjoxGHxyU/Q7z5Tnj1deTWmPvWGKjOtKes EGvV/RRYNvVGY2pSfdz/Kt7dIp9mhXr2RT16y8Otas cbFOpiNq7I5ji0paCILwCRkNDeJGoaM1Dgv89MehW3tbGhqovD 0sDRkDZ9egjn 1UdfSt qsxDTcug9SYHK 6c73 Zrzi7HfpB3clrJ751yTHX92G/mrf53dri7 se5yzNjtva3HRqV cz6ikmR73N0WI/v1u5YVfGm8nqO4kgOLQTtKlhsSLNd8fVa4IQb37AfGV g t uzd1rpaohHdhpycGAbFJRAcX8BoMAS4mlEwkVeAEWxPvLsMkg7 lBbJb8e8DEq BqHsvEJAqV4YAfayP/b3 8tn6uN8br8ZUX/w1O3r/xcgpP7oO 3as6ff/QH6y6XnWa8TFaROuRwQnrwxLWTHlxqKAhHCHyx5Dz9uYx4xDzt uYXQkc DFxYpTn9Zf bMBxMJx/6uPPQvM1p79pmxbBNx5ANV59688/Hq3EV/atgITXTCn0Hc0qtG87wJPD9gh4b5L94YQTzB3HGYKn1QcfGOBo r3GcL /kWu1j9UTobzNTRUnPxZ79kfdegLZLVk/rebH43V//gBSfcxPdTE/5Ue//ccc3xPWvY PQU45DYxZHJp6aLforzPlD1PrZRJVZVlTdWVzdaWqorReUlRx7 6bk12/S39yUOMfjgkNvIMGXXQelPTer5FR0/fkzded gpb/OF3726ny3WukAUNQ954g/q089k6bqpFoz2OBg RiGH TjYh6aBVR7rtorkfjN8s4wE4Yp 3Gs8wTyjxhYkZ8wE4O7ouk5quVkDhgQP5GrqXuSpe0moOPaVPe qt E/kOQV3NUc8 Jeum1nz7ae3PJ2D675cVp48lRS36ymHAZ2OQbz1HXXl1g/jqxcaKMqKkFlpbGhSo9K f776w4JLrgJjxSLzPyNzX1lX//EXdL1/XngH2v6j5v8/Ldq2W g Giu87uPrH/xBluxaukosEcQtZOgfJ58mLjLZ64XQzXJYSmZ8YiF4ZoeXGs8w b jwButVUdUPXwppEeaiOG5qnEGPCzcdYlbfublLhJKti5x7gwl 5NKD6Pwdrvo0G4lvz3ZHaH46hH7/ h8 Y72x6nl87V3orsYX/3bDm2mr5pbMpq8LP28CN4NTIieX/OVR7 his4pvo6lOHSzcvQL1BuG0hmzyu4UYcUaxL4Ki5mOB2jetRVgF pSumrA8hyFH1Bd/Xy6CzqPhm65cazrAcMwtutpqr7uRa5Rfxq7kLl5exjzMrbrJSJ 1kwrdDBBXczlsxwqP94FlBemE 9Xn/yg suPar4 LNq78fpkm7StyxpQEVGMP6pSRe6R/bHew2MsTW5OdVYefqPmyw rvzgE6oJPm60KRT16o64WihUTm6ViooxRIS7etAFC3K4S3A4oy 5Q8pfT1C5pGXzHdZWOLG/ovL10Yz7JeaMxTt2gVie7mWhq1cx8uSleM2WgePsasvPKjB7Id TMVOJtKg4eV71lVF74XpyD rjr4FBLHq2P7q4 8CcSzatTYpzC791bX1kiKiJH9am1Sy879cm2IbMx5JmmyrPPhK Naji031V0fsqDm6Tz7RH3XpKXCwqPn6jrcXY3/BAdzYKXbGnwAbF66hTSm4z/gkls3H8DJ6gjKMTxlskXbb8uEKTEuOMZ2d4LK7FBm20cDje6Ou yqedREYPy1t2/lRE8Ns8ekbialzwXXnFwe WhVyo/2Fn18Wsg K08vLvykzeq/rUHiuORNwtfWZ48yzVjb1RnIl9A6c34hOnOQHyTwxxK391a dGrle/vAKnslaXSgKEg7EVDRjfcukbkNhKUcevgcSpuB1qnFL/vQt7/MuZ9l/bGCMprAIhbZlwlhAz58kyP4tzoatdih3lxAjj4oZbAxbDw8DEN 5VU1Fr2 Id0OKXRAZGHjy994ruKtFyr2vyTf87xox8rK97ZWvret8tD2yv ehFld 9BpIRduX3YkIzD6wvUEmIYzoRWlS7NVJ1ucsTdLmeZfv31Txzq aKt1 seDNKGemHevSWuJiX7FjR2lBP5DYCtLntwm1c3TzGYIOGuiVGa cZTprx6whwAGlFSHj sygvQ1fMnQXlrbife8x6eYYeIJpiXrJlcvmt1 etrgf5eme35q tg0QvPQiEGCWgiFMeXKw5srnh3i3jnyrS10/M eqOxc KL/u Hy 6DL9hZ5K0Jr9j3PKi3fPea0i2LpCGjUDcL1H9ofeIlIqvhoY1a 9/LibqO8pIYYxYX5LxIi9NMZ9nXZ8jM2lI5QecJPKNrQprwArRPa ZVPPoyKq8ra2FO57OdUGybZDwNV96UvPlm1bUr5jWdbaaSdt 3w11iTOfVDhuhlQEEHas6587/pyoI//3Agi0 IdKx5sfDb/X282KqSENf60qhqzDr12ztr0mtcw eZFZTuXl22PLNsWoVjkSYS9u9e1NTURuQ2Lhj TL7EeP2THe5yyQRomozSD7yKhLEit bts RkXHQr099VejQVKh73r1KJchwi7mUGUAR7D5RqYh49RlLehMCd 1ok2aLZLraCqf51q6cSYQX VL884FWx0fbx6zamZSRHC864CCVVPKgSbCtKLs1ZVlr60qA6Hx 7jXF25c 2rSo8OiBzohvPSq6sdD/nJXJw9muZVsWlW6aD9pQsjZMGjgUhr2TxqmyHhBZDQuzRwd1gz 1eDPKcPi7ZoD9tZ4xVznORaMwa /6jfsuvCyCtcOy5GeIwI9ROMPHknlN0o Osw9p33lNP3kOnoj0e41ERRXnlP55ItjF9aIcUevRVRPiUrJ0C xDc7MuiHCQNP 1vKbifVZD 8GREc59Ivf1lw2dZFpTAtLt0WUbptSdn2JWWvREq2Lsncvlz0 fuqEjlhlD/FZ7664NAz3qU/uja8NGpWyfPTS54Lk02zxsPeyq8 IfIZFvZZ7RbqS57Trl9c2NdVELWrMYp6UeZBRw3MOsQ2PHwsdx GMw6plenVJD0b36JqRYJVEHOaxo/qJruXD7FVk2C1w9zG18oIr/cxNkbdskAw7pDhwuGKhh3JZoHLN5ITJtqcnDEza zL ukR15v2bEUFxE/rmR/iXvvhs6YtzQUxaumkeDE5fhkmyNSLrtTWiEx/rLb6qUkXy0lAQ9j6a6VS6bipog3JVqGKeK rdX JqId84R8eXOXRMDj8X1OrVumbLIMApZ43ZyM3T0TGtdvjCfvo3 zqBQ/F57DexLhLHzPCx3CezNZ5tgkg 0hwPgOoRuxZhdM6hrQaB7dXSA29ugHR4ZFMXxvEVd2trHR6sMq GExwt3H1MrbIMq/PdHmji2S5WCCho5WzHFWLvYSLfb53XvkLwHjpYnqt8iqMtJw8c 1b6A1/6RKkDTNKNs4s2TgLpqhZks0Ls19fX3wqGmgoUYYnRd8cOWdtmu Q1RL48WLkiSLnUH5wJ4IaDey 44ZCbQeRjQN13/g6iRWXgPBs39O2YcuZ2c1ZeHXZ4wDgcZG/nVwN5s4L9spqPPmIWmWeMoWl8LDPQ/gCYHkWZ0L7CGetgc21KxwCGaSADhnMtDHq72 HQfjjzWCOAjxKlOtAoTq9HS u1zwoZZiPcfUytvGVxf95w7pNqi Q6mUlDRsmn2yrnuaZPd/jZdXDs6lm072SAke SYCC ufPcS9ZOIdJzYTCtCwdJsml 7t4oyXdH9RPfmpz0KyHjLtmbi551U0b6KRZ7Kea7yUJHox59JO 59amJ IvJpoh46Pb2DvplJwWg TZkyxlrIGbR0TacdjtC9FYJHJCTn5FEBoz3G4mTn51gB8ylCY5 D0sKym045FgdwUZhhqUReit542uhxaCIeMKKNzc5nAUK6Fw QQJHgMsqb4Ugtr1MRqW8OQxm21nA55YDFCNqF1kNTKKz7 YaI1kmaL5E8whz9POWWcfLbjjZBxZ1wHp33yFpGJBIx8l4TEuf bPnetasjJEiadVoViaCJLkpXl5b21CT3/WVKYkynCmpaHu7sZ556yQjMmWIPQGsiuf6yyb/Azq1a94gnlZNEN7MEiDzGPqNGFcyjid9zkmdC8dbn6v2w4XNHw VC/iJOkkfch0LTXvtMDSQ4v7cO8DQZnrr9LQMIVnXc0zJaKxwBhjG llKMrAlADiid1zEvTN6tewuBNsCdGwZ2j iAq3NB6OYojdMYbRbLVCN63t3h7GPtytvakr17A1De 3ZIobOZ1GcADDCnWsf5jfrNZ3TxhbNENiow8o0MBeKbM8tJudQ fpmUBcHeY BsoeWFu/v7N0h O6yG uZ HWOJ3PEdjsuufKa9bMpY0DCJi4V821LmZ8sMuj7Y1ZePT5DapK 1JdNfRvu7YG8DBjk5oHkjfeiN/zGmU6W2ioNlASnZe06ir8waxbADHIjejY3g13E2zIi6CjaF11l mt6PAVXaPLB2494VUD1SSpqGZdzHbJ/dO/b5x9jFDe1ob6eyvCk6yRB3ZIkZMpuKiXBQ4TTXrmgs/ImCmOFRlpeDZNqkHkuxQT3xkOyiU ighvxRJfcpK8MAeIrx6RryzmzAWHnklu/WVznED0LZ9uA2Jeqe9AiWtPydKglppqIh8Z9SB3xi1IsKov5/XHec3SHESzA6QM2nqn044OKA7IeBnKsSEE9AWrAX1YOPsuE7Ta qMX1tkwqyLdBmmgZPkoDNceW1jl22KdFuwkdneusa7XDuR/8Rpt59GiNxmAyq2PsuUIxo635hPI2V5TdmuuDK2 BI4K6mgONKwgeddF3VPyS0AaFDM/GCIx8l04E4ps91VaxwEOx0EOxyJOUvCQbZ W//TL63TFee77ld5MuuQ 6tQbnWEnn2Enm2olmzhG6jdY4tZTPNu9WcnQJFKv9R86DVj8hF sNfJpE9RGNWSO3Q6tH6rCjHbIusBQl29dpncnxadBtkIvwn0fq dFFt62tZXa7zfqXdFqmFOj7WBmsrdZXX1T1qeZ6uRQJENFHYbk lHdeoNVAr8xpvcPLxkhzcEke/EMjWcPjT6dk6zDcwQyquSozfDXRIx5c13QCQTeki9 uUFjYwLfCZ54/ymqgo8GxtwzxcX33BrxXw3mBa4wwRUGKQF7pINM/PefEny7RHu4luTkx4XMCbOwaJ4mo18hq0sbLwsdLTUf7DE1aIw zFZVlEfkI0HutP5ewQCL Oqug7NaYmgTDT62tNvRhkZH8d1Etf/QH zVsTKobcaz0jclNVrI1XfZIFdKLa nZZJBfdpDQW2L2ZS6iczzxnIRRv05TJZWasyuJrr6RzXBx7U4A byLMN0OzwEnlYeNI40meYCYjGrUzKlqsB5ol4VkO9osEMrbICl KnOxw3RpJs0PyHJBiZ1OpRx gvAkTrdK2r2iuZbq0pwIi3 Rlk LcBsDId747ob94/IvpLxDf3H0vSE5Fq0q0RdAd1Inz40PGA UVTyUpr9/gYhez/InjG/MYHiyjDJ6BvUJzYiA6JoddA1jQNm18jHGdfhocliYN7cbVzaDl o1ak5UMejSdBskBxAz0tk0ezs25FboKmLbaGU8DOfqSHYPGdYu 2GIaQcHbePNLbTdA6Lnq6lBms9YQAD9CUIRsD4DUN6g3gOuLqT QdHR6qaC0z5pfBiNkjvWAfN9NjxAJ zp6b0k5Z3kkGCN3LNDcoHyOplI3XvlB45ICrN7uGMVF UFVGekJS fHO8 KGuaHdx2gEkd9oJUDMR378birz7h8pJFnSgvPmQcjHmn28Ldhn BLqLy A8XOPXJDxzcwKS9lcPVzCy0wzozWWigluDWHVESjANmcLn/UZocd5i5qRYt1ynTQ81GqovWGrfEgWIaLlGkt0CCvP3JuAwwLT yWgQ/NRUmeoIsi/GnUrmbumrpl9uAE6x0W/MSSgdp8LvAeC2h0c0FBqzUxWmQpiYM WAaKjmJ4ep5viOD7q3YYb4S7XrJC7tki2Pa68PQsDh98Md3iwJ VLnbkMH1ZkPoPh6DM6abk/d7cXSQs/i52dk714n uIDnd/tUJ31INZ31BWnXpKZ9vJZ9nCfN2SU1KtfkSOSPdmmUZRP5CNDH zsui5QbzLtQOCyOTm M7ud2ACT/0DBLMajD6bXZYYf/ugCwdEuj/9gIqJtC/pjWRNJH5E/aW8dlHDtMUE2zWNYBbVi41M8O07CA6Iw68Dwah0FxT5bC6orpG aj909U9/VwLQw//4lsFgGGEoRHqYUa7miV1o2GIZERb49V32JJne1 xQu7YIpn2iAjeZLMo8h SMtXh3vpZjXIUz8aF6sz7KcunxHsyie9C Ld4/bSsnatExw qmO6SdVCWcvWS28AEl77S2U7wkbKpVtKg4ahbz3wHJGemaxOjc DPMbMdTO3pBuazQAqUWvBDxCRUsH2nbFAMcyMFPqEQuHI0VQO8 d/UqIqx1tcFgbwJ3oHgolldQU0AyW/kOIsSLXRPNQknly49UlsPqoo4h3Hus9pWqqaRbLOtAYFG0rSid chhh3E7qjYGDH8b5indU0xtIz6qSBKrDre9wYebqYimOZOula gkbzyowNNwTmy6GWaSsH6yP7PEVC5quwNHHCOVtra 7szws3gq5ZYM8skcKgfK6mBX7DLgz1f52RFA1 1NljIBwFYqvx BMIL6LveGjZou9iIRJsHjdtMxXVhR99l6jglXT0d O29nnuw5SD53AvYw7zip36DiCWYgJM9ZHNhSU0Xko8Du1fCKod 3ViMxUsE gQ0MHY/RoHMaXxY0Aw rWx3P5q4RW2STM6dUSdmhtJM0i2Xf1qpTq/CyWdcHkVsQJRA 0D3CnYeuYgecMwNO19GgAb dlvNQijBh ABgHm6OPEcrb1try6LX1sZbITRvkYfvjDahnn/th1slzPZWXfyeycQaLfCfHuQ/KnGYHlbcjASHGJFi8bmrmtmVFR99RsWw7ZH2wK8YSSQsYpXh2A tznDR2NevYtcjJ5BJr38pK2JuZfO2aXXgMBB9PolQAYfa5LfBc Hnv9huE8 AwGxaTdmUC mt1E9vpRP9KmT5vsslnWipWrtZ3TsuLYA1eCwr3ZDKw9P1 JfPW/fZVyY6gEx AAwjjVHH2tX3ra2gmPvX7Y0SbSBjzfkOiBiJxNwaZ8Z szNma4Fx95ta20l8nEGRL7JyyfHuvbPmGoH36qI8MESJr6YCou eC8/YtLAw s1GOf2XLJqrq1JWT71gY5obZq2YOwFuNQQOlbhagFNCmi0iOfx PIh8DRpXFjrHkPongwliPGWeZNN6d4 28XOHYJxAY6myyZhs7jFNcW49h1FgazJZ1Y1SvMiBa51uPAdQC T9eijiDlSr/95ES 1iSd5bnR8YVGVCitNMwA4F/mQJhkgJuPqZVXefH3WIfeCdbwJlsWsdVrXuA/NGWmy4MtkSr r/8C4KNmSydedun3KNxGscQHe6sN/O1IvqI1U9I3zCk4vIcmvpX3b8X5joh36i3BN3knjpF69xM7mYK G3XUwL/3fD0Q Zox1NUebRQ6VEGdFvutWi1Pzch6ei4MfHFrSXr/W62sG/2w3TW0/71HkbJkL3V97OYgVL /RCu8BJFVtaLcEl2dsc0NzgU5MIq63XBrOzcfUyltfmJsQbHXFC kmxRdLt4S9gSib0KPbqlzrV/tYi/7Lrev4AGnzDLTL0knMfTHx94RePYQn8A09FqyY9eG56/oe7G2XFRJm2ttwj78RYIXd8hynmOsvDLaWBw1A3iwIHuBNyN2B MXXY6kY8VljOgnmCPMmkOo45KKCuf45zrOJ1COG0TcrDTebS3h O54MLdmdkb3JHxXwwLHdaNljbBY5obhdIsMaC22r0P8lzfcJQH CyXu0oqdrGUd5mZ2qHYZTLy/xxW8OcR5bAm4 plbe1saGexsXxloiSe0bDsXYhkNW6D9S5nrkHnq1pb6OyMoT7F vNQi849n4YZkN8sU5HguLrX7hy4v3VU/MO7cTFt15SlDjH46KtWV64tYIIePsXO5vmOCCptkjG6hkt3J4v BpcwnXDojnEnrLEA90OptYALJpZyMCvIS20S D/pOXKOaNaqn53OQ7SEOgBa1ial5cwbZe2 y S6mrUBiK5z6Tu7ZW4Y8IyOjRKtHWB0oI/ALgKIjGTwD Crt52aaTCM2Dgy1qEBXmUnXYuseCzTzgudi1vLJDN5EewkHFjY z86tIW4 plZegPjbzy5ZmSZYk54tczET wxMneVyd2VYxa0EIh9/qjLvJ0SE/GHfM22ylQII7rIA5VKQ2sV3qX/BitB7yyZmv7O1QSouOPHROdseNzwGymY6wEca/IegrhaFjvChixQbE8nnHxJGOQPdGdc85rnCPiAPe2fGXeDvDpB HHYueFehlus/mXQ9JFg2hikyQlVf/M1 7ahKG2IDXqET 7gpFeWtzM68FWl6xQpJt4Bc45DkgEmdT1L1X9qRxdxYH5h58tZ nzKxWaVGSkxS4K/q N V0ovgFq8cXCXiDH UuDUhcHpL y8toUu4u2PXInjZNPtZIGj0A9 xY7mebYw4D3lt/o2vRUwqKAwOOECFCxszax4slgx9XhaXdWAtJOgLGEl1KJvtJLN sGGtguu7gRFedtamtN3R122RBJt4H02EPYWOZrAB3u9 z c55m2frbiz5/aWlqIzPwpz7h/cVHwz9ZmdyaOb4988W0H4h 5Ef4ps1wvOPS65TkIvrQWOhr7Ql6zAge49XzTGsnYsqJV1UiYE xAQ6DyGikZ1QNlg1U/gtSovvJx4IjQXh6q8bW1lN67EuQ25ao0k28Kwl9jtBRf7IWMer JmWtWdD9YPbRFa9KH UhomveUroODkU38B22YV/FRE 2XNdk32GiSaNxb4TchDq1lPkaALOAeBMkDShf1nsn4Shbga8Bq JOPH4n4wm47BF4qqGomRGF1xBBL0m82y8oOr8t 5igK29rY0Pa9jV42HvHFm6tgngTvlXh0TtvltOjrUsLPt5bV9i pjmKRb8iPVmZJQc/II/2Vy GvVygj/RSLvBTzXGWzHSX4l P4DUbdexU7mwL1T7NDEq2R9BcWt9TVEFa6FWqfar9nxNnLMIEG Z2s8C34Dp O/AgJGhRKHGnOrAYO8KIxcVfeHrryAittJcd6jrljB99nu2cFne4 uwW22oV7 8yMDsvVGiz9 vL8olcusFiHxjFgWfsjS7GviMLMJHudhbMd8d/uTPDDvs2yBHQdn17AMUP98BSbeD 87XPYaWJ8YS5bsXNPcFQks7wq69JF kFdMvKBAQ4AzdS42uhoJ/k2BQ3rbW1uyP9l20NEmwhl/j8MAOybHHXmlzNZf4DixYE557YLv4iw9rMtPampuJIvwpfZR2d kHwF N6xPmMlM52UsxykE 1lk16Rho8Am4yANl1McOfZ7hti1y1Msl5exvzb689dshncgxwE URzaTafphSlFROkV8B4MDzW2wUOJwS9apiUt62tQSa5ETH5MvZ s713sxYo8/H1iVwvUd1DRmrCCQ6 KPnuv/NqF5upKogx/StLv/TLD68R4s3jPoeiUcXBjN3AYIbsTzECgjW/vXrNCbs31bWD8WsjugIbyRsXQD7F5GTkfcHzBMQUMAXAkzUeFO 2AQXUCXnOiFoFcNs/ICym5ejfMbG4/tOaRiG77gwh/ebXMxR736iSP8CvdvKYp W/p/X9Q8StXjJYt6uST7 89/m b2rdPAv9yHFAWOkAUMlfoMQD16Syb0ANEuLrvXrZEEzxGlcd1Z h6hXbbhH0TQVz8hAR1lcadtXhaC7AvrT7nzw9m6H6 HPwDFoLqSrZJC0LATlZUf0w8mLzgOuWMNt1nt2SAYmvjDydTFD 3XtLwq1EWyMLP94Dgl/5L19XpyWrypStzTo2BFoa6msKskVnTt3cvPSPKY6/ YxO8B5W6DcEhLpS736oW0 Jc48CR1gXLrtXHHuLT3zS1qr/o2xdQoeAqv0pB3 ZnO01LTLwYU/CwtPujwIGgHza50LXnefJQcpTHl1oU97WJlXOp 9esOuJP2SGi2 eA3y3DT7t4GqB gwsXuAh3rWmCOjvsQPFpz5V/vVTZcrVutxHjdLipjJlc1VFc2W5qlRRX1xQ/eC24vwv cfeS92xJmnltIQF/ilhtjkBcFdX6t0fhLqoq3mxsym8pWYPH6sAshtna553cFdrg55 vLXcxIKjQ kWskcK4ivQSfi849y1jz2STgqC8mqjpb4u6/09F x7dUS j zhQ75FjvjOgxmIUlG/QZK5E8SbFhTt31z0yd6io Ijr8v/vKw5Jsj6PefSb4/Jv46uuj4wbwPX8/c99LDrcserA7PnONaGDoGFISa69kHdbMAUl7kaJJjD2/o3bIhZDfrza0s34D N4MsvIL0ChgE7DVbwqWYeQxPL5I8/Sl3cx3KC2ipq8359MAF5wH4nu9dW/iFYdnYzoPI0QS XuxiDqQT9eyLBo UzHEuXj25ePMi8a614jdfFO/fDJJoX5Ro58qiDbNEi33E4VaSwGFSnwFSr75YnAs1V RkAkJpEFADZQfB9TVrJN6xd97B1zpz 7JQrgKEzAWHe84E/4FwF/3eizCpw56BeXVTatKJfrhZKzfM/gbFrdtkfvYzgMIUQuwnV gvxIQ/7pawBDYvRcKVNV3IBowBA0cjgYNRwOGor5wGxeorRREuEBw3Xp KXODeAohzgYJnYaHuHVv4KMUVK Sa5wjxiU9a9f1qtCeU9pcoBN0V BsjKC8BJ XFaC1Nik9cHHrByhR/yQIEv0Aucf0F6lnkCCUYiCmIYTEVNseEuD2Bf4Pw1sUMfCp2Mg XBMpDsXHv4AAMwAkwl2yAJ1kiclUnyHO/S2D8786SwgICAQDeHu/JCGmSSzA/2XPIaedES7gkAuQSiCeLfdExDcxzg/TcgqUCFRUQyAXIM/oIEDhZiGYBSgyD3kT0siGtuojUMda 6D8l a1t9t31uV0BAQMBA8FNeSHNz a3Eu1tXXXAbfNEK6u8NG SWLXzmFyjpQ wWHFBhoK3kBI6A6Bh8BDKAbCDzbVsYOF 3RuKtkCvO/dOiFpZfv8z2u5YCAgICfyf4Ky9GS0N96fXYezvXXw4Yf8HKNBa T4CQbGMACSQWRLNBWkO61J/BvcBB8lGJDCO5VKyTWyuSqz6j7m5eXxP7ZUtstvwpHQEBAwAjo qbw4rU1NNTmPCr46krJ PpRgu54XLYGewjAWCGuCNUxAZEG6hh0Bx8Gnl 0srvqNub1qesGxQ9UP77Y2NhDmBAQEBJ4OOqW8HcA30/KypH dyf7XgbtbViZGhCRMd4 faB8XZBkfaHkl1C5hmtuNhYH3Xo7M/nCv9Pcfa7IetNRw i01AQEBgb8fhlFeCs3NzdVVqhJ5vbigNjejNudRXVGeSiGDD fqerdYQEBA4GnACMorICAgIKCFtrb/B9NMg8iXYVpmAAAAAElFTkSuQmCChttps://barnamenevis.org/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdMAAABACAIAAAD OGQqjAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJc EhZcwAADsMAAA7DAcdvqGQAACSUSURBVHhe7Z0HeBTV2scnIQm 9d65AeiO9V0pCB6khdBCEqEgTFBS4KqJgwxvhIl5BxYJ ylXxqqEmAUICCSUECOltNzvb0ns27TtnZpKdmZ3ZndnshiDze8 6TB2bPeU97z3/eOTOzi7QJCAgICHQtgvIKCAgIdDWC8goICAh0NUZQ3tbWtob61 qryllJ5i6wYplI5 C842NbaQuQREBAQeIoxkPKqGptRUWPixdrvj1Z sKPslSWlz08vWT2xZFkQTKsnlT4/rWzbkspD22u jW5ION8szm9rbCDKCggICDxldE55m5ubxXl1Z7 p2POcMsJHFjZOGjJSFjIKptDRME3E/uIJHh8pDR4pmzxWudCzfNfquv ebC7MBkYIawICAgJPB/oqr6pRlZoEwlvlfDdZ0HBpwFBp4DBZ0AjZpH/IZ9orIv1Knp9Wunlh2Y6lZTuXlW1dXLJxpnJZoHyOE5BdKcgfO BQUkQUMVcx1rnjn5cZb14QQWEBA4OmBv/K2tqjS71S8/aI8bLzUd4DUb5DUf4hsyljlihBwsOb00fqrf6ke3mrKz2yWFDZ LxTCBfxRmqx7dbUi6VPvfk5Uf7Cx5frp8ug3Ua9 BUp8B8iljK/ZtUKXdbGsRNoIFBNjIiQ5CECQoKjqHONDWFhOFH4pRHxJ4EuCn vC2l8urPDwLRRL36Sb37S/0Gy dOKN 3oe7sN6q05KainGa0qFkqapaJYZIXE0kGEpBgEUySwiZRnupRa v3FXyo/fBVExzD 9e4PDMrCLauOvtWiQInKnihyYqLhEggirQkBAYMSEwU0lgBILT iCKzGB4HtPFDyUt/HezZKNs6Re/XDZlc92rDiwpT72LAhmm3IewpSbDkPdwpwWcX4LWtQiFbXIRPA vKmoBYa8or6kwuyk/A bMfgCSKvMeiIKr/v22Euiv3yDUq6/Us69ybVhjyhWiyu4PobjtYOtBQMDwUFQWEhVDlmKIoL1PENyUt 7mp9vfvZdNtUffeqGcfWfDIsu2RdX cbrybCOQYJNWDlKaM1Obs 42PUmtuXSu5dBY9c0p86qjoxGHxyU/Q7z5Tnj1deTWmPvWGKjOtKes EGvV/RRYNvVGY2pSfdz/Kt7dIp9mhXr2RT16y8Otas cbFOpiNq7I5ji0paCILwCRkNDeJGoaM1Dgv89MehW3tbGhqovD 0sDRkDZ9egjn 1UdfSt qsxDTcug9SYHK 6c73 Zrzi7HfpB3clrJ751yTHX92G/mrf53dri7 se5yzNjtva3HRqV cz6ikmR73N0WI/v1u5YVfGm8nqO4kgOLQTtKlhsSLNd8fVa4IQb37AfGV g t uzd1rpaohHdhpycGAbFJRAcX8BoMAS4mlEwkVeAEWxPvLsMkg7 lBbJb8e8DEq BqHsvEJAqV4YAfayP/b3 8tn6uN8br8ZUX/w1O3r/xcgpP7oO 3as6ff/QH6y6XnWa8TFaROuRwQnrwxLWTHlxqKAhHCHyx5Dz9uYx4xDzt uYXQkcDFxYpTn9Zf bMBxMJx/6uPPQvM1p79pmxbBNx5ANV59688/Hq3EV/atgITXTCn0Hc0qtG87wJPD9gh4b5L94YQTzB3HGYKn1QcfGOBo r3GcL /kWu1j9UTobzNTRUnPxZ79kfdegLZLVk/rebH43V//gBSfcxPdTE/5Ue//ccc3xPWvY PQU45DYxZHJp6aLforzPlD1PrZRJVZVlTdWVzdaWqorReUlRx7 6bk12/S39yUOMfjgkNvIMGXXQelPTer5FR0/fkzded gpb/OF3726ny3WukAUNQ954g/q089k6bqpFoz2OBg RiGH TjYh6aBVR7rtorkfjN8s4wE4Yp 3Gs8wTyjxhYkZ8wE4O7ouk5quVkDhgQP5GrqXuSpe0moOPaVPe qtE/kOQV3NUc8 Jeum1nz7ae3PJ2D675cVp48lRS36ymHAZ2OQbz1HXXl1g/jqxcaKMqKkFlpbGhSo9K f776w4JLrgJjxSLzPyNzX1lX//EXdL1/XngH2v6j5v8/Ldq2W g Giu87uPrH/xBluxaukosEcQtZOgfJ58mLjLZ64XQzXJYSmZ8YiF4ZoeXGs8w b jwButVUdUPXwppEeaiOG5qnEGPCzcdYlbfublLhJKti5x7gwl 5NKD6Pwdrvo0G4lvz3ZHaH46hH7/ h8 Y72x6nl87V3orsYX/3bDm2mr5pbMpq8LP28CN4NTIieX/OVR7 his4pvo6lOHSzcvQL1BuG0hmzyu4UYcUaxL4Ki5mOB2jetRVgF pSumrA8hyFH1Bd/Xy6CzqPhm65cazrAcMwtutpqr7uRa5Rfxq7kLl5exjzMrbrJSJ 1kwrdDBBXczlsxwqP94FlBemE 9Xn/yg suPar4 LNq78fpkm7StyxpQEVGMP6pSRe6R/bHew2MsTW5OdVYefqPmyw rvzgE6oJPm60KRT16o64WihUTm6ViooxRIS7etAFC3K4S3A4oy 5Q8pfT1C5pGXzHdZWOLG/ovL10Yz7JeaMxTt2gVie7mWhq1cx8uSleM2WgePsasvPKjB7Id TMVOJtKg4eV71lVF74XpyD rjr4FBLHq2P7q4 8CcSzatTYpzC791bX1kiKiJH9am1Sy879cm2IbMx5JmmyrPPhK Naji031V0fsqDm6Tz7RH3XpKXCwqPn6jrcXY3/BAdzYKXbGnwAbF66hTSm4z/gkls3H8DJ6gjKMTxlskXbb8uEKTEuOMZ2d4LK7FBm20cDje6Ou yqedREYPy1t2/lRE8Ns8ekbialzwXXnFwe WhVyo/2Fn18Wsg K08vLvykzeq/rUHiuORNwtfWZ48yzVjb1RnIl9A6c34hOnOQHyTwxxK391a dGrle/vAKnslaXSgKEg7EVDRjfcukbkNhKUcevgcSpuB1qnFL/vQt7/MuZ9l/bGCMprAIhbZlwlhAz58kyP4tzoatdih3lxAjj4oZbAxbDw8DEN 5VU1Fr2 Id0OKXRAZGHjy994ruKtFyr2vyTf87xox8rK97ZWvret8tD2yv ehFld 9BpIRduX3YkIzD6wvUEmIYzoRWlS7NVJ1ucsTdLmeZfv31Txzq aKt1 seDNKGemHevSWuJiX7FjR2lBP5DYCtLntwm1c3TzGYIOGuiVGa cZTprx6whwAGlFSHj sygvQ1fMnQXlrbife8x6eYYeIJpiXrJlcvmt1 etrgf5eme35q tg0QvPQiEGCWgiFMeXKw5srnh3i3jnyrS10/M eqOxc KL/u Hy 6DL9hZ5K0Jr9j3PKi3fPea0i2LpCGjUDcL1H9ofeIlIqvhoY1a 9/LibqO8pIYYxYX5LxIi9NMZ9nXZ8jM2lI5QecJPKNrQprwArRPa ZVPPoyKq8ra2FO57OdUGybZDwNV96UvPlm1bUr5jWdbaaSdt 3w11iTOfVDhuhlQEEHas6587/pyoI//3Agi0 IdKx5sfDb/X282KqSENf60qhqzDr12ztr0mtcw eZFZTuXl22PLNsWoVjkSYS9u9e1NTURuQ2Lhj TL7EeP2THe5yyQRomozSD7yKhLEit bts RkXHQr099VejQVKh73r1KJchwi7mUGUAR7D5RqYh49RlLehMCd 1ok2aLZLraCqf51q6cSYQX VL884FWx0fbx6zamZSRHC864CCVVPKgSbCtKLs1ZVlr60qA6Hx 7jXF25c 2rSo8OiBzohvPSq6sdD/nJXJw9muZVsWlW6aD9pQsjZMGjgUhr2TxqmyHhBZDQuzRwd1gz 1eDPKcPi7ZoD9tZ4xVznORaMwa /6jfsuvCyCtcOy5GeIwI9ROMPHknlN0o Osw9p33lNP3kOnoj0e41ERRXnlP55ItjF9aIcUevRVRPiUrJ0C xDc7MuiHCQNP 1vKbifVZD 8GREc59Ivf1lw2dZFpTAtLt0WUbptSdn2JWWvREq2Lsncvlz0 fuqEjlhlD/FZ7664NAz3qU/uja8NGpWyfPTS54Lk02zxsPeyq8 IfIZFvZZ7RbqS57Trl9c2NdVELWrMYp6UeZBRw3MOsQ2PHwsdx GMw6plenVJD0b36JqRYJVEHOaxo/qJruXD7FVk2C1w9zG18oIr/cxNkbdskAw7pDhwuGKhh3JZoHLN5ITJtqcnDEza zL ukR15v2bEUFxE/rmR/iXvvhs6YtzQUxaumkeDE5fhkmyNSLrtTWiEx/rLb6qUkXy0lAQ9j6a6VS6bipog3JVqGKeK rdX JqId84R8eXOXRMDj8X1OrVumbLIMApZ43ZyM3T0TGtdvjCfvo3 zqBQ/F57DexLhLHzPCx3CezNZ5tgkg 0hwPgOoRuxZhdM6hrQaB7dXSA29ugHR4ZFMXxvEVd2trHR6sMq GExwt3H1MrbIMq/PdHmji2S5WCCho5WzHFWLvYSLfb53XvkLwHjpYnqt8iqMtJw8c 1b6A1/6RKkDTNKNs4s2TgLpqhZks0Ls19fX3wqGmgoUYYnRd8cOWdtmu Q1RL48WLkiSLnUH5wJ4IaDey 44ZCbQeRjQN13/g6iRWXgPBs39O2YcuZ2c1ZeHXZ4wDgcZG/nVwN5s4L9spqPPmIWmWeMoWl8LDPQ/gCYHkWZ0L7CGetgc21KxwCGaSADhnMtDHq72 HQfjjzWCOAjxKlOtAoTq9HS u1zwoZZiPcfUytvGVxf95w7pNqi Q6mUlDRsmn2yrnuaZPd/jZdXDs6lm072SAke SYCC ufPcS9ZOIdJzYTCtCwdJsml 7t4oyXdH9RPfmpz0KyHjLtmbi551U0b6KRZ7Kea7yUJHox59JO 59amJ IvJpoh46Pb2DvplJwWg TZkyxlrIGbR0TacdjtC9FYJHJCTn5FEBoz3G4mTn51gB8ylCY5 D0sKym045FgdwUZhhqUReit542uhxaCIeMKKNzc5nAUK6Fw QQJHgMsqb4Ugtr1MRqW8OQxm21nA55YDFCNqF1kNTKKz7 YaI1kmaL5E8whz9POWWcfLbjjZBxZ1wHp33yFpGJBIx8l4TEuf bPnetasjJEiadVoViaCJLkpXl5b21CT3/WVKYkynCmpaHu7sZ556yQjMmWIPQGsiuf6yyb/Azq1a94gnlZNEN7MEiDzGPqNGFcyjid9zkmdC8dbn6v2w4XNHw VC/iJOkkfch0LTXvtMDSQ4v7cO8DQZnrr9LQMIVnXc0zJaKxwBhjG llKMrAlADiid1zEvTN6tewuBNsCdGwZ2j iAq3NB6OYojdMYbRbLVCN63t3h7GPtytvakr17A1De 3ZIobOZ1GcADDCnWsf5jfrNZ3TxhbNENiow8o0MBeKbM8tJudQ fpmUBcHeY BsoeWFu/v7N0h O6yG uZHWOJ3PEdjsuufKa9bMpY0DCJi4V821LmZ8sMuj7Y1ZePT5Da pK1JdNfRvu7YG8DBjk5oHkjfeiN/zGmU6W2ioNlASnZe06ir8waxbADHIjejY3g13E2zIi6CjaF11l mt6PAVXaPLB2494VUD1SSpqGZdzHbJ/dO/b5x9jFDe1ob6eyvCk6yRB3ZIkZMpuKiXBQ4TTXrmgs/ImCmOFRlpeDZNqkHkuxQT3xkOyiU ighvxRJfcpK8MAeIrx6RryzmzAWHnklu/WVznED0LZ9uA2Jeqe9AiWtPydKglppqIh8Z9SB3xi1IsKov5/XHec3SHESzA6QM2nqn044OKA7IeBnKsSEE9AWrAX1YOPsuE7Ta qMX1tkwqyLdBmmgZPkoDNceW1jl22KdFuwkdneusa7XDuR/8Rpt59GiNxmAyq2PsuUIxo635hPI2V5TdmuuDK2 BI4K6mgONKwgeddF3VPyS0AaFDM/GCIx8l04E4ps91VaxwEOx0EOxyJOUvCQbZ W//TL63TFee77ld5MuuQ6tQbnWEnn2Enm2olmzhG6jdY4tZTPNu9W cnQJFKv9R86DVj8hFsNfJpE9RGNWSO3Q6tH6rCjHbIusBQl29d pncnxadBtkIvwn0fqdFFt62tZXa7zfqXdFqmFOj7WBmsrdZXX1 T1qeZ6uRQJENFHYbklHdeoNVAr8xpvcPLxkhzcEke/EMjWcPjT6dk6zDcwQyquSozfDXRIx5c13QCQTeki9 uUFjYwLfCZ54/ymqgo8GxtwzxcX33BrxXw3mBa4wwRUGKQF7pINM/PefEny7RHu4luTkx4XMCbOwaJ4mo18hq0sbLwsdLTUf7DE1aIw zFZVlEfkI0HutP5ewQCL Oqug7NaYmgTDT62tNvRhkZH8d1Etf/QH zVsTKobcaz0jclNVrI1XfZIFdKLa nZZJBfdpDQW2L2ZS6iczzxnIRRv05TJZWasyuJrr6RzXBx7U4A byLMN0OzwEnlYeNI40meYCYjGrUzKlqsB5ol4VkO9osEMrbICl KnOxw3RpJs0PyHJBiZ1OpRx gvAkTrdK2r2iuZbq0pwIi3 Rlk LcBsDId747ob94/IvpLxDf3H0vSE5Fq0q0RdAd1Inz40PGA UVTyUpr9/gYhez/InjG/MYHiyjDJ6BvUJzYiA6JoddA1jQNm18jHGdfhocliYN7cbVzaDl o1ak5UMejSdBskBxAz0tk0ezs25FboKmLbaGU8DOfqSHYPGdYu 2GIaQcHbePNLbTdA6Lnq6lBms9YQAD9CUIRsD4DUN6g3gOuLqT QdHR6qaC0z5pfBiNkjvWAfN9NjxAJ zp6b0k5Z3kkGCN3LNDcoHyOplI3XvlB45ICrN7uGMVF UFVGekJS fHO8 KGuaHdx2gEkd9oJUDMR378birz7h8pJFnSgvPmQcjHmn28Ldhn BLqLy A8XOPXJDxzcwKS9lcPVzCy0wzozWWigluDWHVESjANmcLn/UZocd5i5qRYt1ynTQ81GqovWGrfEgWIaLlGkt0CCvP3JuAwwLT yWgQ/NRUmeoIsi/GnUrmbumrpl9uAE6x0W/MSSgdp8LvAeC2h0c0FBqzUxWmQpiYM WAaKjmJ4ep5viOD7q3YYb4S7XrJC7tki2Pa68PQsDh98Md3iwJ VLnbkMH1ZkPoPh6DM6abk/d7cXSQs/i52dk714n uIDnd/tUJ31INZ31BWnXpKZ9vJZ9nCfN2SU1KtfkSOSPdmmUZRP5CNDH zsui5QbzLtQOCyOTm M7ud2ACT/0DBLMajD6bXZYYf/ugCwdEuj/9gIqJtC/pjWRNJH5E/aW8dlHDtMUE2zWNYBbVi41M8O07CA6Iw68Dwah0FxT5bC6orpG aj909U9/VwLQw//4lsFgGGEoRHqYUa7miV1o2GIZERb49V32JJne1 xQu7YIpn2iAjeZLMo8h SMtXh3vpZjXIUz8aF6sz7KcunxHsyie9C Ld4/bSsnatExw qmO6SdVCWcvWS28AEl77S2U7wkbKpVtKg4ahbz3wHJGemaxOjc DPMbMdTO3pBuazQAqUWvBDxCRUsH2nbFAMcyMFPqEQuHI0VQO8 d/UqIqx1tcFgbwJ3oHgolldQU0AyW/kOIsSLXRPNQknly49UlsPqoo4h3Hus9pWqqaRbLOtAYFG0rSid chhh3E7qjYGDH8b5indU0xtIz6qSBKrDre9wYebqYimOZOula gkbzyowNNwTmy6GWaSsH6yP7PEVC5quwNHHCOVtra 7szws3gq5ZYM8skcKgfK6mBX7DLgz1f52RFA1 1NljIBwFYqvx BMIL6LveGjZou9iIRJsHjdtMxXVhR99l6jglXT0dO29nnuw5SD 53AvYw7zip36DiCWYgJM9ZHNhSU0Xko8Du1fCKod3ViMxUsE gQ0MHY/RoHMaXxY0Aw rWx3P5q4RW2STM6dUSdmhtJM0i2Xf1qpTq/CyWdcHkVsQJRA 0D3CnYeuYgecMwNO19GgAb dlvNQijBh ABgHm6OPEcrb1try6LX1sZbITRvkYfvjDahnn/th1slzPZWXfyeycQaLfCfHuQ/KnGYHlbcjASHGJFi8bmrmtmVFR99RsWw7ZH2wK8YSSQsYpXh2A tznDR2NevYtcjJ5BJr38pK2JuZfO2aXXgMBB9PolQAYfa5LfBc Hnv9huE8 AwGxaTdmUC mt1E9vpRP9KmT5vsslnWipWrtZ3TsuLYA1eCwr3ZDKw9P1 JfPW/fZVyY6gEx AAwjjVHH2tX3ra2gmPvX7Y0SbSBjzfkOiBiJxNwaZ8Z szNma4Fx95ta20l8nEGRL7JyyfHuvbPmGoH36qI8MESJr6YCou eC8/YtLAw s1GOf2XLJqrq1JWT71gY5obZq2YOwFuNQQOlbhagFNCmi0iOfx PIh8DRpXFjrHkPongwliPGWeZNN6d4 28XOHYJxAY6myyZhs7jFNcW49h1FgazJZ1Y1SvMiBa51uPAdQC T9eijiDlSr/95ES 1iSd5bnR8YVGVCitNMwA4F/mQJhkgJuPqZVXefH3WIfeCdbwJlsWsdVrXuA/NGWmy4MtkSr r/8C4KNmSydedun3KNxGscQHe6sN/O1IvqI1U9I3zCk4vIcmvpX3b8X5joh36i3BN3knjpF69xM7mYK G3XUwL/3fD0Q Zox1NUebRQ6VEGdFvutWi1Pzch6ei4MfHFrSXr/W62sG/2w3TW0/71HkbJkL3V97OYgVL /RCu8BJFVtaLcEl2dsc0NzgU5MIq63XBrOzcfUyltfmJsQbHXFC kmxRdLt4S9gSib0KPbqlzrV/tYi/7Lrev4AGnzDLTL0knMfTHx94RePYQn8A09FqyY9eG56/oe7G2XFRJm2ttwj78RYIXd8hynmOsvDLaWBw1A3iwIHuBNyN2B MXXY6kY8VljOgnmCPMmkOo45KKCuf45zrOJ1COG0TcrDTebS3h O54MLdmdkb3JHxXwwLHdaNljbBY5obhdIsMaC22r0P8lzfcJQH CyXu0oqdrGUd5mZ2qHYZTLy/xxW8OcR5bAm4 plbe1saGexsXxloiSe0bDsXYhkNW6D9S5nrkHnq1pb6OyMoT7F vNQi849n4YZkN8sU5HguLrX7hy4v3VU/MO7cTFt15SlDjH46KtWV64tYIIePsXO5vmOCCptkjG6hkt3J4v BpcwnXDojnEnrLEA90OptYALJpZyMCvIS20S D/pOXKOaNaqn53OQ7SEOgBa1ial5cwbZe2 y S6mrUBiK5z6Tu7ZW4Y8IyOjRKtHWB0oI/ALgKIjGTwD Crt52aaTCM2Dgy1qEBXmUnXYuseCzTzgudi1vLJDN5EewkHFjY z86tIW4 plZegPjbzy5ZmSZYk54tczET wxMneVyd2VYxa0EIh9/qjLvJ0SE/GHfM22ylQII7rIA5VKQ2sV3qX/BitB7yyZmv7O1QSouOPHROdseNzwGymY6wEca/IegrhaFjvChixQbE8nnHxJGOQPdGdc85rnCPiAPe2fGXeDvDpB HHYueFehlus/mXQ9JFg2hikyQlVf/M1 7ahKG2IDXqET 7gpFeWtzM68FWl6xQpJt4Bc45DkgEmdT1L1X9qRxdxYH5h58tZ nzKxWaVGSkxS4K/q N V0ovgFq8cXCXiDH UuDUhcHpL y8toUu4u2PXInjZNPtZIGj0A9 xY7mebYw4D3lt/o2vRUwqKAwOOECFCxszax4slgx9XhaXdWAtJOgLGEl1KJvtJLN sGGtguu7gRFedtamtN3R122RBJt4H02EPYWOZrAB3u9 z c55m2frbiz5/aWlqIzPwpz7h/cVHwz9ZmdyaOb4988W0H4h 5Ef4ps1wvOPS65TkIvrQWOhr7Ql6zAge49XzTGsnYsqJV1UiYE xAQ6DyGikZ1QNlg1U/gtSovvJx4IjQXh6q8bW1lN67EuQ25ao0k28Kwl9jtBRf7IWMer JmWtWdD9YPbRFa9KH UhomveUroODkU38B22YV/FRE 2XNdk32GiSaNxb4TchDq1lPkaALOAeBMkDShf1nsn4Shbga8Bq JOPH4n4wm47BF4qqGomRGF1xBBL0m82y8oOr8t 5igK29rY0Pa9jV42HvHFm6tgngTvlXh0TtvltOjrUsLPt5bV9i pjmKRb8iPVmZJQc/II/2Vy GvVygj/RSLvBTzXGWzHSX4l P4DUbdexU7mwL1T7NDEq2R9BcWt9TVEFa6FWqfar9nxNnLMIEG Z2s8C34Dp O/AgJGhRKHGnOrAYO8KIxcVfeHrryAittJcd6jrljB99nu2cFne4 uwW22oV7 8yMDsvVGiz9 vL8olcusFiHxjFgWfsjS7GviMLMJHudhbMd8d/uTPDDvs2yBHQdn17AMUP98BSbeD 87XPYaWJ8YS5bsXNPcFQks7wq69JF kFdMvKBAQ4AzdS42uhoJ/k2BQ3rbW1uyP9l20NEmwhl/j8MAOybHHXmlzNZf4DixYE557YLv4iw9rMtPampuJIvwpfZR2d kHwF N6xPmMlM52UsxykE 1lk16Rho8Am4yANl1McOfZ7hti1y1Msl5exvzb689dshncgxwE URzaTafphSlFROkV8B4MDzW2wUOJwS9apiUt62tQSa5ETH5MvZ s713sxYo8/H1iVwvUd1DRmrCCQ6 KPnuv/NqF5upKogx/StLv/TLD68R4s3jPoeiUcXBjN3AYIbsTzECgjW/vXrNCbs31bWD8WsjugIbyRsXQD7F5GTkfcHzBMQUMAXAkzUeFO 2AQXUCXnOiFoFcNs/ICym5ejfMbG4/tOaRiG77gwh/ebXMxR736iSP8CvdvKYp W/p/X9Q8StXjJYt6uST7 89/m b2rdPAv9yHFAWOkAUMlfoMQD16Syb0ANEuLrvXrZEEzxGlcd1Z h6hXbbhH0TQVz8hAR1lcadtXhaC7AvrT7nzw9m6H6 HPwDFoLqSrZJC0LATlZUf0w8mLzgOuWMNt1nt2SAYmvjDydTFD 3XtLwq1EWyMLP94Dgl/5L19XpyWrypStzTo2BFoa6msKskVnTt3cvPSPKY6/ YxO8B5W6DcEhLpS736oW0 Jc48CR1gXLrtXHHuLT3zS1qr/o2xdQoeAqv0pB3 ZnO01LTLwYU/CwtPujwIGgHza50LXnefJQcpTHl1oU97WJlXOp 9esOuJP2SGi2 eA3y3DT7t4GqB gwsXuAh3rWmCOjvsQPFpz5V/vVTZcrVutxHjdLipjJlc1VFc2W5qlRRX1xQ/eC24vwv cfeS92xJmnltIQF/ilhtjkBcFdX6t0fhLqoq3mxsym8pWYPH6sAshtna553cFdrg55 vLXcxIKjQkWskcK4ivQSfi849y1jz2STgqC8mqjpb4u6/09F x7dUS j zhQ75FjvjOgxmIUlG/QZK5E8SbFhTt31z0yd6ioIjr8v/vKw5Jsj6PefSb4/Jv46uuj4wbwPX8/c99LDrcserA7PnONaGDoGFISa69kHdbMAUl7kaJJjD2/o3bIhZDfrza0s34D N4MsvIL0ChgE7DVbwqWYeQxPL5I8/Sl3cx3KC2ipq8359MAF5wH4nu9dW/iFYdnYzoPI0QS XuxiDqQT9eyLBo UzHEuXj25ePMi8a614jdfFO/fDJJoX5Ro58qiDbNEi33E4VaSwGFSnwFSr75YnAs1V RkAkJpEFADZQfB9TVrJN6xd97B1zpz7JQrgKEzAWHe84E/4FwF/3eizCpw56BeXVTatKJfrhZKzfM/gbFrdtkfvYzgMIUQuwnV gvxIQ/7pawBDYvRcKVNV3IBowBA0cjgYNRwOGor5wGxeorRREuEBw3Xp KXODeAohzgYJnYaHuHVv4KMUVK Sa5wjxiU9a9f1qtCeU9pcoBN0V BsjKC8BJ XFaC1Nik9cHHrByhR/yQIEv0Aucf0F6lnkCCUYiCmIYTEVNseEuD2Bf4Pw1sUMfCp2Mg XBMpDsXHv4AAMwAkwl2yAJ1kiclUnyHO/S2D8786SwgICAQDeHu/JCGmSSzA/2XPIaedES7gkAuQSiCeLfdExDcxzg/TcgqUCFRUQyAXIM/oIEDhZiGYBSgyD3kT0siGtuojUMda 6D8l a1t9t31uV0BAQMBA8FNeSHNz a3Eu1tXXXAbfNEK6u8NG SWLXzmFyjpQ wWHFBhoK3kBI6A6Bh8BDKAbCDzbVsYOF 3RuKtkCvO/dOiFpZfv8z2u5YCAgICfyf4Ky9GS0N96fXYezvXXw4Yf8HKNBa T4CQbGMACSQWRLNBWkO61J/BvcBB8lGJDCO5VKyTWyuSqz6j7m5eXxP7ZUtstvwpHQEBAwAjo qbw4rU1NNTmPCr46krJ PpRgu54XLYGewjAWCGuCNUxAZEG6hh0Bx8Gnl 0srvqNub1qesGxQ9UP77Y2NhDmBAQEBJ4OOqW8HcA30/KypH dyf7XgbtbViZGhCRMd4 faB8XZBkfaHkl1C5hmtuNhYH3Xo7M/nCv9Pcfa7IetNRw i01AQEBgb8fhlFeCs3NzdVVqhJ5vbigNjejNudRXVGeSiGDD fqerdYQEBA4GnACMorICAgIKCFtrb/B9NMg8iXYVpmAAAAAElFTkSuQmCC

[eb_1345]

https://barnamenevis.org/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdMAAABACAIAAAD OGQqjAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJc EhZcwAADsMAAA7DAcdvqGQAACSUSURBVHhe7Z0HeBTV2scnIQm 9d65AeiO9V0pCB6khdBCEqEgTFBS4KqJgwxvhIl5BxYJ ylXxqqEmAUICCSUECOltNzvb0ns27TtnZpKdmZ3ZndnshiDze8 6TB2bPeU97z3/eOTOzi7QJCAgICHQtgvIKCAgIdDWC8goICAh0NUZQ3tbWtob61 qryllJ5i6wYplI5 C842NbaQuQREBAQeIoxkPKqGptRUWPixdrvj1Z sKPslSWlz08vWT2xZFkQTKsnlT4/rWzbkspD22u jW5ION8szm9rbCDKCggICDxldE55m5ubxXl1Z7 p2POcMsJHFjZOGjJSFjIKptDRME3E/uIJHh8pDR4pmzxWudCzfNfquv ebC7MBkYIawICAgJPB/oqr6pRlZoEwlvlfDdZ0HBpwFBp4DBZ0AjZpH/IZ9orIv1Knp9Wunlh2Y6lZTuXlW1dXLJxpnJZoHyOE5BdKcgfO BQUkQUMVcx1rnjn5cZb14QQWEBA4OmBv/K2tqjS71S8/aI8bLzUd4DUb5DUf4hsyljlihBwsOb00fqrf6ke3mrKz2yWFDZ LxTCBfxRmqx7dbUi6VPvfk5Uf7Cx5frp8ug3Ua9 BUp8B8iljK/ZtUKXdbGsRNoIFBNjIiQ5CECQoKjqHONDWFhOFH4pRHxJ4EuCn vC2l8urPDwLRRL36Sb37S/0Gy dOKN 3oe7sN6q05KainGa0qFkqapaJYZIXE0kGEpBgEUySwiZRnupRa v3FXyo/fBVExzD 9e4PDMrCLauOvtWiQInKnihyYqLhEggirQkBAYMSEwU0lgBILT iCKzGB4HtPFDyUt/HezZKNs6Re/XDZlc92rDiwpT72LAhmm3IewpSbDkPdwpwWcX4LWtQiFbXIRPA vKmoBYa8or6kwuyk/A bMfgCSKvMeiIKr/v22Euiv3yDUq6/Us69ybVhjyhWiyu4PobjtYOtBQMDwUFQWEhVDlmKIoL1PENyUt 7mp9vfvZdNtUffeqGcfWfDIsu2RdX cbrybCOQYJNWDlKaM1Obs 42PUmtuXSu5dBY9c0p86qjoxGHxyU/Q7z5Tnj1deTWmPvWGKjOtKes EGvV/RRYNvVGY2pSfdz/Kt7dIp9mhXr2RT16y8Otas cbFOpiNq7I5ji0paCILwCRkNDeJGoaM1Dgv89MehW3tbGhqovD 0sDRkDZ9egjn 1UdfSt qsxDTcug9SYHK 6c73 Zrzi7HfpB3clrJ751yTHX92G/mrf53dri7 se5yzNjtva3HRqV cz6ikmR73N0WI/v1u5YVfGm8nqO4kgOLQTtKlhsSLNd8fVa4IQb37AfGV g t uzd1rpaohHdhpycGAbFJRAcX8BoMAS4mlEwkVeAEWxPvLsMkg7 lBbJb8e8DEq BqHsvEJAqV4YAfayP/b3 8tn6uN8br8ZUX/w1O3r/xcgpP7oO 3as6ff/QH6y6XnWa8TFaROuRwQnrwxLWTHlxqKAhHCHyx5Dz9uYx4xDzt uYXQkc DFxYpTn9Zf bMBxMJx/6uPPQvM1p79pmxbBNx5ANV59688/Hq3EV/atgITXTCn0Hc0qtG87wJPD9gh4b5L94YQTzB3HGYKn1QcfGOBo r3GcL /kWu1j9UTobzNTRUnPxZ79kfdegLZLVk/rebH43V//gBSfcxPdTE/5Ue//ccc3xPWvY PQU45DYxZHJp6aLforzPlD1PrZRJVZVlTdWVzdaWqorReUlRx7 6bk12/S39yUOMfjgkNvIMGXXQelPTer5FR0/fkzded gpb/OF3726ny3WukAUNQ954g/q089k6bqpFoz2OBg RiGH TjYh6aBVR7rtorkfjN8s4wE4Yp 3Gs8wTyjxhYkZ8wE4O7ouk5quVkDhgQP5GrqXuSpe0moOPaVPe qt E/kOQV3NUc8 Jeum1nz7ae3PJ2D675cVp48lRS36ymHAZ2OQbz1HXXl1g/jqxcaKMqKkFlpbGhSo9K f776w4JLrgJjxSLzPyNzX1lX//EXdL1/XngH2v6j5v8/Ldq2W g Giu87uPrH/xBluxaukosEcQtZOgfJ58mLjLZ64XQzXJYSmZ8YiF4ZoeXGs8w b jwButVUdUPXwppEeaiOG5qnEGPCzcdYlbfublLhJKti5x7gwl 5NKD6Pwdrvo0G4lvz3ZHaH46hH7/ h8 Y72x6nl87V3orsYX/3bDm2mr5pbMpq8LP28CN4NTIieX/OVR7 his4pvo6lOHSzcvQL1BuG0hmzyu4UYcUaxL4Ki5mOB2jetRVgF pSumrA8hyFH1Bd/Xy6CzqPhm65cazrAcMwtutpqr7uRa5Rfxq7kLl5exjzMrbrJSJ 1kwrdDBBXczlsxwqP94FlBemE 9Xn/yg suPar4 LNq78fpkm7StyxpQEVGMP6pSRe6R/bHew2MsTW5OdVYefqPmyw rvzgE6oJPm60KRT16o64WihUTm6ViooxRIS7etAFC3K4S3A4oy 5Q8pfT1C5pGXzHdZWOLG/ovL10Yz7JeaMxTt2gVie7mWhq1cx8uSleM2WgePsasvPKjB7Id TMVOJtKg4eV71lVF74XpyD rjr4FBLHq2P7q4 8CcSzatTYpzC791bX1kiKiJH9am1Sy879cm2IbMx5JmmyrPPhK Naji031V0fsqDm6Tz7RH3XpKXCwqPn6jrcXY3/BAdzYKXbGnwAbF66hTSm4z/gkls3H8DJ6gjKMTxlskXbb8uEKTEuOMZ2d4LK7FBm20cDje6Ou yqedREYPy1t2/lRE8Ns8ekbialzwXXnFwe WhVyo/2Fn18Wsg K08vLvykzeq/rUHiuORNwtfWZ48yzVjb1RnIl9A6c34hOnOQHyTwxxK391a dGrle/vAKnslaXSgKEg7EVDRjfcukbkNhKUcevgcSpuB1qnFL/vQt7/MuZ9l/bGCMprAIhbZlwlhAz58kyP4tzoatdih3lxAjj4oZbAxbDw8DEN 5VU1Fr2 Id0OKXRAZGHjy994ruKtFyr2vyTf87xox8rK97ZWvret8tD2yv ehFld 9BpIRduX3YkIzD6wvUEmIYzoRWlS7NVJ1ucsTdLmeZfv31Txzq aKt1 seDNKGemHevSWuJiX7FjR2lBP5DYCtLntwm1c3TzGYIOGuiVGa cZTprx6whwAGlFSHj sygvQ1fMnQXlrbife8x6eYYeIJpiXrJlcvmt1 etrgf5eme35q tg0QvPQiEGCWgiFMeXKw5srnh3i3jnyrS10/M eqOxc KL/u Hy 6DL9hZ5K0Jr9j3PKi3fPea0i2LpCGjUDcL1H9ofeIlIqvhoY1a 9/LibqO8pIYYxYX5LxIi9NMZ9nXZ8jM2lI5QecJPKNrQprwArRPa ZVPPoyKq8ra2FO57OdUGybZDwNV96UvPlm1bUr5jWdbaaSdt 3w11iTOfVDhuhlQEEHas6587/pyoI//3Agi0 IdKx5sfDb/X282KqSENf60qhqzDr12ztr0mtcw eZFZTuXl22PLNsWoVjkSYS9u9e1NTURuQ2Lhj TL7EeP2THe5yyQRomozSD7yKhLEit bts RkXHQr099VejQVKh73r1KJchwi7mUGUAR7D5RqYh49RlLehMCd 1ok2aLZLraCqf51q6cSYQX VL884FWx0fbx6zamZSRHC864CCVVPKgSbCtKLs1ZVlr60qA6Hx 7jXF25c 2rSo8OiBzohvPSq6sdD/nJXJw9muZVsWlW6aD9pQsjZMGjgUhr2TxqmyHhBZDQuzRwd1gz 1eDPKcPi7ZoD9tZ4xVznORaMwa /6jfsuvCyCtcOy5GeIwI9ROMPHknlN0o Osw9p33lNP3kOnoj0e41ERRXnlP55ItjF9aIcUevRVRPiUrJ0C xDc7MuiHCQNP 1vKbifVZD 8GREc59Ivf1lw2dZFpTAtLt0WUbptSdn2JWWvREq2Lsncvlz0 fuqEjlhlD/FZ7664NAz3qU/uja8NGpWyfPTS54Lk02zxsPeyq8 IfIZFvZZ7RbqS57Trl9c2NdVELWrMYp6UeZBRw3MOsQ2PHwsdx GMw6plenVJD0b36JqRYJVEHOaxo/qJruXD7FVk2C1w9zG18oIr/cxNkbdskAw7pDhwuGKhh3JZoHLN5ITJtqcnDEza zL ukR15v2bEUFxE/rmR/iXvvhs6YtzQUxaumkeDE5fhkmyNSLrtTWiEx/rLb6qUkXy0lAQ9j6a6VS6bipog3JVqGKeK rdX JqId84R8eXOXRMDj8X1OrVumbLIMApZ43ZyM3T0TGtdvjCfvo3 zqBQ/F57DexLhLHzPCx3CezNZ5tgkg 0hwPgOoRuxZhdM6hrQaB7dXSA29ugHR4ZFMXxvEVd2trHR6sMq GExwt3H1MrbIMq/PdHmji2S5WCCho5WzHFWLvYSLfb53XvkLwHjpYnqt8iqMtJw8c 1b6A1/6RKkDTNKNs4s2TgLpqhZks0Ls19fX3wqGmgoUYYnRd8cOWdtmu Q1RL48WLkiSLnUH5wJ4IaDey 44ZCbQeRjQN13/g6iRWXgPBs39O2YcuZ2c1ZeHXZ4wDgcZG/nVwN5s4L9spqPPmIWmWeMoWl8LDPQ/gCYHkWZ0L7CGetgc21KxwCGaSADhnMtDHq72 HQfjjzWCOAjxKlOtAoTq9HS u1zwoZZiPcfUytvGVxf95w7pNqi Q6mUlDRsmn2yrnuaZPd/jZdXDs6lm072SAke SYCC ufPcS9ZOIdJzYTCtCwdJsml 7t4oyXdH9RPfmpz0KyHjLtmbi551U0b6KRZ7Kea7yUJHox59JO 59amJ IvJpoh46Pb2DvplJwWg TZkyxlrIGbR0TacdjtC9FYJHJCTn5FEBoz3G4mTn51gB8ylCY5 D0sKym045FgdwUZhhqUReit542uhxaCIeMKKNzc5nAUK6Fw QQJHgMsqb4Ugtr1MRqW8OQxm21nA55YDFCNqF1kNTKKz7 YaI1kmaL5E8whz9POWWcfLbjjZBxZ1wHp33yFpGJBIx8l4TEuf bPnetasjJEiadVoViaCJLkpXl5b21CT3/WVKYkynCmpaHu7sZ556yQjMmWIPQGsiuf6yyb/Azq1a94gnlZNEN7MEiDzGPqNGFcyjid9zkmdC8dbn6v2w4XNHw VC/iJOkkfch0LTXvtMDSQ4v7cO8DQZnrr9LQMIVnXc0zJaKxwBhjG llKMrAlADiid1zEvTN6tewuBNsCdGwZ2j iAq3NB6OYojdMYbRbLVCN63t3h7GPtytvakr17A1De 3ZIobOZ1GcADDCnWsf5jfrNZ3TxhbNENiow8o0MBeKbM8tJudQ fpmUBcHeY BsoeWFu/v7N0h O6yG uZ HWOJ3PEdjsuufKa9bMpY0DCJi4V821LmZ8sMuj7Y1ZePT5DapK 1JdNfRvu7YG8DBjk5oHkjfeiN/zGmU6W2ioNlASnZe06ir8waxbADHIjejY3g13E2zIi6CjaF11l mt6PAVXaPLB2494VUD1SSpqGZdzHbJ/dO/b5x9jFDe1ob6eyvCk6yRB3ZIkZMpuKiXBQ4TTXrmgs/ImCmOFRlpeDZNqkHkuxQT3xkOyiU ighvxRJfcpK8MAeIrx6RryzmzAWHnklu/WVznED0LZ9uA2Jeqe9AiWtPydKglppqIh8Z9SB3xi1IsKov5/XHec3SHESzA6QM2nqn044OKA7IeBnKsSEE9AWrAX1YOPsuE7Ta qMX1tkwqyLdBmmgZPkoDNceW1jl22KdFuwkdneusa7XDuR/8Rpt59GiNxmAyq2PsuUIxo635hPI2V5TdmuuDK2 BI4K6mgONKwgeddF3VPyS0AaFDM/GCIx8l04E4ps91VaxwEOx0EOxyJOUvCQbZ W//TL63TFee77ld5MuuQ 6tQbnWEnn2Enm2olmzhG6jdY4tZTPNu9WcnQJFKv9R86DVj8hF sNfJpE9RGNWSO3Q6tH6rCjHbIusBQl29dpncnxadBtkIvwn0fq dFFt62tZXa7zfqXdFqmFOj7WBmsrdZXX1T1qeZ6uRQJENFHYbk lHdeoNVAr8xpvcPLxkhzcEke/EMjWcPjT6dk6zDcwQyquSozfDXRIx5c13QCQTeki9 uUFjYwLfCZ54/ymqgo8GxtwzxcX33BrxXw3mBa4wwRUGKQF7pINM/PefEny7RHu4luTkx4XMCbOwaJ4mo18hq0sbLwsdLTUf7DE1aIw zFZVlEfkI0HutP5ewQCL Oqug7NaYmgTDT62tNvRhkZH8d1Etf/QH zVsTKobcaz0jclNVrI1XfZIFdKLa nZZJBfdpDQW2L2ZS6iczzxnIRRv05TJZWasyuJrr6RzXBx7U4A byLMN0OzwEnlYeNI40meYCYjGrUzKlqsB5ol4VkO9osEMrbICl KnOxw3RpJs0PyHJBiZ1OpRx gvAkTrdK2r2iuZbq0pwIi3 Rlk LcBsDId747ob94/IvpLxDf3H0vSE5Fq0q0RdAd1Inz40PGA UVTyUpr9/gYhez/InjG/MYHiyjDJ6BvUJzYiA6JoddA1jQNm18jHGdfhocliYN7cbVzaDl o1ak5UMejSdBskBxAz0tk0ezs25FboKmLbaGU8DOfqSHYPGdYu 2GIaQcHbePNLbTdA6Lnq6lBms9YQAD9CUIRsD4DUN6g3gOuLqT QdHR6qaC0z5pfBiNkjvWAfN9NjxAJ zp6b0k5Z3kkGCN3LNDcoHyOplI3XvlB45ICrN7uGMVF UFVGekJS fHO8 KGuaHdx2gEkd9oJUDMR378birz7h8pJFnSgvPmQcjHmn28Ldhn BLqLy A8XOPXJDxzcwKS9lcPVzCy0wzozWWigluDWHVESjANmcLn/UZocd5i5qRYt1ynTQ81GqovWGrfEgWIaLlGkt0CCvP3JuAwwLT yWgQ/NRUmeoIsi/GnUrmbumrpl9uAE6x0W/MSSgdp8LvAeC2h0c0FBqzUxWmQpiYM WAaKjmJ4ep5viOD7q3YYb4S7XrJC7tki2Pa68PQsDh98Md3iwJ VLnbkMH1ZkPoPh6DM6abk/d7cXSQs/i52dk714n uIDnd/tUJ31INZ31BWnXpKZ9vJZ9nCfN2SU1KtfkSOSPdmmUZRP5CNDH zsui5QbzLtQOCyOTm M7ud2ACT/0DBLMajD6bXZYYf/ugCwdEuj/9gIqJtC/pjWRNJH5E/aW8dlHDtMUE2zWNYBbVi41M8O07CA6Iw68Dwah0FxT5bC6orpG aj909U9/VwLQw//4lsFgGGEoRHqYUa7miV1o2GIZERb49V32JJne1 xQu7YIpn2iAjeZLMo8h SMtXh3vpZjXIUz8aF6sz7KcunxHsyie9C Ld4/bSsnatExw qmO6SdVCWcvWS28AEl77S2U7wkbKpVtKg4ahbz3wHJGemaxOjc DPMbMdTO3pBuazQAqUWvBDxCRUsH2nbFAMcyMFPqEQuHI0VQO8 d/UqIqx1tcFgbwJ3oHgolldQU0AyW/kOIsSLXRPNQknly49UlsPqoo4h3Hus9pWqqaRbLOtAYFG0rSid chhh3E7qjYGDH8b5indU0xtIz6qSBKrDre9wYebqYimOZOula gkbzyowNNwTmy6GWaSsH6yP7PEVC5quwNHHCOVtra 7szws3gq5ZYM8skcKgfK6mBX7DLgz1f52RFA1 1NljIBwFYqvx BMIL6LveGjZou9iIRJsHjdtMxXVhR99l6jglXT0d O29nnuw5SD53AvYw7zip36DiCWYgJM9ZHNhSU0Xko8Du1fCKod 3ViMxUsE gQ0MHY/RoHMaXxY0Aw rWx3P5q4RW2STM6dUSdmhtJM0i2Xf1qpTq/CyWdcHkVsQJRA 0D3CnYeuYgecMwNO19GgAb dlvNQijBh ABgHm6OPEcrb1try6LX1sZbITRvkYfvjDahnn/th1slzPZWXfyeycQaLfCfHuQ/KnGYHlbcjASHGJFi8bmrmtmVFR99RsWw7ZH2wK8YSSQsYpXh2A tznDR2NevYtcjJ5BJr38pK2JuZfO2aXXgMBB9PolQAYfa5LfBc Hnv9huE8 AwGxaTdmUC mt1E9vpRP9KmT5vsslnWipWrtZ3TsuLYA1eCwr3ZDKw9P1 JfPW/fZVyY6gEx AAwjjVHH2tX3ra2gmPvX7Y0SbSBjzfkOiBiJxNwaZ8Z szNma4Fx95ta20l8nEGRL7JyyfHuvbPmGoH36qI8MESJr6YCou eC8/YtLAw s1GOf2XLJqrq1JWT71gY5obZq2YOwFuNQQOlbhagFNCmi0iOfx PIh8DRpXFjrHkPongwliPGWeZNN6d4 28XOHYJxAY6myyZhs7jFNcW49h1FgazJZ1Y1SvMiBa51uPAdQC T9eijiDlSr/95ES 1iSd5bnR8YVGVCitNMwA4F/mQJhkgJuPqZVXefH3WIfeCdbwJlsWsdVrXuA/NGWmy4MtkSr r/8C4KNmSydedun3KNxGscQHe6sN/O1IvqI1U9I3zCk4vIcmvpX3b8X5joh36i3BN3knjpF69xM7mYK G3XUwL/3fD0Q Zox1NUebRQ6VEGdFvutWi1Pzch6ei4MfHFrSXr/W62sG/2w3TW0/71HkbJkL3V97OYgVL /RCu8BJFVtaLcEl2dsc0NzgU5MIq63XBrOzcfUyltfmJsQbHXFC kmxRdLt4S9gSib0KPbqlzrV/tYi/7Lrev4AGnzDLTL0knMfTHx94RePYQn8A09FqyY9eG56/oe7G2XFRJm2ttwj78RYIXd8hynmOsvDLaWBw1A3iwIHuBNyN2B MXXY6kY8VljOgnmCPMmkOo45KKCuf45zrOJ1COG0TcrDTebS3h O54MLdmdkb3JHxXwwLHdaNljbBY5obhdIsMaC22r0P8lzfcJQH CyXu0oqdrGUd5mZ2qHYZTLy/xxW8OcR5bAm4 plbe1saGexsXxloiSe0bDsXYhkNW6D9S5nrkHnq1pb6OyMoT7F vNQi849n4YZkN8sU5HguLrX7hy4v3VU/MO7cTFt15SlDjH46KtWV64tYIIePsXO5vmOCCptkjG6hkt3J4v BpcwnXDojnEnrLEA90OptYALJpZyMCvIS20S D/pOXKOaNaqn53OQ7SEOgBa1ial5cwbZe2 y S6mrUBiK5z6Tu7ZW4Y8IyOjRKtHWB0oI/ALgKIjGTwD Crt52aaTCM2Dgy1qEBXmUnXYuseCzTzgudi1vLJDN5EewkHFjY z86tIW4 plZegPjbzy5ZmSZYk54tczET wxMneVyd2VYxa0EIh9/qjLvJ0SE/GHfM22ylQII7rIA5VKQ2sV3qX/BitB7yyZmv7O1QSouOPHROdseNzwGymY6wEca/IegrhaFjvChixQbE8nnHxJGOQPdGdc85rnCPiAPe2fGXeDvDpB HHYueFehlus/mXQ9JFg2hikyQlVf/M1 7ahKG2IDXqET 7gpFeWtzM68FWl6xQpJt4Bc45DkgEmdT1L1X9qRxdxYH5h58tZ nzKxWaVGSkxS4K/q N V0ovgFq8cXCXiDH UuDUhcHpL y8toUu4u2PXInjZNPtZIGj0A9 xY7mebYw4D3lt/o2vRUwqKAwOOECFCxszax4slgx9XhaXdWAtJOgLGEl1KJvtJLN sGGtguu7gRFedtamtN3R122RBJt4H02EPYWOZrAB3u9 z c55m2frbiz5/aWlqIzPwpz7h/cVHwz9ZmdyaOb4988W0H4h 5Ef4ps1wvOPS65TkIvrQWOhr7Ql6zAge49XzTGsnYsqJV1UiYE xAQ6DyGikZ1QNlg1U/gtSovvJx4IjQXh6q8bW1lN67EuQ25ao0k28Kwl9jtBRf7IWMer JmWtWdD9YPbRFa9KH UhomveUroODkU38B22YV/FRE 2XNdk32GiSaNxb4TchDq1lPkaALOAeBMkDShf1nsn4Shbga8Bq JOPH4n4wm47BF4qqGomRGF1xBBL0m82y8oOr8t 5igK29rY0Pa9jV42HvHFm6tgngTvlXh0TtvltOjrUsLPt5bV9i pjmKRb8iPVmZJQc/II/2Vy GvVygj/RSLvBTzXGWzHSX4l P4DUbdexU7mwL1T7NDEq2R9BcWt9TVEFa6FWqfar9nxNnLMIEG Z2s8C34Dp O/AgJGhRKHGnOrAYO8KIxcVfeHrryAittJcd6jrljB99nu2cFne4 uwW22oV7 8yMDsvVGiz9 vL8olcusFiHxjFgWfsjS7GviMLMJHudhbMd8d/uTPDDvs2yBHQdn17AMUP98BSbeD 87XPYaWJ8YS5bsXNPcFQks7wq69JF kFdMvKBAQ4AzdS42uhoJ/k2BQ3rbW1uyP9l20NEmwhl/j8MAOybHHXmlzNZf4DixYE557YLv4iw9rMtPampuJIvwpfZR2d kHwF N6xPmMlM52UsxykE 1lk16Rho8Am4yANl1McOfZ7hti1y1Msl5exvzb689dshncgxwE URzaTafphSlFROkV8B4MDzW2wUOJwS9apiUt62tQSa5ETH5MvZ s713sxYo8/H1iVwvUd1DRmrCCQ6 KPnuv/NqF5upKogx/StLv/TLD68R4s3jPoeiUcXBjN3AYIbsTzECgjW/vXrNCbs31bWD8WsjugIbyRsXQD7F5GTkfcHzBMQUMAXAkzUeFO 2AQXUCXnOiFoFcNs/ICym5ejfMbG4/tOaRiG77gwh/ebXMxR736iSP8CvdvKYp W/p/X9Q8StXjJYt6uST7 89/m b2rdPAv9yHFAWOkAUMlfoMQD16Syb0ANEuLrvXrZEEzxGlcd1Z h6hXbbhH0TQVz8hAR1lcadtXhaC7AvrT7nzw9m6H6 HPwDFoLqSrZJC0LATlZUf0w8mLzgOuWMNt1nt2SAYmvjDydTFD 3XtLwq1EWyMLP94Dgl/5L19XpyWrypStzTo2BFoa6msKskVnTt3cvPSPKY6/ YxO8B5W6DcEhLpS736oW0 Jc48CR1gXLrtXHHuLT3zS1qr/o2xdQoeAqv0pB3 ZnO01LTLwYU/CwtPujwIGgHza50LXnefJQcpTHl1oU97WJlXOp 9esOuJP2SGi2 eA3y3DT7t4GqB gwsXuAh3rWmCOjvsQPFpz5V/vVTZcrVutxHjdLipjJlc1VFc2W5qlRRX1xQ/eC24vwv cfeS92xJmnltIQF/ilhtjkBcFdX6t0fhLqoq3mxsym8pWYPH6sAshtna553cFdrg55 vLXcxIKjQ kWskcK4ivQSfi849y1jz2STgqC8mqjpb4u6/09F x7dUS j zhQ75FjvjOgxmIUlG/QZK5E8SbFhTt31z0yd6io Ijr8v/vKw5Jsj6PefSb4/Jv46uuj4wbwPX8/c99LDrcserA7PnONaGDoGFISa69kHdbMAUl7kaJJjD2/o3bIhZDfrza0s34D N4MsvIL0ChgE7DVbwqWYeQxPL5I8/Sl3cx3KC2ipq8359MAF5wH4nu9dW/iFYdnYzoPI0QS XuxiDqQT9eyLBo UzHEuXj25ePMi8a614jdfFO/fDJJoX5Ro58qiDbNEi33E4VaSwGFSnwFSr75YnAs1V RkAkJpEFADZQfB9TVrJN6xd97B1zpz 7JQrgKEzAWHe84E/4FwF/3eizCpw56BeXVTatKJfrhZKzfM/gbFrdtkfvYzgMIUQuwnV gvxIQ/7pawBDYvRcKVNV3IBowBA0cjgYNRwOGor5wGxeorRREuEBw3Xp KXODeAohzgYJnYaHuHVv4KMUVK Sa5wjxiU9a9f1qtCeU9pcoBN0V BsjKC8BJ XFaC1Nik9cHHrByhR/yQIEv0Aucf0F6lnkCCUYiCmIYTEVNseEuD2Bf4Pw1sUMfCp2Mg XBMpDsXHv4AAMwAkwl2yAJ1kiclUnyHO/S2D8786SwgICAQDeHu/JCGmSSzA/2XPIaedES7gkAuQSiCeLfdExDcxzg/TcgqUCFRUQyAXIM/oIEDhZiGYBSgyD3kT0siGtuojUMda 6D8l a1t9t31uV0BAQMBA8FNeSHNz a3Eu1tXXXAbfNEK6u8NG SWLXzmFyjpQ wWHFBhoK3kBI6A6Bh8BDKAbCDzbVsYOF 3RuKtkCvO/dOiFpZfv8z2u5YCAgICfyf4Ky9GS0N96fXYezvXXw4Yf8HKNBa T4CQbGMACSQWRLNBWkO61J/BvcBB8lGJDCO5VKyTWyuSqz6j7m5eXxP7ZUtstvwpHQEBAwAjo qbw4rU1NNTmPCr46krJ PpRgu54XLYGewjAWCGuCNUxAZEG6hh0Bx8Gnl 0srvqNub1qesGxQ9UP77Y2NhDmBAQEBJ4OOqW8HcA30/KypH dyf7XgbtbViZGhCRMd4 faB8XZBkfaHkl1C5hmtuNhYH3Xo7M/nCv9Pcfa7IetNRw i01AQEBgb8fhlFeCs3NzdVVqhJ5vbigNjejNudRXVGeSiGDD fqerdYQEBA4GnACMorICAgIKCFtrb/B9NMg8iXYVpmAAAAAElFTkSuQmCC

[mehdi_fiz]

با سلام و احترام خدمت استاد عزیز این گزارش قرار است در نمای فرم قابل مشاهده باشد؟ چون این گزارش در نمای گزارش راحت تر قابل کنترل است. در تصاویر زیر بر اساس نوع دفتری که کاربر انتخاب می کند (کل-معین-تفضیلی) گزارش محدود می شود و گروه مورد نظر در گزارش قابل مشاهده می شود.




155347

155350

155349

155348

[eb_1345]

این گزارش قرار است در نمای فرم قابل مشاهده باشد؟ چون این گزارش در نمای گزارش راحت تر قابل کنترل است. در تصاویر زیر بر اساس نوع دفتری که کاربر انتخاب می کند (کل-معین-تفضیلی) گزارش محدود می شود و گروه مورد نظر در گزارش قابل مشاهده می شود.

سلام
اطلاعات این نوع گزارش از جدول یا کوئری مربوطه به اکسل ارسال و در فایل اکسل نمایش داده میشه .به همین خاطر دیگر لزومی به نمایش آن در فرم وجود نداره
تهیه گزارشات مقایسه ای تا حدودی بصورت ماتریسی انجام میشه
به تصویر ضمیمه توجه بفرما!
مثلاً در حالت دو سطحی در مقابل هر گزینه(عنصر) ستون اول پنج گزینه از ستون دوم قابل انتخاب میباشد(گزینه هم نام تکراریست و قابل انتخاب نمیباشد) . و بر عکس در مقابل هر گزینه ستون دوم پنج گزینه از ستون اول قابل انتخاب میباشد. در واقع در دو سطحی 30 حالت وجود دارد
و همینطور در سه سطحی در مقابل هر گزینه از ستون اول 5 گزینه از ستون سطح دوم و 4 گزینه از ستون سطح سوم قابل انتخاب میباشد

[mazoolagh]

در همین جا از دوستان عزیز خواهش می کنم در این تاپیک از ایجاد پستهای با مطالب حاشیه ای و غیر مرتبط خودداری فرمایند
با تشکر

سلام و روز خوش
امیدوارم این پست آف تاپیک محسوب نشه.

دیشب این تاپیک رو دیدم - و اینجور به نظر اومد که دو مورد مد نظر شما بوده:
1- ساخت یک لیست یا array یا ... از سطوح انتخابی که a: تکراری هم نباشه و b: انتهای اون با "هیچکدام" مشخص بشه
2- ساخت یک جدول/کوئری بر اساس مورد بالا

مورد اول رو که گویا حل شده-
ولی اگر اجازه بدین بابت تکمیل بحث دو روش دیگه رو هم من اضافه کنم.

ولی مورد دوم رو درست متوجه نشدم:

توجه به ستون شماره سطح شماره های ستون ردیف رو به چه صورتی باید تغییر داد که رکوردها بر اساس سطوح انتخاب شده زیر هم قرار بگیرند
در کد پست شماره 6 درون حلقه ای که روی همه رکوردها میچرخه برای همه سطوح (6 تا) یک insert دارین،
یعنی جدول جدید شما باید بدون توجه به انتخاب سطوح، دیتا هر 6 سطح رو بیاره یا من اشتباه میکنم.

این رو اگر یک مثال تصویری روی دیتا نمونه با یک انتخاب نمونه مشخص کنین ممنون میشم.
شاید اصلا راه دیگه ای براش باشه.

[mazoolagh]

برای ساخت یک سری انتخاب با تعداد نامعین و غیرتکراری با حفظ ترتیب، یک راه استفاده از collection هست.
در collection میتونیم از key برای هر item استفاده کنیم و به طور خودکار خودش اجازه کلید تکراری نمیده (error صادر میشه که اونو تشخیص میدیم).

بر همین اساس، یک طراحی ممکن فرم Frm_Comparative_Reports میتونه به صورت زیر باشه:
1- اول یک جدول برای اولویت ها میسازیم
155359

از این جدول به عنوان row source کمبوها استفاده میکنیم، این کار به ما اجازه میده نگهداری برنامه و کدنویسی ساده تر باشه.
فقط در اولویت اول (کمبو CbPriority1) مقدار "هیچکدام" نباید باشه پس :
SELECT PriorityID, Priority
FROM Priorities
WHERE PriorityID<99

برای رفرنس دادن به هر کمبو، یک تابع مینویسیم که که با گرفتن اندیس کمبو، اون رو برگردونه:
Private Function Priority(i As Integer) As ComboBox
Set Priority = Me.Controls("CbPriority" + Trim(i))
End Function
این کار به ما اجازه میده علاوه بر کدنویسی ساده تر، برنامه رو هم قابل انعطاف کنیم جوری که با تغییر تعداد اولویت ها (کمبوها) کد برنامه تغییر نمیکنه.

برای هر کمبو نیاز هست که اگر "هیچکدام" انتخاب شد، کمبوهای بعدی هم به "هیچکدام" تغییر پیدا کنن،
این رو هم براش یک کد عمومی مینویسیم به afterupdate کمبو نسبت میدیم:
Public Function Check_None(N As Integer)
Dim j As Integer
If Priority(N) < 99 Then Exit Function
For j = N + 1 To CombosCount
Priority(j) = 99
Next
End Function

حالا در form_load همزمان با مقداردهی خودکار به کمبوها،
این تابع رو به afterupdate اونها نسبت میدیم:
Private Sub Form_Load()
For i = 1 To CombosCount
Priority(i).value = i
Priority(i).AfterUpdate = "=Check_None(" & i & ")"
Next
End Sub

حالا 2 تا collection تعریف میکنیم، یکی برای IDها و یکی هم اسم اولویت ها (هر کدوم که نیاز نیست میشه حذف کرد)،
و در یک حلقه یکی یکی از کمبوها مقدار رو میخونیم و به این کالکشن ها اضافه میکنیم تا زمانی که به تکراری برسیم (خطا)
یا به "هیچکدام" برسیم یعنی پایان لیست:
Sub GetPriorities()
Set IDs = New Collection
Set Texts = New Collection
On Error GoTo Duplicate
For i = 1 To CombosCount
P_ID = Priority(i).value
P_Text = Priority(i).Column(1)
If P_ID = 99 Then Exit For
IDs.Add P_ID, CStr(P_ID)
Texts.Add P_Text, P_Text
Next
Exit Sub
Duplicate:
MsgBox P_Text, vbExclamation, "اولویت تکراری"
End Sub

نمونه این فرم رو در برنامه پیوست پست های بعدی که روش دوم رو هم در برمیگیره میتونین ببینین.

[mazoolagh]

یک روش دیگه استفاده از لیست باکس برای نمایش اولویت ها هست که به صورت خودکار نیاز به چک برای تکراری بودن رو برطرف میکنه.
فقط کافی هست مقدار "هیچکدام" هیچوقت به بالای لیست نرسه:
155360

Option Compare Database
Option Explicit


Private i As Integer
Private P_ID As Integer
Private P_Text As String
Private IDs As Collection
Private Texts As Collection
Private None As String


Private Sub Form_Load()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Priority FROM Priorities ORDER By PriorityID")
Do Until rs.EOF
Me.LB_Priorities.AddItem rs("Priority")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me.LB_Priorities = Me.LB_Priorities.ItemData(0)
None = Me.LB_Priorities.ItemData(Me.LB_Priorities.ListCou nt - 1)
End Sub


Private Sub BTN_Down_Click()
Dim index As Integer
With Me.LB_Priorities
index = .ListIndex
If index = .ListCount - 1 Then Exit Sub
Dim vlu As String
vlu = .value
.RemoveItem (index)
.AddItem vlu, index + 1
.value = vlu
End With
End Sub


Private Sub BTN_Up_Click()
Dim index As Integer
Dim vlu As String
With Me.LB_Priorities
index = .ListIndex
If index = 0 Then Exit Sub
vlu = .value
If (index = 1 And vlu = None) Then Exit Sub
.RemoveItem (index)
.AddItem vlu, index - 1
.value = vlu
End With
End Sub


Private Sub CmdRunCode_Click()
GetPriorities
For i = 1 To Texts.Count
Debug.Print Texts(i), IDs(i)
Next
End Sub


Sub GetPriorities()
Set IDs = New Collection
Set Texts = New Collection
For i = 1 To Me.LB_Priorities.ListCount
P_Text = Me.LB_Priorities.ItemData(i - 1)
If P_Text = None Then Exit Sub
P_ID = DLookup("PriorityID", "Priorities", "Priority='" & P_Text & "'")
Texts.Add P_Text, P_Text
IDs.Add P_ID, CStr(P_ID)
Next
End Sub

این فرم در برنامه پیوست به اسم Frm_Comparative_Reports_2 آمده.

[eb_1345]

دیشب این تاپیک رو دیدم - و اینجور به نظر اومد که دو مورد مد نظر شما بوده:
1- ساخت یک لیست یا array یا ... از سطوح انتخابی که a: تکراری هم نباشه و b: انتهای اون با "هیچکدام" مشخص بشه
2- ساخت یک جدول/کوئری بر اساس مورد بالا

مورد اول رو که گویا حل شده-
ولی مورد دوم رو درست متوجه نشدم:

سلام و درود فراوان خدمت دوست عزیز و استاد بزرگ خودم!
بسیار ممنون و سپاسگزارم از عنایت و پیگیری ای که در خصوص این تاپیک داشته این
همونطور که جنابعالی هم اشاره نمودی برای بدست آوردن لیست سطوح انتخابی که قابل تکرار هم نباشد با استفاده از کدهای پست 2 و 3 مشکل برطرف شده و مشکل اصلی اینجا بود که حالا که سطوح انتخابی مشخص شده بر اساس ترتیب این سطوح به چه صورتی رکوردهای تجمیعی ثبت شده حسابها رو در زیر هم مرتب نمایم
خوشبختانه طی یکی دو روز گذشته تا حدود زیادی موفق شدم این مشکل ترتیب رکوردهای تجمیعی بر اساس ترتیب سطوح انتخابی هم رفع نمایم(البته در فایل اصلی برنامه)
اما از آنجائیکه که ممکن است هنوز بعضی از دوستان در خصوص این نوع گزارش و هدف از تهیه آن ابهام داشته باشند مایلم یک توضیح مختصری بشرح زیر ارائه نمایم :
در حسابداری برای اینکه رویدادهای فراوان و متنوع مالی رو با نظم و ترتیب خاصی دسته بندی کنیم از کدینک حسابها استفاده می کنیم . کدینگ در لفظ به معنای شماره گذاری است و مفهوم آن در حسابداری اینست که حسابها رو کد گذاری کنیم. ساختار استاندارد کدینگ در حسابداری در 4 سطح شامل گروه حسابها ، حسابهای کل ، حسابهای معین و حسابهای تفصیلی میباشد .با این شرح مختصر از کدینگ حسابها حالا سوال اینست که با استفاده از کدینگ حسابها چه نوع گزارشی رو میخواهیم تهیه کنیم .
فرض کنید یک شرکت در طی سال مالی یا سال های مالی خود رویدادهای مالی زیاد و متنوعی رو ثبت کرده . حالا بنده نوعی بعنوان مدیر مالی میخواهم خلاصه این رویدادهای مالی که ممکن است شامل هزاران رکورد باشد بصورت تجمیعی و در سطوح کدینگ حسابها مشاهده و ارقام آن را برای ماهها و سال های انتخابی مقایسه کنم .
بعنوان نمونه بنده 3 تصویر از مراحل تهیه این گزارش در ضمیمه قرار داده ام .
ابتدا در فرم بر اساس فیلترهای مورد نظر مشخص کرده ام که میخواهم گزارش تجمیعی حسابهای ثبت شده رو در سه سطح به ترتیب گروه » کل » معین برای من تهیه کند . یعنی چی ؟ یعنی اینکه من بر اساس کدهایی که برای این گزارش بکار برده ام میخواهم در وحله اول تمام رکوردهای ثبت شده در گروه های مربوطه جمع زده شود و بعنوان اولین سطح در جدول قرار بگیرد ، در مرحله بعد میخواهم تمام حساب های کل زیر مجموعه گروههای مربوطه که در سطح یک قرار گرفته اند جستجو بشه باهم تجمع شوند و بعنوان سطح دوم در زیر گروه مربوط به خودش قرار بگیرد و بالاخره در مرحله سوم میخواهم تمام حسابهای معین زیر مجموعه هر حساب کل رو جستجو ، تجمیع و بعنوان سطح سوم در زیر حسابهای کل مربوطه قرار بگیرد .
در تصویر سوم که خروجی گزارش در فایل اکسل میباشد گروه حسابها که دو رقمی میباشد در سطح اول ، حسابهای کل هر گروه که 4 رقمی میاشد در سطح 2 و حسابهای معین زیر مجموعه هر حساب کل که 7 رقمی میباشد در سطح 3 مرتب شده اند.

[eb_1345]

فرمت عددی نمونه گزارش خروجی پست بالا بصورت تصویر ضمیمه اصلاح کردم

[eb_1345]

ویک نمونه گزارش چهار سطحی معین» کل » گروه » مرکز هزینه

[eb_1345]

و یک نمونه سه سطحی گروه » کل » معین در حالت انباشته

[mazoolagh]

سلام و درود فراوان خدمت دوست عزیز خودم!
بسیار ممنون و سپاسگزارم از عنایت و پیگیری ای که در خصوص این تاپیک داشته این

سلام دوباره

به نوبه خودم تشکر میکنم از این که با وجود گرفتاری و مشغله ای که دارین اینجور دقیق و مفصل مطلب رو توضیح دادین،
بسیار سودمند بود و الان کاملا متوجه شدم موضوع رو.
برای من این شکل گزارش کمی مبهم بود چون تا بحال ندیده بودم که گزارش عملکرد فرمتی غیر از top-down داشته باشه (پست 15).
یعنی این که فرضا در گزارش عملکرد سطح پایینتر پیش از سطح بالاتر بیاد (پست 16) دست کم برای من یکی جالب و نو بود.

البته باید اذعان کنم من فقط یک بار برنامه حسابداری نوشتم (اون هم سال 69-70) و تحت dos و نه با foxpro !

و این که از روی تصاویر پیوست مشخص هست که خواسته هم برآورده شده.

براتون آرزوی موفقیت بیشتر دارم و امیدوارم از مطالب و نکات مفید و آموزنده ای که میگذارین بازهم استفاده کنم (مثل همیشه).

[eb_1345]

براتون آرزوی موفقیت بیشتر دارم و امیدوارم از مطالب و نکات مفید و آموزنده ای که میگذارین بازهم استفاده کنم (مثل همیشه).
وقت عالی متعالی استاد گرامی!
سپاسگزارم!
بنده هم متقابلاً برای جنابعالی سلامتی و سعادت و عاقبت بخیری رو از خداوند بزرگ خواستارم