I need help in creating a loop statement for the append operation below. It is based on the 'Segment' field. Which can range from 1 through 35. Thank you in advance!
DIM Append as P
a_tbl = table.open("temp1")
append.t_db = "temp"
append.m_key = ""
append.t_key = "recno()"
append.m_filter = ""
append.t_filter = "top_records(1,"segment = "+chr(92)+""1"+chr(92)+""")"
append.type = "All"
append.m_count = 22
append.m_field1 = "OEL"
append.m_exp1 = "@Temp->OEL"
append.m_field2 = "BREAK"
append.m_exp2 = "@Temp->BREAK"
append.m_field3 = "FULL_NAME"
append.m_exp3 = "@Temp->FULL_NAME"
append.m_field4 = "TITLE"
append.m_exp4 = "@Temp->TITLE"
append.m_field5 = "COMPANY"
append.m_exp5 = "@Temp->COMPANY"
append.m_field6 = "ALTRNT2ADD"
append.m_exp6 = "@Temp->ALTRNT2ADD"
append.m_field7 = "ALTRNT1ADD"
append.m_exp7 = "@Temp->ALTRNT1ADD"
append.m_field8 = "DLVRYADDRS"
append.m_exp8 = "@Temp->DLVRYADDRS"
append.m_field9 = "CITYSTZIP"
append.m_exp9 = "@Temp->CITYSTZIP"
append.m_field10 = "COUNTRY"
append.m_exp10 = "@Temp->COUNTRY"
append.m_field11 = "IMBBRCDDGT"
append.m_exp11 = "@Temp->IMBBRCDDGT"
append.m_field12 = "PRSRTSQNC"
append.m_exp12 = "@Temp->PRSRTSQNC"
append.m_field13 = "Segment"
append.m_exp13 = "@Temp->Segment"
append.m_field14 = "CUSTOM1"
append.m_exp14 = "@Temp->CUSTOM1"
append.m_field15 = "CUSTOM2"
append.m_exp15 = "@Temp->CUSTOM2"
append.m_field16 = "CUSTOM3"
append.m_exp16 = "@Temp->CUSTOM3"
append.m_field17 = "CUSTOM4"
append.m_exp17 = "@Temp->CUSTOM4"
append.m_field18 = "CUSTOM5"
append.m_exp18 = "@Temp->CUSTOM5"
append.m_field19 = "Max_Char"
append.m_exp19 = "@Temp->Max_Char"
append.m_field20 = "Max_Lines"
append.m_exp20 = "@Temp->Max_Lines"
append.m_field21 = "Qty"
append.m_exp121 = "@Temp->Qty"
append.m_field22 = "Info"
append.m_exp22 = "'First record on file'"
append.t_count = 0
a_tbl.append()
a_tbl.close()
'If the Operation is run from within a Form or Browse, then refresh the window
if is_object(topparent.this) then
if topparent.Class() = "form" .or. topparent.class() = "browse" then
topparent.Refresh_layout()
end if
end if
DIM Append as P
a_tbl = table.open("temp1")
append.t_db = "temp"
append.m_key = ""
append.t_key = "recno()"
append.m_filter = ""
append.t_filter = "top_records(1,"segment = "+chr(92)+""1"+chr(92)+""")"
append.type = "All"
append.m_count = 22
append.m_field1 = "OEL"
append.m_exp1 = "@Temp->OEL"
append.m_field2 = "BREAK"
append.m_exp2 = "@Temp->BREAK"
append.m_field3 = "FULL_NAME"
append.m_exp3 = "@Temp->FULL_NAME"
append.m_field4 = "TITLE"
append.m_exp4 = "@Temp->TITLE"
append.m_field5 = "COMPANY"
append.m_exp5 = "@Temp->COMPANY"
append.m_field6 = "ALTRNT2ADD"
append.m_exp6 = "@Temp->ALTRNT2ADD"
append.m_field7 = "ALTRNT1ADD"
append.m_exp7 = "@Temp->ALTRNT1ADD"
append.m_field8 = "DLVRYADDRS"
append.m_exp8 = "@Temp->DLVRYADDRS"
append.m_field9 = "CITYSTZIP"
append.m_exp9 = "@Temp->CITYSTZIP"
append.m_field10 = "COUNTRY"
append.m_exp10 = "@Temp->COUNTRY"
append.m_field11 = "IMBBRCDDGT"
append.m_exp11 = "@Temp->IMBBRCDDGT"
append.m_field12 = "PRSRTSQNC"
append.m_exp12 = "@Temp->PRSRTSQNC"
append.m_field13 = "Segment"
append.m_exp13 = "@Temp->Segment"
append.m_field14 = "CUSTOM1"
append.m_exp14 = "@Temp->CUSTOM1"
append.m_field15 = "CUSTOM2"
append.m_exp15 = "@Temp->CUSTOM2"
append.m_field16 = "CUSTOM3"
append.m_exp16 = "@Temp->CUSTOM3"
append.m_field17 = "CUSTOM4"
append.m_exp17 = "@Temp->CUSTOM4"
append.m_field18 = "CUSTOM5"
append.m_exp18 = "@Temp->CUSTOM5"
append.m_field19 = "Max_Char"
append.m_exp19 = "@Temp->Max_Char"
append.m_field20 = "Max_Lines"
append.m_exp20 = "@Temp->Max_Lines"
append.m_field21 = "Qty"
append.m_exp121 = "@Temp->Qty"
append.m_field22 = "Info"
append.m_exp22 = "'First record on file'"
append.t_count = 0
a_tbl.append()
a_tbl.close()
'If the Operation is run from within a Form or Browse, then refresh the window
if is_object(topparent.this) then
if topparent.Class() = "form" .or. topparent.class() = "browse" then
topparent.Refresh_layout()
end if
end if
Comment