SYNTAX CODE PROGRAM TO READ FILES
This syntax program, it can read all record files
in your computer A, then match to Computer B
CL0N01Factor1+++++++Opcode&ExtFactor2+++++++
Result++++++++Len++D+HiLoEq....Comments+++++
+++++++C *LOVAL ...
SYNTAX CODE FOR SUPPLIER ANALYSIS REPORT & OVERDUE DELIVERIES
SUPPLIER ANALYSIS REPORT
Private Sub_click Supp_Analysis form
open.database SMF
open.database MSF
row ==1
input option
if option1.value ==true
{
input txt Suppno
seek(SMF.databasetable, txtSuppNo)
if nomatch
{
Print "Supplier Number does not exist in the SMF"
}
}
esle
{
grd.SuppNo...
SYNTAX CODE OF RECEIVING REPORT BY MATERIAL NUMBER & PURCHASE ORDER REPORT BY SUPPLIER NUMBER
RECEIVING REPORT INQUIRY BY MATERIAL NUMBER
Private sub_click RRMATERIALNNO_FORM
open.database RRMF
open.database RRDF
open.database EMF
input txtMaterialNo
seek(RRDF.databasetabel, txtMaterialNo)
if Nomatch
{
Print " Material number not found"
}
else
{
lblUprice == RRDFUPrice
lblQtyRcv...
WAREHOUSE MANAGEMENT SYSTEM (NARRATIVE FORM)
WAREHOUSE MANAGEMENT SYSTEM
(NARRATIVE FORM)
This is system flow for the inbound and outbound transaction in the warehouse. The supplier deliver the stocks base on the Purchase ordered by the customer (distributor company)....
RECEIVING REPORT INQUIRY (RR NUMBER & PO NUMBER)
***RECEIVING REPORT RR NUMBER***
Private sub_click RRnumber_Form
open.database RRMF
open.database RRDF
open.database EMF
input txtPONO
seek(RRMF.databasetable, txtPONO)
if nomatch
{
Print " PO number not found"
}
else
{
lblPONO == RRMFPONO
lbldateprpd == RRMFdatePrepared
lbldateRcv...
RECEIVING REPORT MASTER & DETAIL UPDATE (date received, Quality Checked,QTY received) syntax
**RECEIVING REPORT MASTER UPDATE**
Private Sub_Click RRMasterUpdate_Form
open.database MMF
open.database SMF
open.database RRMF
open.database RRDF
Input txtRRNO
SEEK(RRMF.DATABASETABLE,txtRRNO)
IF NOMATCH
{
PRINT" RR number NOT FOUND"
}
ELSE IF RRMFRecStat=="C"
{
PRINT "RECORD...
RECEIVING REPORT ENTRY (SYNTAX)
**RECEVING REPORT ENTRY**
Private Sub_Click RR_FORM
open.database SGF
open.database MMF
open.database SMF
open.database EMF
open.database POMF
open.database RRMF
open.database RRDF
open.database PODF
SEEK (SGF.databasetable, SGFYear=="Year")
IF NOMATCH
{
Print"System Record...
MATERIAL SUPPLIER MASTER UPDATE UNIT PRICE & Employee Update
MATERIAL SUPPLIER MASTER UPDATE UNIT PRICE
Private Sub_Click Master Update Form
open.database MMF
open.database MSDF
open.database SMF
open.database SGF
Input txtMaterialNo
SEEK(MMF.databasetable, txtmaterialNo)
IF NOMATCH
{Print " Material No. Not found"
}Else
{lblDsr ==MMFDescription
lblumsr==MMFumeasure
}end...
PURCHASE REQUISITION MASTER FILE UPDATE(date needed, Requested by, Approved by)
Private Sub_Click PRMasterUpdate Form
open.database EMF
open.database PRMF
open.database PRDF
open.database MMF
open.database SGF
SEEK(SGF.databasetable, SGFYear=="Year")
IF NOMATCH
{
Print "System Record not updated"
}
else
{
lblcom==comname
lbladdress==address
}
end if
row==1
input...
PURCHASE REQUISITION DETAIL FILE UPDATE(quantity Required) SYNTAX
PURCHASE REQUISITION DETAIL FILE UPDATE
Private Sub_click DetailUpdate form
open.database EMF
open.database PRMF
open.database PRDF
open.database MMF
open.database SGF
SEEK (SGF.databasetable, SGFYear =="Year")
IF NOMATCH
{
Print "System Record not updated"
}
else
{
lblcom==comname
lbladdress==address
}
end...
PURCHASE ORDER DETAIL UPDATE by Quantity Ordered SYNTAX
PURCHASE ORDER DETAIL UPDATE
Private Sub_Click PODetailUpdate Form
open.database SGF
open.database POMF
open.database PODF
open.database SMF
open.database MMF
open.database PRDF
lblCname ==SGF!Comname
lblCadd==SGF!comaddress
Input txtPONo
SEEK(POMF.databasetable(txtPONo))
IF...
