private void PartlySynchronisation(object sender, EventArgs e)
{
if (Dp.StartSynchronisation())
{
Application.Current.Dispatcher.Invoke(UpdateSyncDate);
}
}
protected override void GetDataSource(out string DataSource,
out string DataSourceOrder, List <FieldParam> Parameters)
{
DateTime AwalBlnIni = new DateTime(_Tahun,
(int)_Bulan, 1);
DateTime AkhirBlnIni = AwalBlnIni.AddMonths(1)
.AddDays(-1);
BaseGL.RingkasanAkun.Update(AkhirBlnIni);
string strNilai1 = Dp.GetSqlCoalesce("SaldoAwal", 0);
string strNilai2 = Dp.GetSqlCoalesce("MutasiDebit", 0);
string strNilai3 = Dp.GetSqlCoalesce("MutasiKredit", 0);
Parameters.Add(new FieldParam("0", _Level));
DataSource = string.Concat(
"SELECT NoAkun,NamaAkun,LevelAkun,UrutanCetak,Posting,",
strNilai1, " as SaldoAwal,", strNilai2, " as MutasiDebit,",
strNilai3, " as MutasiKredit,(",
strNilai1, "+", strNilai2, "-", strNilai3,
") AS SaldoAkhir FROM (SELECT UrutanCetak,NoAkun,NamaAkun,LevelAkun,Posting,Aktif,(SELECT SUM(Debit-Kredit) FROM (",
BaseGL.RingkasanAkun.SqlPosisiAkun(AwalBlnIni, false, "1", Parameters),
") a WHERE a.IdAkun=b.IdAkun OR a.IdAkun LIKE b.IdAkun+'.%') as SaldoAwal,(SELECT SUM(Debit) FROM (",
BaseGL.RingkasanAkun.SqlMutasiAkun(AwalBlnIni, AkhirBlnIni, false, "2", Parameters),
") a WHERE a.IdAkun=b.IdAkun OR a.IdAkun LIKE b.IdAkun+'.%') as MutasiDebit,(SELECT SUM(Kredit) FROM (",
BaseGL.RingkasanAkun.SqlMutasiAkun(AwalBlnIni, AkhirBlnIni, false, "3", Parameters),
") a WHERE a.IdAkun=b.IdAkun OR a.IdAkun LIKE b.IdAkun+'.%') as MutasiKredit",
" FROM Akun b WHERE LevelAkun<=@0) X WHERE Aktif<>0");
DataSourceOrder = "UrutanCetak";
}
protected override void InitUI()
{
ListAkun = FastLoadEntities <Akun>(
"IdAkun,NoAkun,NamaAkun",
"Aktif<>0 AND Posting<>0", "NoAkun", true);
ListMataUang = FastLoadEntities <MataUang>(
"KodeMataUang,NamaMataUang",
"Aktif<>0", "KodeMataUang", true);
ListDepartemen = FastLoadEntities <Departemen>(
"IdDepartemen,KodeDepartemen,NamaDepartemen",
"Posting<>0 AND Aktif<>0", "KodeDepartemen",
true, true);
ListProyek = FastLoadEntities <Proyek>(
"IdProyek,KodeProyek,NamaProyek",
"Posting<>0 AND Aktif<>0", "KodeProyek",
true, true);
ListAturan = FastLoadEntities <MasterAturanJurnal>(
"AturanJurnal", "Aktif<>0", "AturanJurnal",
true, true);
ListJenisDokSumber = FastLoadEntities <JenisDokSumberJurnal>(
"JenisDokSumber", "Aktif<>0 AND Otomatis=0",
"JenisDokSumber", true);
_JenisDokSumber = Dp.GetVariable <string>(
"JurnalVar", "JenisDokSumber", string.Empty);
LastJenisDokSumber = _JenisDokSumber;
CheckTransDate = true;
}
public void RunStructFldScenario(SimpleTernaryOpTest__DotProductBySelectedQuadruplet_Vector64_UInt32_Vector128_Byte_3 testClass)
{
var result = Dp.DotProductBySelectedQuadruplet(_fld1, _fld2, _fld3, 3);
Unsafe.Write(testClass._dataTable.outArrayPtr, result);
testClass.ValidateResult(_fld1, _fld2, _fld3, testClass._dataTable.outArrayPtr);
}
public void RunStructFldScenario(SimpleTernaryOpTest__DotProduct_Vector64_Int32 testClass)
{
var result = Dp.DotProduct(_fld1, _fld2, _fld3);
Unsafe.Write(testClass._dataTable.outArrayPtr, result);
testClass.ValidateResult(_fld1, _fld2, _fld3, testClass._dataTable.outArrayPtr);
}
protected override void GetDataSource(out string DataSource,
out string DataSourceOrder, List <FieldParam> Parameters)
{
string strTemp = string.Empty;
string strEmpty = FormatSqlValue(string.Empty,
DataType.VarChar);
UpdateSaldo();
if (BaseGL.SetingPerusahaan.MultiDepartemen)
{
strTemp = string.Concat(Dp.GetSqlIifNoFormat("IdDepartemen=" +
strEmpty, strEmpty,
"(SELECT KodeDepartemen FROM Departemen X WHERE X.IdDepartemen=IdDepartemen)"),
" AS KodeDepartemen,");
}
if (BaseGL.SetingPerusahaan.MultiProyek)
{
strTemp = string.Concat(strTemp, Dp.GetSqlIifNoFormat("IdProyek=" +
strEmpty, strEmpty,
"(SELECT KodeProyek FROM Proyek X WHERE X.IdProyek=IdProyek)"),
" AS KodeProyek,");
}
Parameters.Add(new FieldParam("0", _TglAwal));
Parameters.Add(new FieldParam("1", _TglAkhir.AddDays(1)));
Parameters.Add(new FieldParam("2", _Akun));
DataSource = string.Concat(@"SELECT J.NoJurnal,
TglJurnal,JenisDokSumber,NoDokSumber,BuatJurnalPembalik,",
strTemp, @"Debit,Kredit,J.Keterangan AS Uraian FROM Jurnal J INNER JOIN JurnalDetil D ON
J.NoJurnal=D.NoJurnal WHERE TglJurnal>=@0 AND TglJurnal<@1
AND IdAkun=@2");
DataSourceOrder = "TglJurnal,NoJurnal";
}
protected override void GetDataSource(out string DataSource,
out string DataSourceOrder, List <FieldParam> Parameters)
{
BaseGL.RingkasanAkun.Update(_TglNeraca2 > _TglNeraca1 ?
_TglNeraca2 : _TglNeraca1);
string NilaiNeraca1 = Dp.GetSqlCoalesce("Neraca1", 0);
string NilaiNeraca2 = Dp.GetSqlCoalesce("Neraca2", 0);
DataSource = string.Concat(
"SELECT NoAkun,NamaAkun,JenisAkun,UrutanKelompok,KelompokAkun,",
NilaiNeraca1, " as Neraca1,", NilaiNeraca2, " as Neraca2,",
NilaiNeraca2, "-", NilaiNeraca1, " as Selisih,",
Dp.GetSqlIifNoFormat(NilaiNeraca1 + "=0",
Dp.GetSqlIifNoFormat(NilaiNeraca2 + "<0", "-100",
Dp.GetSqlIifNoFormat(NilaiNeraca2 + ">0", "100", "null")),
string.Concat("(", NilaiNeraca2, "-", NilaiNeraca1, ")*100/",
Dp.GetSqlAbs(NilaiNeraca1))),
@" as [% Selisih] FROM
(SELECT JenisAkun,UrutanKelompok,KelompokAkun,NoAkun,NamaAkun,Aktif,
(SELECT SUM(Debit-Kredit) FROM
(", BaseGL.RingkasanAkun.SqlPosisiAkun(_TglNeraca1, false,
"1", Parameters),
@") p WHERE p.IdAkun=q.IdAkun
) as Neraca1,
(SELECT SUM(Debit-Kredit) FROM
(", BaseGL.RingkasanAkun.SqlPosisiAkun(_TglNeraca2, false,
"2", Parameters),
@") r WHERE r.IdAkun=q.IdAkun
) as Neraca2 FROM Akun q WHERE Posting<>0 AND JenisAkun<>",
FormatSqlValue(enJenisAkun.Laba__Rugi),
") XX WHERE Aktif<>0");
DataSourceOrder = "UrutanKelompok,NoAkun";
}
protected override void AfterSaveUpdate()
{
CekIndukProyek();
if (_Posting && Find.IsExists <Proyek>("IdInduk=@0",
new FieldParam("0", _IdProyek)))
{
AddError("Posting",
"Proyek Posting Tidak Boleh Mempunyai Anak");
}
if (!GetOriginal <Proyek>().Posting&&
_KodeProyek != GetOriginal <Proyek>().KodeProyek)
{
string KodeProyekOrg = GetOriginal <Proyek>().KodeProyek;
ExecuteNonQuery(string.Concat(
"UPDATE Proyek SET UrutanCetak=@0+",
Dp.GetSqlSubString("UrutanCetak",
GetOriginal <Proyek>().UrutanCetak.Length + 1, 250),
" WHERE UrutanCetak LIKE @1"),
new FieldParam("0", UrutanCetak),
new FieldParam("1", GetOriginal <Proyek>()
.UrutanCetak + "|%"));
//ExecuteNonQuery(string.Concat(
// "UPDATE Proyek SET KodeProyek=",
// FormatSqlValue(_KodeProyek), "+",
// DataPersistance.GetSqlSubString("KodeProyek",
// KodeProyekOrg.Length + 1, 100),
// " WHERE IdProyek LIKE ",
// FormatSqlValue(IdProyek + ".%"), " AND ",
// DataPersistance.GetSqlSubString("KodeProyek", 1,
// KodeProyekOrg.Length), "=",
// FormatSqlValue(GetOriginal<Proyek>().KodeProyek)));
}
}
protected override void EndUI()
{
ListKas.Close();
ListJenisPenerimaan.Close();
ListDepartemen.Close();
ListProyek.Close();
Dp.SetVariable("PenerimaanKasUmumVar",
"IdKas", _IdKas);
}
public void RunClassFldScenario()
{
TestLibrary.TestFramework.BeginScenario(nameof(RunClassFldScenario));
var result = Dp.DotProductBySelectedQuadruplet(_fld1, _fld2, _fld3, 3);
Unsafe.Write(_dataTable.outArrayPtr, result);
ValidateResult(_fld1, _fld2, _fld3, _dataTable.outArrayPtr);
}
protected override void EndUI()
{
ListKas.Close();
ListJenisPengeluaran.Close();
ListDepartemen.Close();
ListProyek.Close();
Dp.SetVariable("PerintahBayarVar",
"IdKas", _IdKas);
}
protected override void EndUI()
{
ListAkun.Close();
ListMataUang.Close();
ListDepartemen.Close();
ListProyek.Close();
ListAturan.Close();
ListJenisDokSumber.Close();
Dp.SetVariable("JurnalVar", "JenisDokSumber", LastJenisDokSumber);
}
public string GetSqlSelectDocumentVariableKey(
string ModuleName, string VariableName)
{
return(string.Concat(
"SELECT DocumentKey FROM _System_RoleModuleDocument WHERE ProductName=",
Dp.FormatSqlValue(BaseFramework.ProductName),
" AND RoleName=", Dp.FormatSqlValue(_CurrentRole),
" AND ModuleName=", Dp.FormatSqlValue(ModuleName),
" AND VariableName=", Dp.FormatSqlValue(VariableName)));
}
public void RunStructLclFldScenario()
{
TestLibrary.TestFramework.BeginScenario(nameof(RunStructLclFldScenario));
var test = TestStruct.Create();
var result = Dp.DotProductBySelectedQuadruplet(test._fld1, test._fld2, test._fld3, 3);
Unsafe.Write(_dataTable.outArrayPtr, result);
ValidateResult(test._fld1, test._fld2, test._fld3, _dataTable.outArrayPtr);
}
public void RunClassLclFldScenario()
{
TestLibrary.TestFramework.BeginScenario(nameof(RunClassLclFldScenario));
var test = new SimpleTernaryOpTest__DotProductBySelectedQuadruplet_Vector64_UInt32_Vector128_Byte_3();
var result = Dp.DotProductBySelectedQuadruplet(test._fld1, test._fld2, test._fld3, 3);
Unsafe.Write(_dataTable.outArrayPtr, result);
ValidateResult(test._fld1, test._fld2, test._fld3, _dataTable.outArrayPtr);
}
protected override void AfterLoadFound()
{
ListRole = new List <string>();
DataTable dt = Dp.OpenDataTable(
"SELECT RoleName FROM _System_RoleUser WHERE ProductName=@1 AND UserName=@0",
new FieldParam("0", UserName), new FieldParam("1", BaseFramework.ProductName));
foreach (DataRow dr in dt.Rows)
{
ListRole.Add((string)dr[0]);
}
}
public void RunLclVarScenario_Load()
{
TestLibrary.TestFramework.BeginScenario(nameof(RunLclVarScenario_Load));
var op1 = AdvSimd.LoadVector64((UInt32 *)(_dataTable.inArray1Ptr));
var op2 = AdvSimd.LoadVector64((Byte *)(_dataTable.inArray2Ptr));
var op3 = AdvSimd.LoadVector128((Byte *)(_dataTable.inArray3Ptr));
var result = Dp.DotProductBySelectedQuadruplet(op1, op2, op3, 3);
Unsafe.Write(_dataTable.outArrayPtr, result);
ValidateResult(op1, op2, op3, _dataTable.outArrayPtr);
}
public void RunLclVarScenario_UnsafeRead()
{
TestLibrary.TestFramework.BeginScenario(nameof(RunLclVarScenario_UnsafeRead));
var op1 = Unsafe.Read <Vector64 <UInt32> >(_dataTable.inArray1Ptr);
var op2 = Unsafe.Read <Vector64 <Byte> >(_dataTable.inArray2Ptr);
var op3 = Unsafe.Read <Vector128 <Byte> >(_dataTable.inArray3Ptr);
var result = Dp.DotProductBySelectedQuadruplet(op1, op2, op3, 3);
Unsafe.Write(_dataTable.outArrayPtr, result);
ValidateResult(op1, op2, op3, _dataTable.outArrayPtr);
}
protected override string GetBrowseFilter()
{
switch (FormMode)
{
case enFormPerintahBayar.PerintahBayar:
return(string.Empty);
default: //enFormPerintahBayar.PengeluaranUang:
return("Status=" +
Dp.FormatSqlValue(enStatusPerintahBayar.SudahDibayar));
}
}
private void AppendDocuments()
{
OpenFileDialog openFileDialog = new OpenFileDialog
{
Title = "Select a picture",
Filter = "Image files (*.jpg, *.jpeg, *.jpe, *.jfif, *.png) | *.jpg; *.jpeg; *.jpe; *.jfif; *.png"
};
;
if (openFileDialog.ShowDialog() == true)
{
try
{
OrderItemReport oir = new OrderItemReport()
{
//Comment = "Kommentar kksksksksk",
//Id = 59,
OrderItemId = SelectedDetailed.OrderItemId,
ReportDate = new DateTime(),
Appendix = new List <OrderItemReportAppendix>()
{
new OrderItemReportAppendix()
{
//Id = 10,
//OrderItemReportId = 50,
Picture = ImageConverter.ImageToByteArray(new BitmapImage(new Uri(openFileDialog.FileName, UriKind.Absolute)))
}
}
};
SelectedDetailed.OrderItemReports.Add(oir);
Dp.AddOrderItemReport(oir);
//if(Dp.AddOrderItemReport(oir))
// MessageBox.Show("Update erfolgreich!", "Info", MessageBoxButton.OK, MessageBoxImage.Information);
//else
// MessageBox.Show("Update fehlgeschlagen", "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
if (Dp.UpdateOrderItemData(SelectedDetailed))
{
MessageBox.Show("Update erfolgreich!", "Info", MessageBoxButton.OK, MessageBoxImage.Information);
}
else
{
MessageBox.Show("Update fehlgeschlagen", "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
}
}
catch (Exception e)
{
MessageBox.Show("Laden des Bildes fehlgeschlagen!\n" + e.Message, "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
}
}
}
public RSAParameters ToRsaParamaters()
{
return(new RSAParameters {
Modulus = Modulus.Reverse().ToArray(),
P = P.Reverse().ToArray(),
D = D.Reverse().ToArray(),
Q = Q.Reverse().ToArray(),
InverseQ = Iq.Reverse().ToArray(),
Exponent = BitConverter.GetBytes(PubExp).Reverse().ToArray(),
DQ = Dq.Reverse().ToArray(),
DP = Dp.Reverse().ToArray()
});
}
public void RunClsVarScenario()
{
TestLibrary.TestFramework.BeginScenario(nameof(RunClsVarScenario));
var result = Dp.DotProduct(
_clsVar1,
_clsVar2,
_clsVar3
);
Unsafe.Write(_dataTable.outArrayPtr, result);
ValidateResult(_clsVar1, _clsVar2, _clsVar3, _dataTable.outArrayPtr);
}
public void RunBasicScenario_UnsafeRead()
{
TestLibrary.TestFramework.BeginScenario(nameof(RunBasicScenario_UnsafeRead));
var result = Dp.DotProduct(
Unsafe.Read <Vector128 <UInt32> >(_dataTable.inArray1Ptr),
Unsafe.Read <Vector128 <Byte> >(_dataTable.inArray2Ptr),
Unsafe.Read <Vector128 <Byte> >(_dataTable.inArray3Ptr)
);
Unsafe.Write(_dataTable.outArrayPtr, result);
ValidateResult(_dataTable.inArray1Ptr, _dataTable.inArray2Ptr, _dataTable.inArray3Ptr, _dataTable.outArrayPtr);
}
public void RunBasicScenario_Load()
{
TestLibrary.TestFramework.BeginScenario(nameof(RunBasicScenario_Load));
var result = Dp.DotProduct(
AdvSimd.LoadVector128((UInt32 *)(_dataTable.inArray1Ptr)),
AdvSimd.LoadVector128((Byte *)(_dataTable.inArray2Ptr)),
AdvSimd.LoadVector128((Byte *)(_dataTable.inArray3Ptr))
);
Unsafe.Write(_dataTable.outArrayPtr, result);
ValidateResult(_dataTable.inArray1Ptr, _dataTable.inArray2Ptr, _dataTable.inArray3Ptr, _dataTable.outArrayPtr);
}
protected override void GetDataSource(out string DataSource,
out string DataSourceOrder, List <FieldParam> Parameters)
{
BaseGL.RingkasanAkun.Update(new DateTime(_Tahun, 12, 31));
Parameters.Add(new FieldParam("0", _LevelCetak));
Parameters.Add(new FieldParam("1", _Tahun));
Parameters.Add(new FieldParam("2", enJenisAkun.Laba__Rugi));
DataSource = Dp.GetSqlSelect <ViewPosisiAkun>(string.Empty,
"LevelAkun<=@0 AND Tahun=@1 AND JenisAkun<>@2 AND Aktif<>0");
DataSourceOrder = "UrutanCetak";
}
public void RunStructLclFldScenario_Load()
{
TestLibrary.TestFramework.BeginScenario(nameof(RunStructLclFldScenario_Load));
var test = TestStruct.Create();
var result = Dp.DotProduct(
AdvSimd.LoadVector128((UInt32 *)(&test._fld1)),
AdvSimd.LoadVector128((Byte *)(&test._fld2)),
AdvSimd.LoadVector128((Byte *)(&test._fld3))
);
Unsafe.Write(_dataTable.outArrayPtr, result);
ValidateResult(test._fld1, test._fld2, test._fld3, _dataTable.outArrayPtr);
}
private void ApplyChanges()
{
if (Status.Equals(AllStatuses[3]))
{
if (MessageBox.Show("Wollen Sie den Auftrag wirklich ablehnen?", "Auftrag ablehnen?", MessageBoxButton.YesNo, MessageBoxImage.Question) == MessageBoxResult.No)
{
return;
}
}
//OS.AddittionalCost = AddittionalCost;
SelectedDetailed.AddittionalCost = AddittionalCost;
SelectedDetailed.Finalprice = Finalprice;
SelectedDetailed.IsAllInclusive = IsAllInclusive;
//SelectedDetailed.IsConfirmed = IsConfirmed;
//SelectedDetailed.IsFinished = IsFinished;
SelectedDetailed.IsConfirmed = GetConfirmStatus(Status);
SelectedDetailed.IsFinished = GetFinishedStatus(Status);
SelectedDetailed.PreferedDate = PreferedDate;
SelectedDetailed.ServiceProviderComment = ServiceProviderComment;
if (IsConfirmed != null && IsConfirmed != "x" && PreferedDate < DateTime.Now)
{
msg.Send <GenericMessage <string> >(new GenericMessage <string>("past"));
}
else if (IsConfirmed != null && IsConfirmed != "x" && PreferedDate > DateTime.Now)
{
msg.Send <GenericMessage <string> >(new GenericMessage <string>("future"));
}
else
{
msg.Send <GenericMessage <string> >(new GenericMessage <string>("denied"));
}
if (Dp.UpdateOrderItemData(SelectedDetailed))
{
MessageBox.Show("Update erfolgreich!", "Info", MessageBoxButton.OK, MessageBoxImage.Information);
RaisePropertyChanged(nameof(PreferedDate)); //so that the PreferedDate in the DetailView gets actually updated once it's sent to the DB
}
else
{
MessageBox.Show("Update fehlgeschlagen", "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
}
}
protected override void GetDataSource(out string DataSource,
out string DataSourceOrder, List <FieldParam> Parameters)
{
DataSource = string.Concat(
@"SELECT NoAkun,NamaAkun,LevelAkun,UrutanCetak,Posting,",
Dp.GetSqlCoalesce("Saldo", 0), @" as Saldo FROM (SELECT UrutanCetak,
NoAkun,NamaAkun,LevelAkun,Posting,Aktif,(SELECT SUM(Debit-Kredit)
FROM (", BaseGL.RingkasanAkun.SqlPosisiAkun(_TglNeraca, "1", Parameters),
@") pp WHERE pp.IdAkun=qq.IdAkun OR pp.IdAkun LIKE qq.IdAkun
+'.%') as Saldo FROM Akun qq WHERE LevelAkun<=@0 AND JenisAkun<>",
Dp.FormatSqlValue(enJenisAkun.Laba__Rugi), ") zz WHERE Aktif<>0");
Parameters.Add(new FieldParam("0", _LevelCetak));
DataSourceOrder = "UrutanCetak";
}
public bool ChangePassword(string OldPassword, string NewPassword)
{
if (_CurrentRole.Length == 0)
{
return(false);
}
TableDef tdUser = MetaData.GetTableDef(typeof(User));
return(Dp.ExecuteNonQuery(@"UPDATE _System_User SET
UserPassword=@0 WHERE UserName=@1 AND UserPassword=@2",
new FieldParam("0", NewPassword),
new FieldParam("1", _CurrentUser),
new FieldParam("2", OldPassword)) > 0);
}
public void RunStructFldScenario_Load(SimpleTernaryOpTest__DotProduct_Vector128_UInt32 testClass)
{
fixed(Vector128 <UInt32> *pFld1 = &_fld1)
fixed(Vector128 <Byte> *pFld2 = &_fld2)
fixed(Vector128 <Byte> *pFld3 = &_fld3)
{
var result = Dp.DotProduct(
AdvSimd.LoadVector128((UInt32 *)(pFld1)),
AdvSimd.LoadVector128((Byte *)(pFld2)),
AdvSimd.LoadVector128((Byte *)(pFld3))
);
Unsafe.Write(testClass._dataTable.outArrayPtr, result);
testClass.ValidateResult(_fld1, _fld2, _fld3, testClass._dataTable.outArrayPtr);
}
}
