Balance Sheet, Final Accounts, Accounting

Discuss other useful utilities, general computing tips & tricks, Internet resources, etc.
User avatar
smorgasbord
Posts: 493
Joined: 30 Sep 2013, 09:34

Balance Sheet, Final Accounts, Accounting

Post by smorgasbord » 18 Nov 2014, 08:10

anyone good at it?
if possible will make code for it.

just wondering if someone good has already made some kind of related stuff.

Thanks in advance.

All hail Ahkscript.
John ... you working ?

guest3456
Posts: 3453
Joined: 09 Oct 2013, 10:31

Re: Balance Sheet, Final Accounts, Accounting

Post by guest3456 » 04 Dec 2014, 00:58

smorgasbord wrote:just wondering if someone good has already made some kind of related stuff.
yeah, these guys

http://www.freshbooks.com
http://www.xero.com



User avatar
smorgasbord
Posts: 493
Joined: 30 Sep 2013, 09:34

Re: Balance Sheet, Final Accounts, Accounting

Post by smorgasbord » 04 Dec 2014, 02:39

thanks @guest3456 and @garbidge
give me some time.
btw: i want something that helps in learning how balance sheet is prepared.
will post my code at the earliest.
PS: here is my code so far.. not complete yet..please do give inputs and also feel free to change the code,do whatever and post.

Code: Select all

#SingleInstance force
gui, show, Maximize
gui, font, v7
OnMessage(0x200, "WM_MOUSEMOVE")


gui, font, cBlue bold
Gui, Add, Text, cBlue, Dr. 	Trading and Profit and Loss Account for the year ended 31st March, 2014	        Cr.	                 	Balance Sheet of X as on 31st March, 2014

gui, font, 
Gui, Add, Text, x2 section, -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Gui, Add, Text, x23 section, % "	         		Rs.	 |         Rs.	     ||  	  		                                                                            	 Rs.	   |          Rs.	    -||-   		     Liabilities |			- |	Rs.	 || 		Assets |		- | 	Rs."
Gui, Add, Text, x23 y62 section, % " TO Opening Stock                      "
Gui, Add, edit, vOS w70 h17 ys gSales, 0
OS_TT := "Opening Stock Dr. " . "`n" "      To Cash Account Cr."

Gui, Add, Text, x23 y84 section h9, % " TO Purchases	 "
Gui, Add, edit, vP w70 ys gPurchases gSales, 0
Gui, Add, Text, x23 y100 section h9, % " Less: Ret Out/Drawin"
Gui, Add, edit, vRO w40 ys gPurchases gSales, 0
Gui, Add, edit, w70 vPRO readonly vPRO ys gSales


Gui, Add, Text, x23 y120 section h9, % " TO Frieght and Duty                     "
Gui, Add, edit, vFAD w70 h18 ys gSales, 0
Gui, Add, Text, x23 y140 section h9, % " TO Carriage Inwards                    "
Gui, Add, edit, vCI w70 h18 ys gSales, 0

Gui, Add, Text, x23 y160 section h9, % " TO Wages Salaries"
Gui, Add, edit, vWS w55 h18 ys gWages gSales, 0
Gui, Add, Text, x23 y176 section h9, % " Add: Outstanding Wages"
Gui, Add, edit, vOW w40 ys gWages gSales, 0
Gui, Add, Text, x23 y190 section h9, % " less: Wages              "
Gui, Add, edit, v_W w40 ys gWages gSales, 0
Gui, Add, edit, vW w70 readonly ys

Gui, Add, Text, x23 y212 section h9, % " TO Coal Gas water                     "
Gui, Add, edit, vCGW w70 h17 ys gSales, 0
Gui, Add, Text, x23 y229 section h9, % " TO Factory lighting                     "
Gui, Add, edit, vFL w70 h17 ys gSales, 0
Gui, Add, Text, x23 y246 section h9, % " TO Manufacturing Expenses      "
Gui, Add, edit, vME w70 h17 ys gSales, 0

Gui, Add, Text, x23 y262 section h9, % " TO Gross Profit c/d                     "
Gui, Add, Text, x23 y278 section h9, % " OR transferred TO P/L Account  "
Gui, Add, edit, vGP w70 h17 ys readonly
Gui, Add, Text, x1 y343 section xs, C---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
gui, font, cBlack bold
Gui, Add, Text, x1 y330 section xs, % "                                                                             Profit And Loss Account                 "
gui, font
Gui, Add, Text, x23 y288 h9 section, % "-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
;~ Gui, Add, edit, vSA w70 ys gSales, 0
Gui, Add, Text, x510 y352 h30, % "||"
Gui, Add, Text, x510 y380 h30, % "||"
Gui, Add, Text, x510 y408 h30, % "||"
Gui, Add, Text, x510 y436 h30, % "||"
Gui, Add, Text, x510 y464 h30, % "||"
Gui, Add, Text, x510 y492 h30, % "||"
Gui, Add, Text, x510 y520 h30, % "||"
Gui, Add, Text, x510 y548 h30, % "||"
Gui, Add, Text, x510 y586 h30, % "||"
Gui, Add, Text, x510 y614 h30, % "||"
Gui, Add, Text, x510 y642 h30, % "||"
;=============================================PARTITION======================================================================
m := 60
gui, font, bold
Loop, 23
{
Gui, Add, Text, x810 y%m% h30, % "||"
m := m+30
}
m =
gui, font
;============================================PARTITION=======================================================================
Gui, Add, Text, x850 y80, % "Sundry Creditors       "
Gui, Add, edit, vSC x930 y80 w60 h18 gSales, 0                                                        ; SA = Salaries Acc/Wa

gui, font, cBlue
Gui, Add, Text, x850 y97, % "Less: Res. For Disc."
gui, font, cBlue bold
Gui, Add, edit, vLRD x940 y97 w50 h18 gSales, 0                                                        ; SA = Sa
gui, font
Gui, Add, edit, vLRD_ x1000 y97 w50 gSales, 0                                                        ; LRD_

Gui, Add, Text, x850 y117, % "Rent Received in Adv"
Gui, Add, edit, vRRA x1000 y117 w50 h20 gSales, 0                                                        ; RRA

Gui, Add, Text, x850 y137, % "Bills Payable"
Gui, Add, edit, vBP x1000 y137 w50 h20 gSales, 0                                                        ; BP

Gui, Add, Text, x850 y157, % "Apprntce Premium Rec'd in Adv"
Gui, Add, edit, vAPRC x1000 y157 w50 h20 gSales, 0                                                        ; APRC

Gui, Add, Text, x850 y177, % "Expenses Outstanding"
;~ Gui, Add, edit, vEO x960 y177 w50 h18 gSales, 0                                                        ; EO

Gui, Add, Text, x850 y195, % "      wages"
Gui, Add, edit, vEOW x960 y195 w50 h18 gSales, 0                                                        ; EOW

Gui, Add, Text, x850 y213, % "      Salaries"
Gui, Add, edit, vEOS x960 y213 w50 h18 gSales, 0                                                        ; EOS

Gui, Add, Text, x850 y231, % "      Others/Commision to Mngr"
Gui, Add, edit, vEOO x960 y231 w50 h18 gSales, 0                                                        ; EO
Gui, Add, edit, vEOFinal x1000 y249 w50 h20 gSales, 0                                                        ; EOFinal


Gui, Add, Text, x850 y271, % "Capital:"
Gui, Add, Text, x850 y289, % "Balance In the Beginning"
Gui, Add, edit, vCBB x950 y289 w50 h20 gSales, 0                                                        ; EO
Gui, Add, Text, x850 y309 w120, % "Add: Net Profit During the year"
Gui, Add, edit, vCNPD x950 y313 w50 h20 ReadOnly gSales, 0                                                        ; EO
Gui, Add, edit, vCTotal x950 y333 w50 h20 readonly gSales, 0                                                        ; CTOtal

Gui, Add, Text, x850 y353 w120, % "Less: Drawings"
Gui, Add, edit, vCLD x950 y350 w50 h20 gSales, 0                                                        ; 
Gui, Add, edit, vCLDF x1000 y350 w50 h20 readonly gSales, 0                                                        ; CLDF

Gui, Add, Text, x850 y375, % "Rent Accr but not paid   "
Gui, Add, edit, vRABP x1000 y375 w50 h18 gSales, 0                                                        ; RABP


Gui, Add, Text, x850 y570, % "===================================================================================="
Gui, Add, edit, vLiabi x1000 y578 w70 h25 readonly gSales, 0
Gui, Add, edit, vAssets x1250 y578 w70 h25 readonly gSales, 0
Gui, Add, Text, x850 y595, % "===================================================================================="


gui, font, italic bold
Gui, Add, Text, x1072 y80, % "Current Assets:"
gui, font
Gui, Add, Text, x1075 y94, % "Cash in hand"
gui, add, edit, vCIH x1250 y92 w60 h18 gsales, 0                            ; CIH

Gui, Add, Text, x1075 y110, % "Cash at Bank"
gui, add, edit, vCAB x1250 y110 w60 h18 gsales, 0                           ; CAB

Gui, Add, Text, x1075 y128, % "Bills Receivable"
gui, add, edit, vBR x1250 y128 w60 h18 gsales, 0                            ;BR

Gui, Add, Text, x1075 y146, % "Investments"
gui, add, edit, vINv x1250 y146 w60 h18 gsales, 0                           ; IN


Gui, Add, Text, x1050 y164, % "Sundry Debtors"
gui, add, edit, vSD x1190 y164 w60 h18 gsales, 0
gui, font, italic
Gui, Add, Text, x1050 y182, % "less:"
gui, font
Gui, Add, Text, x1072 y182, % "Provision for Bad Debts"
gui, add, edit, vPBD x1190 y182 w60 h18 gsales, 0
gui, add, edit, vPBD_ x1190 y200 w60 h18 readonly gsales, 0         ; PBD_ := SD - PBD
gui, font, italic
Gui, Add, Text, x1050 y218, % "less:"
gui, font
Gui, Add, Text, x1072 y218, % "Provision for Discount"
gui, add, edit, vP4D x1190 y218 w60 h18 gsales, 0
gui, add, edit, vP4D_ x1250 y218 w60 h18 readonly gsales, 0                    ;  P4D_ := PBD_ - P4D

;~ loan insurance stock
Gui, Add, Text, x1072 y236, % "Loan To X"
gui, add, edit, vLoan x1190 y236 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y254, % "Add:"
gui, font
Gui, Add, Text, x1098 y254, % "Interest Accrued"
gui, add, edit, vLoan_in x1190 y254 w60 h18 gsales, 0
gui, add, edit, vLoan_in_ x1250 y254 w60 h18 readonly gsales, 0    ; Loan_in_ := loan + loan_in

Gui, Add, Text, x1072 y272, % "Closing Stock"
gui, add, edit, vStock x1250 y272 w60 h18 gsales, 0



Gui, Add, Text, x1072 y290, % "Unexpired Insurance"
gui, add, edit, vUI x1250 y290 w60 h18 gsales, 0

Gui, Add, Text, x1072 y308, % "Insurance Company"
gui, add, edit, vIC x1250 y308 w60 h18 gsales, 0

Gui, Add, Text, x1072 y326, % "Exp. prepaid: Insurance"
gui, add, edit, vEPI x1190 y326 w60 h18 gsales, 0

Gui, Add, Text, x1072 y344, % "    Rates & tax & others"
gui, add, edit, vEPRT x1190 y344 w60 h18 gsales, 0
gui, add, edit, vEPRT_ x1250 y344 w60 h18 readonly gsales, 0    ; EPRT_, % EPI + EPRT

gui, font, italic bold
Gui, Add, Text, x1075 y362, % "Fixed Assets:"
gui, font

Gui, Add, Text, x1072 y380, % "Land & Buildings"
gui, add, edit, vL_B x1190 y380 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y398, % "less:"
gui, font
Gui, Add, Text, x1098 y398, % " Depreciation"
gui, add, edit, vL_B_ x1190 y398 w60 h18 gsales, 0
gui, add, edit, vL_B__ x1250 y398 w60 h18 readonly gsales, 0                 ; L_B__, % L_B - L_B_

Gui, Add, Text, x1072 y416, % "Pland & Machinery"
gui, add, edit, vP_M x1190 y416 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y434, % "Add:"
gui, font
Gui, Add, Text, x1098 y434, % "Installn Expenses"
gui, add, edit, vP_M_I x1190 y434 w60 h18 gsales, 0
gui, add, edit, vP_M_ x1190 y452 w60 h18 readonly gsales, 0         ; P_M_, % P_M + P_M_I

Gui, Add, Text, x1072 y470, % "Less: Depreciation"
gui, add, edit, vP_M_D x1190 y470 w60 h18 gsales, 0
gui, add, edit, vP_M__ x1250 y470 w60 h18 readonly gsales, 0           ;  P_M__, % P_M_ - P_M_D


Gui, Add, Text, x1072 y488, % "Furnitures & Fixtures"
gui, add, edit, vF_F x1190 y488 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y506, % "less:"
gui, font
Gui, Add, Text, x1098 y506, % " Depreciation"
gui, add, edit, vF_F_ x1190 y506 w60 h18 gsales, 0
gui, add, edit, vF_F__ x1250 y506 w60 h18 readonly gsales, 0        ; F_F__, % F_F - F_F_

Gui, Add, Text, x1072 y524, % "Patents"
gui, add, edit, vpatent x1190 y524 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y542, % "less:"
gui, font
Gui, Add, Text, x1098 y542, % " Depreciation"
gui, add, edit, vpatent_ x1190 y542 w60 h18 gsales, 0
gui, add, edit, vpatent__ x1250 y542 w60 h18 readonly gsales, 0     ; patent__,% patent - patent_












Gui, Add, edit, vT x190 y294 w70 readonly
Gui, Add, edit, vT_ x680 y294 w70 readonly
Gui, Add, Text, x23 y305 h9 section, % "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"

Gui, Add, Text, x23 y355 h9 section,  TO Salaries      Wages
Gui, Add, edit, vSA w70 h18 ys gSales, 0                                                        ; SA = Salaries Acc/Wa
Gui, Add, Text, x23 y371 section h9, % " Add: Outstanding Salaries"
Gui, Add, edit, vOS_ w40 ys gSales, 0                                                           ; OS_ = Outstanding Salaries
Gui, Add, Text, x23 y387 section h9, % " less: Salaries              "
Gui, Add, edit, v_S w40 ys gWages gSales, 0                                                 ; _S = less Salaries
Gui, Add, edit, vS__ w70 gSales readonly ys                                                                ; S__ = SA + OS_ - _S
Gui, Add, Text, x23 y408 h9 section, % " TO Bank Charges                        "  
Gui, Add, edit, vGEA w70 h17 ys, 0

Gui, Add, Text, x23 y425 h9 section, % " TO Insurance Acc"  
Gui, Add, edit, vIA w70 ys gSales, 0                                                            ; IA = Insurance Account
Gui, Add, Text, x23 y441 h9 section, % "Less: Insurance Prepaid"  
Gui, Add, edit, vIP w40 ys gSales, 0                                                            ; IP = Insurance Prepaid
Gui, Add, edit, vIAIP w70 readonly ys                                                                           ; IAIP = IA - IP

Gui, Add, Text, x23 y462 h9 section, % " TO Rent Rates & Taxes"  
Gui, Add, edit, vRRT w70 h17 ys gSales, 0                                                                 ; RRT = Rent Rated & Taxes
Gui, Add, Text, x23 y479 h9 section, % "Less: Prepaid                 "  
Gui, Add, edit, vRRTP w40 ys gSales, 0                                                      ; RRTP = Rent rates Taxes Prepaid
Gui, Add, edit, vRRT_ w70 readonly ys                                                                             ; RRT_ = RRT - RRTP          


Gui, Add, Text, x23 y500 h9 section, % " TO Printing & Stationery                   "  
Gui, Add, edit, vP_S w70 h17 ys, 0

Gui, Add, Text, x23 y517 h9 section, % " TO Postage & Telegrams                 "  
Gui, Add, edit, vP_T w70 h17 ys, 0

Gui, Add, Text, x23 y534 h9 section, % " TO Trade Expenses "  
Gui, Add, edit, vTE w70 ys gSales, 0                                                                                   ; TE = Trade Expenses
Gui, Add, Text, x23 y551 h9 section, % "   Add: Outstanding        "  
Gui, Add, edit, vOTE w40 ys gSales, 0                                                                   ; OTE = Outstanding
Gui, Add, edit, vOTE_ w70 readonly ys gSales, 0                                                                   ; OTE_ = TE + OTE



Gui, Add, Text, x23 y571 h9 section, % " TO Heating & Lighting                     "  
Gui, Add, edit, vHL w70 h17 ys, 0

Gui, Add, Text, x23 y587 h9 section, % " TO Loss BY Fire, Unrecovered      "  
Gui, Add, edit, vLFU w70 h17 ys, 0

Gui, Add, Text, x23 y604 h9 section, % " TO Alterations TO Shop                  "  
Gui, Add, edit, vAS w70 h17 ys, 0

Gui, Add, Text, x23 y621 h9 section, % " TO Misc.                                       "  
Gui, Add, edit, vMSC w70 h17 ys, 0

Gui, Add, Text, x23 y637 section, % " TO N. P. - Trans'd TO Capital Acc. "  
Gui, Add, edit, vNPT w70 h20 ys gSales

Gui, Add, Text, x23 y650 section, % " ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"  
Gui, Add, edit, vNP x191 y658 w70 readonly gSales
Gui, Add, edit, vNP_ x681 y658 w70 readonly gSales
Gui, Add, Text, x23 y671 section, % " ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" 
;~ Gui, Add, GroupBox,w300 h10 xs
;~ Gui, Add, edit, vNPT w70 h20 ys







Gui, Add, Text, x520 y62 h9, % " BY Sales                    "
Gui, Add, edit, vS x620 y62 w70 gSales, 0


Gui, Add, Text, x520 y85 h9 section, % " Less: Sales Ret/Ret inwards   "
Gui, Add, edit, vSR x660 y62 w40 ys gSales, 0
Gui, Add, edit, vS_ w70 readonly ys gSales


Gui, Add, Text, x520 y108 h9 section, % " BY Insurance comp (Goods Destroyed)"
Gui, Add, edit, vGDF_ w70 ys gSales, 0

Gui, Add, Text, x520 y131 h9 section, % " BY Stock on 31st March, 2014            "
Gui, Add, edit, vSO3 w70 ys gSales, 0

;~ Gui, Add, Text, x520 y317 h9 section, % "By Gross Profit b/d            "
Gui, Add, Text, x520 y354 h9 section, % "By Gross Profit b/d            "
Gui, Add, Text, x520 y366 h9 section, % "OR tran'd from Trading Account"
Gui, Add, edit, vGP_ w70 section ReadOnly ys

Gui, Add, Text, x520 y386 h9 section, % "   BY Discount Received            "
Gui, Add, edit, vD w70 h17 ys gSales, 0

Gui, Add, Text, x520 y403 h9 section, % "   BY Resere for Disc on Credirs "
gui, font, cBlue bold
Gui, Add, edit, vRDC w70 h17 ys gSales, 0
gui, font
Gui, Add, Text, x520 y420 h9 section, % "   BY Rent Recieved "
Gui, Add, edit, vbRR w60 h20 ys gSales, 0
Gui, Add, Text, x520 y435 h9 section, % "   less:  Rec'd in Adv    "
Gui, Add, edit, vblR w40 h20 ys gSales, 0
Gui, Add, edit, vblR_ w60 h20 ys readonly gSales, 0                                     ; blR_ = bRR - blR

Gui, Add, Text, x520 y455 h9 section, % "   BY Dividends from Investment   "
Gui, Add, edit, vDFI w60 h17 ys gSales, 0

Gui, Add, Text, x520 y472 h9 section, % "   BY Int Acc on loan TO X etc"
Gui, Add, edit, vIAOL w60 h17 ys gSales, 0
Gui, Add, Text, x520 y489 h9 section, % "     Add: Out. Interest   "
Gui, Add, edit, vIAONO w40 h17 ys gSales, 0
Gui, Add, edit, vIAONO_ w60 h17 ys readonly gSales, 0                       ; IAONO_ = IAOL + IAONO

Gui, Add, Text, x520 y506 h9 section, % "   BY Apprentice Premium"
Gui, Add, edit, vAP w60 h17 ys gSales, 0

Gui, Add, Text, x520 y523 h9 section, % "   Less:Rec'd in Adv   "
Gui, Add, edit, vRIA w40 h17 ys gSales, 0
Gui, Add, edit, vRIA_ w60 h17 ys gSales, 0                                              ; RIA_ = AP - RIA


Gui, Add, Text, x520 y540 h9 section, % "   BY Profit on sale of Assets       "
Gui, Add, edit, vPSA w60 h17 ys gSales, 0




Gui, Add, Text, x280 y355 section, % " TO Depreciation on:         "
;~ Gui, Add, edit, vtest x550 y62 w70 gSales, 0
Gui, Add, Text, y370 xs section, % "     Plant & Machinery"
Gui, Add, edit, vDPM_ w40 h17 ys gSales, 0                              ; DPM_

Gui, Add, Text, y385 xs section, % "     Furnitures & Fix    "
Gui, Add, edit, vDFF_ w40 h17 ys gSales, 0                              ; DFF_

Gui, Add, Text, y400 xs section, % "     Land & Building   "
Gui, Add, edit, vDLB_ w40 h17 ys gSales, 0                              ; DLB_

Gui, Add, Text, y415 xs section, % "     Others if any      "
Gui, Add, edit, vDOa_ w40 h17 ys gSales, 0                              ; DOa_
Gui, Add, edit, vDEP_ w60 h20 ReadOnly ys gSales                    ; DEP_ = DOa_ + DLB_ + DFF_ + DPM_

Gui, Add, Text, y435 xs section, % "TO Prov 4 doub deb req"
Gui, Add, edit, vPDDR_ w40 h17 ys gSales, 0

gui, Add, Text, y450 xs section, % "  Add: Bad Debts     "
Gui, Add, edit, vPFBD_ w40 h17 ys gSales, 0

gui, Add, Text, y465 xs section, % "  Less: Existing Prov"
Gui, Add, edit, vPFEP_ w40 h17 ys gSales, 0
gui, Add, Edit, vPFDDR_ w60 readonly ys gSales                              ; PFDDR_ = PDDR_ + PFBD_ - PFEP_

gui, Add, Text, y486 xs section, % " TO Prov for disc. on Debt Req"
Gui, Add, edit, vPFDD_ w50 h17 ys gSales, 0                                         ; PFDD_

gui, Add, Text, y501 xs section, % "   Add: Disc. Allowed"                  
Gui, Add, edit, vPFDA_ w40 h17 ys gSales, 0                                    ; PFDA_ = add discount Allowed
Gui, Add, edit, vPFDAF_ w60 h17 ys readonly gSales, 0                                   ; PFDAF_ = PFDD_ + PFDA_





gui, Add, Text, y518 xs section, % " TO Interest on Capital             "                       ; IOC
Gui, Add, edit, vIOC w60 h17 ys, 0







Gui, Show,, FINAL ACCOUNTS
return  ; End of auto-execute section. The script is idle until the user does something.

GuiClose:
ButtonOK:
Gui, Submit  ; Save the input from the user TO each control's associated variable.
MsgBox You entered "%FirstName% %LastName%".
ExitApp
esc::ExitApp

Sales:
  Gui, Submit, NoHide
  GuiControl,, S_, % S - SR
  GuiControl,, T_, % S - SR + GDF_ +SO3
  GuiControl,, T, % T_
  GuiControl,, PRO, % P - RO
  GuiControl,, GP, % T_ - ( OS + P - RO + FAD + CI + WS + OW - _W + CGW + FL + ME  )
  GuiControl,, W, % WS + OW -   _W
  GuiControl,, GP_, % GP
  GuiControl,, S__, %  SA + OS_ - _S
  guicontrol,, IAIP, % IA - IP
  guicontrol,, RRT_, % RRT - RRTP
  guicontrol,,  OTE_, % TE + OTE
  guicontrol,, PFDAF_, % PFDD_ + PFDA_
  guicontrol,, DEP_, % DOa_ + DLB_ + DFF_ + DPM_
  guicontrol,, PFDDR_,% PDDR_ + PFBD_ - PFEP_
  GuiControl,, blR_, % bRR - blR
  GuiControl,, IAONO_,% IAOL + IAONO
  GuiControl,, RIA_, % AP - RIA
  GuiControl,, NP_, % GP_ + D + RDC + blR_ + DFI + IAONO_ + RIA_ + PSA
  GuiControl,, NP, % NP_
  GuiControl,, NPT, % NP - ( S__ + GEA + IAIP + RRT_ + P_S + P_T + OTE_ + HL + LFU + AS + MSC + DEP_ + PFDDR_ + PFDAF_ + IOC )
  GuiControl,, LRD, % RDC
  GuiControl,, CNPD, % NPT
  guicontrol,,LRD_, % SC - LRD
  guicontrol,,EOFinal, % EOW + EOS + EOO
;~ guicontrol,, CTotal, % CBB + CNDP
guicontrol,,CTotal, % CBB + CNPD
guicontrol,, CLDF, % CTotal - CLD
guicontrol,, Liabi, % LRD_ + RRA + BP + APRC + EOFinal + CLDF + RABP
guicontrol,, PBD_, % SD - PBD
GuiControl,, P4D_, % PBD_ - P4D
GuiControl,, Loan_in_, % loan + loan_in
GuiControl,, EPRT_, % EPI + EPRT
GuiControl,, L_B__, % L_B - L_B_
GuiControl,, P_M_, % P_M + P_M_I
GuiControl,, P_M__, % P_M_ - P_M_D
GuiControl,, F_F__, % F_F - F_F_
GuiControl,, patent__,% patent - patent_
GuiControl,, Assets, % CIH + CAB + BR + INv + P4D_ + loan_in_ + stock + UI + IC + EPRT_ + L_B__ + P_M__ + F_F__ + Patent__



  ;~ GuiControl,, Special, % (a+b)/(1+(a*b/c**2))
  return
  


Purchases:
  Gui, Submit, NoHide
  ;~ GuiControl,, PRO, % P - RO
  ;~ GuiControl,, Special, % (a+b)/(1+(a*b/c**2))
  return


Wages:
  Gui, Submit, NoHide
  GuiControl,, W, % WS + OW -   _W
  GuiControl,, T_, % S_ + GDF_ +SO3
  
  ;~ GuiControl,, Special, % (a+b)/(1+(a*b/c**2))
  return
  
  
  TOtal_:
  Gui, Submit, NoHide
  GuiControl,, T_, % S_ + GDF_ +SO3
  ;~ GuiControl,, Special, % (a+b)/(1+(a*b/c**2))
  return
  


OnMessage(0x200, "WM_MOUSEMOVE")
return

WM_MOUSEMOVE()
{
    static CurrControl, PrevControl, _TT  ; _TT is kept blank for use by the ToolTip command below.
    CurrControl := A_GuiControl
    If (CurrControl <> PrevControl and not InStr(CurrControl, " "))
    {
        ToolTip  ; Turn off any previous tooltip.
        SetTimer, DisplayToolTip, 1000
        PrevControl := CurrControl
    }
    return

    DisplayToolTip:
    SetTimer, DisplayToolTip, Off
    ToolTip % %CurrControl%_TT  ; The leading percent sign tell it to use an expression.
    SetTimer, RemoveToolTip, 3000
    return

    RemoveToolTip:
    SetTimer, RemoveToolTip, Off
    ToolTip
    return
}

Image
John ... you working ?

AC1
Posts: 16
Joined: 30 May 2019, 12:59

Re: Balance Sheet, Final Accounts, Accounting

Post by AC1 » 17 Sep 2019, 15:02

Would be nice a link to a YouTube video demonstrating / explaining this script in action
Looks like maybe it presents user with some GUI (you think?!) for input and in the end summarizes those inputs?
What if anything it replaces though, what need does this solve which is not likely already solved by some common software a company would have?

sachin24
Posts: 9
Joined: 19 May 2020, 07:25

Re: Balance Sheet, Final Accounts, Accounting

Post by sachin24 » 11 Jun 2020, 13:53

If you have updated this code then pls share updated code. CA student here............
smorgasbord wrote:
04 Dec 2014, 02:39
thanks @guest3456 and @garbidge
give me some time.
btw: i want something that helps in learning how balance sheet is prepared.
will post my code at the earliest.
PS: here is my code so far.. not complete yet..please do give inputs and also feel free to change the code,do whatever and post.

Code: Select all

#SingleInstance force
gui, show, Maximize
gui, font, v7
OnMessage(0x200, "WM_MOUSEMOVE")


gui, font, cBlue bold
Gui, Add, Text, cBlue, Dr. 	Trading and Profit and Loss Account for the year ended 31st March, 2014	        Cr.	                 	Balance Sheet of X as on 31st March, 2014

gui, font, 
Gui, Add, Text, x2 section, -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Gui, Add, Text, x23 section, % "	         		Rs.	 |         Rs.	     ||  	  		                                                                            	 Rs.	   |          Rs.	    -||-   		     Liabilities |			- |	Rs.	 || 		Assets |		- | 	Rs."
Gui, Add, Text, x23 y62 section, % " TO Opening Stock                      "
Gui, Add, edit, vOS w70 h17 ys gSales, 0
OS_TT := "Opening Stock Dr. " . "`n" "      To Cash Account Cr."

Gui, Add, Text, x23 y84 section h9, % " TO Purchases	 "
Gui, Add, edit, vP w70 ys gPurchases gSales, 0
Gui, Add, Text, x23 y100 section h9, % " Less: Ret Out/Drawin"
Gui, Add, edit, vRO w40 ys gPurchases gSales, 0
Gui, Add, edit, w70 vPRO readonly vPRO ys gSales


Gui, Add, Text, x23 y120 section h9, % " TO Frieght and Duty                     "
Gui, Add, edit, vFAD w70 h18 ys gSales, 0
Gui, Add, Text, x23 y140 section h9, % " TO Carriage Inwards                    "
Gui, Add, edit, vCI w70 h18 ys gSales, 0

Gui, Add, Text, x23 y160 section h9, % " TO Wages Salaries"
Gui, Add, edit, vWS w55 h18 ys gWages gSales, 0
Gui, Add, Text, x23 y176 section h9, % " Add: Outstanding Wages"
Gui, Add, edit, vOW w40 ys gWages gSales, 0
Gui, Add, Text, x23 y190 section h9, % " less: Wages              "
Gui, Add, edit, v_W w40 ys gWages gSales, 0
Gui, Add, edit, vW w70 readonly ys

Gui, Add, Text, x23 y212 section h9, % " TO Coal Gas water                     "
Gui, Add, edit, vCGW w70 h17 ys gSales, 0
Gui, Add, Text, x23 y229 section h9, % " TO Factory lighting                     "
Gui, Add, edit, vFL w70 h17 ys gSales, 0
Gui, Add, Text, x23 y246 section h9, % " TO Manufacturing Expenses      "
Gui, Add, edit, vME w70 h17 ys gSales, 0

Gui, Add, Text, x23 y262 section h9, % " TO Gross Profit c/d                     "
Gui, Add, Text, x23 y278 section h9, % " OR transferred TO P/L Account  "
Gui, Add, edit, vGP w70 h17 ys readonly
Gui, Add, Text, x1 y343 section xs, C---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
gui, font, cBlack bold
Gui, Add, Text, x1 y330 section xs, % "                                                                             Profit And Loss Account                 "
gui, font
Gui, Add, Text, x23 y288 h9 section, % "-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
;~ Gui, Add, edit, vSA w70 ys gSales, 0
Gui, Add, Text, x510 y352 h30, % "||"
Gui, Add, Text, x510 y380 h30, % "||"
Gui, Add, Text, x510 y408 h30, % "||"
Gui, Add, Text, x510 y436 h30, % "||"
Gui, Add, Text, x510 y464 h30, % "||"
Gui, Add, Text, x510 y492 h30, % "||"
Gui, Add, Text, x510 y520 h30, % "||"
Gui, Add, Text, x510 y548 h30, % "||"
Gui, Add, Text, x510 y586 h30, % "||"
Gui, Add, Text, x510 y614 h30, % "||"
Gui, Add, Text, x510 y642 h30, % "||"
;=============================================PARTITION======================================================================
m := 60
gui, font, bold
Loop, 23
{
Gui, Add, Text, x810 y%m% h30, % "||"
m := m+30
}
m =
gui, font
;============================================PARTITION=======================================================================
Gui, Add, Text, x850 y80, % "Sundry Creditors       "
Gui, Add, edit, vSC x930 y80 w60 h18 gSales, 0                                                        ; SA = Salaries Acc/Wa

gui, font, cBlue
Gui, Add, Text, x850 y97, % "Less: Res. For Disc."
gui, font, cBlue bold
Gui, Add, edit, vLRD x940 y97 w50 h18 gSales, 0                                                        ; SA = Sa
gui, font
Gui, Add, edit, vLRD_ x1000 y97 w50 gSales, 0                                                        ; LRD_

Gui, Add, Text, x850 y117, % "Rent Received in Adv"
Gui, Add, edit, vRRA x1000 y117 w50 h20 gSales, 0                                                        ; RRA

Gui, Add, Text, x850 y137, % "Bills Payable"
Gui, Add, edit, vBP x1000 y137 w50 h20 gSales, 0                                                        ; BP

Gui, Add, Text, x850 y157, % "Apprntce Premium Rec'd in Adv"
Gui, Add, edit, vAPRC x1000 y157 w50 h20 gSales, 0                                                        ; APRC

Gui, Add, Text, x850 y177, % "Expenses Outstanding"
;~ Gui, Add, edit, vEO x960 y177 w50 h18 gSales, 0                                                        ; EO

Gui, Add, Text, x850 y195, % "      wages"
Gui, Add, edit, vEOW x960 y195 w50 h18 gSales, 0                                                        ; EOW

Gui, Add, Text, x850 y213, % "      Salaries"
Gui, Add, edit, vEOS x960 y213 w50 h18 gSales, 0                                                        ; EOS

Gui, Add, Text, x850 y231, % "      Others/Commision to Mngr"
Gui, Add, edit, vEOO x960 y231 w50 h18 gSales, 0                                                        ; EO
Gui, Add, edit, vEOFinal x1000 y249 w50 h20 gSales, 0                                                        ; EOFinal


Gui, Add, Text, x850 y271, % "Capital:"
Gui, Add, Text, x850 y289, % "Balance In the Beginning"
Gui, Add, edit, vCBB x950 y289 w50 h20 gSales, 0                                                        ; EO
Gui, Add, Text, x850 y309 w120, % "Add: Net Profit During the year"
Gui, Add, edit, vCNPD x950 y313 w50 h20 ReadOnly gSales, 0                                                        ; EO
Gui, Add, edit, vCTotal x950 y333 w50 h20 readonly gSales, 0                                                        ; CTOtal

Gui, Add, Text, x850 y353 w120, % "Less: Drawings"
Gui, Add, edit, vCLD x950 y350 w50 h20 gSales, 0                                                        ; 
Gui, Add, edit, vCLDF x1000 y350 w50 h20 readonly gSales, 0                                                        ; CLDF

Gui, Add, Text, x850 y375, % "Rent Accr but not paid   "
Gui, Add, edit, vRABP x1000 y375 w50 h18 gSales, 0                                                        ; RABP


Gui, Add, Text, x850 y570, % "===================================================================================="
Gui, Add, edit, vLiabi x1000 y578 w70 h25 readonly gSales, 0
Gui, Add, edit, vAssets x1250 y578 w70 h25 readonly gSales, 0
Gui, Add, Text, x850 y595, % "===================================================================================="


gui, font, italic bold
Gui, Add, Text, x1072 y80, % "Current Assets:"
gui, font
Gui, Add, Text, x1075 y94, % "Cash in hand"
gui, add, edit, vCIH x1250 y92 w60 h18 gsales, 0                            ; CIH

Gui, Add, Text, x1075 y110, % "Cash at Bank"
gui, add, edit, vCAB x1250 y110 w60 h18 gsales, 0                           ; CAB

Gui, Add, Text, x1075 y128, % "Bills Receivable"
gui, add, edit, vBR x1250 y128 w60 h18 gsales, 0                            ;BR

Gui, Add, Text, x1075 y146, % "Investments"
gui, add, edit, vINv x1250 y146 w60 h18 gsales, 0                           ; IN


Gui, Add, Text, x1050 y164, % "Sundry Debtors"
gui, add, edit, vSD x1190 y164 w60 h18 gsales, 0
gui, font, italic
Gui, Add, Text, x1050 y182, % "less:"
gui, font
Gui, Add, Text, x1072 y182, % "Provision for Bad Debts"
gui, add, edit, vPBD x1190 y182 w60 h18 gsales, 0
gui, add, edit, vPBD_ x1190 y200 w60 h18 readonly gsales, 0         ; PBD_ := SD - PBD
gui, font, italic
Gui, Add, Text, x1050 y218, % "less:"
gui, font
Gui, Add, Text, x1072 y218, % "Provision for Discount"
gui, add, edit, vP4D x1190 y218 w60 h18 gsales, 0
gui, add, edit, vP4D_ x1250 y218 w60 h18 readonly gsales, 0                    ;  P4D_ := PBD_ - P4D

;~ loan insurance stock
Gui, Add, Text, x1072 y236, % "Loan To X"
gui, add, edit, vLoan x1190 y236 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y254, % "Add:"
gui, font
Gui, Add, Text, x1098 y254, % "Interest Accrued"
gui, add, edit, vLoan_in x1190 y254 w60 h18 gsales, 0
gui, add, edit, vLoan_in_ x1250 y254 w60 h18 readonly gsales, 0    ; Loan_in_ := loan + loan_in

Gui, Add, Text, x1072 y272, % "Closing Stock"
gui, add, edit, vStock x1250 y272 w60 h18 gsales, 0



Gui, Add, Text, x1072 y290, % "Unexpired Insurance"
gui, add, edit, vUI x1250 y290 w60 h18 gsales, 0

Gui, Add, Text, x1072 y308, % "Insurance Company"
gui, add, edit, vIC x1250 y308 w60 h18 gsales, 0

Gui, Add, Text, x1072 y326, % "Exp. prepaid: Insurance"
gui, add, edit, vEPI x1190 y326 w60 h18 gsales, 0

Gui, Add, Text, x1072 y344, % "    Rates & tax & others"
gui, add, edit, vEPRT x1190 y344 w60 h18 gsales, 0
gui, add, edit, vEPRT_ x1250 y344 w60 h18 readonly gsales, 0    ; EPRT_, % EPI + EPRT

gui, font, italic bold
Gui, Add, Text, x1075 y362, % "Fixed Assets:"
gui, font

Gui, Add, Text, x1072 y380, % "Land & Buildings"
gui, add, edit, vL_B x1190 y380 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y398, % "less:"
gui, font
Gui, Add, Text, x1098 y398, % " Depreciation"
gui, add, edit, vL_B_ x1190 y398 w60 h18 gsales, 0
gui, add, edit, vL_B__ x1250 y398 w60 h18 readonly gsales, 0                 ; L_B__, % L_B - L_B_

Gui, Add, Text, x1072 y416, % "Pland & Machinery"
gui, add, edit, vP_M x1190 y416 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y434, % "Add:"
gui, font
Gui, Add, Text, x1098 y434, % "Installn Expenses"
gui, add, edit, vP_M_I x1190 y434 w60 h18 gsales, 0
gui, add, edit, vP_M_ x1190 y452 w60 h18 readonly gsales, 0         ; P_M_, % P_M + P_M_I

Gui, Add, Text, x1072 y470, % "Less: Depreciation"
gui, add, edit, vP_M_D x1190 y470 w60 h18 gsales, 0
gui, add, edit, vP_M__ x1250 y470 w60 h18 readonly gsales, 0           ;  P_M__, % P_M_ - P_M_D


Gui, Add, Text, x1072 y488, % "Furnitures & Fixtures"
gui, add, edit, vF_F x1190 y488 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y506, % "less:"
gui, font
Gui, Add, Text, x1098 y506, % " Depreciation"
gui, add, edit, vF_F_ x1190 y506 w60 h18 gsales, 0
gui, add, edit, vF_F__ x1250 y506 w60 h18 readonly gsales, 0        ; F_F__, % F_F - F_F_

Gui, Add, Text, x1072 y524, % "Patents"
gui, add, edit, vpatent x1190 y524 w60 h18 gsales, 0
gui, font, italic 
Gui, Add, Text, x1075 y542, % "less:"
gui, font
Gui, Add, Text, x1098 y542, % " Depreciation"
gui, add, edit, vpatent_ x1190 y542 w60 h18 gsales, 0
gui, add, edit, vpatent__ x1250 y542 w60 h18 readonly gsales, 0     ; patent__,% patent - patent_












Gui, Add, edit, vT x190 y294 w70 readonly
Gui, Add, edit, vT_ x680 y294 w70 readonly
Gui, Add, Text, x23 y305 h9 section, % "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"

Gui, Add, Text, x23 y355 h9 section,  TO Salaries      Wages
Gui, Add, edit, vSA w70 h18 ys gSales, 0                                                        ; SA = Salaries Acc/Wa
Gui, Add, Text, x23 y371 section h9, % " Add: Outstanding Salaries"
Gui, Add, edit, vOS_ w40 ys gSales, 0                                                           ; OS_ = Outstanding Salaries
Gui, Add, Text, x23 y387 section h9, % " less: Salaries              "
Gui, Add, edit, v_S w40 ys gWages gSales, 0                                                 ; _S = less Salaries
Gui, Add, edit, vS__ w70 gSales readonly ys                                                                ; S__ = SA + OS_ - _S
Gui, Add, Text, x23 y408 h9 section, % " TO Bank Charges                        "  
Gui, Add, edit, vGEA w70 h17 ys, 0

Gui, Add, Text, x23 y425 h9 section, % " TO Insurance Acc"  
Gui, Add, edit, vIA w70 ys gSales, 0                                                            ; IA = Insurance Account
Gui, Add, Text, x23 y441 h9 section, % "Less: Insurance Prepaid"  
Gui, Add, edit, vIP w40 ys gSales, 0                                                            ; IP = Insurance Prepaid
Gui, Add, edit, vIAIP w70 readonly ys                                                                           ; IAIP = IA - IP

Gui, Add, Text, x23 y462 h9 section, % " TO Rent Rates & Taxes"  
Gui, Add, edit, vRRT w70 h17 ys gSales, 0                                                                 ; RRT = Rent Rated & Taxes
Gui, Add, Text, x23 y479 h9 section, % "Less: Prepaid                 "  
Gui, Add, edit, vRRTP w40 ys gSales, 0                                                      ; RRTP = Rent rates Taxes Prepaid
Gui, Add, edit, vRRT_ w70 readonly ys                                                                             ; RRT_ = RRT - RRTP          


Gui, Add, Text, x23 y500 h9 section, % " TO Printing & Stationery                   "  
Gui, Add, edit, vP_S w70 h17 ys, 0

Gui, Add, Text, x23 y517 h9 section, % " TO Postage & Telegrams                 "  
Gui, Add, edit, vP_T w70 h17 ys, 0

Gui, Add, Text, x23 y534 h9 section, % " TO Trade Expenses "  
Gui, Add, edit, vTE w70 ys gSales, 0                                                                                   ; TE = Trade Expenses
Gui, Add, Text, x23 y551 h9 section, % "   Add: Outstanding        "  
Gui, Add, edit, vOTE w40 ys gSales, 0                                                                   ; OTE = Outstanding
Gui, Add, edit, vOTE_ w70 readonly ys gSales, 0                                                                   ; OTE_ = TE + OTE



Gui, Add, Text, x23 y571 h9 section, % " TO Heating & Lighting                     "  
Gui, Add, edit, vHL w70 h17 ys, 0

Gui, Add, Text, x23 y587 h9 section, % " TO Loss BY Fire, Unrecovered      "  
Gui, Add, edit, vLFU w70 h17 ys, 0

Gui, Add, Text, x23 y604 h9 section, % " TO Alterations TO Shop                  "  
Gui, Add, edit, vAS w70 h17 ys, 0

Gui, Add, Text, x23 y621 h9 section, % " TO Misc.                                       "  
Gui, Add, edit, vMSC w70 h17 ys, 0

Gui, Add, Text, x23 y637 section, % " TO N. P. - Trans'd TO Capital Acc. "  
Gui, Add, edit, vNPT w70 h20 ys gSales

Gui, Add, Text, x23 y650 section, % " ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"  
Gui, Add, edit, vNP x191 y658 w70 readonly gSales
Gui, Add, edit, vNP_ x681 y658 w70 readonly gSales
Gui, Add, Text, x23 y671 section, % " ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" 
;~ Gui, Add, GroupBox,w300 h10 xs
;~ Gui, Add, edit, vNPT w70 h20 ys







Gui, Add, Text, x520 y62 h9, % " BY Sales                    "
Gui, Add, edit, vS x620 y62 w70 gSales, 0


Gui, Add, Text, x520 y85 h9 section, % " Less: Sales Ret/Ret inwards   "
Gui, Add, edit, vSR x660 y62 w40 ys gSales, 0
Gui, Add, edit, vS_ w70 readonly ys gSales


Gui, Add, Text, x520 y108 h9 section, % " BY Insurance comp (Goods Destroyed)"
Gui, Add, edit, vGDF_ w70 ys gSales, 0

Gui, Add, Text, x520 y131 h9 section, % " BY Stock on 31st March, 2014            "
Gui, Add, edit, vSO3 w70 ys gSales, 0

;~ Gui, Add, Text, x520 y317 h9 section, % "By Gross Profit b/d            "
Gui, Add, Text, x520 y354 h9 section, % "By Gross Profit b/d            "
Gui, Add, Text, x520 y366 h9 section, % "OR tran'd from Trading Account"
Gui, Add, edit, vGP_ w70 section ReadOnly ys

Gui, Add, Text, x520 y386 h9 section, % "   BY Discount Received            "
Gui, Add, edit, vD w70 h17 ys gSales, 0

Gui, Add, Text, x520 y403 h9 section, % "   BY Resere for Disc on Credirs "
gui, font, cBlue bold
Gui, Add, edit, vRDC w70 h17 ys gSales, 0
gui, font
Gui, Add, Text, x520 y420 h9 section, % "   BY Rent Recieved "
Gui, Add, edit, vbRR w60 h20 ys gSales, 0
Gui, Add, Text, x520 y435 h9 section, % "   less:  Rec'd in Adv    "
Gui, Add, edit, vblR w40 h20 ys gSales, 0
Gui, Add, edit, vblR_ w60 h20 ys readonly gSales, 0                                     ; blR_ = bRR - blR

Gui, Add, Text, x520 y455 h9 section, % "   BY Dividends from Investment   "
Gui, Add, edit, vDFI w60 h17 ys gSales, 0

Gui, Add, Text, x520 y472 h9 section, % "   BY Int Acc on loan TO X etc"
Gui, Add, edit, vIAOL w60 h17 ys gSales, 0
Gui, Add, Text, x520 y489 h9 section, % "     Add: Out. Interest   "
Gui, Add, edit, vIAONO w40 h17 ys gSales, 0
Gui, Add, edit, vIAONO_ w60 h17 ys readonly gSales, 0                       ; IAONO_ = IAOL + IAONO

Gui, Add, Text, x520 y506 h9 section, % "   BY Apprentice Premium"
Gui, Add, edit, vAP w60 h17 ys gSales, 0

Gui, Add, Text, x520 y523 h9 section, % "   Less:Rec'd in Adv   "
Gui, Add, edit, vRIA w40 h17 ys gSales, 0
Gui, Add, edit, vRIA_ w60 h17 ys gSales, 0                                              ; RIA_ = AP - RIA


Gui, Add, Text, x520 y540 h9 section, % "   BY Profit on sale of Assets       "
Gui, Add, edit, vPSA w60 h17 ys gSales, 0




Gui, Add, Text, x280 y355 section, % " TO Depreciation on:         "
;~ Gui, Add, edit, vtest x550 y62 w70 gSales, 0
Gui, Add, Text, y370 xs section, % "     Plant & Machinery"
Gui, Add, edit, vDPM_ w40 h17 ys gSales, 0                              ; DPM_

Gui, Add, Text, y385 xs section, % "     Furnitures & Fix    "
Gui, Add, edit, vDFF_ w40 h17 ys gSales, 0                              ; DFF_

Gui, Add, Text, y400 xs section, % "     Land & Building   "
Gui, Add, edit, vDLB_ w40 h17 ys gSales, 0                              ; DLB_

Gui, Add, Text, y415 xs section, % "     Others if any      "
Gui, Add, edit, vDOa_ w40 h17 ys gSales, 0                              ; DOa_
Gui, Add, edit, vDEP_ w60 h20 ReadOnly ys gSales                    ; DEP_ = DOa_ + DLB_ + DFF_ + DPM_

Gui, Add, Text, y435 xs section, % "TO Prov 4 doub deb req"
Gui, Add, edit, vPDDR_ w40 h17 ys gSales, 0

gui, Add, Text, y450 xs section, % "  Add: Bad Debts     "
Gui, Add, edit, vPFBD_ w40 h17 ys gSales, 0

gui, Add, Text, y465 xs section, % "  Less: Existing Prov"
Gui, Add, edit, vPFEP_ w40 h17 ys gSales, 0
gui, Add, Edit, vPFDDR_ w60 readonly ys gSales                              ; PFDDR_ = PDDR_ + PFBD_ - PFEP_

gui, Add, Text, y486 xs section, % " TO Prov for disc. on Debt Req"
Gui, Add, edit, vPFDD_ w50 h17 ys gSales, 0                                         ; PFDD_

gui, Add, Text, y501 xs section, % "   Add: Disc. Allowed"                  
Gui, Add, edit, vPFDA_ w40 h17 ys gSales, 0                                    ; PFDA_ = add discount Allowed
Gui, Add, edit, vPFDAF_ w60 h17 ys readonly gSales, 0                                   ; PFDAF_ = PFDD_ + PFDA_





gui, Add, Text, y518 xs section, % " TO Interest on Capital             "                       ; IOC
Gui, Add, edit, vIOC w60 h17 ys, 0







Gui, Show,, FINAL ACCOUNTS
return  ; End of auto-execute section. The script is idle until the user does something.

GuiClose:
ButtonOK:
Gui, Submit  ; Save the input from the user TO each control's associated variable.
MsgBox You entered "%FirstName% %LastName%".
ExitApp
esc::ExitApp

Sales:
  Gui, Submit, NoHide
  GuiControl,, S_, % S - SR
  GuiControl,, T_, % S - SR + GDF_ +SO3
  GuiControl,, T, % T_
  GuiControl,, PRO, % P - RO
  GuiControl,, GP, % T_ - ( OS + P - RO + FAD + CI + WS + OW - _W + CGW + FL + ME  )
  GuiControl,, W, % WS + OW -   _W
  GuiControl,, GP_, % GP
  GuiControl,, S__, %  SA + OS_ - _S
  guicontrol,, IAIP, % IA - IP
  guicontrol,, RRT_, % RRT - RRTP
  guicontrol,,  OTE_, % TE + OTE
  guicontrol,, PFDAF_, % PFDD_ + PFDA_
  guicontrol,, DEP_, % DOa_ + DLB_ + DFF_ + DPM_
  guicontrol,, PFDDR_,% PDDR_ + PFBD_ - PFEP_
  GuiControl,, blR_, % bRR - blR
  GuiControl,, IAONO_,% IAOL + IAONO
  GuiControl,, RIA_, % AP - RIA
  GuiControl,, NP_, % GP_ + D + RDC + blR_ + DFI + IAONO_ + RIA_ + PSA
  GuiControl,, NP, % NP_
  GuiControl,, NPT, % NP - ( S__ + GEA + IAIP + RRT_ + P_S + P_T + OTE_ + HL + LFU + AS + MSC + DEP_ + PFDDR_ + PFDAF_ + IOC )
  GuiControl,, LRD, % RDC
  GuiControl,, CNPD, % NPT
  guicontrol,,LRD_, % SC - LRD
  guicontrol,,EOFinal, % EOW + EOS + EOO
;~ guicontrol,, CTotal, % CBB + CNDP
guicontrol,,CTotal, % CBB + CNPD
guicontrol,, CLDF, % CTotal - CLD
guicontrol,, Liabi, % LRD_ + RRA + BP + APRC + EOFinal + CLDF + RABP
guicontrol,, PBD_, % SD - PBD
GuiControl,, P4D_, % PBD_ - P4D
GuiControl,, Loan_in_, % loan + loan_in
GuiControl,, EPRT_, % EPI + EPRT
GuiControl,, L_B__, % L_B - L_B_
GuiControl,, P_M_, % P_M + P_M_I
GuiControl,, P_M__, % P_M_ - P_M_D
GuiControl,, F_F__, % F_F - F_F_
GuiControl,, patent__,% patent - patent_
GuiControl,, Assets, % CIH + CAB + BR + INv + P4D_ + loan_in_ + stock + UI + IC + EPRT_ + L_B__ + P_M__ + F_F__ + Patent__



  ;~ GuiControl,, Special, % (a+b)/(1+(a*b/c**2))
  return
  


Purchases:
  Gui, Submit, NoHide
  ;~ GuiControl,, PRO, % P - RO
  ;~ GuiControl,, Special, % (a+b)/(1+(a*b/c**2))
  return


Wages:
  Gui, Submit, NoHide
  GuiControl,, W, % WS + OW -   _W
  GuiControl,, T_, % S_ + GDF_ +SO3
  
  ;~ GuiControl,, Special, % (a+b)/(1+(a*b/c**2))
  return
  
  
  TOtal_:
  Gui, Submit, NoHide
  GuiControl,, T_, % S_ + GDF_ +SO3
  ;~ GuiControl,, Special, % (a+b)/(1+(a*b/c**2))
  return
  


OnMessage(0x200, "WM_MOUSEMOVE")
return

WM_MOUSEMOVE()
{
    static CurrControl, PrevControl, _TT  ; _TT is kept blank for use by the ToolTip command below.
    CurrControl := A_GuiControl
    If (CurrControl <> PrevControl and not InStr(CurrControl, " "))
    {
        ToolTip  ; Turn off any previous tooltip.
        SetTimer, DisplayToolTip, 1000
        PrevControl := CurrControl
    }
    return

    DisplayToolTip:
    SetTimer, DisplayToolTip, Off
    ToolTip % %CurrControl%_TT  ; The leading percent sign tell it to use an expression.
    SetTimer, RemoveToolTip, 3000
    return

    RemoveToolTip:
    SetTimer, RemoveToolTip, Off
    ToolTip
    return
}

Image Broken Link for safety

Post Reply

Return to “Other Utilities & Resources”