SYNTAX CODE TO READ FILE A TO MATCH THE FILE B (USING AS400 PROGRAMMING LANGUAGE)

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        SETLL     RFILEA                                                     
C                   READ      RFILEA                                                       
C                   DOW       NOT %EOF(FILEA)                                           
C*                                                                                           
C                   OPEN      FILEB                                                         
C     SKUN          CHAIN     RFILEB                                                       
C                   IF        %FOUND(FILEB)                                                 
C                   EVAL      FLDQTY1B = FLDQTY1A                                               
C                   UPDATE    RFILEB                                                       
C*                                                                                           
C                   ENDIF                                                                   
C                   CLOSE     FILEB                                                         
C*                                                                                           
C                   READ      RFILEA                                                       
C                   ENDDO                                                                   
C*                                                                                           
                                                               
-----
Where:
File name : FILEA
Record Name : RFILEA
Field Name : FLDQTY1A

File name : FILEB
Record Name : RFILEB
Field Name : FLDQTY1B

C* ------------------------------------------------------------------   
C*                                                                     
C           *ENTRY    PLIST                                             
C                     PARM           QPARM1256                         
C                     PARM           P1STOR  5                         
C*                                                                     
C* IF PARMS WERE PASSED WHEN THE PROGRAM WAS CALLED USE THEM           
C* ELSE USE SYSGET TO RETIEVE VALUES                                   
C*                                                                     
C           QPARMS    IFGT 0                                           
C                     MOVE QPARM1    PARM1                             
C                     END                                               
C*                                                                     
C*          CANCOD IS IN THE SYSTEM PARM AREA                           
C*                                                                     
C           CANCOD    CASEQ'OPEN    'EXIT               OPN JOB         
C           CANCOD    CASEQ'CANCEL  'ENDJOB             END JOB         
C           CANCOD    CASEQ'LRLRLRLR'ENDJOB             END JOB         
C                     END

Share:

Read More

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 ==SuppNo
grd.Name ==Sfname + Slname
grd.Address == Address
grd.Pricestructure == PriceStructure
grd.Rating == Rating
grd.status == SMFRecStat
Seek(MSF.databasetable, txtSuppN0)
grd.leadtime = Leadtime
row == row +1
}
esle
{
grd.SuppNo== SuppNo
grd.Name ==Sfname + Slname
grd.Address == Address
grd.PriceStructure == PriceStructure
grd.Rating == Rating
grd.Status == SMFRecStat

Seek(MSF.databasetable, grd.SuppNo(row))
grd.leadtime = Leadtime
row == row +1
movenext.SMF
IF EOF
{
row =1
end if
}
ELSE
{
grd.SuppNo== SuppNo
grd.Name ==Sfname + Slname
grd.Address == Address
grd.PriceStructure == PriceStructure
grd.Rating == Rating
grd.Status == SMFRecStat
Seek(MSF.databasetable, grd.SuppNo(row))
grd.leadtime = Leadtime
row == row +1
movenext.SMF
}
end if
end if
end if
END SUB
Private Sub_click cmdcancel button
clear all textbox, grid
grd.SuppNo== ""
grd.Name == ""
grd.Address ==  ""
grd.PriceStructure ==  ""
grd.Rating ==  ""
grd.Status ==  ""
END SUB
Private Sub_click cmdexit button
close.database SMF
close.database MSF
END SUB

OVERDUE DELIVERIES REPORT
Private Sub_click Overdue_REport_Form
open.database POMF
POMF.movefirst
if Date > POMFDateNeeded
{
if POMFRecStat == "C"
{
POMF.movenext
}
else
{
row == 1
grd.PONO(row) == POMF.PONO
grd.SuppNo(row) == POMF.SuppNO
grd.DatePrepare(row) == POMF.DatePrepared
grdDateNeeded(row) == POMF.DateNeeded
grd.Total(row) ==POMF.Total
grdPreparedBy(row) == POMF.PreparedBy
row =row + 1
}
esle
{
POMF.movenext

if EOF

{

POMF.movefirst

}

ELSE

{

if Date > POMFDateNeeded
{
if POMFRecStat == "C"
{
POMF.movenext
}
else
{
row == 1
grd.PONO(row) == POMF.PONO
grd.SuppNo(row) == POMF.SuppNO
grd.DatePrepare(row) == POMF.DatePrepared
grdDateNeeded(row) == POMF.DateNeeded
grd.Total(row) ==POMF.Total
grdPreparedBy(row) == POMF.PreparedBy
row =row + 1
}
end if

}
end if
end if
end if
END SUB
Private Sub_cick cmdexit button
close.database POMF
End sub

Share:

Read More

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 == RRDFQtyReceived
lblAmount == RRDFAmount
row == 1
grdRRNo(row) == RRDFRRNO
seek (RRMF.databasetable, RRDFRRNO)
if nomatch
{
Print "RR number not found in the RR detail
}
else
{
grdDateRcv(row) == RRMFDateReceived
grdDatePrprd(row) == RRMFDatePrepared
grdPONO(row) == RRMFPONO
grdSuppNo(row) == RRMFSuppNo
grdRecStat(row) == RRMFRecStat
row ==row+1
RRMF.movenext
TempQcBy == RRMFQualitycheckedby
if EOF
{
SEEK(EMF.databasetable, TempQcBy)
if nomatch
{
Input txtMaterialNo
seek(RRDF.databasetabel, txtMaterialNo)
}
ELSE
{
grdQCby(row) == EMFName + EMFLName
}
end if
end if
end if
end if
End Sub
Private Sub_click cmdcancel button
clear all fields, grid
grdDateRcv(row) == ""
grdDatePrprd(row) == ""
grdPONO(row) ==""
grdSuppNo(row) == ""
grdRecStat(row) == ""
End Sub
Private Sub_click cmdexit
close.database RRMF
close.database RRDF
close.database EMF
End sub
PURCHASE ORDER REPORT BY SUPPLIER NUMBER 
Private sub_click POREPORTSUPPNO_FORM
open.database SGF
open.database POMF
open.database  EMF
open.database  SMF
clearall.fields.grid
lblname == SGF!comname
lbladd==SGF!comaddress
Input txtSuppNo
row == 1
found == 0
seek SMF.database(txtSuppNo)
if Nomatch
{
Print "Supplier number not found"
}
else
{
lblSname == SMF!SLName + SMF!SFName
lblSadd ==SMF!Saddress
SEEK POMF(SMF!SNO)
if nomatch
{
POMF.moveNext
if EOF or SMF!SNO <> POMF!SNO
{
seek POMF(SMF!SNO)
if nomatch
{
POMF.movenext
}
else
{
found == 1
grd.PONo(row) == POMF!PONo
grd.DateP(row) == POMF!Date_Prepared
grd.Date(row) == POMF!Date_Needed
Seek EMF(POMF!Preparedby)
if nomatch
{
seek EMF(POMF!APPROVEDBY)
if nomatch
{
grd.appby(row) == POMF!Total
grd.Stat(row) == POMFRecStat
row == row+1
POMF.Movenext
}
else if found == "0"
{
Print "Supplier number not found"
}
else
{
clear.all.fields.grid
}
else
{
grd,AppBy(row) == EMF!FName + EMF!LName
}
else
{
grd.Preby(row) == EMF!FName + EMF!LName
}
end if
end if
end if
end if
end if
end if
END SUB
Private Sub_click cmdcancel button
Clear.all.fields.grid
grd.PONo(row) == ""
grd.DateP(row) == ""
grd.Date(row) == ""
lblname == ""
lbladd==""
grd,AppBy(row) == ""
grd.Preby(row) == ""
grd.Stat(row) == ""
lblSname == ""
lblSadd == ""
End sub
Private Sub_click cmdexit button
close.database SGF
close.database POMF
close.database  EMF
close.database  SMF
End sub

Share:

Read More

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). The warehouse personnel checked the actual stock received base on the sales invoice issued by the supplier. Then, checked the actual stock received the Warehouse personnel forward the Sales invoice to the accounting staff in order to post into Computer application system. Then, the accounting staff generate Receiving Report (RR) from the system and give the generated Receiving Report to the supplier.

Then the warehouse system organized the stock base on Expiry date, by brand, and by category. Then generate picking list in order to follow the system into the actual rocking position of the warehouse.

                  The outbound operation, the encoder generate picking list and forward to warehouse just for lay out the stock. Then after picking the stocks, the warehouse forwarded back the picking list for printing Sales Invoice. Then the printed Sale invoice forward to the warehouse that subject for delivery.

           The Warehouse System application is to organize the first expiry first out system for the stocks.

Share:

Read More

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 == RRMFdateReceived
lblsuppNo == RRMFsuppNo
TEmpQcby == RRMFQualityCheckedBy
seek(EMF.databasetable, TempQcBy)
if nomatch
{
Print"Employee number not found"
}
else
{
grdQcBy(row) == EMFFName + EMFLName
row == 1
seek(RRDF.databasetable, txtRRNO)
if nomatch
{
Print "RRNO not Found in the RR detail file"
}
else
{
grdMaterialNo(row) == RRDFMaterialNo
grdUprice(row) == RRDFUprice
grdQtyRcv(row) == RRDFQTyreceived
grdAmount(row) == RRDFAmount
grdRecStat == RRDFRecstat
row == row+1
RRDF.movenext
if eof or txtRRno <> RRDFPONO
{
grdMaterialNo(row) == ""
grdUprice(row) == ""
grdQtyRcv(row) == ""
grdAmount(row) == ""
grdRecStat == ""
}
else
{
lblPONO == RRMFPONO
lbldateprpd == RRMFdatePrepared
lbldateRcv == RRMFdateReceived
lblsuppNo == RRMFsuppNo
TEmpQcby == RRMFQualityCheckedBy
}
end if
end if
end if
end if
End Sub
Private sub_click cmdcancel button
clear all fields.grid
grdMaterialNo(row) == ""
grdUprice(row) == ""
grdQtyRcv(row) == ""
grdAmount(row) == ""
grdRecStat == ""
end sub
Private sub_click cmdexit
close.database RRMF
close.database RRDF
close.database EMF
end sub

***RECEIVING REPORT INQUIRY PURCHASED ORDER NUMBER***
Private sub_click RRPONO_Form
Open.database RRMF
Open.database EMF
input txtPONO
seek(RRMF.databasetable, txtPONO)
if nomatch
{
Print " PO number not found"
}
row == 1
grdRRNO(row) == RRMFPONO
grdDatePrprd(row) == RRMFDatePrprd
grdDateRcv(row) == RRMFdateReceived
grdSuppNo(row) == RRMFSuppNo
tempQCBy == RRMFQualityCheckedBy
seek(EMF.databasetable, TempQCby)
if nomatch
{
Print " Employee number not found"
}
else
{
grdQcBy(row) == EMFFName + EMFLName
}
end if
end if
row == row +1
RRDF.movenext
if EOF or txtRRNO <> RRDFPONO
{
seek(EMF.databasetable, TempQCby)
}
else
{
row == 1
grdRRNO(row) == RRMFPONO
grdDatePrprd(row) == RRMFDatePrprd
grdDateRcv(row) == RRMFdateReceived
grdSuppNo(row) == RRMFSuppNo
tempQCBy == RRMFQualityCheckedBy
}
end if
END SUB
Private Sub_click cmdcancel button
clear all fields.grid
grdRRNO(row) == ""
grdDatePrprd(row) == ""
grdDateRcv(row) == ""
grdSuppNo(row) == ""
tempQCBy ==  ""
END SUB
Private sub_click cmdexit button
close.database RRMF
close.database EMF
End Sub

Share:

Read More

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 STATUS IS ALREADY CLOSED"
}
ELSE
{
lbldate==RRMFDatePrepared
lbldateRcv==RRMFdateReceived
lblPONO==RRMFPONO
lblSuppNo==RRMFSuppNo
TempQCby==RRMFQualityCheckedBy
}
end if
seek(POMF.databasetable,lblPONO)
if nomatch
{
Print" PO number not found"
}
else
{
lbldatendd==POMFdateneeded
}
end if
seek (SMF.databasetable,lblSuppNo)
IF NOMATCH
{
Print"Supplier Number not found"
}
esle
{
lblSuppName==SMFSuppName
lblSuppAdd==SMFSuppAddress
}
end if
seek(RRDF.Databasetable,txtRRNO)
if nomatch
{
Print"RR number not found in the RR detail file
}
else
{
total==0
row==1
grdMaterial(row)==RRDFMaterialNo
grdUPrice(row)==RRDFUprice
grdQtyRcv(row)==RRDFQtyReceived
grdAMount(row)==RRDFAmount
}
end if
Total==Total+grdAmount(row)
seek(MMF.database,grdMaterialNo(row))
if nomatch
{
Print "Material Number not found
}
else
{
grdDescriptiom(row)==MMFDescription
grdUmsr(row)==MMFmeasure
lblTotal==Total
row==row+1
RRDF.movenext
}
end if
IF EOF OR txtRRNO <> RRDFPONO
{
Input txtdateRcv
}
else
{
grdMaterial(row)==RRDFMaterialNo
grdUPrice(row)==RRDFUprice
grdQtyRcv(row)==RRDFQtyReceived
grdAMount(row)==RRDFAmount
}
end if
seek(EMF.databasetable,tempQCby)
if nomatch
{
Print "Employee number not found"
}
else
{
lblQCBy == EMFFName + EMFName
input txtQCby
TempQCby==txtQCby
}
end if
seek(EMf.databasetable, tempQCby)
if nomatch
{
Print "employee number not found
}
else
{
lblQcby==EMFFName + EMFLname
}
end if
END SUB
Private sub_click cmdupdate button
seek(RRMF.databasetable,txtRRNO)
RRMF.edit
RRMFDateReceived==txtdateRcv
RRMFQualityCheckedBy==TempQCby
POMF.Update
End Sub
Private Sub_click cmdcancel button
'Clear all grid fields
grdMaterial(row)==""
grdUPrice(row)==""
grdQtyRcv(row)==""
grdAMount(row)==""
End sub

***RECEIVING REPORT DETAIL UPDATE (QUANTITY RECEIVED)***
Private sub_click RRDetailUpdate_Form
open.database MMF
open.database SMF
open.database EMF
open.database RRMF
open.database RRDF
open.database POMF\
Input txtRRNo
seek(RRMF.databasetable, txtRRNo)
if nomatch
{
Print "RR number not found"
}
else if RRMFRecStat == "C"
{
Print " Record Status is already closed"
}
else
{
lbldate == RRMFdatePrepared
lbldateRcv == RRMFdateReceived
lblPONO == RRMFPONO
lblSuppNo == RRMFSuppNo
TempQcBy == RRMFQualityCheckedby
}
end if
seek(POMF.databasetable, lblPONO
if nomatch
{
Print "PO number not found"
}
else
{
lbldatendd == POMFdateneeded
}
end if
seek(SMF.databasetable, lblSuppNo)
if nomatch
{
Print "Supplier number not found
}
else
{
lblsuppName == SMFSuppName
lblSuppAdd == SMFSuppAddress
}
end if
seek (RRDF.databasetabe, txtRRNO)
if nomatch
{
Print "RR number not found in the RR detail File"
}
esle if RRDFRecStat == "C"
{
RRDF.movenext
else if EOF OR txtRRNO <> RRDFPONO
{
seek(EMF.databasetable,tempQCby)
}
else
{
Total == 0
row ==1
grdMaterialNo(row) == RRDFMaterialNo
grdUPrice(row) == RRDFUprice
grdQtyRcv(row) == RRDFQtyReceived
grdAmount(row) == RRDFamount
tempqtyrcv == grdQtyRcv(row)
}
end if
seek(MMF.databasetable, grdMaterialNo(row))
if nomatch
{
Print "Material number not found"
}
else
{
grdDescription(row) == MMFDescription
grdUms(row) == MMFmeasure
Total == Total + grdAmount(row)
lblTotal == Total
row == row +1
RRDF.movenext
if eof or txt RRNO <> RRDFPONO
{
seek(EMF.databasetable, TempQCby)
 if nomatch
{
Print "Employee number not found"
}
else
{
lblQcby == EMFName +  EMFLName
}
end if
}
esle
{
grdMaterialNo(row) == RRDFMaterialNo
grdUPrice(row) == RRDFUprice
grdQtyRcv(row) == RRDFQtyReceived
grdAmount(row) == RRDFamount
tempqtyrcv == grdQtyRcv(row)
}
end if

i=0
LOOP for i ==1 to row-1
if txtMaterialNo <> grdMaterialNo(i)
{
exit sub
}
esle
{
tempAmount == grdAmount(i)
input txtQtyRcv
lblTotal ==lblTotal - TempAmount
grdQtyRcv(i) == txtQtyRcv
grdMaterialNo(i) == txtMaterialNo
grdAmount(i) == grdUprice(i) *n grdQtyRcv(i)
lblTotal == lblTotal + grdAmount(i)
}
end if
End Sub

Private Sub_Click cmdUpdate button
row == 1
if row ==1
{
Print " Nothing to update"
}
else
{
i ==0
Loop for i == 1 to row -1
SEEK(RRDF.databasetable, txtRRNO + grdMaterialNo(i))
RRDF.edit
RRDFQtyReceived == grdQtyRcv(i)
if PODFQtyOrdered > PODFQtyReceived
{
PODFRecstat == "O"
}
else
{
PODFRecStat == "C"
seek(MMF.databasetable, grdMaterialNo(i))
MMF.edit
MMFQtyHand == MMFQtyhand - tempqtyrcv
MMFQtyhand == MMFQtyhand - grdQtyRcv(i)
MMF.update
}
end if
DO LOOP
END SUB
Private Sub_click cmdcancel button
clear all fields.grid
End sub
Private Sub_Click cmdexit button
close.database MMF
close.database SMF
close.database EMF
close.database RRMF
close.database RRDF
close.database POMF
end sub

Share:

Read More

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 not found"
}
else
{
lblComname==SGFComName
lblComAdd==SGFComAddress
}
end if
lblRRNO==RRNO+1
lbldate==date
Input txtPONO
Seek(POMF.DATABASETABLE, txtPONO)
IF NOMATCH
{
Print" PO number not found"
}
else if POMFRecStat =="C"
{
Print " Record Status is already closed"
}
else
{
lbldateneeded == POMFDateneeded
lblSuppNo== POMFSuppNo
}
end if
SEEK (SMF.databasetable, txtPONO)
lblSuppAdd==SMFAddress
SEEK (PODF.databasetable,txtPONO)
IF nomatch
{
Print "PO number not found in the PO Detail file"
}
else
{
row==1
grd.MaterialNO(row)== PODFMaterialNO
grd.Qtyord(row)==PODFQtyORdered
grd.Uprice(row)==PODFUPrice
grd.Amount(row)==PODFAmount
grd.RecStat(row)==PODFRecStat
}
end if
SEEK (MMF.databasetable, grdMaterial(row))
if nomatch
{
Print "Material Number not found"
}
else
{
grd.description(row)==PODFdescription
grd.Umsr(row)==PODFUmeasure
}
end if
row==row+1
PODF.movenext
if EOF OR TXTPONO <>PODFPONO
{
Input txtDateRcv
}
else
}
row==1
grd.MaterialNO(row)== PODFMaterialNO
grd.Qtyord(row)==PODFQtyORdered
grd.Uprice(row)==PODFUPrice
grd.Amount(row)==PODFAmount
grd.RecStat(row)==PODFRecStat
}
END IF
Input txtQCby
SEEK (EMF.databasetable, txtQCby)
if nomatch
{
Print "Employee number not found"
}
else
{
tempQCby
tempQCby==txtQCBy
txtQCBy==EMFFName+EMFLName
}
end if
END SUB
Private Sub_Click cmdSAve button
if row==1
{
Print" Nothing to save"
}
else
{
i==0
}
end if
LOOP for i=1 to row-1
RRDF.ADDNEW
RRDFRRNO==lblRRNO
RRDFMaterialNo(row)==grd1MaterialNo(i)
RRDFUprice(row)==grd1Uprice(i)
RRDFQTYRcv(row)==grd1QtyRcv(i)
RRDFAmount(row)==grd1Amount(i)
RRDFRecstat=="O"
RRDF.Update
SEEK(PODF.DATABASETABLE,TXTPONO+grd1MaterialNo(i))
if PODFQTYORdered==PODFQTYReceived
{
PODFREcStat =="C"
}
else
{
PODF.Update
}
end if
SEEK(MMF.databasetable,grd1MaterialNo(i))
MMF.Edit
MMFlastRRNO==lblRRNO
MMFQtyhand==MMFQtyhand+grd1QtyRcv(i)
MMF.Update
return to LOOP
RRMF.ADDnew
RRMFRRNO==lblRRNO
RRMFdatePrepared==lbldate
RRMFdateReceived==txtdateRcv
RRMFPONO==txtPONO
RRMFSuppN0==lblSuppNo
RRMFRecstat=="O"
RRMF.Update
SGF.Edit
SGFRRNO==lblRRNO
SGF.Update
ctr==0
SEEK(PODF.databasetable,txtPONO
if PODFRecstat=="C"
{
PODF.movenext
}
else
{
ctr==ctr+1
PODF.movenext
}
end if
IF EOF OR txtPONO <> PODFPONO OR ctr==1
{
IF ctr==0
{
seek(POMF.databasetable,txtPONO)
}
esle
{
"clearall grid fields"
grd.MaterialNO(row)== ""
grd.Qtyord(row)==""
grd.Uprice(row)==""
grd.Amount(row)==""

grd.RecStat(row)==""
}
end if
else
{
if PODFRecstat=="C"
{
PODF.movenext
}
else
{
ctr==ctr+1
PODF.movenext
}
end if
End Sub
Private Sub_Click cmdcancel button
"clearall grid fields"
grd.MaterialNO(row)== ""
grd.Qtyord(row)==""
grd.Uprice(row)==""
grd.Amount(row)==""

grd.RecStat(row)==""
End sub
Private Sub_Click cmdexit button
close.database SGF
close.database MMF
close.database SMF
close.database EMF
close.database POMF
close.database RRMF
close.database RRDF
close.database PODF
End Sub

Share:

Read More

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 if
Input txtSuppNO
SEEK(SMF.databasetable, txtmaterialNo)
if Nomatch
{Print "Supplier No. Not found"
}else
{lblsuppname==smfsuppname
lblsuppAdd==SMFsuppAddress
}end if
seek(MSDF.databasetable,txtMaterialNo + txtSuppNo)
if NoMatch
{Print "Supplier No. and Material No. not found"
}else
{txtUprice ==MSDFUprice
lbltime==MSDFleadtime
}end if
input txtUprice
END SUB
Private Sub_Click cmdSave
if textboxes==""
{Print "nothing to Save"
}else
{seek(MMF.databasetable,txtMaterialNo + txtSuppNo)
}end if
MSDF.edit
MSDFUPrice==txtUprice
MSDF.UPDATE
END SUB
Private Sub_Click cmdCancel
Clearallfields
End Sub
Private Sub_Click cmdExit
close.database SMF
close.database MSDF

End sub

***EMPLOYEE UPDATE by LastName & Position***

Private Sub_Click Employee Update Form

open.database SGF

open.database EMF

seek(SGF.databasetable, SGFYear=="Year")

if NoMatch

{Print " System Date Not Found"

}

Else

{

lblCname == SGF!comname

lblCadd==SGF!address

}

end if

Input txtEMpNo

SEEK (EMF.databasetable, txtEmpNO)

If NoMatch

{

Print "Employee Number not found in Employee file

}else

{txtLname== Emf!lname

txtFname ==Emf!fname

txtMI==Emf!Address

txtAdd==Emf!Telno

txtTelNO==Emf!Telno

txtPosition==Emf!POsition

txtCsat==Emf!CivilStat

txtRstat==Emf!EmfRecstat

}end if

input txtposition

clear.allfields

End Sub

Private Sub_click cmdUpdate

Emf.edit

EMF!Lname==txtLName

EMF!Position==txtPosition

EMF.UPDATE

CLEAR ALL TEXTBOX

END SUB

Private Sub_Click cmdexit

close.database SGF

close.database EMF

END SUB

Share:

Read More

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 txtPRNo
SEEK(PRMF.databasetable, txtPRNo)
IF NOMATCH
{
Print " PR Number does not exist in the PR_MASTER FILE"
}
ELSE
{
txtdatereq==PR_dateRequested
txtdateneeded==PR_DateNeeded
}
end if
SEEK (PRDF.databasetable, txtPRNo)
IF NOMATCH
{
Print "PR Number does not exist in the PR Detail File|"
}
Else
{
grd.Mno==Mno
grd.qty==Qty_Hand
}
SEEK(MMF.databasetable, grd.Mno(row))
IF NOMATCH
{
Print "Material Number does not exist in the MMF"
}
ELSE
{
grd.descr==Description
grd.umsr==U_msr
}
end if
row==row+1
movenext(PRDF)
IF EOF or txtPRNo <> PRNo
{
txtReqby==Requestedby
txtappby==Approvedby
}
input txtDateNeeded
Input txtReqbyempno
SEEK (EMF.databasetable, txtReqByempno)
IF NOMATCH
{
Print "Employee Number does not exist in the Employee Master file
}
else
{
txtReqby==Fname+lname
}
input txtAppbyempno
SEEK (EMF.databasetable,txtAppbyempno)
IF NOMATCH
{
Print "Employee Number does not exist in the Employee Master File"
}
else
{
txtAppby==fname+lname
}
}
end if
End Sub
Private Sub_click cmdupdate
PRMF.Edit
PR_DateNeeded==txtdateneeded
Requestedby==txtReqByempno
Approvedby==txtAppByempno
PRMF.Update
End Sub
Private Sub_click cmdcancel
clear all textboxes, grid
End Sub
Private Sub_click cmdExit
close.database EMF
close.database PRMF
close.database PRDF
close.database SGF
END SUB

Share:

Read More

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 if
row==1
input txtPRNo
SEEK (PRMF.databasetable,txtPRNo)
IF NOMATCH
{
Print" PR Number does not exist in the PR Master file"
{
else
{
txtdatereq==PR_DATERequested
txtdateneeded==PR_dateneeded

}

SEEK (PRDF.databasetable, txtPRNo)

if nomatch

{

PRINT" PR Number does not exist in the PR Detail File

}

else

{

grd.Mno==MNo

grd.qty==Qty_hand

}

end if 

SEEK(MMF.databasetable, grd.Mno(row))

if nomatch

{

Print "Material Number does not exist in the MMF"

}

ESLE

{

grd.descr==description

grd.ums==U_msr

}

end if

row==row+1

movenext(PRDF)

IF EOF or txtPRNo <> PRNo

{

set.fucos SEEK (PRDF.databasetable, txtPRNo)

}

else

{

txtReqby==RequestedBy

txtApply==Approvedby

}

end if

input txtMNo

i=1 to row -1

if grid.Mno(i)==txtMno

{

input txtqtyregrd

grd.qty==txtqtygrd

}

else

{

Print "Material does not exist in the grid"

}

end if

End Sub

Private Sub_Click cmdUpdate

i=1 to row-1

SEEK(PRDF.databasetable,grdMno(i))

PRDF.EDIT

QtyRequired==QtyRequired + Val(grd.qty(i)

PRDF.UPDATE

End Sub

Private Sub_Click cmdcancel

clear all textboxes, grid

End Sub

Private Sub_Click cmdexit

close.database EMF

close.database PRMF

close.database PRDF

close.database MMF

close.database SGF

End Sub

Share:

Read More

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 NOMATCH
{
Print "PO number not Found"
}
Else if NOMATCHi
{
Print "PO number is already Closed
}
END IF
SEEK SMF.databasetable(POMF!SNo)
if NOMATCH
{
end if
}
else
{
txtSNo==POMF!SNo
txtSName==SMF!Name+smf!slname
txtSadd==SMF!Saddress
}
end if
row==1
SEEK POMF.databasetable(POMF!PONo)
if NOMATCH
{
END IF
}
ELSE
{
grd.PONo(row)==PODF!PONo
grd.PRNo(row)==PODF!PRNo
grd.MNO(row)==PODF!mno
grd.QOrd(row)==PODF!Qty_ordered
grd.Uprice(row)==PODF!U_price
grd.amount(row)==PODF!Amount
grd.Status(row)==PODF!PODFRECSTAT
}
end if
row==row+1
PODF.movenext
IF NOT EOF or PODF!PONO <> POMF!PONO
{
SEEK POMF.databasetable(POMF!PONo)
}
else
{
row1==1
found ==0
}
END IF
INPUT txtPRNo
INPUT txtMno
SEEK PODF!(txtPONo)
if NOMATCH
{
END IF
}
ELSE
{
SEEK PODF(txtPRNo, MNo)
}
enf if
if nomatch
{
end if
}
else
{
found ==1
grd1.PRNO(row1)==txtPRNo
grd1.PRNO(row1)==txtMNO
grd1.PRNO(row1)==PODF!QTYORDERED
grd1.PRNO(row1)==PODF!U_PRICE
grd1.PRNO(row1)==AMOUNT
}
end if
SEEK MMF(txtMNo)
IF NOMATCH
{
end if
}
else
{
grd1.description(row1)=MMF!Description
}
end if
PODF.MOVENEXT
IF NOT EOF or PODF!PRNO <> TXTPRNO or PODF!MNO <>TXTMNO
{
END IF
}
ELSE
{
PODF.MOVENEXT
}
END IF
IF NOT EOF or PODF!PONO<>TXTPONO
{
end if
}
else
{
found ==0
}
end if
if found ==0
{
Print " PR Number and Material number not found"
}
else
{
input txtqty
}
end if
grd1.Qord(row1)==txtQTy
Amount==grd1.Qord(row1) * grd1.Uprice(row1)
grd1.Amount(row1)==Amount
row1==row1+1
End sub
Private Sub_Click cmdUpdate
if row1==1
{
Print "No Data to be Update"
}
else
{
found==0
}
end if
LOOP i=1 to row-1
SEEK PODF(txtPono)
if nomatch
{
return LOOP
}
ELSE
{
SEEK PODF(txtPONO.grd1,Mno(row1))
if NOMATCH
{
end if
}
else
{
found ==1
}
grd1.QORD(row1)>PODF!QTY_ORDERED - grd1.QORD(row1)
tmpPro==tmpSub+grd1.Qord(row1)
}
if tmpPro<>PODF!QTY_ORDERED
{
end if
}
else
{
PODF.EDIT
PODF!QTY_ORDERED==grd1.qord(row1)
PODF.UPDATE
}
END IF
SEEK PRDF (grd1 PRNo(row1), grd1.MNo(row1))
if NOMATCH
{
Print" Error Updating in PR DETAIL FILE"
}
ELSE
{
PODF.EDIT
PODF!QTY_ORDERED==grd1.QORD(row1)
}
end if
IF PRDF!QTY_ORDERED <> PRDF!QTY_REQUIRED
{
end if
}
else
PRDF!PRDFREcstat=="C"
found==0
}
end if
SEEK PRDF(grd1.PRNO(row1))
IF NOMATCH
{
end if
}
else IF PRDF!PRDFRECSTAT="O"
{
END IF 
}
ELSE
{
FOUND1 == 1
PRDF.MOVENEXT
IF NOT EOF OR PRDF!PRNo<> grd1.PRNo(row1)
{
end if
}
else if found == 0
{
end if
}
else
{
SEEK PRMF(grd1.PRNO(row1))
}
end if
if nomatch
{
Print"ERROR UPDATING IN PR DETAIL FILE"
}
ELSE
{
PRMF.EDIT
PRMF!PRMFRECSTAT=="C"
PRMF.UPDATE
}
PODF.MOVENEXT
IF NOT EOF OR PODF!PRNO<>grd1.PRNo(row1)
PODG!MNO<>grd1.MNO(row1)
{
end if
}
ELSE
{
PODF.MOVENEXT
}
END IF
IF NOT EOF Or PODF!PRNO<>grd1.PRNO(row1)
{
exit sub
}
else
{
clearall fields
}
end if
End sub
Private Sub_click cmdcancel
clearall.fields
end sub
Private Sub_Click cmdexit
close.database SGF
close.database POMF
close.database PODF
close.database SMF
close.database PRDF
END SUB

Share:

Read More