How to convert GST Summary report from  ASCII to Infosystem

  Here's the ASCII FOP code for the GST summary report.

..!interpreterenglish

..Program:GSTREP

..Author:T3CHN0M4NC3R

..Created on:08.04.08

..Function:GST Report for WITTE FAR EAST

.TYPE text xtdata xtdate xtdate2 xdcoun xttax xcname

.TYPE R9.2 xrammount xzammount xeammount xtammount xtotal xoutd xintax xgst

.TYPE gd xddate ddate2

!PERIOD

.READ "Print period from" xddate

.READ "Print period to" xddate2

.MENU

.FO xtdate2 = xddate2

.FO xtdata = "%,,budat="+'xddate'+"!"+'xddate2'+";ans=;nummer=;such=;@bereich=yes;@gruppe=1;"

.FO xrammount = 0

.SEL sales 'xtdata'

.FO xcname = 'ans'

.FO xdcoun = 'staat'

.FO xttax = 'steuerfrei'

.FO xtdate = xddate

!SUMM

.SEL line

.FO xrammount = xrammount + pwert ? art^gruppe=1 & xdcoun="SINGAPORE"

.FO xzammount = xzammount + pwert ? art^gruppe=1 & xdcoun<>"SINGAPORE"

.FO xeammount = xeammount + pwert ? art^gruppe=1 & xttax = "No"

.FO xtammount = xtammount + pwert ? art^gruppe=1 & xttax = "Yes"

.FO xoutd = xrammount * 0.05

.FO xintax = xtammount * 0.05

.FO xgst = xintax - xoutd

.CONT STOP?_mehr

.CONT SUMM ? art^gruppe<>1

.CONT SUMM

!STOP

.SEL Sales

.CONT Next? _mehr

.FO xcname = 'ans'

.FO xdcoun = 'staat'

.FO xttax = 'steuerfrei'

.CONT SUMM

!NEXT

.FO xtotal = xrammount + xzammount + xeammount

Company: WITTE FAR EAST PTE LTD

Subject: Summary

Period: 'xtdate' to 'xtdate2'

Total Value of Standard-rated supplies:'xrammount'(1)

Total value of zero-rated supplies'xzammount'(2)

Total value of exempted supplies'xeammount'(3)

Total value of (1)+(2)+(3)'xtotal'(4)

Total Value of taxable purchases'xtammount'(5)

Output due'xoutd'(6)

Less

Input tax and refunds claimed'xintax'(7)

Net GST to paid to IRAS

OR'xgst'(8)

Net GST to be claimed from IRAS

!END

.END

To convert this code directly to Infosystem is not possible. What we need to do to change this output to infosystem is to grab the selection bar and variables and map it to the infosystem. So firstly, we need to create a new infosystem.

You can start creating a new infosystem by clicking on the set up infosystem in  the standard tab.

A new window to create a new infosystem will pop open. There you can create or copy from an existing infosystem. The GST report is basically a new thing so we should create a new one by clicking on the "New" button.



Fill in the "search word" box with something you can remember and related to GST report. The file name should be "sales" and the groups should be invoices. The description should be related to GST report as well. Next we look at the variables tab.



The above variables are the most important variables which will be needed to be shown on the infosystem. Note that some variables are needed to be on the header and some are needed in the table.

After finish adding the variables, you can start generating the screen in the main page after saving what you did so far. Now, we move on to the EFOP needed to run the infosystem. Go to the FOP tab and click edit on the "Enter screen" line. This is where you need to make ur program code to work. Standard FOP language programming is required to do this. The 1 different task in EFOP compared to the standard FOP is that you have to map the variables correctly to the screen variable by using the "M|" prefix on the variable name. Example: 

..!INTERPRETER DECLARATION ENGLISH NOABBREV

..*************

.. Name: GSTREP.ME

.. Datum/Date: 08/05/08

.. Version: 2005r4n13p04

.. Autor/Author: HCK

.. Copyright:

.. Function: GST Detailed Report for WFE

..*****************

.TYPE text xtdata xdcoun xttax xtdate xtdate2

.TYPE R9.2

.TYPE text xcname xinvdate xinvnum xeurotot xeurototexp xeurototloc xeurofreight xeuropack xcurrate xsgdtotal xsgdtotexp xsgdtotloc xgst xsgdfreight xsgdpack

!PERIOD

...READ "Print period from" xtdate

...READ "Print period to" xtdate2

...CONT PERIOD ? xtdate = ""; xtdate2 = ""

.FO xtdata = "%,,budat=1.1.08!31.12.08;ans=;nummer=;such=;@bereich=yes;@gruppe=24;"

.FO date = xtdate

.FO date2 = xtdate2

.load 0 sales 'xtdata'

.cont END ? _mehr

...

.FO xcname = 0|ans

.FO xinvdate = 0|budat

.FO xinvnum = 0|nummer

.FO xcurrate = 0|kurs

..

!SSL : load invoice items

.load 0 line

.CONT Display ? _mehr

.FO xeurotot = 0|pwert ?'0|artex^gruppe' = "4"

.CONT SSL

!Display : Display data

.select screen line

.make screen line +

.FO M|cname = xcname

.FO M|invdate = xinvdate

.FO M|invnum = xinvnum

.FO M|currate = xcurrate

.FO M|eurotot = xeurotot

.cont Next

!Next : Next record

.load 0 sales

.CONT END ? _mehr

.FO xcname = 0|ans

.FO xinvdate = 0|budat

.FO xinvnum = 0|nummer

.FO xcurrate = 0|kurs

.CONT SSL

!END

.END