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: