Below code works great when submit is pressed to send a email with details of grid lines. It assumes that there will always be 10 rows in a grid. When there are less the Args.DataSubmitted.Rn.varablename fails when Rn does not exist.
how do i test for the existence of Rn???
thanks for the help
Old tony
how do i test for the existence of Rn???
thanks for the help
Old tony
function AfterUpdateRecords as v (Args as P, PageVariables as P)
with PageVariables
:
SendEmailNOW:
tab=chr(09)
line0="SortCode"+tab+"Descption"+tab+tab+tab+"Pallet Cnt"+tab+"Cat Name"+tab+"Printer"+tab+"Count"+tab+"Shiped"+tab+"Complete"+crlf(2)
'row 1
SortCode1=str(Args.DataSubmitted.R1.sort_code)
Descp1=str(Args.DataSubmitted.R1.Description)
PallCnt1=str(Args.DataSubmitted.R1.Palllet_Cnt)
CatVers1=str(Args.DataSubmitted.R1.Cat_Version)
CatName1=str(Args.DataSubmitted.R1.Cat_Name)
Ptr1=str(Args.DataSubmitted.R1.Printer_Code)
Count1=str(Args.DataSubmitted.R1.Cat_Count)
Ship1=str(Args.DataSubmitted.R1.Cat_Shipped)
complete1=str(Args.DataSubmitted.R1.Complete)
line1=SortCode1+tab+tab+Descp1+tab+tab+tab+PallCnt1+tab+CatName1+tab+Ptr1+tab+Count1+tab+ship1+tab+complete1+crlf()
'row 2
SortCode2=str(Args.DataSubmitted.R2.sort_code)
Descp2=str(Args.DataSubmitted.R2.Description)
PallCnt2=str(Args.DataSubmitted.R2.Palllet_Cnt)
CatVers2=str(Args.DataSubmitted.R2.Cat_Version)
CatName2=str(Args.DataSubmitted.R2.Cat_Name)
Ptr2=str(Args.DataSubmitted.R2.Printer_Code)
Count2=str(Args.DataSubmitted.R2.Cat_Count)
Ship2=str(Args.DataSubmitted.R2.Cat_Shipped)
complete2=str(Args.DataSubmitted.R2.Complete)
line2=SortCode2+tab+tab+Descp2+tab+tab+tab+PallCnt2+tab+CatName2+tab+Ptr2+tab+Count2+tab+ship2+tab+complete2+crlf()
'row 3
SortCode3=str(Args.DataSubmitted.R3.sort_code)
Descp3=str(Args.DataSubmitted.R3.Description)
PallCnt3=str(Args.DataSubmitted.R3.Palllet_Cnt)
CatVers3=str(Args.DataSubmitted.R3.Cat_Version)
CatName3=str(Args.DataSubmitted.R3.Cat_Name)
Ptr3=str(Args.DataSubmitted.R3.Printer_Code)
Count3=str(Args.DataSubmitted.R3.Cat_Count)
Ship3=str(Args.DataSubmitted.R3.Cat_Shipped)
complete3=str(Args.DataSubmitted.R3.Complete)
line3=SortCode3+tab+tab+Descp3+tab+tab+tab+PallCnt3+tab+CatName3+tab+Ptr3+tab+Count3+tab+ship3+tab+complete3+crlf()
'row 4
SortCode4=str(Args.DataSubmitted.R4.sort_code)
Descp4=str(Args.DataSubmitted.R4.Description)
PallCnt4=str(Args.DataSubmitted.R4.Palllet_Cnt)
CatVers4=str(Args.DataSubmitted.R4.Cat_Version)
CatName4=str(Args.DataSubmitted.R4.Cat_Name)
Ptr4=str(Args.DataSubmitted.R4.Printer_Code)
Count4=str(Args.DataSubmitted.R4.Cat_Count)
Ship4=str(Args.DataSubmitted.R4.Cat_Shipped)
complete4=str(Args.DataSubmitted.R4.Complete)
line4=SortCode4+tab+tab+Descp4+tab+tab+tab+PallCnt4+tab+CatName4+tab+Ptr4+tab+Count4+tab+ship4+tab+complete4+crlf()
'row 5
SortCode5=str(Args.DataSubmitted.R5.sort_code)
Descp5=str(Args.DataSubmitted.R5.Description)
PallCnt5=str(Args.DataSubmitted.R5.Palllet_Cnt)
CatVers5=str(Args.DataSubmitted.R5.Cat_Version)
CatName5=str(Args.DataSubmitted.R5.Cat_Name)
Ptr5=str(Args.DataSubmitted.R5.Printer_Code)
Count5=str(Args.DataSubmitted.R5.Cat_Count)
Ship5=str(Args.DataSubmitted.R5.Cat_Shipped)
complete5=str(Args.DataSubmitted.R5.Complete)
line5=SortCode5+tab+tab+Descp5+tab+tab+tab+PallCnt5+tab+CatName5+tab+Ptr5+tab+Count5+tab+ship5+tab+complete5+crlf()
'row 6
SortCode6=str(Args.DataSubmitted.R6.sort_code)
Descp6=str(Args.DataSubmitted.R6.Description)
PallCnt6=str(Args.DataSubmitted.R6.Palllet_Cnt)
CatVers6=str(Args.DataSubmitted.R6.Cat_Version)
CatName6=str(Args.DataSubmitted.R6.Cat_Name)
Ptr6=str(Args.DataSubmitted.R6.Printer_Code)
Count6=str(Args.DataSubmitted.R6.Cat_Count)
Ship6=str(Args.DataSubmitted.R6.Cat_Shipped)
complete6=str(Args.DataSubmitted.R6.Complete)
line6=SortCode6+tab+tab+Descp6+tab+tab+tab+PallCnt6+tab+CatName6+tab+Ptr6+tab+Count6+tab+ship6+tab+complete6+crlf()
'row 7
SortCode7=str(Args.DataSubmitted.R7.sort_code)
Descp7=str(Args.DataSubmitted.R7.Description)
PallCnt7=str(Args.DataSubmitted.R7.Palllet_Cnt)
CatVers7=str(Args.DataSubmitted.R7.Cat_Version)
CatName7=str(Args.DataSubmitted.R7.Cat_Name)
Ptr7=str(Args.DataSubmitted.R7.Printer_Code)
Count7=str(Args.DataSubmitted.R7.Cat_Count)
Ship7=str(Args.DataSubmitted.R7.Cat_Shipped)
complete7=str(Args.DataSubmitted.R7.Complete)
line7=SortCode7+tab+tab+Descp7+tab+tab+tab+PallCnt7+tab+CatName7+tab+Ptr7+tab+Count7+tab+ship7+tab+complete7+crlf()
'row 8
SortCode8=str(Args.DataSubmitted.R8.sort_code)
Descp8=str(Args.DataSubmitted.R8.Description)
PallCnt8=str(Args.DataSubmitted.R8.Palllet_Cnt)
CatVers8=str(Args.DataSubmitted.R8.Cat_Version)
CatName8=str(Args.DataSubmitted.R8.Cat_Name)
Ptr8=str(Args.DataSubmitted.R8.Printer_Code)
Count8=str(Args.DataSubmitted.R8.Cat_Count)
Ship8=str(Args.DataSubmitted.R8.Cat_Shipped)
complete8=str(Args.DataSubmitted.R8.Complete)
line8=SortCode8+tab+tab+Descp8+tab+tab+tab+PallCnt8+tab+CatName8+tab+Ptr8+tab+Count8+tab+ship8+tab+complete8+crlf()
'row 9
SortCode9=str(Args.DataSubmitted.R9.sort_code)
Descp9=str(Args.DataSubmitted.R9.Description)
PallCnt9=str(Args.DataSubmitted.R9.Palllet_Cnt)
CatVers9=str(Args.DataSubmitted.R9.Cat_Version)
CatName9=str(Args.DataSubmitted.R9.Cat_Name)
Ptr9=str(Args.DataSubmitted.R9.Printer_Code)
Count9=str(Args.DataSubmitted.R9.Cat_Count)
Ship9=str(Args.DataSubmitted.R9.Cat_Shipped)
complete9=str(Args.DataSubmitted.R9.Complete)
line9=SortCode9+tab+tab+Descp9+tab+tab+tab+PallCnt9+tab+CatName9+tab+Ptr9+tab+Count9+tab+ship9+tab+complete9+crlf()
'row 10
SortCode10=str(Args.DataSubmitted.R10.sort_code)
Descp10=str(Args.DataSubmitted.R10.Description)
PallCnt10=str(Args.DataSubmitted.R10.Palllet_Cnt)
CatVers10=str(Args.DataSubmitted.R10.Cat_Version)
CatName10=str(Args.DataSubmitted.R10.Cat_Name)
Ptr10=str(Args.DataSubmitted.R10.Printer_Code)
Count10=str(Args.DataSubmitted.R10.Cat_Count)
Ship10=str(Args.DataSubmitted.R10.Cat_Shipped)
complete10=str(Args.DataSubmitted.R10.Complete)
line10=SortCode10+tab+tab+Descp10+tab+tab+tab+PallCnt10+tab+CatName10+tab+Ptr10+tab+Count10+tab+ship10+tab+complete10+crlf()
dim ps as P
dim subject as C; dim linea as C; dim lineb as C; dim linec As C; dim message as C
ship=Args.DataSubmitted.R2.Complete
subject="See Sort Code below. Printer made updated. "+now()
linea="Please check your Production Sheet records to post these changes."+crlf()
lineb="Thank you for the xerov quality job."+crlf(2)
linec="Web xerov"+crlf()
message=line0+line1+line2+line3+line4+line5+line6+line7+line8+line9+line10+crlf(2)+linea+lineb+crlf(2)+linec
SendNOW:
if (email_smtp_open(ps, "smtpout.secureserver.net", 80, "[email protected]", "xyz123")) then
pm.to = "[email protected]"
pm.cc = "[email protected]"
pm.from = "[email protected]"
pm.subject = subject
pm.message = message
email_smtp_send(pm, ps)
end if
email_smtp_close(ps)
goto eoj
'SendEmailNOW:
eoj:
end with
end function
with PageVariables
:
SendEmailNOW:
tab=chr(09)
line0="SortCode"+tab+"Descption"+tab+tab+tab+"Pallet Cnt"+tab+"Cat Name"+tab+"Printer"+tab+"Count"+tab+"Shiped"+tab+"Complete"+crlf(2)
'row 1
SortCode1=str(Args.DataSubmitted.R1.sort_code)
Descp1=str(Args.DataSubmitted.R1.Description)
PallCnt1=str(Args.DataSubmitted.R1.Palllet_Cnt)
CatVers1=str(Args.DataSubmitted.R1.Cat_Version)
CatName1=str(Args.DataSubmitted.R1.Cat_Name)
Ptr1=str(Args.DataSubmitted.R1.Printer_Code)
Count1=str(Args.DataSubmitted.R1.Cat_Count)
Ship1=str(Args.DataSubmitted.R1.Cat_Shipped)
complete1=str(Args.DataSubmitted.R1.Complete)
line1=SortCode1+tab+tab+Descp1+tab+tab+tab+PallCnt1+tab+CatName1+tab+Ptr1+tab+Count1+tab+ship1+tab+complete1+crlf()
'row 2
SortCode2=str(Args.DataSubmitted.R2.sort_code)
Descp2=str(Args.DataSubmitted.R2.Description)
PallCnt2=str(Args.DataSubmitted.R2.Palllet_Cnt)
CatVers2=str(Args.DataSubmitted.R2.Cat_Version)
CatName2=str(Args.DataSubmitted.R2.Cat_Name)
Ptr2=str(Args.DataSubmitted.R2.Printer_Code)
Count2=str(Args.DataSubmitted.R2.Cat_Count)
Ship2=str(Args.DataSubmitted.R2.Cat_Shipped)
complete2=str(Args.DataSubmitted.R2.Complete)
line2=SortCode2+tab+tab+Descp2+tab+tab+tab+PallCnt2+tab+CatName2+tab+Ptr2+tab+Count2+tab+ship2+tab+complete2+crlf()
'row 3
SortCode3=str(Args.DataSubmitted.R3.sort_code)
Descp3=str(Args.DataSubmitted.R3.Description)
PallCnt3=str(Args.DataSubmitted.R3.Palllet_Cnt)
CatVers3=str(Args.DataSubmitted.R3.Cat_Version)
CatName3=str(Args.DataSubmitted.R3.Cat_Name)
Ptr3=str(Args.DataSubmitted.R3.Printer_Code)
Count3=str(Args.DataSubmitted.R3.Cat_Count)
Ship3=str(Args.DataSubmitted.R3.Cat_Shipped)
complete3=str(Args.DataSubmitted.R3.Complete)
line3=SortCode3+tab+tab+Descp3+tab+tab+tab+PallCnt3+tab+CatName3+tab+Ptr3+tab+Count3+tab+ship3+tab+complete3+crlf()
'row 4
SortCode4=str(Args.DataSubmitted.R4.sort_code)
Descp4=str(Args.DataSubmitted.R4.Description)
PallCnt4=str(Args.DataSubmitted.R4.Palllet_Cnt)
CatVers4=str(Args.DataSubmitted.R4.Cat_Version)
CatName4=str(Args.DataSubmitted.R4.Cat_Name)
Ptr4=str(Args.DataSubmitted.R4.Printer_Code)
Count4=str(Args.DataSubmitted.R4.Cat_Count)
Ship4=str(Args.DataSubmitted.R4.Cat_Shipped)
complete4=str(Args.DataSubmitted.R4.Complete)
line4=SortCode4+tab+tab+Descp4+tab+tab+tab+PallCnt4+tab+CatName4+tab+Ptr4+tab+Count4+tab+ship4+tab+complete4+crlf()
'row 5
SortCode5=str(Args.DataSubmitted.R5.sort_code)
Descp5=str(Args.DataSubmitted.R5.Description)
PallCnt5=str(Args.DataSubmitted.R5.Palllet_Cnt)
CatVers5=str(Args.DataSubmitted.R5.Cat_Version)
CatName5=str(Args.DataSubmitted.R5.Cat_Name)
Ptr5=str(Args.DataSubmitted.R5.Printer_Code)
Count5=str(Args.DataSubmitted.R5.Cat_Count)
Ship5=str(Args.DataSubmitted.R5.Cat_Shipped)
complete5=str(Args.DataSubmitted.R5.Complete)
line5=SortCode5+tab+tab+Descp5+tab+tab+tab+PallCnt5+tab+CatName5+tab+Ptr5+tab+Count5+tab+ship5+tab+complete5+crlf()
'row 6
SortCode6=str(Args.DataSubmitted.R6.sort_code)
Descp6=str(Args.DataSubmitted.R6.Description)
PallCnt6=str(Args.DataSubmitted.R6.Palllet_Cnt)
CatVers6=str(Args.DataSubmitted.R6.Cat_Version)
CatName6=str(Args.DataSubmitted.R6.Cat_Name)
Ptr6=str(Args.DataSubmitted.R6.Printer_Code)
Count6=str(Args.DataSubmitted.R6.Cat_Count)
Ship6=str(Args.DataSubmitted.R6.Cat_Shipped)
complete6=str(Args.DataSubmitted.R6.Complete)
line6=SortCode6+tab+tab+Descp6+tab+tab+tab+PallCnt6+tab+CatName6+tab+Ptr6+tab+Count6+tab+ship6+tab+complete6+crlf()
'row 7
SortCode7=str(Args.DataSubmitted.R7.sort_code)
Descp7=str(Args.DataSubmitted.R7.Description)
PallCnt7=str(Args.DataSubmitted.R7.Palllet_Cnt)
CatVers7=str(Args.DataSubmitted.R7.Cat_Version)
CatName7=str(Args.DataSubmitted.R7.Cat_Name)
Ptr7=str(Args.DataSubmitted.R7.Printer_Code)
Count7=str(Args.DataSubmitted.R7.Cat_Count)
Ship7=str(Args.DataSubmitted.R7.Cat_Shipped)
complete7=str(Args.DataSubmitted.R7.Complete)
line7=SortCode7+tab+tab+Descp7+tab+tab+tab+PallCnt7+tab+CatName7+tab+Ptr7+tab+Count7+tab+ship7+tab+complete7+crlf()
'row 8
SortCode8=str(Args.DataSubmitted.R8.sort_code)
Descp8=str(Args.DataSubmitted.R8.Description)
PallCnt8=str(Args.DataSubmitted.R8.Palllet_Cnt)
CatVers8=str(Args.DataSubmitted.R8.Cat_Version)
CatName8=str(Args.DataSubmitted.R8.Cat_Name)
Ptr8=str(Args.DataSubmitted.R8.Printer_Code)
Count8=str(Args.DataSubmitted.R8.Cat_Count)
Ship8=str(Args.DataSubmitted.R8.Cat_Shipped)
complete8=str(Args.DataSubmitted.R8.Complete)
line8=SortCode8+tab+tab+Descp8+tab+tab+tab+PallCnt8+tab+CatName8+tab+Ptr8+tab+Count8+tab+ship8+tab+complete8+crlf()
'row 9
SortCode9=str(Args.DataSubmitted.R9.sort_code)
Descp9=str(Args.DataSubmitted.R9.Description)
PallCnt9=str(Args.DataSubmitted.R9.Palllet_Cnt)
CatVers9=str(Args.DataSubmitted.R9.Cat_Version)
CatName9=str(Args.DataSubmitted.R9.Cat_Name)
Ptr9=str(Args.DataSubmitted.R9.Printer_Code)
Count9=str(Args.DataSubmitted.R9.Cat_Count)
Ship9=str(Args.DataSubmitted.R9.Cat_Shipped)
complete9=str(Args.DataSubmitted.R9.Complete)
line9=SortCode9+tab+tab+Descp9+tab+tab+tab+PallCnt9+tab+CatName9+tab+Ptr9+tab+Count9+tab+ship9+tab+complete9+crlf()
'row 10
SortCode10=str(Args.DataSubmitted.R10.sort_code)
Descp10=str(Args.DataSubmitted.R10.Description)
PallCnt10=str(Args.DataSubmitted.R10.Palllet_Cnt)
CatVers10=str(Args.DataSubmitted.R10.Cat_Version)
CatName10=str(Args.DataSubmitted.R10.Cat_Name)
Ptr10=str(Args.DataSubmitted.R10.Printer_Code)
Count10=str(Args.DataSubmitted.R10.Cat_Count)
Ship10=str(Args.DataSubmitted.R10.Cat_Shipped)
complete10=str(Args.DataSubmitted.R10.Complete)
line10=SortCode10+tab+tab+Descp10+tab+tab+tab+PallCnt10+tab+CatName10+tab+Ptr10+tab+Count10+tab+ship10+tab+complete10+crlf()
dim ps as P
dim subject as C; dim linea as C; dim lineb as C; dim linec As C; dim message as C
ship=Args.DataSubmitted.R2.Complete
subject="See Sort Code below. Printer made updated. "+now()
linea="Please check your Production Sheet records to post these changes."+crlf()
lineb="Thank you for the xerov quality job."+crlf(2)
linec="Web xerov"+crlf()
message=line0+line1+line2+line3+line4+line5+line6+line7+line8+line9+line10+crlf(2)+linea+lineb+crlf(2)+linec
SendNOW:
if (email_smtp_open(ps, "smtpout.secureserver.net", 80, "[email protected]", "xyz123")) then
pm.to = "[email protected]"
pm.cc = "[email protected]"
pm.from = "[email protected]"
pm.subject = subject
pm.message = message
email_smtp_send(pm, ps)
end if
email_smtp_close(ps)
goto eoj
'SendEmailNOW:
eoj:
end with
end function
Comment