Code: Select all
(CALL errorlog\()([A-Za-z0-9_.,' \[\]\\"\|\)\(\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n]+)(\)$)
Code: Select all
LET l_errormsg = \2\n \1l_errormsg\3
Code: Select all
CALL errorlog("INSERT INTO stockdet(sdprodno, sdwhseno, sddet1, sddet2, \n",
"sdcost, sddmyrec, sdexpiredmy, sdonconsign, \n",
"sdsaleable, sdsupplier, sdsuppslip,sdordrno,\n",
"sdohdqty, sdallqty, sdordqty, ",
"sdborqty, sdforqty, sdconsignohdqty)\n",
"VALUES (", m_t1line[m_arr_curr].prodno CLIPPED, "|",
m_thdr.twhse CLIPPED, "|",
l_sddet1_to CLIPPED, "|",
l_select_from CLIPPED, "|\n",
l_stockdet_from.sdcost CLIPPED, "|",
m_thdr.trandmy CLIPPED, "|",
l_stockdet_from.sdexpiredmy CLIPPED, "|",
l_stockdet_from.sdonconsign CLIPPED, "|\n",
l_stockdet_from.sdsaleable CLIPPED, "|",
l_stockdet_from.sdsupplier CLIPPED, "|",
l_stockdet_from.sdsuppslip CLIPPED, "|",
l_stockdet_from.sdordrno CLIPPED, "|\n",
"0|0|0|0|0|0)")
Code: Select all
LET l_errormsg = "INSERT INTO stockdet(sdprodno, sdwhseno, sddet1, sddet2,
",
"sdcost, sddmyrec, sdexpiredmy, sdonconsign,
",
"sdsaleable, sdsupplier, sdsuppslip,sdordrno,
",
"sdohdqty, sdallqty, sdordqty, ",
"sdborqty, sdforqty, sdconsignohdqty)
",
"VALUES (", m_t1line[m_arr_curr].prodno CLIPPED, "|",
m_thdr.twhse CLIPPED, "|",
l_sddet1_to CLIPPED, "|",
l_select_from CLIPPED, "|
",
l_stockdet_from.sdcost CLIPPED, "|",
m_thdr.trandmy CLIPPED, "|",
l_stockdet_from.sdexpiredmy CLIPPED, "|",
l_stockdet_from.sdonconsign CLIPPED, "|
",
l_stockdet_from.sdsaleable CLIPPED, "|",
l_stockdet_from.sdsupplier CLIPPED, "|",
l_stockdet_from.sdsuppslip CLIPPED, "|",
l_stockdet_from.sdordrno CLIPPED, "|
",
"0|0|0|0|0|0)"
CALL errorlog(l_errormsg)
Grant