I think im getting somewhere with this, now by default it opens order page with custom address, cannot try web service properly until i restart the services. i will restart tonight(because this is live im playing with) -and i will tell you the progress
i changed page 42 as below
OnAfterGetRecord()
SetControlVisibility;
UpdateShipToBillToGroupVisibility;
ShipToOptions:=ShipToOptions::"Custom Address";
OnNewRecord(BelowxRec : Boolean)
"Responsibility Center" := UserMgt.GetSalesFilter;
IF (NOT DocNoVisible) AND ("No." = '') THEN
SetSellToCustomerFromFilter;
SetDefaultPaymentServices;
UpdateShipToBillToGroupVisibility;
ShipToOptions:=ShipToOptions::"Custom Address";
OnInsertRecord(BelowxRec : Boolean) : Boolean
IF DocNoVisible THEN
CheckCreditMaxBeforeInsert;
IF ("Sell-to Customer No." = '') AND (GETFILTER("Sell-to Customer No.") <> '') THEN
CurrPage.UPDATE(FALSE);
ShipToOptions:=ShipToOptions::"Custom Address";
Sell-to Customer Name - OnValidate()
IF GETFILTER("Sell-to Customer No.") = xRec."Sell-to Customer No." THEN
IF "Sell-to Customer No." <> xRec."Sell-to Customer No." THEN
SETRANGE("Sell-to Customer No.");
IF ApplicationAreaSetup.IsFoundationEnabled THEN
SalesCalcDiscountByType.ApplyDefaultInvoiceDiscount(0,Rec);
CurrPage.UPDATE;
ShipToOptions:=ShipToOptions::"Custom Address";