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: