Exemplo n.º 1
0
        private void UploadReIDWil()
        {
            SqlDataReader dr;

            lblTableName.Text = "ReWilID Is Uploading";
            string TableName = "ReIDWil";
            string FileName  = "wiltmp";
            string Physical  = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
            string Indexing  = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";

            files.Add(Physical);
            files.Add(Indexing);

            if (File.Exists(Physical))
            {
                File.Delete(Physical);
            }

            List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

            fields.Add(new Foxpro.DataStruct("id_rec", "id_rec", Foxpro.enFoxproTypes.Char, 23));
            fields.Add(new Foxpro.DataStruct("kd_toko", "kd_toko", Foxpro.enFoxproTypes.Char, 19));
            fields.Add(new Foxpro.DataStruct("tanggal", "tanggal", Foxpro.enFoxproTypes.DateTime, 8));
            fields.Add(new Foxpro.DataStruct("idwil", "idwil", Foxpro.enFoxproTypes.Char, 7));
            fields.Add(new Foxpro.DataStruct("oldwil", "oldwil", Foxpro.enFoxproTypes.Char, 7));
            fields.Add(new Foxpro.DataStruct("keterangan", "keterangan", Foxpro.enFoxproTypes.Char, 60));
            fields.Add(new Foxpro.DataStruct("lrefresh", "lrefresh", Foxpro.enFoxproTypes.Char, 1));
            fields.Add(new Foxpro.DataStruct("id_match", "id_match", Foxpro.enFoxproTypes.Char, 1));

            //fields.Add(new Foxpro.DataStruct("rp_crd", "rp_crd", Foxpro.enFoxproTypes.Numeric, 14));
            //fields.Add(new Foxpro.DataStruct("rp_dbt", "rp_dbt", Foxpro.enFoxproTypes.Numeric, 14));

            List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();

            index.Add(new Foxpro.IndexStruct("id_rec", "id_rec"));


            using (Database db = new Database(GlobalVar.DBName))
            {
                db.Commands.Add(db.CreateCommand("psp_VWIL_Upload"));
                db.Commands[0].Parameters.Add(new Parameter("@initPerusahaan", SqlDbType.VarChar, txtInitPerusahaan.Text));
                db.Open();
                dr = db.Commands[0].ExecuteReader();
                Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, progressBar1, lblCountRow);

                db.Close();
                lblTableName.Text = "";
            }

            using (Database db = new Database(GlobalVar.DBName))
            {
                db.Commands.Add(db.CreateCommand("usp_DeletedHistory_LIST"));
                db.Commands[0].Parameters.Add(new Parameter("@tableName", SqlDbType.VarChar, TableName));
                db.Commands[0].Parameters.Add(new Parameter("@syncFlag", SqlDbType.Int, 0));
                DataTable dt = db.Commands[0].ExecuteDataTable();
                Foxpro.InsertDeletedRecord(GlobalVar.DbfUpload + "\\", FileName, fields, dt, "idtr");
            }
        }
Exemplo n.º 2
0
        private void UploadBO()
        {
            SqlDataReader dr;
            string        FileName  = "Hhbotmp";
            string        FileName2 = "Dhbotmp";

            try
            {
                this.Cursor = Cursors.WaitCursor;

                refreshForm();

                #region Header BO
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                string Fpt      = GlobalVar.DbfUpload + "\\" + FileName + ".fpt";

                files.Add(Indexing);
                files.Add(Physical);
                files.Add(Fpt);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("idhtr", "idhtr", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("cab1", "cab1", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("cab2", "cab2", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("cab3", "cab3", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("no_rq", "no_rq", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("tgl_rq", "tgl_rq", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("no_do", "no_do", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("tgl_do", "tgl_do", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("no_nota", "no_nota", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("tgl_nota", "tgl_nota", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("no_sj", "no_sj", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("tgl_sj", "tgl_sj", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("tgl_trm", "tgl_trm", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("hr_krdt", "hr_krdt", Foxpro.enFoxproTypes.Numeric, 3));
                fields.Add(new Foxpro.DataStruct("kd_toko", "kd_toko", Foxpro.enFoxproTypes.Char, 19));
                fields.Add(new Foxpro.DataStruct("kd_sales", "kd_sales", Foxpro.enFoxproTypes.Char, 11));
                fields.Add(new Foxpro.DataStruct("nm_toko", "nm_toko", Foxpro.enFoxproTypes.Char, 31));
                fields.Add(new Foxpro.DataStruct("al_kirim", "al_kirim", Foxpro.enFoxproTypes.Char, 60));
                fields.Add(new Foxpro.DataStruct("kota", "kota", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("rp_jual", "rp_jual", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("rp_jual2", "rp_jual2", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("rp_jual3", "rp_jual3", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("rp_net", "rp_net", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("rp_net2", "rp_net2", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("rp_net3", "rp_net3", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("disc_1", "disc_1", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("disc_2", "disc_2", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("disc_3", "disc_3", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("pot_rp", "pot_rp", Foxpro.enFoxproTypes.Numeric, 12));
                fields.Add(new Foxpro.DataStruct("pot_rp2", "pot_rp2", Foxpro.enFoxproTypes.Numeric, 12));
                fields.Add(new Foxpro.DataStruct("pot_rp3", "pot_rp3", Foxpro.enFoxproTypes.Numeric, 12));
                fields.Add(new Foxpro.DataStruct("rp_fee1", "rp_fee1", Foxpro.enFoxproTypes.Numeric, 11));
                fields.Add(new Foxpro.DataStruct("rp_fee2", "rp_fee2", Foxpro.enFoxproTypes.Numeric, 11));
                fields.Add(new Foxpro.DataStruct("expedisi", "expedisi", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("laudit", "laudit", Foxpro.enFoxproTypes.Logical, 1));
                fields.Add(new Foxpro.DataStruct("id_disc", "id_disc", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("catatan", "catatan", Foxpro.enFoxproTypes.Memo, 4));
                fields.Add(new Foxpro.DataStruct("catatan1", "catatan1", Foxpro.enFoxproTypes.Char, 40));
                fields.Add(new Foxpro.DataStruct("catatan2", "catatan2", Foxpro.enFoxproTypes.Char, 40));
                fields.Add(new Foxpro.DataStruct("catatan3", "catatan3", Foxpro.enFoxproTypes.Char, 40));
                fields.Add(new Foxpro.DataStruct("catatan4", "catatan4", Foxpro.enFoxproTypes.Char, 40));
                fields.Add(new Foxpro.DataStruct("catatan5", "catatan5", Foxpro.enFoxproTypes.Char, 40));
                fields.Add(new Foxpro.DataStruct("no_dobo", "no_dobo", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("tgl_reord", "tgl_reord", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("lbo", "lbo", Foxpro.enFoxproTypes.Logical, 1));
                fields.Add(new Foxpro.DataStruct("id_match", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("id_link", "id_link", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("id_tr", "id_tr", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("hari_krm", "hari_krm", Foxpro.enFoxproTypes.Numeric, 3));
                fields.Add(new Foxpro.DataStruct("hari_sls", "hari_sls", Foxpro.enFoxproTypes.Numeric, 3));
                fields.Add(new Foxpro.DataStruct("nprint", "nprint", Foxpro.enFoxproTypes.Numeric, 2));
                fields.Add(new Foxpro.DataStruct("no_acc", "no_acc", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("shift", "shift", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("checker_1", "checker_1", Foxpro.enFoxproTypes.Char, 11));
                fields.Add(new Foxpro.DataStruct("checker_2", "checker_2", Foxpro.enFoxproTypes.Char, 11));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                index.Add(new Foxpro.IndexStruct("idhtr", "IDHTR"));
                #endregion

                #region Detail BO
                string Physical2 = GlobalVar.DbfUpload + "\\" + FileName2 + ".dbf";
                string Indexing2 = GlobalVar.DbfUpload + "\\" + FileName2 + ".cdx";

                files.Add(Indexing2);
                files.Add(Physical2);

                if (File.Exists(Physical2))
                {
                    File.Delete(Physical2);
                }

                List <Foxpro.DataStruct> fields2 = new List <Foxpro.DataStruct>();

                fields2.Add(new Foxpro.DataStruct("idrec", "idrec", Foxpro.enFoxproTypes.Char, 23));
                fields2.Add(new Foxpro.DataStruct("idhtr", "idhtr", Foxpro.enFoxproTypes.Char, 23));
                fields2.Add(new Foxpro.DataStruct("id_brg", "id_brg", Foxpro.enFoxproTypes.Char, 23));
                fields2.Add(new Foxpro.DataStruct("nama_stok", "nama_stok", Foxpro.enFoxproTypes.Char, 73));
                fields2.Add(new Foxpro.DataStruct("klp", "klp", Foxpro.enFoxproTypes.Char, 3));
                fields2.Add(new Foxpro.DataStruct("j_rq", "j_rq", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("j_do", "j_do", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("j_sj", "j_sj", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("j_nota", "j_nota", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("j_retur", "j_retur", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("j_koli", "j_koli", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("koli_awal", "koli_awal", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("koli_akhir", "koli_akhir", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("no_koli", "no_koli", Foxpro.enFoxproTypes.Char, 15));
                fields2.Add(new Foxpro.DataStruct("satuan", "satuan", Foxpro.enFoxproTypes.Char, 3));
                fields2.Add(new Foxpro.DataStruct("catatan", "catatan", Foxpro.enFoxproTypes.Char, 23));
                fields2.Add(new Foxpro.DataStruct("tgl_sj", "tgl_sj", Foxpro.enFoxproTypes.DateTime, 8));
                fields2.Add(new Foxpro.DataStruct("h_jual", "h_jual", Foxpro.enFoxproTypes.Numeric, 7));
                fields2.Add(new Foxpro.DataStruct("h_pokok", "h_pokok", Foxpro.enFoxproTypes.Numeric, 7));
                fields2.Add(new Foxpro.DataStruct("hpp_solo", "hpp_solo", Foxpro.enFoxproTypes.Numeric, 7));
                fields2.Add(new Foxpro.DataStruct("disc_1", "disc_1", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("disc_2", "disc_2", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("disc_3", "disc_3", Foxpro.enFoxproTypes.Numeric, 5));
                fields2.Add(new Foxpro.DataStruct("pot_rp", "pot_rp", Foxpro.enFoxproTypes.Numeric, 12));
                fields2.Add(new Foxpro.DataStruct("id_disc", "id_disc", Foxpro.enFoxproTypes.Char, 7));
                fields2.Add(new Foxpro.DataStruct("id_koreksi", "id_koreksi", Foxpro.enFoxproTypes.Char, 19));
                fields2.Add(new Foxpro.DataStruct("kd_toko", "kd_toko", Foxpro.enFoxproTypes.Char, 19));
                fields2.Add(new Foxpro.DataStruct("no_bodo", "no_bodo", Foxpro.enFoxproTypes.Char, 7));
                fields2.Add(new Foxpro.DataStruct("id_match", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields2.Add(new Foxpro.DataStruct("nprint", "nprint", Foxpro.enFoxproTypes.Numeric, 1));
                fields2.Add(new Foxpro.DataStruct("no_acc", "no_acc", Foxpro.enFoxproTypes.Char, 7));
                fields2.Add(new Foxpro.DataStruct("ket_koli", "ket_koli", Foxpro.enFoxproTypes.Char, 20));

                List <Foxpro.IndexStruct> index2 = new List <Foxpro.IndexStruct>();
                index2.Add(new Foxpro.IndexStruct("idhtr", "IDHTR"));
                #endregion

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("psp_OrderPenjualan_UPLOAD_BO"));
                    db.Commands[0].Parameters.Add(new Parameter("@fromDate", SqlDbType.DateTime, txTglBO.FromDate));
                    db.Commands[0].Parameters.Add(new Parameter("@toDate", SqlDbType.DateTime, txTglBO.ToDate));
                    db.Open();

                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbUpload1, lblUploadCount, false);

                    if (dr.NextResult())
                    {
                        Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName2, fields2, dr, index2, this, pbUpload2, lblUploadCount, false);
                    }
                    dr.Close();
                    db.Close();
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 3
0
        private void UploadTagihanDetail()
        {
            SqlDataReader dr;
            string        FileName = "Dtagihan";

            string TableName = "TagihanDetail";

            label2.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                //lblProgress.Text = "Data 'Stok' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }


                List <Foxpro.DataStruct> fields2 = new List <Foxpro.DataStruct>();
                fields2.Add(new Foxpro.DataStruct("idrec", "idrec", Foxpro.enFoxproTypes.Char, 23));
                fields2.Add(new Foxpro.DataStruct("id_reg", "id_reg", Foxpro.enFoxproTypes.Char, 23));
                fields2.Add(new Foxpro.DataStruct("idkp", "idkp", Foxpro.enFoxproTypes.Char, 23));
                fields2.Add(new Foxpro.DataStruct("idwil", "idwil", Foxpro.enFoxproTypes.Char, 7));
                fields2.Add(new Foxpro.DataStruct("kd_toko", "kd_toko", Foxpro.enFoxproTypes.Char, 19));
                fields2.Add(new Foxpro.DataStruct("nama_toko", "nama_toko", Foxpro.enFoxproTypes.Char, 31));
                fields2.Add(new Foxpro.DataStruct("kd_sales", "kd_sales", Foxpro.enFoxproTypes.Char, 11));
                fields2.Add(new Foxpro.DataStruct("tgl_tr", "tgl_tr", Foxpro.enFoxproTypes.DateTime, 8));
                fields2.Add(new Foxpro.DataStruct("no_tr", "no_tr", Foxpro.enFoxproTypes.Char, 7));
                fields2.Add(new Foxpro.DataStruct("tgl_jt", "tgl_jt", Foxpro.enFoxproTypes.DateTime, 8));
                fields2.Add(new Foxpro.DataStruct("rp_nota", "rp_nota", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("rp_bayar", "rp_bayar", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("rp_tagih", "rp_tagih", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("p_lama", "p_lama", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("rp_giro", "rp_giro", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("rp_cash", "rp_cash", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("rp_trf", "rp_trf", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("rp_mutasi", "rp_mutasi", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("rp_pot", "rp_pot", Foxpro.enFoxproTypes.Numeric, 10));
                fields2.Add(new Foxpro.DataStruct("rp_disc", "rp_disc", Foxpro.enFoxproTypes.Numeric, 10));
                fields2.Add(new Foxpro.DataStruct("rp_retur", "rp_retur", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("no_bpp", "no_bpp", Foxpro.enFoxproTypes.Char, 10));
                fields2.Add(new Foxpro.DataStruct("rp_only", "rp_only", Foxpro.enFoxproTypes.Numeric, 14));
                fields2.Add(new Foxpro.DataStruct("rp_exp", "rp_exp", Foxpro.enFoxproTypes.Numeric, 12));
                fields2.Add(new Foxpro.DataStruct("id_match", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields2.Add(new Foxpro.DataStruct("tgl_tagih", "tgl_tagih", Foxpro.enFoxproTypes.DateTime, 8));
                fields2.Add(new Foxpro.DataStruct("flag", "flag", Foxpro.enFoxproTypes.Logical, 1));
                fields2.Add(new Foxpro.DataStruct("ket", "ket", Foxpro.enFoxproTypes.Char, 30));
                fields2.Add(new Foxpro.DataStruct("idtagih", "idtagih", Foxpro.enFoxproTypes.Char, 23));
                fields2.Add(new Foxpro.DataStruct("nm_coll", "nm_coll", Foxpro.enFoxproTypes.Numeric, 10));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                index.Add(new Foxpro.IndexStruct("id_reg", "ID_REG"));
                index.Add(new Foxpro.IndexStruct("kd_sales", "KD_SALES"));
                index.Add(new Foxpro.IndexStruct("idrec", "IDREC"));
                index.Add(new Foxpro.IndexStruct("idkp", "IDKP"));
                index.Add(new Foxpro.IndexStruct("kd_toko+id_reg", "KD_TOKO"));
                index.Add(new Foxpro.IndexStruct("id_match", "ID_MATCH"));
                index.Add(new Foxpro.IndexStruct("idkp+id_reg", "IDKPREG"));
                index.Add(new Foxpro.IndexStruct("idwil", "IDWIL"));
                index.Add(new Foxpro.IndexStruct("idtagih", "IDTAGIH"));



                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("psp_DATAPENUNJANG_UPLOAD_TagihanDetail"));
                    db.Commands[0].Parameters.Add(new Parameter("@fromDate", SqlDbType.DateTime, rangeDateBox1.FromDate));
                    db.Commands[0].Parameters.Add(new Parameter("@toDate", SqlDbType.DateTime, rangeDateBox1.ToDate));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields2, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    //lblProgress.Text = "";
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 4
0
        private void UploadToko()
        {
            SqlDataReader dr;
            string        FileName = "Toko";

            string TableName = "Toko";

            label2.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                //lblProgress.Text = "Data 'Toko' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("TokoID", "idtoko", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("NamaToko", "namatoko", Foxpro.enFoxproTypes.Char, 31));
                fields.Add(new Foxpro.DataStruct("Alamat", "alamat", Foxpro.enFoxproTypes.Char, 60));
                fields.Add(new Foxpro.DataStruct("Kota", "kota", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("Telp", "notelp", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("WilID", "idwil", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("PenanggungJawab", "pngjwb", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("KodeToko", "kd_toko", Foxpro.enFoxproTypes.Char, 19));
                fields.Add(new Foxpro.DataStruct("PiutangB", "piutang_b", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("PiutangJ", "piutang_j", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("Plafon", "plafon", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("ToJual", "to_jual", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("ToRetPot", "to_retpot", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("JangkaWaktuKredit", "jkw_kredit", Foxpro.enFoxproTypes.Numeric, 3));
                fields.Add(new Foxpro.DataStruct("Cab", "Cab", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("Cab1", "Cab1", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("Cabang2", "cab2", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("Tgl1st", "tgl1st", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("Exist", "exist", Foxpro.enFoxproTypes.Logical, 1));
                fields.Add(new Foxpro.DataStruct("ClassID", "idclass", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("Catatan", "catatan", Foxpro.enFoxproTypes.Char, 73));
                fields.Add(new Foxpro.DataStruct("SyncFlag", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("HariKirim", "hari_krm", Foxpro.enFoxproTypes.Numeric, 2));
                fields.Add(new Foxpro.DataStruct("KodePos", "kd_pos", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("Grade", "grade", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("Plafon1st", "plafon_1st", Foxpro.enFoxproTypes.Numeric, 10));
                fields.Add(new Foxpro.DataStruct("Flag", "flag", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("Bentrok", "bentrok", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("StatusAktif", "lpasif", Foxpro.enFoxproTypes.Logical, 1));
                fields.Add(new Foxpro.DataStruct("HariSales", "hari_sls", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("Daerah", "daerah", Foxpro.enFoxproTypes.Char, 25));
                fields.Add(new Foxpro.DataStruct("Propinsi", "propinsi", Foxpro.enFoxproTypes.Char, 30));
                fields.Add(new Foxpro.DataStruct("AlamatRumah", "alm_rumah", Foxpro.enFoxproTypes.Char, 60));
                fields.Add(new Foxpro.DataStruct("Pengelola", "pengelola", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("TglLahir", "tgl_lahir", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("HP", "hp", Foxpro.enFoxproTypes.Char, 30));
                fields.Add(new Foxpro.DataStruct("Status", "status", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("ThnBerdiri", "th_berdiri", Foxpro.enFoxproTypes.Char, 4));
                fields.Add(new Foxpro.DataStruct("StatusRuko", "lruko", Foxpro.enFoxproTypes.Logical, 1));
                fields.Add(new Foxpro.DataStruct("JmlCabang", "jml_cabang", Foxpro.enFoxproTypes.Numeric, 2));
                fields.Add(new Foxpro.DataStruct("JmlSales", "jml_sales", Foxpro.enFoxproTypes.Numeric, 2));
                fields.Add(new Foxpro.DataStruct("Kinerja", "kinerja", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("BidangUsaha", "bdg_usaha", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("RefSales", "reff_sls", Foxpro.enFoxproTypes.Char, 35));
                fields.Add(new Foxpro.DataStruct("RefCollector", "reff_col", Foxpro.enFoxproTypes.Char, 35));
                fields.Add(new Foxpro.DataStruct("RefSupervisor", "reff_spv", Foxpro.enFoxproTypes.Char, 35));
                fields.Add(new Foxpro.DataStruct("PlafonSurvey", "plf_survey", Foxpro.enFoxproTypes.Numeric, 13));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                index.Add(new Foxpro.IndexStruct("kd_toko", "KD_TOKO"));
                index.Add(new Foxpro.IndexStruct("namatoko", "NAMATOKO"));
                index.Add(new Foxpro.IndexStruct("id_match", "ID_MATCH"));
                index.Add(new Foxpro.IndexStruct("idtoko", "IDTOKO"));
                index.Add(new Foxpro.IndexStruct("idwil", "IDWIL"));
                index.Add(new Foxpro.IndexStruct("kota", "KOTA"));
                index.Add(new Foxpro.IndexStruct("namatoko FOR .NOT.Toko.lpasif.AND..NOT.EMPTY(Toko.idwil)", "NAMATOKO0"));
                index.Add(new Foxpro.IndexStruct("namatoko FOR .NOT.Toko.lpasif", "NAMATOKO1"));


                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("psp_DATAPENUNJANG_UPLOAD_Toko"));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    //lblProgress.Text = "";
                }

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("usp_DeletedHistory_LIST"));
                    db.Commands[0].Parameters.Add(new Parameter("@tableName", SqlDbType.VarChar, "Toko"));
                    db.Commands[0].Parameters.Add(new Parameter("@syncFlag", SqlDbType.Int, 0));
                    DataTable dt = db.Commands[0].ExecuteDataTable();
                    Foxpro.InsertDeletedRecord(GlobalVar.DbfUpload + "\\", FileName, fields, dt, "kd_toko");
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 5
0
        private void UploadStok()
        {
            SqlDataReader dr;
            string        FileName = "sasstok";

            string TableName = "Stok";

            label2.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                //lblProgress.Text = "Data 'Stok' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("BarangID", "id_brg", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("RecordID", "idrec", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("Bundle", "bundel", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("NamaStok", "nama_stok", Foxpro.enFoxproTypes.Char, 73));
                fields.Add(new Foxpro.DataStruct("KodeSolo", "kodesolo", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("HrgJual", "hjual", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("Hpp", "hpp", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("Kendaraan", "kendaraan", Foxpro.enFoxproTypes.Char, 43));
                fields.Add(new Foxpro.DataStruct("NamaTertera", "nm_tertera", Foxpro.enFoxproTypes.Char, 43));
                fields.Add(new Foxpro.DataStruct("PartNo", "partno", Foxpro.enFoxproTypes.Char, 21));
                fields.Add(new Foxpro.DataStruct("Merek", "merek", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("Dibungkus", "dibungkus", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("SumberDr", "sumber_dr", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("ProsesID", "idproses", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("SatSolo", "sat_solo", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("Material", "material", Foxpro.enFoxproTypes.Char, 19));
                fields.Add(new Foxpro.DataStruct("SatJual", "sat_jual", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("HPPSolo", "hpp_solo", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("HPPSas", "hpp_sas", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("HPPSolo", "hppsolo", Foxpro.enFoxproTypes.Numeric, 8));
                fields.Add(new Foxpro.DataStruct("KodeRak", "kd_rak", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("KodeRak1", "kd_rak1", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("KodeRak2", "kd_rak2", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("JB", "jb", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("StatusPasif", "lpasif", Foxpro.enFoxproTypes.Logical, 1));
                fields.Add(new Foxpro.DataStruct("SyncFlag", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("Flag1", "flag1", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("TglOpname", "tgl_opnm", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("TglAwal", "tgl_awal", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("QAwal", "q_awal", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("HariRataRata", "q_opnm", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("RppAwal", "rpp_awal", Foxpro.enFoxproTypes.Numeric, 12));
                fields.Add(new Foxpro.DataStruct("QJual", "q_jual", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("QBeli", "q_beli", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("QReturJual", "q_retj", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("QReturBeli", "q_retb", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("QOrderJual", "q_ordj", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("PrediksiLamaKirim", "q_ordb", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("QMutasi", "q_mutasi", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("QKrsi", "q_krsi", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("QAngd", "q_angd", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("QSelisih", "q_slsh", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("QAkhir", "q_akhir", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("StokMin", "stokmin", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("StokMax", "stokmax", Foxpro.enFoxproTypes.Numeric, 9));
                fields.Add(new Foxpro.DataStruct("IsiKoli", "isi_koli", Foxpro.enFoxproTypes.Numeric, 4));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                index.Add(new Foxpro.IndexStruct("id_match", "ID_MATCH"));
                index.Add(new Foxpro.IndexStruct("idrec", "ID_REC"));
                index.Add(new Foxpro.IndexStruct("kodesolo", "KODESOLO"));
                index.Add(new Foxpro.IndexStruct("id_brg", "ID_BRG"));
                index.Add(new Foxpro.IndexStruct("nama_stok", "NAMA_STOK"));
                index.Add(new Foxpro.IndexStruct("kd_rak", "KD_RAK"));
                index.Add(new Foxpro.IndexStruct("kd_rak1", "KD_RAK1"));
                index.Add(new Foxpro.IndexStruct("kd_rak2", "KD_RAK2"));



                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("psp_DATAPENUNJANG_UPLOAD_Stok"));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    //lblProgress.Text = "";
                }

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("usp_DeletedHistory_LIST"));
                    db.Commands[0].Parameters.Add(new Parameter("@tableName", SqlDbType.VarChar, "Stok"));
                    db.Commands[0].Parameters.Add(new Parameter("@syncFlag", SqlDbType.Int, 0));
                    DataTable dt = db.Commands[0].ExecuteDataTable();
                    Foxpro.InsertDeletedRecord(GlobalVar.DbfUpload + "\\", FileName, fields, dt, "id_brg");
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 6
0
        private void UploadTagihanHeader()
        {
            SqlDataReader dr;
            string        FileName = "htagihan";

            string TableName = "TagihanHeader";

            label2.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                //lblProgress.Text = "Data 'Stok' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }


                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();
                fields.Add(new Foxpro.DataStruct("id_reg", "id_reg", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("no_reg", "no_reg", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("spasi", "spasi", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("tgl_reg", "tgl_reg", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("colector", "colector", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("nm_coll", "nm_coll", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("n_nota", "n_nota", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("n_bayar", "n_bayar", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("n_tagih", "n_tagih", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("wilayah", "wilayah", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("periode_1", "periode_1", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("periode_2", "periode_2", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("t_lama", "t_lama", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("nm_kasir", "nm_kasir", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("rp_giro", "rp_giro", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("rp_trf", "rp_trf", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("rp_tunai", "rp_tunai", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("lbr_giro", "lbr_giro", Foxpro.enFoxproTypes.Numeric, 4));
                fields.Add(new Foxpro.DataStruct("ntoko1", "ntoko1", Foxpro.enFoxproTypes.Numeric, 4));
                fields.Add(new Foxpro.DataStruct("ntoko2", "ntoko2", Foxpro.enFoxproTypes.Numeric, 4));
                fields.Add(new Foxpro.DataStruct("lbr_nota", "lbr_nota", Foxpro.enFoxproTypes.Numeric, 4));
                fields.Add(new Foxpro.DataStruct("rp_only", "rp_only", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("id_match", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("tgl_kbl", "tgl_kbl", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("nprint", "nprint", Foxpro.enFoxproTypes.Numeric, 3));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                index.Add(new Foxpro.IndexStruct("id_reg", "ID_REG"));
                index.Add(new Foxpro.IndexStruct("no_reg", "NO_REG"));
                index.Add(new Foxpro.IndexStruct("spasi + DTOS(tgl_reg)", "TGL_REG"));
                index.Add(new Foxpro.IndexStruct("id_match", "ID_MATCH"));


                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("psp_DATAPENUNJANG_UPLOAD_Tagihan_Header"));
                    db.Commands[0].Parameters.Add(new Parameter("@fromDate", SqlDbType.DateTime, rangeDateBox1.FromDate));
                    db.Commands[0].Parameters.Add(new Parameter("@toDate", SqlDbType.DateTime, rangeDateBox1.ToDate));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    //lblProgress.Text = "";
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 7
0
        private void UploadSales()
        {
            SqlDataReader dr;
            string        FileName = "sales";

            string TableName = "Sales";

            label2.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                //lblProgress.Text = "Data 'Sales' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("SalesID", "kd_sales", Foxpro.enFoxproTypes.Char, 11));
                fields.Add(new Foxpro.DataStruct("NamaSales", "nm_sales", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("RecID", "idrec", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("TglLahir", "tgl_lahir", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("Alamat", "alamat", Foxpro.enFoxproTypes.Char, 30));
                fields.Add(new Foxpro.DataStruct("Target", "target", Foxpro.enFoxproTypes.Numeric, 16));
                fields.Add(new Foxpro.DataStruct("BatasOD", "batas_od", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("TglMasuk", "tgl_masuk", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("TglKeluar", "tgl_keluar", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("SyncFlag", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("SalesID", "kd_toko", Foxpro.enFoxproTypes.Char, 19));
                fields.Add(new Foxpro.DataStruct("NamaSales", "namatoko", Foxpro.enFoxproTypes.Char, 31));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                index.Add(new Foxpro.IndexStruct("kd_sales", "KD_SALES"));
                index.Add(new Foxpro.IndexStruct("id_match", "ID_MATCH"));
                index.Add(new Foxpro.IndexStruct("nm_sales", "NM_SALES"));
                index.Add(new Foxpro.IndexStruct("idrec", "IDREC"));
                index.Add(new Foxpro.IndexStruct("kd_sales FOR EMPTY(Sales.tgl_keluar)", "KD_SALES1"));


                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("psp_DATAPENUNJANG_UPLOAD_Sales"));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    //lblProgress.Text = "";
                }

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("usp_DeletedHistory_LIST"));
                    db.Commands[0].Parameters.Add(new Parameter("@tableName", SqlDbType.VarChar, "Sales"));
                    db.Commands[0].Parameters.Add(new Parameter("@syncFlag", SqlDbType.Int, 0));
                    DataTable dt = db.Commands[0].ExecuteDataTable();
                    Foxpro.InsertDeletedRecord(GlobalVar.DbfUpload + "\\", FileName, fields, dt, "kd_sales");
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 8
0
        private void UploadCollector()
        {
            SqlDataReader dr;
            string        FileName  = "colector";
            string        TableName = "Collector";

            label2.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                //lblProgress.Text = "Data 'NotaPenjualanDetail' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("id_colect", "id_colect", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("kd_colec", "kd_colec", Foxpro.enFoxproTypes.Char, 11));
                fields.Add(new Foxpro.DataStruct("nm_colec", "nm_colec", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("tgl_lahir", "tgl_lahir", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("alamat", "alamat", Foxpro.enFoxproTypes.Char, 30));
                fields.Add(new Foxpro.DataStruct("target", "target", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("batas_od", "batas_od", Foxpro.enFoxproTypes.Numeric, 14));
                fields.Add(new Foxpro.DataStruct("tgl_masuk", "tgl_masuk", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("tgl_keluar", "tgl_keluar", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("id_match", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("barang_a", "barang_a", Foxpro.enFoxproTypes.Numeric, 10));
                fields.Add(new Foxpro.DataStruct("barang_b", "barang_b", Foxpro.enFoxproTypes.Numeric, 10));
                fields.Add(new Foxpro.DataStruct("barang_c", "barang_c", Foxpro.enFoxproTypes.Numeric, 10));
                fields.Add(new Foxpro.DataStruct("barang_e", "barang_e", Foxpro.enFoxproTypes.Numeric, 10));


                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                index.Add(new Foxpro.IndexStruct("id_colect", "ID_COLECT"));
                index.Add(new Foxpro.IndexStruct("kd_colec", "KD_COLEC"));
                index.Add(new Foxpro.IndexStruct("nm_colec + kd_colec", "NM_COLEC"));

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("psp_DATAPENUNJANG_UPLOAD_Collector"));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    //lblProgress.Text = "";
                }

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("usp_DeletedHistory_LIST"));
                    db.Commands[0].Parameters.Add(new Parameter("@tableName", SqlDbType.VarChar, "Collector"));
                    db.Commands[0].Parameters.Add(new Parameter("@syncFlag", SqlDbType.Int, 0));
                    DataTable dt = db.Commands[0].ExecuteDataTable();
                    Foxpro.InsertDeletedRecord(GlobalVar.DbfUpload + "\\", FileName, fields, dt, "id_colect");
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 9
0
        private void UploadNotaPenjualanDetail()
        {
            ProgressBar pbSyncUpload = new ProgressBar();
            TextBox     lblProgress  = new TextBox();
            Label       lbll         = new Label();

            lbll.Text = "";
            SqlDataReader dr;

            DataRow[] drr = dsResult.Tables[1].Select("kategori='1' AND iddtr<>''");

            pbSyncUpload.Value   = 0;
            pbSyncUpload.Maximum = drr.Length;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                lblProgress.Text   = "Data 'NotaPenjualanDetail' is Uploading...";
                // refreshForm();
                string Physical = FileName + ".dbf";
                string Indexing = FileName + ".cdx";

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("idrec", "idrec", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("idtr", "idtr", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("nama_stok", "nama_stok", Foxpro.enFoxproTypes.Char, 73));
                fields.Add(new Foxpro.DataStruct("klp", "Klp", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("j_rq", "j_rq", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("j_do", "j_do", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("j_sj", "j_sj", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("j_nota", "j_nota", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("j_koli", "j_koli", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("j_retur", "j_retur", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("koli_awal", "koli_awal", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("koli_akhir", "koli_akhir", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("no_koli", "no_koli", Foxpro.enFoxproTypes.Char, 15));
                fields.Add(new Foxpro.DataStruct("satuan", "satuan", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("catatan", "catatan", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("tgl_sj", "tgl_sj", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("h_jual", "h_jual", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("h_pokok", "h_pokok", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("hpp_solo", "hpp_solo", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("disc_1", "disc_1", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("disc_2", "disc_2", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("disc_3", "disc_3", Foxpro.enFoxproTypes.Numeric, 5));
                fields.Add(new Foxpro.DataStruct("pot_rp", "pot_rp", Foxpro.enFoxproTypes.Numeric, 12));
                fields.Add(new Foxpro.DataStruct("id_disc", "id_disc", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("id_koreksi", "id_koreksi", Foxpro.enFoxproTypes.Char, 19));
                fields.Add(new Foxpro.DataStruct("kd_toko", "kd_toko", Foxpro.enFoxproTypes.Char, 19));
                fields.Add(new Foxpro.DataStruct("no_bodo", "no_bodo", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("id_match", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("NPrint", "nprint", Foxpro.enFoxproTypes.Numeric, 1));
                fields.Add(new Foxpro.DataStruct("no_acc", "no_acc", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("ket_koli", "ket_koli", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("id_brg", "id_brg", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("kd_gdg", "kd_gdg", Foxpro.enFoxproTypes.Char, 4));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                index.Add(new Foxpro.IndexStruct("idrec", "ID_REC"));

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("[psp_RSOPAC_UPLOAD_Retur_NotaPenjualanDetail]"));
                    db.Commands[0].Parameters.Add(new Parameter("@fromDate", SqlDbType.DateTime, rangeNota.FromDate));
                    db.Commands[0].Parameters.Add(new Parameter("@toDate", SqlDbType.DateTime, rangeNota.ToDate));
                    db.Commands[0].Parameters.Add(new Parameter("@Cabang", SqlDbType.Char, GlobalVar.CabangID));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, progressBar1, lbll);
                    db.Close();
                }

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("usp_DeletedHistory_LIST"));
                    db.Commands[0].Parameters.Add(new Parameter("@tableName", SqlDbType.VarChar, "NotaPenjualanDetail"));
                    db.Commands[0].Parameters.Add(new Parameter("@syncFlag", SqlDbType.Int, 0));
                    DataTable dt = db.Commands[0].ExecuteDataTable();
                    Foxpro.InsertDeletedRecord(GlobalVar.DbfUpload + "\\", FileName, fields, dt, "idrec");
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 10
0
        private void UploadTagihanDetail()
        {
            SqlDataReader dr;
            string        FileName = "DTagihan" + GlobalVar.CabangID;

            string TableName = "TagihanDetail";

            label1.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                lblProgress.Text   = "Data 'TagihanDetail' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                //string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                //files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("RecordID", "idrec", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("HRecordID", "id_reg", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("KPRecID", "idkp", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("Flag", "flag", Foxpro.enFoxproTypes.Char, 73));
                fields.Add(new Foxpro.DataStruct("TglInden", "tgl_tagih", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("RpNota", "rp_nota", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("RpBayar", "rp_bayar", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("RpTagih", "rp_tagih", Foxpro.enFoxproTypes.Char, 43));
                fields.Add(new Foxpro.DataStruct("Keterangan", "ket", Foxpro.enFoxproTypes.Char, 43));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                //index.Add(new Foxpro.IndexStruct("idrec", "ID_REC"));

                using (Database db = new Database(GlobalVar.DBFinance))
                {
                    db.Commands.Add(db.CreateCommand("psp_POS_UPLOAD_TagihanDetail"));
                    db.Commands[0].Parameters.Add(new Parameter("@fromDate", SqlDbType.DateTime, rangeDateBox1.FromDate));
                    db.Commands[0].Parameters.Add(new Parameter("@toDate", SqlDbType.DateTime, rangeDateBox1.ToDate));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    lblProgress.Text = "";
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 11
0
        private void UploadTagihan()
        {
            SqlDataReader dr;
            string        FileName = "HTagihan" + GlobalVar.CabangID;

            string TableName = "Tagihan";

            label1.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                lblProgress.Text   = "Data 'Tagihan' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                //string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                //files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("RecordID", "id_reg", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("RecordID", "idrec", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("NoReg", "no_reg", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("TglReg", "tgl_reg", Foxpro.enFoxproTypes.Char, 73));
                fields.Add(new Foxpro.DataStruct("TglKembali", "tgl_kbl", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("CollectorID", "nm_coll", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("Wilayah", "wilayah", Foxpro.enFoxproTypes.Numeric, 7));
                fields.Add(new Foxpro.DataStruct("Periode1", "periode_1", Foxpro.enFoxproTypes.Char, 43));
                fields.Add(new Foxpro.DataStruct("Periode2", "periode_2", Foxpro.enFoxproTypes.Char, 43));
                fields.Add(new Foxpro.DataStruct("TLama", "t_lama", Foxpro.enFoxproTypes.Char, 21));
                fields.Add(new Foxpro.DataStruct("Kasir", "nm_kasir", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("NPrint", "nprint", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("SyncFlag", "id_match", Foxpro.enFoxproTypes.Char, 3));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                //index.Add(new Foxpro.IndexStruct("idrec", "ID_REC"));

                using (Database db = new Database(GlobalVar.DBFinance))
                {
                    db.Commands.Add(db.CreateCommand("psp_POS_UPLOAD_Tagihan"));
                    db.Commands[0].Parameters.Add(new Parameter("@fromDate", SqlDbType.DateTime, rangeDateBox1.FromDate));
                    db.Commands[0].Parameters.Add(new Parameter("@toDate", SqlDbType.DateTime, rangeDateBox1.ToDate));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    lblProgress.Text = "";
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 12
0
        private void UploadCollector()
        {
            SqlDataReader dr;
            string        FileName = "TmpCol" + GlobalVar.CabangID;

            string TableName = "Collector";

            label1.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                lblProgress.Text   = "Data 'Collector' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                //string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                //files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("CollectorID", "id_colect", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("Kode", "kd_colec", Foxpro.enFoxproTypes.Char, 31));
                fields.Add(new Foxpro.DataStruct("Nama", "nm_colec", Foxpro.enFoxproTypes.Char, 60));
                fields.Add(new Foxpro.DataStruct("TglLahir", "tgl_lahir", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("Alamat", "alamat", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("Target", "target", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("BatasOD", "batas_od", Foxpro.enFoxproTypes.Char, 20));
                fields.Add(new Foxpro.DataStruct("TglMasuk", "tgl_masuk", Foxpro.enFoxproTypes.Char, 19));
                fields.Add(new Foxpro.DataStruct("TglKeluar", "tgl_keluar", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("SyncFlag", "id_match", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("BarangA", "barang_a", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("BarangB", "barang_b", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("BarangC", "barang_c", Foxpro.enFoxproTypes.Numeric, 13));
                fields.Add(new Foxpro.DataStruct("BarangE", "barang_e", Foxpro.enFoxproTypes.Numeric, 3));

                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                //index.Add(new Foxpro.IndexStruct("kd_toko", "KODE_TOKO"));

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("psp_POS_UPLOAD_Collector"));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    lblProgress.Text = "";
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }
Exemplo n.º 13
0
        private void UploadAntarGudang()
        {
            SqlDataReader dr;
            string        FileName = "Hagtmp";

            string TableName = "Antar Gudang";

            label1.Text = TableName;

            try
            {
                this.Cursor = Cursors.WaitCursor;

                pbSyncUpload.Value = 0;
                lblProgress.Text   = "Data 'Antar Gudang' is Uploading...";
                refreshForm();
                string Physical = GlobalVar.DbfUpload + "\\" + FileName + ".dbf";
                //string Indexing = GlobalVar.DbfUpload + "\\" + FileName + ".cdx";
                //files.Add(Indexing);
                files.Add(Physical);

                if (File.Exists(Physical))
                {
                    File.Delete(Physical);
                }

                List <Foxpro.DataStruct> fields = new List <Foxpro.DataStruct>();

                fields.Add(new Foxpro.DataStruct("idhkrmagud", "idhkrmagud", Foxpro.enFoxproTypes.Char, 23));
                fields.Add(new Foxpro.DataStruct("dr_gud", "dr_gud", Foxpro.enFoxproTypes.Char, 4));
                fields.Add(new Foxpro.DataStruct("ke_gud", "ke_gud", Foxpro.enFoxproTypes.Char, 4));
                fields.Add(new Foxpro.DataStruct("tgl_krm", "tgl_krm", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("tgl_trm", "tgl_trm", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("no_ag", "no_ag", Foxpro.enFoxproTypes.Char, 11));
                fields.Add(new Foxpro.DataStruct("pengirim", "pengirim", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("penerima", "penerima", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("drcheck1", "drcheck1", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("drcheck2", "drcheck2", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("kecheck1", "kecheck1", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("kecheck2", "kecheck2", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("catatan", "catatan", Foxpro.enFoxproTypes.Char, 43));
                fields.Add(new Foxpro.DataStruct("exp", "exp", Foxpro.enFoxproTypes.Char, 3));
                fields.Add(new Foxpro.DataStruct("no_kend", "no_kend", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("nm_sopir", "nm_sopir", Foxpro.enFoxproTypes.Char, 10));
                fields.Add(new Foxpro.DataStruct("id_krmtrm", "id_krmtrm", Foxpro.enFoxproTypes.Char, 2));
                fields.Add(new Foxpro.DataStruct("id_match", "id_match", Foxpro.enFoxproTypes.Char, 1));
                fields.Add(new Foxpro.DataStruct("no_bodo", "no_dobo", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("lbo", "lbo", Foxpro.enFoxproTypes.Logical, 1));
                fields.Add(new Foxpro.DataStruct("nprint", "nprint", Foxpro.enFoxproTypes.Numeric, 1));
                fields.Add(new Foxpro.DataStruct("no_rq", "no_rq", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("tgl_rq", "tgl_rq", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("no_do", "no_do", Foxpro.enFoxproTypes.Char, 7));
                fields.Add(new Foxpro.DataStruct("tgl_do", "tgl_do", Foxpro.enFoxproTypes.DateTime, 8));
                fields.Add(new Foxpro.DataStruct("tgl_sj", "tgl_sj", Foxpro.enFoxproTypes.DateTime, 8));


                List <Foxpro.IndexStruct> index = new List <Foxpro.IndexStruct>();
                //index.Add(new Foxpro.IndexStruct("idhkrmagud", "IDHKRMAGUD"));

                using (Database db = new Database())
                {
                    db.Commands.Add(db.CreateCommand("psp_POS_UPLOAD_AntarGudang"));
                    db.Commands[0].Parameters.Add(new Parameter("@fromDate", SqlDbType.DateTime, dt1));
                    db.Commands[0].Parameters.Add(new Parameter("@toDate", SqlDbType.DateTime, dt2));
                    db.Open();
                    dr = db.Commands[0].ExecuteReader();
                    Foxpro.WriteReaderToFile(GlobalVar.DbfUpload + "\\", FileName, fields, dr, index, this, pbSyncUpload, lblUploadCount);
                    db.Close();
                    lblProgress.Text = "";
                }
            }
            catch (Exception ex)
            {
                Error.LogError(ex);
            }
            finally
            {
                this.Cursor = Cursors.Default;
            }
        }