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;
