Ejemplo n.º 1
0
        //public EspackFileDataContainer FdcData { get; set; } = new EspackFileDataContainer();

        public fDocumentControl()
        {
            InitializeComponent();
            //try
            //{
            //CTLM definitions
            CTLM.Conn    = Values.gDatos;
            CTLM.sSPAdd  = "pDocumentsCabAdd";
            CTLM.DBTable = "vDocumentControl";

            //var txtFileName = (EspackTextBox)fsFileData;
            var FdcData = new EspackFileDataContainer();

            //file containers
            fsFileData.FileData    = FdcData;
            fsFileData.PDFFileData = FdcPDFData;
            //Header
            CTLM.AddItem(txtDocumentCode, "DocumentCode", CTLMControlTypes.NoAddPK);
            CTLM.AddItem(txtTypeCode, "TypeCode", CTLMControlTypes.AddSearch);
            CTLM.AddItem(txtSubtype, "SubTypeCode", CTLMControlTypes.AddSearch);
            CTLM.AddItem(txtSection, "SectionCode", CTLMControlTypes.AddSearch);
            CTLM.AddItem(txtTitle, "Title", CTLMControlTypes.AddSearch);
            CTLM.AddItem(fsFileData, "DocumentFileName", CTLMControlTypes.AddSearch);
            CTLM.AddItem(FdcData, "DATA", CTLMControlTypes.AddNoSearch);
            CTLM.AddItem(FdcPDFData, "PDFDATA", CTLMControlTypes.AddNoSearch);
            CTLM.AddItem(txtEdition, "Edition", CTLMControlTypes.Search);
            CTLM.AddItem(txtStatus, "Status", CTLMControlTypes.Search);
            CTLM.AddItem(lstFlags, "flags", CTLMControlTypes.AddSearch);

            //Fields
            lstFlags.Source("Select codigo,DescFlagEng from flags where Tabla='DocumentsCab'");
            fsFileData.Click += BtnSearch_Click;
            VS.Conn           = Values.gDatos;
            VS.SQL            = "Select TypeCode,SectionCode,Title from DocumentsCab ";
            VS.Start();

            //Resize += FDocumentControl_Resize;

            VS.UpdateEspackControl();
            //CTLM.AddItem(VS);
            //start
            CTLM.ReQuery = true;
            CTLM.AddDefaultStatusStrip();
            CTLM.Start();
            //VS.AddFilterCell(EspackCellTypes.WILDCARDTEXT, 0, "Select distinct TypeCode from DocumentsCab order by TypeCode");
            this.Load += FDocumentControl_Load;
            var c = VS.DataCellCollection;
            //AcroPDFLib.AcroPDF acroPDF = new AcroPDFLib.AcroPDFClass();
            //} catch (Exception ex)
            //{
            //    CommonToolsWin.CTWin.MsgError(String.Format("Error 1: {0}\nError 2: {1}",ex.Message, ex.InnerException?.Message?? ""));
            //}
        }
Ejemplo n.º 2
0
        public Form1()
        {
            InitializeComponent();
            CTLM.Conn = new cAccesoDatosNet("DB01", "SISTEMAS", "sa", "5380");
            txtUserCode.AutoCompleteMode   = AutoCompleteMode.Suggest;
            txtUserCode.AutoCompleteSource = AutoCompleteSource.CustomSource;
            //txtUserCode.TextBox.Multiline = false;
            var autoCompleteCustomSource = new AutoCompleteStringCollection();

            txtText.AutoCompleteMode   = AutoCompleteMode.SuggestAppend;
            txtText.AutoCompleteSource = AutoCompleteSource.CustomSource;
            using (DynamicRS rs = new DynamicRS("Select UserCode from Users", CTLM.Conn))
            {
                rs.Open();
                rs.ToList().ForEach(r => autoCompleteCustomSource.Add(r[0].ToString()));
            }
            txtUserCode.AutoCompleteCustomSource = autoCompleteCustomSource;
            txtText.AutoCompleteCustomSource     = autoCompleteCustomSource;
            CTLM.DBTable = "vUsers";
            CTLM.AddItem(txtUserCode, "UserCode", CTLMControlTypes.Search);
            CTLM.AddItem(txtUserNumber, "UserNumber", CTLMControlTypes.Search);
            CTLM.AddItem(txtPwdExp, "PasswordEXP", CTLMControlTypes.NoSearch);
            CTLM.AddItem(cboMainCOD3, "MainCOD3", CTLMControlTypes.Search);
            CTLM.AddItem(lstCOD3, "COD3", CTLMControlTypes.Search);
            CTLM.AddItem(txtDesCod3, "desCOD3", CTLMControlTypes.NoSearch);

            lstCOD3.Source("select n.COD3,Descripcion=n.cod3 from NetworkSedes n inner join general..sedes g on g.cod3=n.COD3 order by n.Cod3");
            cboMainCOD3.Source("select n.COD3,g.Descripcion from NetworkSedes n inner join general..sedes g on g.cod3=n.COD3 order by n.Cod3", txtDesCod3);
            CTLM.Start();

            VS.Conn = CTLM.Conn;
            VS.SQL  = "Select UserCode, Area, COD3 from Users where usercode!='' order by UserCode";
            VS.Start();
            VS.UpdateEspackControl();

            //VS.FilterRowEnabled = true;
        }