systemappsprogram.blogspot.com

  • System Application Program

    In information technology, an application (app), application program or software application is a computer program designed to help people perform an activity. ... The delineation between system software such as operating systems and application software is not exact, however, and is occasionally the object of controversy, visit us systemappsprogram.blogspot.com

  • System Flowchart

    System flowchart is the graphical representation of the flow of data in the system, and represents the work process of the system. Various symbols are used in the flowchart to designate specific actions.

  • Management Information System

    A management information system (MIS) is a computer system consisting of hardware and software that serves as the backbone of an organization’s operations. An MIS gathers data from multiple online systems, analyzes the information, and reports data to aid in management decision-making.

  • Database Management System

    A Database Management System (DBMS) is a system (software) that provides an interface to database for information storage and retrieval. We are more interested in software systems rather than manual systems because they can do the job more efficiently.

  • Operating System

    An operating system or OS is a software program that enables the computer hardware to communicate and operate with the computer software. Without a computer operating system, a computer and software programs would be useless.

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
Image result for as400CL0N01Factor1+++++++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:

SYNTAX CODE FOR SUPPLIER ANALYSIS REPORT & OVERDUE DELIVERIES

SUPPLIER ANALYSIS REPORT 
Private Sub_click Supp_Analysis form
Image result for vb6.0 modules for supplier analysisopen.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:

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
Related imageopen.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:

WAREHOUSE MANAGEMENT SYSTEM (NARRATIVE FORM)

WAREHOUSE MANAGEMENT SYSTEM 
            (NARRATIVE FORM)

Image result for Warehouse Management system narrative formThis 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:

RECEIVING REPORT INQUIRY (RR NUMBER & PO NUMBER)

***RECEIVING REPORT RR NUMBER***
Private sub_click RRnumber_Form
Image result for vb6.0 modules Reports formopen.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:

RECEIVING REPORT MASTER & DETAIL UPDATE (date received, Quality Checked,QTY received) syntax

**RECEIVING REPORT MASTER UPDATE**
Private Sub_Click RRMasterUpdate_Form
Image result for vb6.0 modules Reports formopen.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:

RECEIVING REPORT ENTRY (SYNTAX)

**RECEVING REPORT ENTRY**
Private Sub_Click RR_FORM
Related imageopen.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:

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
Image result for visual basic gui material updateopen.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:

PURCHASE REQUISITION MASTER FILE UPDATE(date needed, Requested by, Approved by)

Private Sub_Click PRMasterUpdate Form
open.database EMF
Image result for Purchase Requisition Form vb 6.0open.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:

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:

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:

Translate

Popular Posts

Recent Posts

Support System Software

Customer support is usually one of the key aspects for all companies, both small and large enterprises. Having a reliable customer support system will result in a positive image of your brand and will be a clear sing that you actually care about your clients and put effort into keeping them satisfied. Our team of SaaS experts have collected and tested all popular customer support software services currently available in the market. Our list should allow you to more easily decide which solution will work best for your business. Need our help to upload or customize this blogger template? Contact me with details about the theme customization you need.