lobjects ile tahsilat girişi hakkında yardım

Başlatan colorman666, 23.04.2011, 20:36

« önceki - sonraki »

0 Üyeler ve 1 Ziyaretçi konuyu incelemekte.

colorman666

arkadaşlar tahsilat girişi için hangi alanlar ile işlem yapılacak object içinde

A.Memmedov

KSFiche = UApp.NewDataObject(UnityObjects.DataObjectType.doSafeDepositTrans);
            string v_returns="";
            int v_getunitydata = GetUnityData(UApp, "LG_" + v_terminalinfo.FIRMNR + "_KSCARD", "CODE", "LOGICALREF", v_terminalinfo.KASACODE, ref v_returns);
            if (v_getunitydata == 0)
            {
                KSFiche.New();
                KSFiche.DataFields.FieldByName("TYPE").Value = 11;
                KSFiche.DataFields.FieldByName("SD_CODE").Value = v_returns;
            }
            else
            {
                p_message = "Safe Deposite code not found";
                return 7;
            }
            KSFiche.DataFields.FieldByName("NUMBER").Value = "~";
           
           
            DateTime v_date = DateTime.Today;
            KSFiche.DataFields.FieldByName("DATE").Value = v_date;
            KSFiche.DataFields.FieldByName("DIVISION").Value = v_terminalinfo.DIVNR ;
            KSFiche.DataFields.FieldByName("DEPARTMENT").Value = v_terminalinfo.DEPNR  ;
            KSFiche.DataFields.FieldByName("AUXIL_CODE").Value = v_terminalinfo.KSSPECODE;
            string v_clname = "";
            v_getunitydata = -1;
            v_getunitydata = GetUnityData(UApp, "LG_" + v_terminalinfo.FIRMNR + "_CLCARD", "DEFINITION_", "CODE", "'" + dr["CLCODE"].ToString() + "'", ref v_clname);
            double v_total = double.Parse(dr["TOTAL"].ToString());
            if (v_getunitydata == 0)
            {
              KSFiche.DataFields.FieldByName("MASTER_TITLE").Value=v_clname;
            }
            else
            {
                KSFiche.DataFields.FieldByName("MASTER_TITLE").Value="";
           }
            KSFiche.DataFields.FieldByName("DESCRIPTION").Value = dr["NOTE"].ToString();
            KSFiche.DataFields.FieldByName("AMOUNT").Value = v_total;
            double v_reportnet = double.Parse(dr["REPORTNET"].ToString());
            double v_rate = double.Parse(dr["RATE"].ToString());
            if (v_reportnet > 0)
            {
                KSFiche.DataFields.FieldByName("RC_XRATE").Value = v_rate ;
                KSFiche.DataFields.FieldByName("RC_AMOUNT").Value = v_reportnet ;
            }
            else
            {
                KSFiche.DataFields.FieldByName("RC_XRATE").Value = 0 ;
                KSFiche.DataFields.FieldByName("RC_AMOUNT").Value = 0;

            }
           
            KSFiche.DataFields.FieldByName("TC_XRATE").Value = 1;
            KSFiche.DataFields.FieldByName("TC_AMOUNT").Value =v_total;
            KSCLLine = KSFiche.DataFields.FieldByName("ATTACHMENT_ARP").Lines;
            KSCLLine.AppendLine();
            KSCLLine[0].FieldByName("TRANNO").Value = '~';
            KSCLLine[0].FieldByName("ARP_CODE").Value = dr["CLCODE"].ToString();
            KSCLLine[0].FieldByName("AUXIL_CODE").Value = v_terminalinfo.KSSPECODE  ;
            KSCLLine[0].FieldByName("DESCRIPTION").Value = dr["NOTE"].ToString();
            KSCLLine[0].FieldByName("CREDIT").Value = v_total;
            KSCLLine[0].FieldByName("TC_XRATE").Value = 1;
            KSCLLine[0].FieldByName("TC_AMOUNT").Value = v_total;
            if (v_reportnet > 0)
            {
                KSCLLine[0].FieldByName("RC_XRATE").Value = v_rate;
                KSCLLine[0].FieldByName("RC_AMOUNT").Value = v_reportnet;
               
            }
            else
            {
                KSCLLine[0].FieldByName("RC_XRATE").Value = 0;
                KSCLLine[0].FieldByName("RC_AMOUNT").Value = 0;
     

aym.huseyin

Nakit Tahsilat Aktarımında DataObjectType.doSafeDeposit oluyor fakat kredi kartında olmuyor. Senet ve Çek aktarımıda yapacağım ben bunların DataObjectType karşılıklarını nerden bulacağım. bunla alakalı döküman yokmu kimsede acaba ?

MehmetYavuz

Kredi kartı için Cari Hesap Fİşlerini kullanıyoruz. fiş türü 70 olacak.

doARAPVoucher  ve TYPE=70

Çek/Senet olayında ise (hiç yapamadım) iddiaya göre doCQPnRoll imiş.

aym.huseyin

Data NakitOdeme = giris.NewDataObject(DataObjectType.doSafeDepositTrans);

Data kredikart= giris.NewDataObject(DataObjectType.doARAPVoucher);

Data cekGiris= giris.NewDataObject(DataObjectType.doCQPnRoll);

Data senetGiris= giris.NewDataObject(DataObjectType.doCQPnRoll);


beni çok uğraştırdı başkaları uğraşmasın :D