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: