Hook changes necessary to run ALERE SOC with PRO 7.5 build 3500.00 and later ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Mods to: Sopost.Vcx ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_linecancel TIW Hook #1 "DELETE/DELNEW" -- Comment out hook Modified: *-- TIW Hooks #1- Removed on 07/15/08---* *!* IF .so_Globals.gl_tiw *!* DO sc_hook WITH IIF(.Sl_NewSo,'DELNEW','DELETE') *!* ENDIF ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_linecancel TIW Hook #2 "CANCEL" -- Added hook UnModified: *-- Revert changes lo_Detail.m_RevertRow() IF lc_State == "D.E" OR ; lc_State == "D.ED" *\ [1 Line] PTR# 67764 03/06/03 TIVN Reset the edit line flag .sl_Editln = .f. *-- If editing, move to view State ThisFormSet.so_MgrState.m_StateChange("D.V") ELSE *-- If adding, move to select state ll_Result = .m_Event(Cn_DetAdd) ENDIF ENDIF ENDCASE Modified: *-- Revert changes lo_Detail.m_RevertRow() IF lc_State == "D.E" OR ; lc_State == "D.ED" .sl_Editln = .f. *-- If editing, move to view State ThisFormSet.so_MgrState.m_StateChange("D.V") ELSE *-- If adding, move to select state ll_Result = .m_Event(Cn_DetAdd) *----------------- TIW Hook #2 07/15/08 -Add CANCEL--------* IF .so_Globals.gl_tiw DO sc_hook WITH 'CANCEL' ENDIF *----------------- TIW Hook 07/15/08----------------------* ENDIF ENDIF ENDCASE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_vqtyord TIWHook #3A "PRICE" Add Hook UnModified: IF .so_Globals.gl_tiw PRIVATE m.kitprice m.kitprice = -1 DO sc_hook WITH 'PRICE' *-- TIW Hooks ln_nprice = IIF(m.kitprice = -1, ; ln_nprice, ; m.kitprice * a_somast->exchrat) ENDIF DO CASE CASE Cl_EntReturn AND NOT EMPTY(a_somast->ornum) *-- Applying Order return ll_SetPr = .f. CASE Cl_ReleBo *-- Releasing blanket order ll_SetPr = .f. TIWHOOK #3A "PRICE" Modified: IF .so_Globals.gl_tiw PRIVATE m.kitprice m.kitprice = -1 DO sc_hook WITH 'PRICE' *-- TIW Hooks ln_nprice = IIF(m.kitprice = -1, ; ln_nprice, ; m.kitprice * a_somast->exchrat) ENDIF *----------------- TIW Hook #3A -Added hook 07/15/08--------------------* IF .so_Globals.gl_tiw AND m.kitprice<>-1 AND !pl_RecLevl ll_SetPr = .T. ELSE *---------------- TIW Hook 07/15/08--(ENDIF in TIW HOOK#3B)-* DO CASE CASE Cl_EntReturn AND NOT EMPTY(a_somast->ornum) *-- Applying Order return ll_SetPr = .f. CASE Cl_ReleBo *-- Releasing blanket order ll_SetPr = .f. +++++++++++++++++++++++++++++++++++++++++++++++ TIWHook #3B "PRICE" UnModified: CASE lc_State == "D.A" AND ; (NOT .sl_CopyFrm OR .sl_CopyPrice) AND ; (ln_QtyOrd = ln_OldQty) *-- Qty is unchanged, don't update price ll_SetPr = .f. OTHERWISE ll_SetPr = (lc_State == "D.A" OR ; ln_QtyOrd <> ln_OldQty) ENDCASE Class: cmpsopostfs Method m_vqtyord TIWHOOK #3B "PRICE" Modified: CASE lc_State == "D.A" AND ; (NOT .sl_CopyFrm OR .sl_CopyPrice) AND ; (ln_QtyOrd = ln_OldQty) *-- Qty is unchanged, don't update price ll_SetPr = .f. OTHERWISE ll_SetPr = (lc_State == "D.A" OR ; ln_QtyOrd <> ln_OldQty) ENDCASE *----------------- TIW Hook #3B 07/15/08------------------* ENDIF *----------------- TIW Hook 07/15/08----------------------* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Mods to: Soprec.vcx ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsoprecfs Method m_main TIWHook #4 "OPEN" Comment out. Modified: *------------TIW Hook #4--Removed on 07/15/08-------* *!* *-- TIW Hooks *!* IF gl_tiw *!* RELEASE gl_sc_enab *!* PUBLIC gl_sc_enab *!* gl_sc_enab = .t. *!* DO sc_hook WITH 'OPEN' *!* ENDIF ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsoprecfs Method m_main TIWHook #5 "CLOSE" Comment Out. Modified: *------------TIW Hook #5--Removed on 07/15/08-------* *!* *-- TIW Hooks *!* IF .so_Globals.gl_tiw *!* DO sc_hook WITH 'CLOSE' *!* ENDIF ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsoprecfs Method m_process TIWHook #6 "OPEN" Add new hook UnModified: *-- Handle method setup ThisFormSet.so_MgrEvents.m_MethodStart() PRIVATE lo_FS, ; ln_tottax, ; lo_ProProc, ; lo_Globals, ; lo_Sorecr, ; ll_exchfrz LOCAL lo_Arcust, ; lo_Arcadr, ; lo_Icitem, ; lo_Iciloc, ; lo_Icserl, ; lo_Sotran, ; lo_Somast, ; lo_Soaddr, ; lo_Sysdat LOCAL ll_usetbl, ; ln_exchrat, ; lc_Exchfrz, ; ll_NotEof, ; ln_ordsub, ; ln_tax, ; ln_ordamt, ; lo_Progress, ; ln_totalcount, ; ln_CurrentCount PRIVATE lc_Yearprd lc_Yearprd = "" *-- Get reference lo_Sorecr = ThisFormSet.so_PI.m_GetRef("data.sorecr") lo_Arcust = ThisFormSet.so_PI.m_GetRef("data.arcust") Modified: *-- Handle method setup ThisFormSet.so_MgrEvents.m_MethodStart() PRIVATE lo_FS, ; ln_tottax, ; lo_ProProc, ; lo_Globals, ; lo_Sorecr, ; ll_exchfrz LOCAL lo_Arcust, ; lo_Arcadr, ; lo_Icitem, ; lo_Iciloc, ; lo_Icserl, ; lo_Sotran, ; lo_Somast, ; lo_Soaddr, ; lo_Sysdat LOCAL ll_usetbl, ; ln_exchrat, ; lc_Exchfrz, ; ll_NotEof, ; ln_ordsub, ; ln_tax, ; ln_ordamt, ; lo_Progress, ; ln_totalcount, ; ln_CurrentCount PRIVATE lc_Yearprd lc_Yearprd = "" *----------------- TIW Hook #6 -Added 07/15/08-------------------* IF gl_tiw RELEASE gl_sc_enab PUBLIC gl_sc_enab gl_sc_enab = .t. DO sc_hook WITH 'OPEN' ENDIF *----------------- TIW Hook 07/15/08----------------------* *-- Get reference lo_Sorecr = ThisFormSet.so_PI.m_GetRef("data.sorecr") lo_Arcust = ThisFormSet.so_PI.m_GetRef("data.arcust") ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsoprecfs Method m_process TIWHook #7 "RECORDERS" Replace existing Hook UnModified: lo_Sotran.m_ReplaceBulk("currid WITH lo_FS.sc_currid, " + ; "exchrat WITH lo_FS.sn_exchrat, " + ; "cost WITH lo_FS.so_ProProc.g_extnd(lo_FS.so_Globals.gn_deccst, bcost, lo_FS.sn_exchrat, 0), " + ; "bprice WITH lo_FS.so_ProProc.g_extnd(lo_FS.so_Globals.gn_decprc, price, 1/ lo_FS.sn_exchrat, 0), " + ; "bextpri WITH lo_FS.so_ProProc.g_extnd(lo_FS.so_Globals.gn_basedec, extprice, 1/ lo_FS.sn_exchrat, 0), " + ; "tbprice WITH lo_FS.so_ProProc.g_extnd(lo_FS.so_Globals.gn_decprc, tprice, 1/ lo_FS.sn_exchrat, 0)") IF .so_Globals.gl_lntax lo_Sotran.m_ReplaceBulk("taxcode WITH ThisFormSet.so_Fs.sc_taxcode, taxable WITH 'V'") ELSE lo_Sotran.m_ReplaceBulk("taxable WITH a_sorecr->taxable, taxcode WITH ''") ENDIF *-- TIW Hooks IF .so_Globals.gl_tiw DO sc_hook WITH 'RECORDERS' ENDIF IF .so_globals.gl_mlntax = .m_updmtax() ENDIF *-- Increment line item number ln_lineno = ln_lineno + 1 NEXT Modified: lo_Sotran.m_ReplaceBulk("currid WITH lo_FS.sc_currid, " + ; "exchrat WITH lo_FS.sn_exchrat, " + ; "cost WITH lo_FS.so_ProProc.g_extnd(lo_FS.so_Globals.gn_deccst, bcost, lo_FS.sn_exchrat, 0), " + ; "bprice WITH lo_FS.so_ProProc.g_extnd(lo_FS.so_Globals.gn_decprc, price, 1/ lo_FS.sn_exchrat, 0), " + ; "bextpri WITH lo_FS.so_ProProc.g_extnd(lo_FS.so_Globals.gn_basedec, extprice, 1/ lo_FS.sn_exchrat, 0), " + ; "tbprice WITH lo_FS.so_ProProc.g_extnd(lo_FS.so_Globals.gn_decprc, tprice, 1/ lo_FS.sn_exchrat, 0)") IF .so_Globals.gl_lntax lo_Sotran.m_ReplaceBulk("taxcode WITH ThisFormSet.so_Fs.sc_taxcode, taxable WITH 'V'") ELSE lo_Sotran.m_ReplaceBulk("taxable WITH a_sorecr->taxable, taxcode WITH ''") ENDIF *----------------- TIW Hook #7 -Changed 07/15/08-------------------* IF .so_Globals.gl_tiw PRIVATE cRecSono cRecSono = lo_Sorecr.sc_sono DO sc_hook WITH 'RECORDERS' ENDIF *----------------- TIW Hook 07/15/08----------------------* IF .so_globals.gl_mlntax = .m_updmtax() ENDIF *-- Increment line item number ln_lineno = ln_lineno + 1 NEXT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ TIWHook #8 "CLOSE" Add new hook Class: cmpsoprecfs Method m_process UnModified: *-- Radio Beacon hook ENDDO && WHILE NOT EOF() *-- Handle method cleanup ThisFormSet.so_MgrEvents.m_MethodEnd() Modified: *-- Radio Beacon hook ENDDO && WHILE NOT EOF() *----------------- TIW Hook #8 -Added 07/15/08-------------------* IF .so_Globals.gl_tiw DO sc_hook WITH 'CLOSE' ENDIF *----------------- TIW Hook 07/15/08----------------------* *-- Handle method cleanup ThisFormSet.so_MgrEvents.m_MethodEnd() ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Mods to: soTran.prg ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Program: sotran FUNCTION: l_somain TIWHook #9 & #10 "OPEN" & "CLOSE" Add 2 hooks. UnModified: CASE pc_sotype = Cc_DrpType AND lc_action = ".EXEC" *# DOCCODE DO soshpp *-- Passed log file name to soshpp DO (gc_adrvprg + "soshpp") WITH pc_sotype, pc_logfil, .f., .f., pl_SkipInvoice, , , po_ProgressBar CASE ll_shpmnt Modified: CASE pc_sotype = Cc_DrpType AND lc_action = ".EXEC" *# DOCCODE DO soshpp *-- Passed log file name to soshpp *----------------- TIW Hook #9 -Added 07/15/08-------------------* RELEASE gl_sc_enab PUBLIC gl_sc_enab gl_sc_enab = .T. DO sc_hook WITH 'OPEN' *----------------- TIW Hook 07/15/08----------------------* DO (gc_adrvprg + "soshpp") WITH pc_sotype, pc_logfil, .f., .f., pl_SkipInvoice, , , po_ProgressBar *----------------- TIW Hook #10 -Added 07/15/08------------------* DO sc_hook WITH 'CLOSE' *----------------- TIW Hook 07/15/08----------------------* CASE ll_shpmnt ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Additional Mods to: Sopost.Vcx ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_vitem TIWHook #11 "LOAD" Add new hook UnModified: *\ Removed the TIW Hooks .so_Globals.gl_tiw = .f. *-- Read variables for new record and switch to edit state lo_Detail.m_SetRecordValues(Cn_Init) Modified: *----------------- TIW Hook #11 -Added 07/15/08-------------------* IF .so_Globals.gl_tiw *-- Read variables for new record and switch to edit state lo_Detail.m_SetRecordValues(Cn_Init) PRIVATE m.custmemo, ; m.intmemo, ; m.kitcost, ; m.kitprice, ; m.kitbcost, ; m.kitbprice STORE '' TO m.custmemo, ; m.intmemo, ; m.kitcost, ; m.kitprice, ; m.kitbcost, ; m.kitbprice DO sc_hook WITH 'LOAD' ENDIF *!* *-- Removed the TIW Hooks *!* .so_Globals.gl_tiw = .f. Removed by TIW 07/15/08 *----------------- TIW Hook 07/15/08----------------------* *-- Read variables for new record and switch to edit state lo_Detail.m_SetRecordValues(Cn_Init) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_vitem TIWHook #12 "LOAD" Add code UnModified: IF .so_Globals.gl_tiw *-- TIW Hooks IF TYPE('m.kitbcost')='N' WITH lo_Detail *-- Base Currency Cost .Sn_FormCost = m.kitbcost *-- Foreign/Transaction Currency Price .Sn_FormPrice = m.kitprice .Sc_Custmemo = IIF(EMPTY(m.custmemo),'N','Y') .Sc_Intmemo = IIF(EMPTY(m.intmemo),'N','Y') ENDWITH ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("bcost", m.kitbcost) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("bprice", m.kitbprice) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("cost", m.kitcost) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("price", m.kitprice) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("custmemo", m.custmemo) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("intmemo", m.intmemo) ENDIF && TYPE('m.kitbcost')='N' ENDIF .sc_DefLoct = lc_ILocId Modified: *----------------- TIW Hook #12 07/15/08--Added lines in ThisFormSet---* IF .so_Globals.gl_tiw *-- TIW Hooks IF TYPE('m.kitbcost')='N' WITH lo_Detail *-- Base Currency Cost .Sn_FormCost = m.kitbcost *-- Foreign/Transaction Currency Price .Sn_FormPrice = m.kitbprice .Sc_Custmemo = IIF(EMPTY(m.custmemo),'N','Y') .Sc_Intmemo = IIF(EMPTY(m.intmemo),'N','Y') ENDWITH ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("bcost", m.kitbcost) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("Tbcost", m.kitbcost) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("bprice", m.kitbprice) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("Tbprice", m.kitbprice) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("cost", m.kitcost) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("Tcost", m.kitcost) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("price", m.kitprice) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("Tprice", m.kitprice) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("custmemo", m.custmemo) ThisFormSet.so_MgrData.cmpAc_Detail.m_Replace("intmemo", m.intmemo) *----------------- TIW Hook #12 07/15/08-------------------* ENDIF && TYPE('m.kitbcost')='N' ENDIF .sc_DefLoct = lc_ILocId ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_event TIWHook #13 "CANCEL" Change hook UnModified: IF .so_Globals.gl_tiw DO sc_hook WITH 'CANCEL' ENDIF Modified: *----------------- TIW Hook #13 -Changed 07/15/08--------------------* IF .so_Globals.gl_tiw AND ll_Result DO sc_hook WITH 'CANCEL' ENDIF ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_event TIWHook #14A "KEEP" -- Comment out hook Modified: *-- TIW SOC Hook #14A -removed 07/15/08 --* *!* IF .so_Globals.gl_tiw AND ll_result *!* DO sc_hook WITH 'KEEP' *!* ENDIF ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_savok TIWHook #14B "KEEP" -- Add hook Unmodified: IF .sl_NewSo AND .sl_SaveMultiTran WITH ThisFormSet.so_PI.m_GetRef("Event.SavePart1") ll_Ok = .m_Run() ENDWITH IF ll_Ok WITH ThisFormSet.so_PI.m_GetRef("Event.SavePart2") Modified: IF .sl_NewSo AND .sl_SaveMultiTran WITH ThisFormSet.so_PI.m_GetRef("Event.SavePart1") ll_Ok = .m_Run() ENDWITH IF ll_Ok *-- Begin TIW SOC Hook #14B -Added 07/15/08 --* IF .so_Globals.gl_tiw LOCAL nRecNo SELECT a_sotran nRecNo = IIF(EOF(),0,RECNO()) GO BOTTOM IF nRecNo<>0 GO nRecNo ENDIF DO sc_hook WITH 'KEEP' ENDIF *-- End TIW SOC Hook #14B added 07/15/08 --* WITH ThisFormSet.so_PI.m_GetRef("Event.SavePart2") ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_savok TIWHook #14C "KEEP" -- Add hook Unmodified: WITH ThisFormSet.so_PI.m_GetRef("Event.Save") .m_Run() ENDWITH Modified: WITH ThisFormSet.so_PI.m_GetRef("Event.Save") .m_Run() *-- Begin TIW SOC Hook #14C -Added 07/15/08 --* IF THIS.so_Globals.gl_tiw LOCAL nRecNo SELECT a_sotran nRecNo = IIF(EOF(),0,RECNO()) GO BOTTOM IF nRecNo<>0 GO nRecNo ENDIF DO sc_hook WITH 'KEEP' ENDIF *-- End TIW SOC Hook #14C -Added 07/15/08 --* ENDWITH ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_savso2 #15A -- Saving kit material list with Ext Qty to SoTran.IntMemo Unmodified: IF pl_IsNew *-- New SO *-- Append line items lo_Sotran.m_Select() IF NOT Cl_EntBid lo_Detail.m_Select() IF lo_Detail.m_Locate("ac_Detail->sotype = 'D'") *-- Order is being drop shipped. Add records to sodrop Modified: IF pl_IsNew *-- New SO *----------------- TIW 07/15/08 --Added lines ---* IF .so_Globals.gl_tiw lo_Detail.m_Select() lo_Detail.m_MoveRecord(Cn_TopRec) ll_EOF = lo_Detail.m_IsEOF() DO WHILE NOT ll_EOF lo_SoTran.m_ReplaceBulk("intmemo WITH ac_Detail->intmemo", ; "F", "sono+STR(tranlineno,4)=ac_Detail->sono + STR(ac_Detail->tranlineno,4)",.t.) ll_EOF = NOT lo_Detail.m_MoveRecord(Cn_NextRec) ENDDO ENDIF *----------------- TIW 07/15/08 --Added lines ---* *-- Append line items lo_Sotran.m_Select() IF NOT Cl_EntBid lo_Detail.m_Select() IF lo_Detail.m_Locate("ac_Detail->sotype = 'D'") *-- Order is being drop shipped. Add records to sodrop ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_savso2 #15B -- Saving kit material list with Ext Qty to SoTran.IntMemo UnModified: IF NOT lc_State == "H.E" ll_UpdOk = .m_SavDtl() ENDIF .m_ChkOrder() *-- Update somast lo_Somast.m_SaveEdit() ENDIF && pl_IsNew Modified: IF NOT lc_State == "H.E" ll_UpdOk = .m_SavDtl() ENDIF .m_ChkOrder() *----------------- TIW 07/15/08 --Added lines ---* IF .so_Globals.gl_tiw lo_Detail.m_Select() lo_Detail.m_MoveRecord(Cn_TopRec) ll_EOF = lo_Detail.m_IsEOF() DO WHILE NOT ll_EOF IF lo_SoTran.m_Seek(ac_Detail->sono + STR(ac_Detail->tranlineno,4), "sono1") lo_SoTran.m_Replace("intmemo", ac_Detail->intmemo) *-- Save changes lo_SoTran.m_SaveEdit(Cl_NoUserStamp) ENDIF ll_EOF = NOT lo_Detail.m_MoveRecord(Cn_NextRec) ENDDO ENDIF *----------------- TIW 07/15/08 --Added lines ---* *-- Update somast lo_Somast.m_SaveEdit() ENDIF && pl_IsNew ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_cpyord #17 -- Add hook - Copy configuration with copied order Unmodified: ENDDO ThisFormSet.so_MgrData.so_CurrentAlias.m_ScanEnd() *-- Close the cursor so that it will be erased. IF ThisFormSet.so_MgrData.m_IsUsed("ac_tmpcopy") Modified: ENDDO ThisFormSet.so_MgrData.so_CurrentAlias.m_ScanEnd() *-- Begin TIW SOC Hook #17 -Added 07/15/08 --* IF .so_Globals.gl_tiw cCopyFromSO = .sc_CpySoNo cCopyToSO = lc_SavSoNo DO sc_hook WITH "COPYFROM" ENDIF *-- End TIW SOC Hook #17 -Added 07/15/08 --* *-- Close the cursor so that it will be erased. IF ThisFormSet.so_MgrData.m_IsUsed("ac_tmpcopy") ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_linedelete #18 -- Remove hook - 3rd hook in method needs to be relocated Unmodified: *-- Set flag to note change has been made .sl_TranChg = .t. IF .so_Globals.gl_tiw *-- TIW Hooks DO sc_hook WITH IIF(.Sl_newso,'DELNEW','DELETE') ENDIF Modified: *-- Set flag to note change has been made .sl_TranChg = .t. *----------------- TIW 09/17/2009 --Removed lines ---* *!* IF .so_Globals.gl_tiw *!* *-- TIW Hooks *!* DO sc_hook WITH IIF(.Sl_newso,'DELNEW','DELETE') *!* ENDIF *----------------- TIW 09/17/2009 --Removed lines ---* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Class: cmpsopostfs Method m_linedelete #19 -- Add hook - (relocated from #18) Unmodified: *-- Delete lines in cursor ThisFormSet.so_MgrData.cmpAc_Serial.m_DeleteBulk("F", ; "ac_Serial->sono = ac_Detail->sono AND " + ; "ac_Serial->tranlineno = ac_Detail->tranlineno") lo_Serial.m_SaveAll() IF .sl_NewSo Modified: *-- Delete lines in cursor ThisFormSet.so_MgrData.cmpAc_Serial.m_DeleteBulk("F", ; "ac_Serial->sono = ac_Detail->sono AND " + ; "ac_Serial->tranlineno = ac_Detail->tranlineno") lo_Serial.m_SaveAll() *----------------- TIW 09/17/2009 --Added lines ---* IF .so_Globals.gl_tiw *-- TIW Hooks DO sc_hook WITH IIF(.Sl_newso,'DELNEW','DELETE') ENDIF *----------------- TIW 09/17/2009 --Added lines ---* IF .sl_NewSo ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Mods to: SoShip.prg ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Program: SoShip Function: l_shipord #16 -- Saving kit material list changes to SoTran.IntMemo UnModified: DO (gc_adrvprg + "soshpp") WITH lc_sotype, lc_outfile, .t., ll_ClosePeOrd, ; ll_SkipInvoice, ; lc_PayMode, ; lo_ArCcTr, ; "", ; minvno *-- retrive the form name lc_form = lc_formsave go_SQL.m_TableChangeCurrent("a_tmpf1") go_SQL.cmpA_tmpf1.m_SetFilter("") Modified: DO (gc_adrvprg + "soshpp") WITH lc_sotype, lc_outfile, .t., ll_ClosePeOrd, ; ll_SkipInvoice, ; lc_PayMode, ; lo_ArCcTr, ; "", ; minvno *-- retrive the form name lc_form = lc_formsave *----------------- TIW 07/15/08 --Added lines ---* IF gl_tiw *-- Save changes to intmemo field go_SQL.m_TableChangeCurrent("a_sotran") go_SQL.cmpA_Sotran.m_SetOrder("sono1") go_SQL.m_TableChangeCurrent("a_tmpf1") go_SQL.cmpA_Tmpf1.m_MoveRecord(Cn_TopRec) SCAN WHILE a_tmpf1->custno + a_tmpf1->sono = lc_custno + lc_sono = go_SQL.cmpA_Sotran.m_Seek(a_tmpf1->sono + STR(a_tmpf1->tranlineno, 4), "") go_SQL.cmpA_Sotran.m_ReplaceBulk("intmemo WITH a_tmpf1->intmemo") go_SQL.m_TableChangeCurrent("a_tmpf1") ENDSCAN go_SQL.m_TableChangeCurrent("a_sotran") ENDIF *----------------- TIW 07/15/08 --Added lines ---* go_SQL.m_TableChangeCurrent("a_tmpf1") go_SQL.cmpA_tmpf1.m_SetFilter("") ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++