ادامه ...
این برنامه را می توانید به نامی دلخواه ذخیره نمائید و بعد آنرا به گزارشات نمایشی و چاپی خود الصاق نمائید .
تنها نکته ای که وجود دارد این است که من مجبور شدم از یک متغیر به نام B1 استفاده کنم و مقدار آنرا برابر صفر قرار دهم و بعد آنرا در فرمهای نمایشی و چاپی در جائی مثل ستون توضیحات و یا سر صفحه و یا پا صفحه گزارشات استفاده کنم چون در غیر این صورت اعمال تغییرات در فیلدهای اطلاعات اصلی که در این برنامه همگی تقسیم بر 3 شده اند انجام نمی شد و سیستم در گزارشات آنها را همچنان با همان مبالغی که با کارکرد 30 روزه حین ثبت حقوق پر کرده بود نشان می داد.
در مورد این قضیه دوستان می توانند بررسی و نتایج خود را در ادامه این پست اعلام نمایند .
بعد از این کارها لازم بود تا فرمولهای که در پست قبلی دیدید در جائی از برنامه SAL.XEX که به شیوه صدور اطلاعات بیمه به DBF استفاده شده است اضافه شود .
برای این کار هم به روش زیر فرمولهای برنامه SAL.XEX را تغییر دادم :
(Mday(k1
;S1 = RYE - 1300
;M1 = RMO
IF MA93 = 1 THEN 10
;a1 = MA105
;a2 = MA97
;a3 = MA33
;a4 = MA32
;a5 = MA90
;a6 = MA91
;a7 = MA94
;a8 = MA95
;a9 = MA3
GOTO 20
10
;a9 = 10
;a4 = MA32
;a3 = MA33 / 3
(Round(a3
;MA33 = a3
;a1 = MA105 / 3
(Round(a1
;MA105 = a1
;a5 = MA90 / 3
(Round(a5
;MA90 = a5
;a2 = MA97 / 3
(Round(a2
;MA97 = a2
;a6 = MA91 / 3
(Round(a6
;MA91 = a6
;a7 = MA94 / 3
(Round(a7
;MA94 = a7
a8 = MA95 / 3
;(Round(a8
;MA95 = a8
;b1 = 0
20
EXIT
در این برنامه MA93 فیلدی است که از معین کننده ای که قبلا توضیح دادم به آن مقداری ارجاع شده است که مقدار 1 برای آن به معنای این است که می خواهیم بیمه آن فرد را با فرضیات این پست ، 10 روزه رد کنیم . برای بقیه افراد که بطور عادی با کارکرد واقعی شان بیمه رد می شود مقدار آنرا می توانیم "معین نشده " باقی بگذاریم .
بعد از ذخیره این برنامه و گرفتن خروجی DBF بیمه می توانید فایلهای ایجاد شده خصوصا فایل DSKWOR00.DBF را در محیط NC با زدن کلیدهای F3 و بعد F4 چک نمائید .