Example #1
0
        private otAnyActionData AnyActionDataForSaveObject(string CurPacientRef)
        {
            string vFormMode  = "";
            string vObjectRef = "";

            if (hidformmode.Value == "mnew")
            {
                vFormMode = "mnew";
            }
            else
            {
                vObjectRef = ObjectRef;
            }
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 127;
            otAnyActionParam[] prAAP = new otAnyActionParam[12];
            FillAAP(prAAP, 0, "prRef", vObjectRef);
            FillAAP(prAAP, 1, "vFormMode", vFormMode);
            FillAAP(prAAP, 2, "prName", tb_ParamName.Text);
            FillAAP(prAAP, 3, "prCaption", tb_ParamCaption.Text);
            FillAAP(prAAP, 4, "prDateTypeRef", cbDataTypeList.SelectedValue);
            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #2
0
        protected string SaveObject()
        {
            UserData = new UserData();
            UserData.CheckSession();
            wsSky wsd;

            wsd = new wsSky();
            otAnyActionResp wssod;

            ServicePointManager.Expect100Continue    = false;
            wsd.UnsafeAuthenticatedConnectionSharing = true;
            wsd.Credentials = UserData.NetCred;
            wsd.Timeout     = 2000000;
            otAnyActionData AnyActionData = AnyActionDataForSaveObjectAttrs(ObjectRef);

            wssod = wsd.fAnyAction(UserData.UserRef, AnyActionData);
            otAnyActionParam[] aap = wssod.prAnyActionParams;

            // - параметры пока сохраняются поштучно AnyActionData = AnyActionDataForSaveObjectContent(ObjectRef);
            //wssod = wsd.fAnyAction(UserData.UserRef, AnyActionData);
            //aap = wssod.prAnyActionParams;

            string objref = ApplTools.AnyActionDataValue(aap, "vRef");

            return(objref);
        }
Example #3
0
        protected void SaveObject()
        {
            UserData = new UserData();
            UserData.CheckSession();
            wsSky wsd;

            wsd = new wsSky();
            otAnyActionResp wssod;

            ServicePointManager.Expect100Continue    = false;
            wsd.UnsafeAuthenticatedConnectionSharing = true;
            wsd.Credentials = UserData.NetCred;
            wsd.Timeout     = 2000000;
            otAnyActionData AnyActionData = AnyActionDataForSaveObject(ObjectRef);

            wssod = wsd.fAnyAction(UserData.UserRef, AnyActionData);
            if (wssod.prRespHeader.prRespResult < 0)
            {
                (Master.FindControl("lMasterTextTop") as Label).Text = wssod.prRespHeader.prRespMessage;
            }
            else
            {
                otAnyActionParam[] aap    = wssod.prAnyActionParams;
                string             objref = ApplTools.AnyActionDataValue(aap, "prObjectRef");
                Response.Redirect("ParamPage.aspx?objref=" + objref);
            }
        }
Example #4
0
        private otAnyActionData AnyActionDataForSaveObjectAttrs(string CurObjectRef)
        {
            string vFormMode = "";
            string vRef      = "";

            if (hidformmode.Value == "mnew")
            {
                vFormMode = "mnew";
            }
            else
            {
                vRef = CurObjectRef;
            }
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 117;                                 //СохранитьРеквизитыШаблонаWS
            otAnyActionParam[] prAAP = new otAnyActionParam[4];     //размерность массива !

            FillAAP(prAAP, 0, "vRef", vRef);
            FillAAP(prAAP, 1, "vFormMode", vFormMode);
            FillAAP(prAAP, 2, "vName", (FindControlRec(this, "tb_tmpl_name") as TextBox).Text);
            FillAAP(prAAP, 3, "vCaption", (FindControlRec(this, "tb_tmpl_caption") as TextBox).Text);

            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #5
0
        protected void AddNewParamToObject()
        {
            if (hidformmode.Value == "mnew")
            {
                ObjectRef = SaveObject();
            }

            UserData = new UserData();
            UserData.CheckSession();
            wsSky wsd;

            wsd = new wsSky();
            otAnyActionResp wssod;

            ServicePointManager.Expect100Continue    = false;
            wsd.UnsafeAuthenticatedConnectionSharing = true;
            wsd.Credentials = UserData.NetCred;
            wsd.Timeout     = 2000000;
            otAnyActionData AnyActionData = AnyActionDataForAddNewParamToObject(ObjectRef);

            wssod = wsd.fAnyAction(UserData.UserRef, AnyActionData);
            otAnyActionParam[] aap = wssod.prAnyActionParams;

            string objref = ApplTools.AnyActionDataValue(aap, "vRef");

            Response.Redirect("TemplatePage.aspx?objref=" + objref);
        }
Example #6
0
        private otAnyActionData AnyActionDataForSaveObjectContent(string CurObjectRef)
        {
            string vFormMode = "";
            string vRef      = "";

            //if (hidformmode.Value == "mnew")
            //{
            //    vFormMode = "mnew";
            //}
            //else
            //{
            //    vRef = CurObjectRef;
            //}
            vRef = CurObjectRef;
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 117;                                 //СохранитьРеквизитыШаблонаWS
            otAnyActionParam[] prAAP = new otAnyActionParam[4];     //размерность массива !

            //Table tab1 = FindControl("table_main") as Table;
            //Table tab2 = FindControl("MainContent_tab_object_header") as Table;
            FillAAP(prAAP, 0, "vRef", vRef);
            FillAAP(prAAP, 1, "vFormMode", vFormMode);
            FillAAP(prAAP, 2, "vName", (FindControlRec(this, "tb_tmpl_name") as TextBox).Text);
            FillAAP(prAAP, 3, "vCaption", (FindControlRec(this, "tb_tmpl_caption") as TextBox).Text);

            //"actAdd"
            //"actDel"

            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #7
0
        private void DeleteObject(string vRef)
        {
            UserData = new UserData();
            UserData.CheckSession();
            wsSky wsd;

            wsd = new wsSky();
            otAnyActionResp wssod;

            ServicePointManager.Expect100Continue    = false;
            wsd.UnsafeAuthenticatedConnectionSharing = true;
            wsd.Credentials = UserData.NetCred;
            wsd.Timeout     = 2000000;
            otAnyActionData AnyActionData = AnyActionDataForDeleteObject(ObjectRef);

            wssod = wsd.fAnyAction(UserData.UserRef, AnyActionData);
            if (wssod.prRespHeader.prRespResult < 0)
            {
                (Master.FindControl("lMasterTextTop") as Label).Text = wssod.prRespHeader.prRespMessage;
            }
            else
            {
                Response.Redirect("TemplateList.aspx");
            }
        }
Example #8
0
        private otAnyActionData AnyActionDataForTemplateList()
        {
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 113;
            otAnyActionParam[] prAAP = new otAnyActionParam[1];
            prAAP[0]                    = new otAnyActionParam();
            prAAP[0].prName             = "vServiceRef";
            prAAP[0].prValue            = ServiceRef;
            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #9
0
        private otAnyActionData AnyActionDataForParamPage()
        {
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 126;
            otAnyActionParam[] prAAP = new otAnyActionParam[1];
            prAAP[0]                    = new otAnyActionParam();
            prAAP[0].prName             = "vObjectRef";
            prAAP[0].prValue            = ObjectRef;
            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #10
0
        private otAnyActionData AnyActionDataForParamList()
        {
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 116;
            otAnyActionParam[] prAAP = new otAnyActionParam[1];
            prAAP[0]                    = new otAnyActionParam();
            prAAP[0].prName             = "";
            prAAP[0].prValue            = "";
            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #11
0
        private otAnyActionData AnyActionDataForObjectList()
        {
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 125;                                 //ВыводСтраницыСписокПараметров
            otAnyActionParam[] prAAP = new otAnyActionParam[2];     //!!! размер массива

            FillAAP(prAAP, 0, "vPageNum", "1");
            FillAAP(prAAP, 1, "vRowsPerPage", "20");
            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #12
0
        private otAnyActionData AnyActionDataForDeleteParamFromTemplate(string CurObjectRef, string ParamRef)
        {
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 120;                                 //УдалитьПараметрИзШаблона
            otAnyActionParam[] prAAP = new otAnyActionParam[2];     //размерность массива !

            FillAAP(prAAP, 0, "vRef", CurObjectRef);
            FillAAP(prAAP, 1, "vParamRef", ParamRef);

            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #13
0
        protected void SaveNewService()
        {
            UserData = new UserData();
            UserData.CheckSession();
            wsSky           wsd = UserData.NewWS();
            otAnyActionResp wssod;
            otAnyActionData AnyActionData = AnyActionDataForNewService();

            wssod = wsd.fAnyAction(UserData.UserRef, AnyActionData);
            //tb_SurName.Text = wssod.prAnyActionParams[0].prValue;
            otAnyActionParam[] aap           = wssod.prAnyActionParams;
            string             NewServiceRef = ApplTools.AnyActionDataValue(aap, "vServiceRef");

            Response.Redirect("ServicePage.aspx?serref=" + NewServiceRef);
        }
Example #14
0
        private otAnyActionData AnyActionDataForNewService()
        {
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 107;
            otAnyActionParam[] prAAP = new otAnyActionParam[2];
            prAAP[0]                    = new otAnyActionParam();
            prAAP[0].prName             = "vTemplateRef";
            prAAP[0].prValue            = cbTemplates.SelectedValue;
            prAAP[1]                    = new otAnyActionParam();
            prAAP[1].prName             = "vPacientRef";
            prAAP[1].prValue            = (Master.FindControl("hidpacref") as HiddenField).Value;
            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #15
0
        protected void FillDataTypeList()
        {
            wsSky           wsd = UserData.NewWS();
            otAnyActionResp wssod;
            otAnyActionData AnyActionData = AnyActionDataForDataTypeList();

            wssod = wsd.fAnyAction(UserData.UserRef, AnyActionData);

            otAnyActionParam[] DataTypeList = wssod.prAnyActionParams;
            dsDataTypeCB = new tAnyParamList(DataTypeList);

            cbDataTypeList.DataSource     = dsDataTypeCB;
            cbDataTypeList.DataTextField  = "prName";
            cbDataTypeList.DataValueField = "prValue";
            cbDataTypeList.DataBind();
        }
Example #16
0
        private otAnyActionData AnyActionDataForDeleteObject(string CurObjectRef)
        {
            string vRef = "";

            vRef = CurObjectRef;
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 121;                                 //УдалитьОбъектWS
            otAnyActionParam[] prAAP = new otAnyActionParam[2];     //размерность массива !

            FillAAP(prAAP, 0, "vRef", vRef);
            FillAAP(prAAP, 1, "vObjType", "1");

            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #17
0
        private otAnyActionData AnyActionDataForAddParamToObject(string CurObjectRef)
        {
            string vRef = "";

            vRef = CurObjectRef;
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 118;                                 //ДобавитьПараметрВШаблонWS
            otAnyActionParam[] prAAP = new otAnyActionParam[2];     //размерность массива !

            FillAAP(prAAP, 0, "vRef", vRef);
            FillAAP(prAAP, 1, "vParamRef", cbParamList.SelectedValue);

            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #18
0
        private otAnyActionData AnyActionDataForAddNewParamToObject(string CurObjectRef)
        {
            string vRef = "";

            vRef = CurObjectRef;
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 123;                                 //ДобавитьПараметрВШаблонWS
            otAnyActionParam[] prAAP = new otAnyActionParam[4];     //размерность массива !

            FillAAP(prAAP, 0, "vRef", vRef);
            FillAAP(prAAP, 1, "vParamDataType", cbDataTypeList.SelectedValue);
            FillAAP(prAAP, 2, "vParamName", tb_NewParamName.Text);
            FillAAP(prAAP, 3, "vParamCaption", tb_NewParamCaption.Text);

            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #19
0
        private otAnyActionData AnyActionDataForSavePacient(string CurPacientRef)
        {
            string vFormMode   = "";
            string vPacientRef = "";

            if (hidformmode.Value == "mnew")
            {
                vFormMode = "mnew";
            }
            else
            {
                vPacientRef = CurPacientRef;
            }
            otAnyActionData XDTO_Root = new otAnyActionData();

            XDTO_Root.prWSID = 111;
            otAnyActionParam[] prAAP = new otAnyActionParam[12];
            FillAAP(prAAP, 0, "vPacientRef", vPacientRef);
            FillAAP(prAAP, 1, "vFormMode", vFormMode);
            FillAAP(prAAP, 2, "vSurName", tb_SurName.Text);
            FillAAP(prAAP, 3, "vFirstName", tb_FirstName.Text);
            FillAAP(prAAP, 4, "vFatherName", tb_FatherName.Text);
            FillAAP(prAAP, 5, "vDateBirth", tb_DateBirth.Text);
            FillAAP(prAAP, 6, "vComment", tb_Comment.Text);
            FillAAP(prAAP, 7, "vAddressReg", tb_AddressReg.Text);
            FillAAP(prAAP, 8, "vAddressHome", tb_AddressHome.Text);
            FillAAP(prAAP, 9, "vPhoneNumber", tb_PhoneNumber.Text);
            FillAAP(prAAP, 10, "vEMail", tb_EMail.Text);
            FillAAP(prAAP, 11, "vCardCode", tb_CardCode.Text);
            //FillAAP(prAAP, 7, "xxx", xxx.Text);
            //FillAAP(prAAP, 7, "xxx", xxx.Text);
            //FillAAP(prAAP, 7, "xxx", xxx.Text);
            //FillAAP(prAAP, 7, "xxx", xxx.Text);
            //FillAAP(prAAP, 7, "xxx", xxx.Text);

            //prAAP[0] = new otAnyActionParam();
            //prAAP[0].prName = "vPacientRef";
            //prAAP[0].prValue = PacientRef;
            //prAAP[1] = new otAnyActionParam();
            //prAAP[1].prName = "vFormMode";
            //prAAP[1].prValue = "mnew";
            XDTO_Root.prAnyActionParams = prAAP;
            return(XDTO_Root);
        }
Example #20
0
        private otAnyActionParam[] DetailList(string UserRef)
        {
            wsSky wsd;

            wsd = new wsSky();
            otAnyActionResp wssod;

            ServicePointManager.Expect100Continue    = false;
            wsd.UnsafeAuthenticatedConnectionSharing = true;
            wsd.Credentials = UserData.NetCred;
            wsd.Timeout     = 2000000;
            //int vStateID = (int)Session["OrdersStateFilter"];
            otAnyActionData AnyActionData = AnyActionDataForTemplateList();

            wssod = wsd.fAnyAction(UserRef, AnyActionData);
            //***RecordCount = wssod.prRecordCount;
            (Master.FindControl("lMasterTextTop") as Label).Text = wssod.prRespHeader.prRespMessage;

            otAnyActionParam[] DetailList = wssod.prAnyActionParams;
            return(DetailList);
        }
Example #21
0
        protected void FillTemplateList()
        {
            wsSky           wsd = UserData.NewWS();
            otAnyActionResp wssod;
            otAnyActionData AnyActionData = AnyActionDataForTemplateList();

            wssod = wsd.fAnyAction(UserData.UserRef, AnyActionData);


            otAnyActionParam[] TemplateList = wssod.prAnyActionParams;
            dsTemplates = new tAnyParamList(TemplateList);


            cbTemplates.DataSource     = dsTemplates;
            cbTemplates.DataTextField  = "prName";
            cbTemplates.DataValueField = "prValue";
            cbTemplates.DataBind();

            //NewRow = new otStringRow();
            //NewRow.prRowText = ReasonRef;
            //NewRow.prRowValue
        }
Example #22
0
        private void CallWS(string UserRef)
        {
            wsSky wsd;

            wsd = new wsSky();
            otAnyActionResp wssod;

            ServicePointManager.Expect100Continue    = false;
            wsd.UnsafeAuthenticatedConnectionSharing = true;
            wsd.Credentials = UserData.NetCred;
            wsd.Timeout     = 2000000;
            otAnyActionData AnyActionData = AnyActionDataForParamPage();

            wssod = wsd.fAnyAction(UserRef, AnyActionData);
            (Master.FindControl("lMasterTextTop") as Label).Text = wssod.prRespHeader.prRespMessage;
            //tb_SurName.Text = wssod.prAnyActionParams[0].prValue;
            otAnyActionParam[] aap = wssod.prAnyActionParams;
            tb_ParamName.Text            = ApplTools.AnyActionDataValue(aap, "prName");
            tb_ParamCaption.Text         = ApplTools.AnyActionDataValue(aap, "prCaption");
            cbDataTypeList.SelectedValue = ApplTools.AnyActionDataValue(aap, "prDateTypeRef");
            tb_ParamCreateUser.Text      = ApplTools.AnyActionDataValue(aap, "prCreateUser");
            tb_ParamCreateDate.Text      = ApplTools.AnyActionDataValue(aap, "prCreateDate");
        }
Example #23
0
        private void CallWS(string UserRef)
        {
            wsSky wsd;

            wsd = new wsSky();
            otAnyActionResp wssod;

            ServicePointManager.Expect100Continue    = false;
            wsd.UnsafeAuthenticatedConnectionSharing = true;
            wsd.Credentials = UserData.NetCred;
            wsd.Timeout     = 2000000;
            otAnyActionData AnyActionData = AnyActionDataForPacientPage();

            wssod = wsd.fAnyAction(UserRef, AnyActionData);
            (Master.FindControl("lMasterTextTop") as Label).Text = wssod.prRespHeader.prRespMessage;
            //tb_SurName.Text = wssod.prAnyActionParams[0].prValue;
            otAnyActionParam[] aap = wssod.prAnyActionParams;
            tb_SurName.Text     = ApplTools.AnyActionDataValue(aap, "vSurName");
            tb_PhoneNumber.Text = ApplTools.AnyActionDataValue(aap, "vPhoneNumber");
            tb_FirstName.Text   = ApplTools.AnyActionDataValue(aap, "vFirstName");
            tb_EMail.Text       = ApplTools.AnyActionDataValue(aap, "vEMail");
            tb_FatherName.Text  = ApplTools.AnyActionDataValue(aap, "vFatherName");
            tb_CreateDate.Text  = ApplTools.AnyActionDataValue(aap, "vCreateDate");
            tb_DateBirth.Text   = ApplTools.AnyActionDataValue(aap, "vDateBirth");
            tb_CreateUser.Text  = ApplTools.AnyActionDataValue(aap, "vCreateUser");
            tb_Sex.Text         = ApplTools.AnyActionDataValue(aap, "vSex");
            tb_Source.Text      = ApplTools.AnyActionDataValue(aap, "vSource");
            tb_Passport.Text    = ApplTools.AnyActionDataValue(aap, "vPassport");
            tb_LastDate.Text    = ApplTools.AnyActionDataValue(aap, "vLastDate");
            tb_CardCode.Text    = ApplTools.AnyActionDataValue(aap, "vCardCode");
            tb_AddressReg.Text  = ApplTools.AnyActionDataValue(aap, "vAddressReg");
            tb_AddressHome.Text = ApplTools.AnyActionDataValue(aap, "vAddressHome");
            tb_Comment.Text     = ApplTools.AnyActionDataValue(aap, "vComment");
            tb_BloodGroup.Text  = ApplTools.AnyActionDataValue(aap, "vBloodGroup");
            tb_BloodRezus.Text  = ApplTools.AnyActionDataValue(aap, "vBloodRezus");
        }