hi all,
i need your help to distribution vlaue between 2 date as
if my value =$100 and i want to distribution to 12 months start at 10/07/2006 to 10/07/2007 , from 10/07/2006 to 31/07/2006 value=5.833,
from 01/08/2006 to 31/08/2006=8.333 ,month 9=8.333 to month6/2007=8.333,
from 1/07/2007 to 10/07/2007 value=2.5000... this is for 1 year,
but i need to do that between 2 date ex.. for 6 month , 8 ,10, 4 14,16 months or for 2 years? i need it to distribution as a bove...
many yers ago i do that via complex and long code for 1 year only as under..
DEFINE CLASS dis AS form
Top = 0
Left = 0
Height = 465
Width = 793
ShowWindow = 2
DoCreate = .T.
Caption = " "
ControlBox = .F.
DrawStyle = 5
BackColor = RGB(217,217,255)
Name = "form1"
ADD OBJECT text1 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = 0, ;
Format = "R", ;
Height = 24, ;
InputMask = "999999.999", ;
Left = 492, ;
TabIndex = 3, ;
Top = 67, ;
Width = 108, ;
Name = "Text1"
ADD OBJECT text3 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = {}, ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 76, ;
TabIndex = 2, ;
Top = 26, ;
Width = 109, ;
Name = "Text3"
ADD OBJECT text4 AS textbox WITH ;
Alignment = 3, ;
Value = {}, ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 84, ;
TabIndex = 5, ;
Top = 72, ;
Width = 100, ;
Name = "Text4"
ADD OBJECT text5 AS textbox WITH ;
FontBold = .T., ;
FontSize = 12, ;
FontCondense = .T., ;
Alignment = 2, ;
Value = "", ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 372, ;
TabIndex = 1, ;
Top = 22, ;
Width = 287, ;
Name = "Text5"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 353, ;
Left = 276, ;
Height = 55, ;
Width = 180, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "ÇÖÛØ ááÊÎÒíä SAVE", ;
TabIndex = 6, ;
Name = "Command1"
ADD OBJECT label1 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "ÇÓã ÇáãÎÕÕ", ;
Height = 19, ;
Left = 684, ;
Top = 24, ;
Width = 77, ;
TabIndex = 7, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
DisabledForeColor = RGB(255,128,255), ;
DisabledBackColor = RGB(255,128,192), ;
Name = "Label1"
ADD OBJECT label2 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "ÊÇÑíÎ ÇáÈÏÁ ÈÇáÊæÒíÚ", ;
Height = 20, ;
Left = 190, ;
Top = 28, ;
Width = 117, ;
TabIndex = 8, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label2"
ADD OBJECT label3 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "ÇáÞíãÉ ÇáßÇãáÉ", ;
Height = 17, ;
Left = 636, ;
Top = 72, ;
Width = 77, ;
TabIndex = 9, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label3"
ADD OBJECT text2 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 24, ;
InputMask = "", ;
Left = 375, ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 124, ;
Width = 96, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text2"
ADD OBJECT text6 AS textbox WITH ;
FontBold = .T., ;
Alignment = 3, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 477, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 124, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text6"
ADD OBJECT text7 AS textbox WITH ;
FontBold = .T., ;
Alignment = 3, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 477, ;
ReadOnly = .T., ;
TabIndex = 11, ;
Top = 153, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text7"
ADD OBJECT text8 AS textbox WITH ;
FontBold = .T., ;
Alignment = 3, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 477, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 180, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text8"
ADD OBJECT text9 AS textbox WITH ;
FontBold = .T., ;
Alignment = 3, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 477, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 206, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text9"
ADD OBJECT text10 AS textbox WITH ;
FontBold = .T., ;
Alignment = 3, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 477, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 230, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text10"
ADD OBJECT text11 AS textbox WITH ;
FontBold = .T., ;
Alignment = 3, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 477, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 257, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text11"
ADD OBJECT text12 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 185, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 124, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text12"
ADD OBJECT text13 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 185, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 151, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text13"
ADD OBJECT text14 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 185, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 178, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text14"
ADD OBJECT text15 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 185, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 203, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text15"
ADD OBJECT text16 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 185, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 230, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text16"
ADD OBJECT text17 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 185, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 255, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text17"
ADD OBJECT text18 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 185, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 280, ;
Width = 48, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text18"
ADD OBJECT text20 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 375, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 153, ;
Width = 96, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text20"
ADD OBJECT text21 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 375, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 180, ;
Width = 96, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text21"
ADD OBJECT text22 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 375, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 206, ;
Width = 96, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text22"
ADD OBJECT text23 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 375, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 230, ;
Width = 96, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text23"
ADD OBJECT text24 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 375, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 258, ;
Width = 96, ;
BackColor = RGB(255,255,255), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text24"
ADD OBJECT text25 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 84, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 124, ;
Width = 96, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text25"
ADD OBJECT text26 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 84, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 151, ;
Width = 96, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text26"
ADD OBJECT text27 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 84, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 178, ;
Width = 96, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text27"
ADD OBJECT text28 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 84, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 202, ;
Width = 96, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text28"
ADD OBJECT text29 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 84, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 229, ;
Width = 96, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text29"
ADD OBJECT text30 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 84, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 255, ;
Width = 96, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text30"
ADD OBJECT text31 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 84, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 280, ;
Width = 96, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Text31"
ADD OBJECT text19 AS textbox WITH ;
Height = 23, ;
Left = 0, ;
Top = 353, ;
Width = 100, ;
Name = "Text19"
ADD OBJECT label4 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "", ;
Height = 17, ;
Left = 480, ;
Top = 98, ;
Width = 36, ;
TabIndex = 7, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label4"
ADD OBJECT label5 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "ÇáÞíãÉ", ;
Height = 17, ;
Left = 399, ;
Top = 99, ;
Width = 36, ;
TabIndex = 7, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label5"
ADD OBJECT label6 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "", ;
Height = 17, ;
Left = 191, ;
Top = 99, ;
Width = 36, ;
TabIndex = 7, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label6"
ADD OBJECT label7 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "ÇáÞíãÉ", ;
Height = 17, ;
Left = 113, ;
Top = 99, ;
Width = 36, ;
TabIndex = 7, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label7"
ADD OBJECT text32 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 523, ;
ReadOnly = .T., ;
Top = 124, ;
Width = 68, ;
BackColor = RGB(255,0,0), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text32"
ADD OBJECT text33 AS textbox WITH ;
Alignment = 0, ;
Height = 23, ;
Left = 0, ;
Top = 329, ;
Width = 100, ;
Name = "Text33"
ADD OBJECT text34 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 523, ;
ReadOnly = .T., ;
Top = 153, ;
Width = 68, ;
BackColor = RGB(255,0,0), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text34"
ADD OBJECT text35 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 523, ;
ReadOnly = .T., ;
Top = 180, ;
Width = 68, ;
BackColor = RGB(255,0,0), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text35"
ADD OBJECT text36 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 523, ;
ReadOnly = .T., ;
Top = 206, ;
Width = 68, ;
BackColor = RGB(255,0,0), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text36"
ADD OBJECT text37 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 523, ;
ReadOnly = .T., ;
Top = 230, ;
Width = 68, ;
BackColor = RGB(255,0,0), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text37"
ADD OBJECT text38 AS textbox WITH ;
FontBold = .T., ;
Alignment = 2, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 523, ;
ReadOnly = .T., ;
Top = 257, ;
Width = 68, ;
BackColor = RGB(255,0,0), ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text38"
ADD OBJECT text39 AS textbox WITH ;
FontBold = .T., ;
Alignment = 0, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 230, ;
ReadOnly = .T., ;
Top = 124, ;
Width = 68, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text39"
ADD OBJECT text40 AS textbox WITH ;
FontBold = .T., ;
Alignment = 0, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 230, ;
ReadOnly = .T., ;
Top = 151, ;
Width = 68, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text40"
ADD OBJECT text41 AS textbox WITH ;
FontBold = .T., ;
Alignment = 0, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 230, ;
ReadOnly = .T., ;
Top = 178, ;
Width = 68, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text41"
ADD OBJECT text42 AS textbox WITH ;
FontBold = .T., ;
Alignment = 0, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 230, ;
ReadOnly = .T., ;
Top = 203, ;
Width = 68, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text42"
ADD OBJECT text43 AS textbox WITH ;
FontBold = .T., ;
Alignment = 0, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 230, ;
ReadOnly = .T., ;
Top = 230, ;
Width = 68, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text43"
ADD OBJECT text44 AS textbox WITH ;
FontBold = .T., ;
Alignment = 0, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 230, ;
ReadOnly = .T., ;
Top = 255, ;
Width = 68, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text44"
ADD OBJECT text45 AS textbox WITH ;
FontBold = .T., ;
Alignment = 0, ;
Value = "", ;
Enabled = .F., ;
Format = "", ;
Height = 23, ;
InputMask = "", ;
Left = 230, ;
ReadOnly = .T., ;
Top = 280, ;
Width = 68, ;
DisabledBackColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,0,128), ;
Name = "Text45"
ADD OBJECT label8 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "", ;
Height = 17, ;
Left = 531, ;
Top = 98, ;
Width = 36, ;
TabIndex = 7, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label8"
ADD OBJECT label9 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "", ;
Height = 17, ;
Left = 239, ;
Top = 99, ;
Width = 36, ;
TabIndex = 7, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label9"
ADD OBJECT line1 AS line WITH ;
BorderWidth = 2, ;
Height = 0, ;
Left = -1, ;
Top = 120, ;
Width = 793, ;
BorderColor = RGB(255,0,128), ;
Name = "Line1"
ADD OBJECT line2 AS line WITH ;
BorderWidth = 2, ;
Height = 0, ;
Left = -2, ;
Top = 96, ;
Width = 782, ;
BorderColor = RGB(255,0,128), ;
Name = "Line2"
ADD OBJECT combo1 AS combobox WITH ;
FontBold = .T., ;
FontSize = 12, ;
ColumnCount = 0, ;
ColumnWidths = "", ;
RowSourceType = 6, ;
RowSource = "pay.nam", ;
FirstElement = 1, ;
Height = 24, ;
Left = 661, ;
NumberOfElements = 0, ;
Top = 22, ;
Width = 21, ;
Name = "Combo1"
ADD OBJECT command6 AS commandbutton WITH ;
Top = 372, ;
Left = 36, ;
Height = 27, ;
Width = 84, ;
FontBold = .T., ;
Caption = "EXIT ÎÑæÌ", ;
TabIndex = 7, ;
Name = "Command6"
ADD OBJECT label10 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "Total Value", ;
Height = 18, ;
Left = 624, ;
Top = 55, ;
Width = 101, ;
TabIndex = 9, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label10"
ADD OBJECT label11 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "choice name", ;
Height = 19, ;
Left = 624, ;
Top = 3, ;
Width = 156, ;
TabIndex = 7, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
DisabledForeColor = RGB(255,128,255), ;
DisabledBackColor = RGB(255,128,192), ;
Name = "Label11"
ADD OBJECT label12 AS label WITH ;
FontBold = .T., ;
FontSize = 12, ;
Alignment = 2, ;
Caption = "DISTRIPUDE DATE", ;
Height = 20, ;
Left = 188, ;
Top = 7, ;
Width = 160, ;
TabIndex = 8, ;
ForeColor = RGB(255,255,255), ;
BackColor = RGB(128,128,192), ;
Name = "Label12"
PROCEDURE Activate
select 1
use tab2
select 2
use pay
thisform.text4.visible= .f.
thisform.text31.visible= .f.
thisform.text18.visible= .f.
thisform.text19.visible= .f.
thisform.text33.visible= .f.
thisform.text45.visible= .f.
ENDPROC
PROCEDURE text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
m.ba=thisform.text1.value
select 1
if nkeycode=13
m.vv=30-day(thisform.text3.value)+1
thisform.text2.value=(thisform.text1.value*m.vv)/360
thisform.text4.value=year(thisform.text3.value)
m.aa=(thisform.text1.value*30)/360
m.a=month(thisform.text3.value)
thisform.text20.value=m.aa
thisform.text21.value=m.aa
thisform.text22.value=m.aa
thisform.text23.value=m.aa
thisform.text24.value=m.aa
thisform.text25.value=m.aa
thisform.text26.value=m.aa
thisform.text27.value=m.aa
thisform.text28.value=m.aa
thisform.text29.value=m.aa
thisform.text30.value=m.aa
thisform.text31.value=thisform.text2.value+thisform.text20.value+thisform.text21.value+thisform.text22.value+thisform.text23.value+thisform.text24.value+;
thisform.text25.value+thisform.text26.value+thisform.text27.value+thisform.text28.value+thisform.text29.value+thisform.text30.value
thisform.text31.value=m.ba-thisform.text31.value
for i= 1 to 11
m.a=m.a+1
thisform.text6.value=m.a
if m.a >12
m.a=1
thisform.text4.value=thisform.text4.value+1
else
thisform.text4.value=thisform.text4.value
endif
endfor
m.a=m.a+1
thisform.text6.value=m.a
if month(thisform.text3.value)=1
thisform.text4.value=year(thisform.text3.value)
thisform.text6.value=1
thisform.text7.value=2
thisform.text8.value=3
thisform.text9.value=4
thisform.text10.value=5
thisform.text11.value=6
thisform.text12.value=7
thisform.text13.value=8
thisform.text14.value=9
thisform.text15.value=10
thisform.text16.value=11
thisform.text17.value=12
thisform.text18.value=1
thisform.text32.value=year(thisform.text3.value)
thisform.text34.value=year(thisform.text3.value)
thisform.text35.value=year(thisform.text3.value)
thisform.text36.value=year(thisform.text3.value)
thisform.text37.value=year(thisform.text3.value)
thisform.text38.value=year(thisform.text3.value)
thisform.text39.value=year(thisform.text3.value)
thisform.text40.value=year(thisform.text3.value)
thisform.text41.value=year(thisform.text3.value)
thisform.text42.value=year(thisform.text3.value)
thisform.text43.value=year(thisform.text3.value)
thisform.text44.value=year(thisform.text3.value)
thisform.text45.value=year(thisform.text3.value)
else
if thisform.text6.value=12
thisform.text7.value=1
thisform.text8.value=2
thisform.text9.value=3
thisform.text10.value=4
thisform.text11.value=5
thisform.text12.value=6
thisform.text13.value=7
thisform.text14.value=8
thisform.text15.value=9
thisform.text16.value=10
thisform.text17.value=11
thisform.text18.value=12
thisform.text32.value=year(thisform.text3.value)
thisform.text34.value=year(thisform.text3.value)+1
thisform.text35.value=year(thisform.text3.value)+1
thisform.text36.value=year(thisform.text3.value)+1
thisform.text37.value=year(thisform.text3.value)+1
thisform.text38.value=year(thisform.text3.value)+1
thisform.text39.value=year(thisform.text3.value)+1
thisform.text40.value=year(thisform.text3.value)+1
thisform.text41.value=year(thisform.text3.value)+1
thisform.text42.value=year(thisform.text3.value)+1
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text32.value=year(thisform.text3.value)
thisform.text7.value=thisform.text6.value+1
if thisform.text7.value=12
thisform.text8.value=1
thisform.text9.value=2
thisform.text10.value=3
thisform.text11.value=4
thisform.text12.value=5
thisform.text13.value=6
thisform.text14.value=7
thisform.text15.value=8
thisform.text16.value=9
thisform.text17.value=10
thisform.text18.value=11
thisform.text34.value=year(thisform.text3.value)
thisform.text35.value=year(thisform.text3.value)+1
thisform.text36.value=year(thisform.text3.value)+1
thisform.text37.value=year(thisform.text3.value)+1
thisform.text38.value=year(thisform.text3.value)+1
thisform.text39.value=year(thisform.text3.value)+1
thisform.text40.value=year(thisform.text3.value)+1
thisform.text41.value=year(thisform.text3.value)+1
thisform.text42.value=year(thisform.text3.value)+1
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text8.value=thisform.text7.value+1
thisform.text34.value=year(thisform.text3.value)
if thisform.text8.value=12
thisform.text9.value=1
thisform.text10.value=2
thisform.text11.value=3
thisform.text12.value=4
thisform.text13.value=5
thisform.text14.value=6
thisform.text15.value=7
thisform.text16.value=8
thisform.text17.value=9
thisform.text18.value=10
thisform.text35.value=year(thisform.text3.value)
thisform.text36.value=year(thisform.text3.value)+1
thisform.text37.value=year(thisform.text3.value)+1
thisform.text38.value=year(thisform.text3.value)+1
thisform.text39.value=year(thisform.text3.value)+1
thisform.text40.value=year(thisform.text3.value)+1
thisform.text41.value=year(thisform.text3.value)+1
thisform.text42.value=year(thisform.text3.value)+1
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text9.value=thisform.text8.value+1
thisform.text35.value=year(thisform.text3.value)
if thisform.text9.value=12
thisform.text10.value=1
thisform.text11.value=2
thisform.text12.value=3
thisform.text13.value=4
thisform.text14.value=5
thisform.text15.value=6
thisform.text16.value=7
thisform.text17.value=8
thisform.text18.value=9
thisform.text36.value=year(thisform.text3.value)
thisform.text37.value=year(thisform.text3.value)+1
thisform.text38.value=year(thisform.text3.value)+1
thisform.text39.value=year(thisform.text3.value)+1
thisform.text40.value=year(thisform.text3.value)+1
thisform.text41.value=year(thisform.text3.value)+1
thisform.text42.value=year(thisform.text3.value)+1
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text10.value=thisform.text9.value+1
thisform.text36.value=year(thisform.text3.value)
if thisform.text10.value=12
thisform.text11.value=1
thisform.text12.value=2
thisform.text13.value=3
thisform.text14.value=4
thisform.text15.value=5
thisform.text16.value=6
thisform.text17.value=7
thisform.text18.value=8
thisform.text37.value=year(thisform.text3.value)
thisform.text38.value=year(thisform.text3.value)+1
thisform.text39.value=year(thisform.text3.value)+1
thisform.text40.value=year(thisform.text3.value)+1
thisform.text41.value=year(thisform.text3.value)+1
thisform.text42.value=year(thisform.text3.value)+1
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text11.value=thisform.text10.value+1
thisform.text37.value=year(thisform.text3.value)
if thisform.text11.value=12
thisform.text12.value=1
thisform.text13.value=2
thisform.text14.value=3
thisform.text15.value=4
thisform.text16.value=5
thisform.text17.value=6
thisform.text18.value=7
thisform.text38.value=year(thisform.text3.value)
thisform.text39.value=year(thisform.text3.value)+1
thisform.text40.value=year(thisform.text3.value)+1
thisform.text41.value=year(thisform.text3.value)+1
thisform.text42.value=year(thisform.text3.value)+1
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text12.value=thisform.text11.value+1
thisform.text38.value=year(thisform.text3.value)
if thisform.text12.value=12
thisform.text13.value=1
thisform.text14.value=2
thisform.text15.value=3
thisform.text16.value=4
thisform.text17.value=5
thisform.text18.value=6
thisform.text39.value=year(thisform.text3.value)
thisform.text40.value=year(thisform.text3.value)+1
thisform.text41.value=year(thisform.text3.value)+1
thisform.text42.value=year(thisform.text3.value)+1
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text13.value=thisform.text12.value+1
thisform.text39.value=year(thisform.text3.value)
if thisform.text13.value=12
thisform.text14.value=1
thisform.text15.value=2
thisform.text16.value=3
thisform.text17.value=4
thisform.text18.value=5
thisform.text40.value=year(thisform.text3.value)
thisform.text41.value=year(thisform.text3.value)+1
thisform.text42.value=year(thisform.text3.value)+1
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text14.value=thisform.text13.value+1
thisform.text40.value=year(thisform.text3.value)
if thisform.text14.value=12
thisform.text15.value=1
thisform.text16.value=2
thisform.text17.value=3
thisform.text18.value=4
thisform.text41.value=year(thisform.text3.value)
thisform.text42.value=year(thisform.text3.value)+1
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text15.value=thisform.text14.value+1
thisform.text41.value=year(thisform.text3.value)
if thisform.text15.value=12
thisform.text16.value=1
thisform.text17.value=2
thisform.text18.value=3
thisform.text42.value=year(thisform.text3.value)
thisform.text43.value=year(thisform.text3.value)+1
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text16.value=thisform.text15.value+1
thisform.text42.value=year(thisform.text3.value)
if thisform.text16.value=12
thisform.text17.value=1
thisform.text18.value=2
thisform.text43.value=year(thisform.text3.value)
thisform.text44.value=year(thisform.text3.value)+1
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text17.value=thisform.text16.value+1
thisform.text43.value=year(thisform.text3.value)
if thisform.text17.value=12
thisform.text18.value=1
thisform.text44.value=year(thisform.text3.value)
thisform.text45.value=year(thisform.text3.value)+1
else
thisform.text18.value=thisform.text17.value+1
thisform.text44.value=year(thisform.text3.value)
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
if m.a >12
m.a=1
thisform.text4.value=thisform.text4.value+1
endif
if thisform.text31.value > 0
thisform.text31.visible= .t.
thisform.text18.visible= .t.
thisform.text45.visible= .t.
endif
sum amount1 to k for thisform.text5.value=no
m.ba=m.ba-k
endif
ENDPROC
PROCEDURE text5.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode=13
locate for thisform.text5.value=no
if found()
=messagebox("Êã ÇÏÎÇá ÇÓã ÇáãÕÑæÝ ÓÇÈÞÇ")
thisform.command1.visible=.f.
else
thisform.command1.visible=.t.
endif
endif
ENDPROC
PROCEDURE text5.Click
select 1
locate for thisform.text5.value=no
if found()
=messagebox("ÇáÑÞã ãæÌæÏ")
thisform.command1.visible=.f.
else
thisform.command1.visible=.t.
endif
ENDPROC
PROCEDURE command1.Click
select 1
locate for thisform.text5.value=no
if found()
=messagebox("Êã ÇÏÎÇá ÇÓã ÇáãÕÑæÝ ÓÇÈÞÇ")
thisform.command1.visible=.f.
else
thisform.command1.visible=.t.
#DEFINE MSGBOX_YES 6
#DEFINE C_MSGBOX1 36
#DEFINE C_DELETE_LOC "åá ÇäÊ ãÊÃßÏ ãä ÇáãÚáæãÇÊ ááÊÎÒíä?"
m.ba=thisform.text1.value
IF MESSAGEBOX(C_DELETE_LOC,C_MSGBOX1)= MSGBOX_YES
m.vv=30-day(thisform.text3.value)+1
thisform.text2.value=(thisform.text1.value*m.vv)/360
thisform.text4.value=year(thisform.text3.value)
m.aa=(thisform.text1.value*30)/360
m.a=month(thisform.text3.value)
thisform.text20.value=m.aa
thisform.text21.value=m.aa
thisform.text22.value=m.aa
thisform.text23.value=m.aa
thisform.text24.value=m.aa
thisform.text25.value=m.aa
thisform.text26.value=m.aa
thisform.text27.value=m.aa
thisform.text28.value=m.aa
thisform.text29.value=m.aa
thisform.text30.value=m.aa
thisform.text31.value=thisform.text2.value+thisform.text20.value+thisform.text21.value+thisform.text22.value+thisform.text23.value+thisform.text24.value+;
thisform.text25.value+thisform.text26.value+thisform.text27.value+thisform.text28.value+thisform.text29.value+thisform.text30.value
thisform.text31.value=m.ba-thisform.text31.value
append blank
replace no with thisform.text5.value
replace year1 with thisform.text4.value
replace month1 with m.a
replace amount1 with thisform.text2.value
replace total with thisform.text1.value
replace dat with thisform.text3.value
for i= 1 to 11
m.a=m.a+1
if m.a >12
m.a=1
thisform.text4.value=thisform.text4.value+1
endif
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace year1 with thisform.text4.value
replace month1 with m.a
replace amount1 with m.aa
replace dat with thisform.text3.value
endfor
m.a=m.a+1
if m.a >12
m.a=1
thisform.text4.value=thisform.text4.value+1
endif
if thisform.text31.value > 0
thisform.text31.visible= .t.
endif
sum amount1 to k for thisform.text5.value=no
m.ba=m.ba-k
if m.ba<>0
append blank
replace no with thisform.text5.value
replace year1 with thisform.text4.value
replace month1 with m.a
replace amount1 with m.ba
replace total with thisform.text1.value
replace dat with thisform.text3.value
else
if m.ba=0
append blank
replace no with thisform.text5.value
replace year1 with 0
replace month1 with 0
replace amount1 with 0
replace total with 0
replace dat with thisform.text3.value
endif
endif
IF !EOF()
SKIP 1
ENDIF
IF EOF() AND !BOF()
SKIP -1
ENDIF
THISFORM.REFRESH
ENDIF
endif
thisform.text2.value=0
thisform.text20.value=0
thisform.text21.value=0
thisform.text22.value=0
thisform.text23.value=0
thisform.text24.value=0
thisform.text25.value=0
thisform.text26.value=0
thisform.text27.value=0
thisform.text28.value=0
thisform.text29.value=0
thisform.text30.value=0
thisform.text31.value=0
thisform.text32.value=0
thisform.text34.value=0
thisform.text35.value=0
thisform.text36.value=0
thisform.text37.value=0
thisform.text38.value=0
thisform.text39.value=0
thisform.text40.value=0
thisform.text41.value=0
thisform.text42.value=0
thisform.text43.value=0
thisform.text44.value=0
thisform.text45.value=0
thisform.text6.value=0
thisform.text7.value=0
thisform.text8.value=0
thisform.text9.value=0
thisform.text10.value=0
thisform.text11.value=0
thisform.text12.value=0
thisform.text13.value=0
thisform.text14.value=0
thisform.text15.value=0
thisform.text16.value=0
thisform.text17.value=0
thisform.text18.value=0
ENDPROC
PROCEDURE text2.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
ENDPROC
PROCEDURE text19.Click
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text8.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text21.value
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text9.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text22.value
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text10.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text23.value
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text11.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text24.value
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text12.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text25.value
append blank
replace no with thisform.text5.value
replace month1 with thisform.text13.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text26.value
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text14.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text27.value
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text15.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text28.value
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text16.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text29.value
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text17.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text30.value
append blank
replace total with thisform.text1.value
replace no with thisform.text5.value
replace month1 with thisform.text18.value
replace year1 with (thisform.text4.value)
replace amount1 with thisform.text31.value
ENDPROC
PROCEDURE combo1.Click
select 2
thisform.text5.value=nam
ENDPROC
PROCEDURE command6.Click
THISFORM.RELEASE
RELEASE ALL
ENDPROC
ENDDEFINE
thanks.
