// Przyk³ad 6. - Korekta FA
protected static void DogenerujKorekteFA()
{
CDNBase.AdoSession Sesja = Login.CreateSession();
CDNHlmn.DokumentyHaMag Faktury = (CDNHlmn.DokumentyHaMag)Sesja.CreateObject("CDN.DokumentyHaMag", null);
CDNHlmn.IDokumentHaMag Faktura = (CDNHlmn.IDokumentHaMag)Faktury.AddNew(null);
// FAKI 302001;
// FAKW 302002;
// FAKV 302003;
//ustawiamy rodzaj i typ dokumentu
Faktura.Rodzaj = 302001;
Faktura.TypDokumentu = 302;
//Rodzaj korekty
Faktura.Korekta = 1;
//Bufor
Faktura.Bufor = 1;
//Id korygowanej faktury
Faktura.OryginalID = 1;
//Zmieniamy ilosc
CDNBase.ICollection Pozycje = Faktura.Elementy;
CDNHlmn.IElementHaMag Pozycja = (CDNHlmn.IElementHaMag)Pozycje["Tre_TwrKod='NOWY_C#'"];
Pozycja.Ilosc = 1;
//Zapisujemy
Sesja.Save();
Console.WriteLine("Dogenerowano korektê: " + Faktura.NumerPelny);
}
// Przyk³ad 5. - Dodanie faktury sprzeda¿y
protected static void DodanieFaktury()
{
CDNBase.AdoSession Sesja = Login.CreateSession();
CDNHlmn.DokumentyHaMag Faktury = (CDNHlmn.DokumentyHaMag)Sesja.CreateObject("CDN.DokumentyHaMag", null);
CDNHlmn.IDokumentHaMag Faktura = (CDNHlmn.IDokumentHaMag)Faktury.AddNew(null);
CDNBase.ICollection Kontrahenci = (CDNBase.ICollection)(Sesja.CreateObject("CDN.Kontrahenci", null));
CDNHeal.IKontrahent Kontrahent = (CDNHeal.IKontrahent)Kontrahenci["Knt_Kod='ALOZA'"];
CDNBase.ICollection FormyPlatnosci = (CDNBase.ICollection)(Sesja.CreateObject("CDN.FormyPlatnosci", null));
OP_KASBOLib.FormaPlatnosci FPl = (OP_KASBOLib.FormaPlatnosci)FormyPlatnosci[1];
// e_op_Rdz_FS 302000
Faktura.Rodzaj = 302000;
// e_op_KlasaFS 302
Faktura.TypDokumentu = 302;
//Ustawiamy bufor
Faktura.Bufor = 0;
//Ustawiamy date
Faktura.DataDok = new DateTime(2007, 06, 04);
//Ustawiamy formê póatnoœci
Faktura.FormaPlatnosci = FPl;
//Ustawiamy podmiot
Faktura.Podmiot = (CDNHeal.IPodmiot)Kontrahent;
//Ustawiamy magazyn
Faktura.MagazynZrodlowyID = 1;
//Dodajemy pozycje
CDNBase.ICollection Pozycje = Faktura.Elementy;
CDNHlmn.IElementHaMag Pozycja = (CDNHlmn.IElementHaMag)Pozycje.AddNew(null);
Pozycja.TowarKod = "NOWY_C#";
Pozycja.Ilosc = 2;
//Pozycja.Cena0WD = 10;
Pozycja.WartoscNetto = Convert.ToDecimal("123,13");
//Dodanie atrybutu dokumentu TEKST
CDNBase.ICollection rAtrybuty = (CDNBase.ICollection)(Sesja.CreateObject("CDN.DefAtrybuty", null));
CDNTwrb1.IDefAtrybut rAtrybut = (CDNTwrb1.IDefAtrybut)rAtrybuty["dea_Kod = 'TEKST'"];
CDNTwrb1.IDokAtrybut rAtrybutDokumentu = (CDNTwrb1.IDokAtrybut)Faktura.Atrybuty.AddNew(null);
rAtrybutDokumentu.DefAtrybut = (CDNTwrb1.DefAtrybut)rAtrybut;
rAtrybutDokumentu.Wartosc = "Nr:XP123456";
// Atrybut mo¿na te¿ podstawiæ za pomoc¹ ID atrybutu bez tworzenia kolekcji atrybutów:
// rAtrybutDokumentu.DeAID = 123
//zapisujemy
Sesja.Save();
Console.WriteLine("Dodano fakturê: " + Faktura.NumerPelny);
}
private static int GetIdTowaru(CDNBase.AdoSession sesja, string kod)
{
if (String.IsNullOrEmpty(kod))
{
return(0);
}
int Id = 0;
Id = Convert.ToInt32(GetSingleValue(sesja, String.Format("Select IsNull(Twr_TwrId, 0) From cdn.Towary Where Twr_Kod = '{0}'", kod), false));
return(Id);
}
private static object GetSingleValue(CDNBase.AdoSession sesja, string query, bool configCnn)
{
ADODB.Connection cn = configCnn ? sesja.ConfigConnection : sesja.Connection;
ADODB.Recordset rs = new ADODB.RecordsetClass();
rs.Open(query, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, 1);
if (rs.RecordCount > 0)
{
return(rs.Fields[0].Value);
}
else
{
return(null);
}
}
// Przyk³ad 4. - Dodanie towaru
protected static void DodanieTowaru()
{
CDNBase.AdoSession Sesja = Login.CreateSession();
CDNTwrb1.Towary Towary = (CDNTwrb1.Towary)Sesja.CreateObject("CDN.Towary", null);
CDNTwrb1.ITowar Towar = (CDNTwrb1.ITowar)Towary.AddNew(null);
Towar.Nazwa = "Nowy towar dodany z C#";
string nazwa = Towar.Nazwa1;
Towar.Kod = "NOWY_C#";
Towar.Opis = "Taki sobie towar dodany z C#";
Towar.Stawka = 22.00m;
Towar.Flaga = 2; // 2- oznacza stawkê opodatkowan¹, pozosta³e wartoœci
// pola s¹ podane w strukturze bazy tabela: [CDN.Towary].[Twr_Flaga]
Towar.JM = "SZT";
// Podstawienie grupy do towaru
// Grupy dla towarów maj¹ strukutrê drzewiast¹ która jest umieszczona w tabeli TwrGrupy
CDNBase.ICollection Grupy = (CDNBase.ICollection)(Sesja.CreateObject("CDN.TwrGrupy", null));
CDNTwrb1.TwrGrupa Grupa = (CDNTwrb1.TwrGrupa)Grupy["twg_kod = 'Grupa G³ówna'"];
// Towar jest przypisany do jednje grupy domyœlnej
Towar.TwGGIDNumer = Grupa.GIDNumer;
// oraz do listy grup
CDNTwrb1.TwrGrupa GrupaZListy = (CDNTwrb1.TwrGrupa)Towar.Grupy.AddNew(null);
GrupaZListy = Grupa;
Console.WriteLine("podstawienie do grupy: " + Grupa.Kod);
CDNTwrb1.ICena cana1 = (CDNTwrb1.ICena)Towar.Ceny[1];
cana1.WartoscNetto = 29.29m;
CDNTwrb1.ICena cana2 = (CDNTwrb1.ICena)Towar.Ceny[4];
cana2.WartoscBrutto = 30.02m;
// Zapis
Sesja.Save();
Console.WriteLine("Towar dodany: " + nazwa);
}
// Przyk³ad 3. - Dodanie nowego kontrahenta
protected static void DodajKontrahenta()
{
CDNBase.AdoSession Sesja = Login.CreateSession();
OP_KASBOLib.Banki Banki = (OP_KASBOLib.Banki)Sesja.CreateObject("CDN.Banki", null);
CDNHeal.Kategorie Kategorie = (CDNHeal.Kategorie)Sesja.CreateObject("CDN.Kategorie", null);
CDNHeal.Kontrahenci Kontrahenci = (CDNHeal.Kontrahenci)Sesja.CreateObject("CDN.Kontrahenci", null);
CDNHeal.IKontrahent Kontrahent = (CDNHeal.IKontrahent)Kontrahenci.AddNew(null);
CDNHeal.IAdres Adres = Kontrahent.Adres;
CDNHeal.INumerNIP NumerNIP = Kontrahent.NumerNIP;
Adres.Gmina = "Kozia Wólka";
Adres.KodPocztowy = "20-835";
Adres.Kraj = "Polska";
Adres.NrDomu = "17";
Adres.Miasto = "Kozia Wólka";
Adres.Powiat = "Lukrecjowo";
Adres.Ulica = "Œliczna";
Adres.Wojewodztwo = "Kujawsko-Pomorskie";
NumerNIP.UstawNIP("PL", "281-949-89-45", 1);
Kontrahent.Akronim = "NOWY";
Kontrahent.Email = "*****@*****.**";
Kontrahent.Medialny = 0;
Kontrahent.Nazwa1 = "Nowy kontrahent";
Kontrahent.Nazwa2 = "dodany z C#";
string Nazwa = Kontrahent.NazwaPelna;
Kontrahent.Bank = (OP_KASBOLib.Bank)Banki["BNa_BNaID=2"];
Kontrahent.Kategoria = (CDNHeal.Kategoria)Kategorie["Kat_KodSzczegol='ENERGIA'"];
Sesja.Save();
Console.WriteLine("Nazwa dodanego kotrahenta: " + Nazwa);
}
// Przyk³ad 7. - Dogenerowanie WZ do FA
protected static void Dogenerowanie_WZ_Do_FA()
{
CDNBase.AdoSession Sesja = Login.CreateSession();
//ADODB.Connection cnn = new ADODB.ConnectionClass();
ADODB.Connection cnn = Sesja.Connection;
//cnn.Open( cnn.ConnectionString, "", "", 0);
ADODB.Recordset rRs = new ADODB.RecordsetClass();
string select = "select top 1 TrN_TrNId as ID from cdn.TraNag where TrN_Rodzaj = 302000 ";
rRs.Open(select, cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, 1);
// Wykreowanie obiektu serwisu:
CDNHlmn.SerwisHaMag Serwis = (CDNHlmn.SerwisHaMag)Sesja.CreateObject("Cdn.SerwisHaMag", null);
// Samo gemerowanie dok. FA
int MAGAZYN_ID = 1;
Serwis.AgregujDokumenty(302, rRs, MAGAZYN_ID, 306, null);
//Zapisujemy
Sesja.Save();
}
public static void NowyRaport(Rejestr rejestr)
{
var RachunekID = ZwrocID(rejestr);
try
{
CDNBase.AdoSession oSession = OptimaCOM.oLogin.CreateSession();
var rRaport = oSession.CreateObject("CDN.RaportyKB").AddNew();
var rRejestr = oSession.CreateObject("CDN.Rachunki").Item("BRa_BRaID=" + RachunekID); // zeby metoda działała, w bazie danych musi być przynajmniej jeden raport !!!
rRaport.Rachunek = rRejestr;
rRaport.DataOtw = rejestr.Data;
rRaport.DataZam = rejestr.Data;
oSession.Save();
Form1.log.Debug("Dodawanie Raportu zakończone powodzeniem!"); //Wcześniejszy raport nie ma ustalonej daty zamknięcia.
Debug.WriteLine("Dodawanie Raportu zakończone powodzeniem!"); //Wcześniejszy raport nie ma ustalonej daty zamknięcia.
}
catch (Exception e)
{
Form1.log.Error("Błąd tworzenia sesji podczas dodawania RAPORTU: " + Environment.NewLine + e.Message); //Błąd tworzenia sesji podczas dodawania RAPORTUWcześniejszy raport nie ma ustalonej daty zamknięcia.
Debug.WriteLine("Błąd tworzenia sesji podczas dodawania RAPORTU: " + Environment.NewLine + e.Message);
}
} // Tworzenie nowego raportu dla podanego rejestru
/*<COM_DOK>
* <OPIS>Dodanie dokumentu OBD</OPIS>
* <Uruchomienie>Przyk³ad dzia³a na bazie DEMO. </Uruchomienie>
* <Interfejs> IDokNag </<Interfejs>
* <Interfejs> IKontrahent </<Interfejs>
* <Interfejs> INumerator </<Interfejs>
* <Osoba>WN</Osoba>
* <Jezyk>C#</Jezyk>
* <OPT_VER>17.3.1</OPT_VER>
* </COM_DOK>*/
#endregion
public static void DodanieDokumentuOBD()
{
try
{
Console.WriteLine("##### dodawanie dokumentu OBD #####");
Console.WriteLine("Kreujê sesjê ...");
CDNBase.AdoSession sesja = Login.CreateSession();
Console.WriteLine("Kreujê kolekcjê dokumentów ...");
OP_SEKLib.DokNagColl dokumenty = (OP_SEKLib.DokNagColl)sesja.CreateObject("CDN.DokNagColl", null);
Console.WriteLine("Dodajê nowy dokument do kolekcji ...");
OP_SEKLib.IDokNag dokument = (OP_SEKLib.IDokNag)dokumenty.AddNew(null);
dokument.Typ = 1; //firmowy
//jeœli seria dokumentu ma byæ inna ni¿ domyœlna
const string symbolDD = "AUTO";
CDNHeal.DefinicjeDokumentow definicjeDokumentow = (CDNHeal.DefinicjeDokumentow)sesja.CreateObject("CDN.DefinicjeDokumentow", null);
CDNHeal.DefinicjaDokumentu definicjaDokumentu = (CDNHeal.DefinicjaDokumentu)definicjeDokumentow[string.Format("Ddf_Symbol='OBD'", symbolDD)];
//Ustawiamy numerator
OP_KASBOLib.INumerator numerator = (OP_KASBOLib.INumerator)dokument.Numerator;
numerator.DefinicjaDokumentu = definicjaDokumentu;
numerator.Rejestr = "A1";//ustawiam seriê dla wybranej definicji dokumentów
//numerator.Rejestr = 133; //jeœli potrzeba ustawiæ numer
Console.WriteLine("Dzisiejsz¹ datê podstawiam jako datê utworzenia...");
//dokument.DataDok = DateTime.Now; //jeœli data dokumentu ma byæ inna ni¿ bie¿¹ca
dokument.Tytul = "Rozpoczêcie procesu akwizycji";
dokument.Dotyczy = "Opis kroków do wykonania. Proszê zacz¹æ od dzisiaj!";
//Dodanie podmiotu
Console.WriteLine("Kreujê kolekcjê kontrahentów ...");
CDNBase.ICollection kontrahenci = (CDNBase.ICollection)(sesja.CreateObject("CDN.Kontrahenci", null));
Console.WriteLine("I pobieram z niej obiekt kontrahenta o kodzie 'ALOZA' ...");
CDNHeal.IKontrahent kontrahent = (CDNHeal.IKontrahent)kontrahenci["Knt_Kod='ALOZA'"];
dokument.PodmiotTyp = 1; //TypPodmiotuKontrahent
dokument.PodId = kontrahent.ID;
Console.WriteLine("Zapisujê dokument... " + dokument.Stempel.TSMod);
// Dodanie nag³ówka pliku
OP_SEKLib.IDokNagPlik DokNagPlik = (OP_SEKLib.IDokNagPlik)dokument.PlikiArchiwalne.AddNew(null);
// ustalenie koniecznych atrybutów
DokNagPlik.UstawStempel();
DokNagPlik.DoNID = dokument.ID;
DokNagPlik.FileMode = 2;
DokNagPlik.WBazie = 1;
DokNagPlik.NazwaPliku = "testfile.html";
DokNagPlik.Wersja = 0;
// Tworzenie danych binarnych
CDNTwrb1.IDanaBinarna PlikDaneBin = (CDNTwrb1.IDanaBinarna)DokNagPlik.PlikiBinarne.AddNew(null);
//koniczne atrybuty pliku binarnego oraz import danych
PlikDaneBin.TWAID = DokNagPlik.ID;
PlikDaneBin.DodajPlik(@"C:\testfile.html");
PlikDaneBin.Typ = 2;
PlikDaneBin.NazwaPliku = "testfile.html";
// Zapis dok.
sesja.Save();
dokument = (OP_SEKLib.IDokNag)dokumenty[String.Format("DoN_DoNId={0}", dokument.ID)];
Console.WriteLine("Dodano dokument numer: {0}", dokument.NumerPelny);
}
catch (COMException comError)
{
Console.WriteLine("###ERROR### Dodanie dokumentu OBD nie powiod³o siê!\n{0}", ErrorMessage(comError));
}
}
/*<COM_DOK>
* <OPIS>Dodanie zlecenia serwisowego</OPIS>
* <Uruchomienie>Przyk³ad dzia³a na bazie DEMO</Uruchomienie>
* <Interfejs> ISrsZlecenie </<Interfejs>
* <Interfejs> ISrsCzynnosc </<Interfejs>
* <Interfejs> ISrsCzesc </<Interfejs>
* <Osoba>WN</Osoba>
* <Jezyk>C#</Jezyk>
* <OPT_VER>17.3.1</OPT_VER>
* </COM_DOK>*/
#endregion
public static void DodanieZleceniaSerwisowego()
{
try
{
Console.WriteLine("##### dodawanie zlecenia serwisowego #####");
Console.WriteLine("Kreujê sesjê ...");
CDNBase.AdoSession sesja = Login.CreateSession();
Console.WriteLine("Kreujê kolekcjê zleceñ serwisowych ...");
OP_CSRSLib.SrsZlecenia zlecenia = (OP_CSRSLib.SrsZlecenia)sesja.CreateObject("CDN.SrsZlecenia", null);
Console.WriteLine("Dodajê nowe zlecenie do kolekcji zleceñ serwisowych ...");
OP_CSRSLib.ISrsZlecenie zlecenie = (OP_CSRSLib.ISrsZlecenie)zlecenia.AddNew(null);
Console.WriteLine("Kreujê kolekcje kontrahentów ...");
CDNBase.ICollection kontrahenci = (CDNBase.ICollection)(sesja.CreateObject("CDN.Kontrahenci", null));
Console.WriteLine("I pobieram z niej obiekt kontrahenta o kodzie 'ALOZA' ...");
CDNHeal.IKontrahent kontrahent = (CDNHeal.IKontrahent)kontrahenci["Knt_Kod='ALOZA'"];
Console.WriteLine("Teraz obiekt kontrahenta podstawiam do property Podmiot dla zlecenia ...");
zlecenie.Podmiot = (CDNHeal.IPodmiot)kontrahent;
Console.WriteLine("Dzisiejsz¹ datê podstawiam jako datê utworzenia zlecenia...");
zlecenie.DataDok = DateTime.Now;
Console.WriteLine("Pobieram kolekcjê czynnoœci przypisanych do zlecenia...");
CDNBase.ICollection czynnosci = zlecenie.Czynnosci;
Console.WriteLine("I dodajê do niej nowy obiekt...");
OP_CSRSLib.ISrsCzynnosc czynnosc = (OP_CSRSLib.ISrsCzynnosc)czynnosci.AddNew(null);
Console.WriteLine("Przypisujê us³ugê o kodzie PROJ_ZIELENI do tej czynnoœci...");
czynnosc.TwrId = GetIdTowaru(sesja, "PROJ_ZIELENI");
Console.WriteLine("IloϾ jednostek ustalam na dwie...");
czynnosc.Ilosc = 2;
czynnosc.CenaNetto = 100;
czynnosc.CzasTrwania = new DateTime(1899, 12, 30, 12, 0, 0); //12 godzin
czynnosc.KosztUslugi = 48;
Console.WriteLine("Teraz dodajê czêœci ...");
CDNBase.ICollection czesci = zlecenie.Czesci;
Console.WriteLine("I dodajê do niej nowy obiekt...");
OP_CSRSLib.ISrsCzesc czesc = (OP_CSRSLib.ISrsCzesc)czesci.AddNew(null);
Console.WriteLine("Przypisujê towar o kodzie IGLAKI_CYPRYS ...");
czesc.TwrId = GetIdTowaru(sesja, "IGLAKI_CYPRYS");
Console.WriteLine("IloϾ jednostek ustalam na trzy...");
czesc.Ilosc = 3;
czesc.CenaNetto = 99.80m;
czesc.Fakturowac = 1; //do fakturowania
Console.WriteLine("Przypisujê towar o kodzie ZIEMIA_5 ...");
czesc.TwrId = GetIdTowaru(sesja, "ZIEMIA_5");
Console.WriteLine("Iloœæ jednostek ustalam na piêæ...");
czesc.Ilosc = 5;
czesc.CenaNetto = 4.90m;
czesc.Fakturowac = 1; //do fakturowania
Console.WriteLine("Zapisujê sesjê...");
sesja.Save();
zlecenie = (OP_CSRSLib.ISrsZlecenie)zlecenia[String.Format("SrZ_SrZId={0}", zlecenie.ID)];
Console.WriteLine("Dodano zlecenie: {0}\nCzas trwania czynnoœci: {1}:{2}\nKoszt: {3}\nWartoœæ netto w cenach sprzeda¿y: {4}\nWartoœæ netto do zafakturowania : {5}",
zlecenie.NumerPelny,
zlecenie.CzynnosciCzasTrwania / 100,
(zlecenie.CzynnosciCzasTrwania % 100).ToString("00"),
zlecenie.Koszt.ToString("#0.00"),
zlecenie.WartoscNetto.ToString("#0.00"),
zlecenie.WartoscNettoDoFA.ToString("#0.00"));
}
catch (COMException comError)
{
Console.WriteLine("###ERROR### Dodanie zlecenia nie powiod³o siê!\n{0}", ErrorMessage(comError));
}
}
} //Parsowanie danych z pliku.
public static void ZapisKB(Zapis zapis, Rejestr rejestr)
{
try
{
CDNBase.AdoSession oSession = OptimaCOM.oLogin.CreateSession();
var rZapis = oSession.CreateObject("CDN.ZapisyKB").AddNew();
var rNumerator = rZapis.Numerator; //
//try
//{
// var rDokDef = oSession.CreateObject("CDN.DefinicjeDokumentow").Item("DDf_DDfID = 5");//.Item("DDf_Symbol=''"); //seria
// rNumerator.DefinicjaDokumentu = rDokDef;
// //Debug.WriteLine("Definicja dokumentu UDANA!");
//}
//catch(Exception e)
//{
// /Program.log.Debug("Błąd podczas tworzenia definicji dokumentu: "+e.Message);
//} //DefinicjeDokumentów
//try
//{
//var rRachunek = oSession.CreateObject("CDN.Rachunki").Item("Bra_Symbol= '" + rejestr.Nazwa+ "'"); //Rejestr
//rZapis.Rachunek = rRachunek;
// //Debug.WriteLine("pomyślne ustawienie rachunku");
//}
//catch(Exception e)
//{
// //Program.log.Debug("Błąd podczas ustawiania rachunku" + Environment.NewLine+e.Message);
//} // Ustawienie rachunku
try
{
if (czyIstniejeRaport(rejestr.Data, rejestr.Numer, rejestr) == false)
{
NowyRaport(rejestr);
Debug.WriteLine("NowyRaport() ZapisKB()......................................................................");
}
;
int NumerNr = ZwrocNumerNr(rejestr); //moge to wrzucic jako parametr do funkcji... int wywolasc gdzies przed wywolanie tej funkcji
Debug.WriteLine("NumerNr() ZapisKB()......................................................NIEPOTRZEBNE ZAPYTANIA DO BAZY...");
var rRaport = oSession.CreateObject("CDN.RaportyKB").Item("BRp_NumerPelny = '" + "RKB/" + NumerNr + "/" + rejestr.Data.Year + "/" + rejestr.Nazwa + "'");
//Debug.WriteLine("pomyślne dodanie Numeru");
rZapis.RaportKB = rRaport;
rZapis.DataDok = rejestr.Data; //z ta data byl problem !!!!!
rZapis.Kwota = zapis.Wartosc;
//rZapis.NumerObcy = zapis.Konto;
rZapis.Opis = zapis.Opis;
// Debug.WriteLine("pomyślne dodanie danych bloku: RaportKB, DataDok, Kwota");
// var rSeria = oSession.CreateObject("OP_KASBOLib.ZapisKB").Item("Seria1 = KASA");
}
catch (Exception e)
{
Debug.WriteLine("Błąd podczas ustawiania raportu: " + e.Message);
} //RaportKB, Data, Kwota, NUMER OBCY !!!
rZapis.DefinicjaDokumentu = rNumerator.DefinicjaDokumentu;
rZapis.Kierunek = zapis.Symbol; //nie wiem czemu 2
//rZapis.Seria = "KASA";
//OP_KASBOLib.ZapisKB zapis = oSession.CreateObject(OP_KASBOLib.ZapisKB)
try
{
var rKontrahent = oSession.CreateObject("CDN.Kontrahenci").Item("Knt_KOD = '" + "!NIEOKREŚLONY!" + "'");
rZapis.Podmiot = rKontrahent;
//Debug.WriteLine("Kontrahent: POMYŚLNIE");
}
catch (Exception e)
{
Debug.WriteLine("Kontrahent NIE POMYŚLNIE... " + e.Message);
} //Kontrahent
oSession.Save();
//Debug.WriteLine("sesja udana");
}
catch (Exception e)
{
Debug.WriteLine("Błąd tworzenia sesji: " + e.Message);
}
} //tworzenie zapisu KB
} // Tworzenie nowego raportu dla podanego rejestru
public static void ZapisKB(int numerNr, Zapis zapis, Rejestr rejestr)
{
int NumerNr = numerNr; // NumerNr jest potrzebny, ponieważ w przypadku braku raportu, wywoływana jest metoda NowyRaport() która przyjmuje NumerNr jako parametr
try
{
CDNBase.AdoSession oSession = OptimaCOM.oLogin.CreateSession();
var rZapis = oSession.CreateObject("CDN.ZapisyKB").AddNew();
var rNumerator = rZapis.Numerator; //
try
{
var rDokDef = oSession.CreateObject("CDN.DefinicjeDokumentow").Item("DDf_DDfID = 5");
rNumerator.DefinicjaDokumentu = rDokDef;
}
catch (Exception e)
{
Form1.log.Debug("Błąd podczas tworzenia definicji dokumentu: " + e.Message);
}
try
{
var rRachunek = oSession.CreateObject("CDN.Rachunki").Item("Bra_Symbol = '" + rejestr.Nazwa + "'"); //Rejestr//musi byc BRa_Symbol bo Akronimy mogą mieć inną długość
rZapis.Rachunek = rRachunek;
//Debug.WriteLine("pomyślne ustawienie rachunku");
}
catch (Exception e)
{
Form1.log.Debug("Błąd podczas ustawiania rachunku: " + Environment.NewLine + e.Message);
} // Ustawienie rachunku
try
{
if (czyIstniejeRaport(rejestr.Data, rejestr.Numer, rejestr) == false)
{
NowyRaport(rejestr);
ZapisKB(NumerNr, zapis, rejestr);
Debug.WriteLine("NowyRaport() ZapisKB()......................................................................");
}
;
var rRaport = oSession.CreateObject("CDN.RaportyKB").Item("BRp_NumerPelny = '" + "RKB/" + NumerNr + "/" + rejestr.Data.Year + "/" + rejestr.Nazwa + "'");
rZapis.RaportKB = rRaport;
rZapis.DataDok = rejestr.Data;
rZapis.Kwota = zapis.Wartosc;
rZapis.Opis = zapis.Opis;
}
catch (Exception e)
{
Debug.WriteLine("Błąd podczas ustawiania raportu: " + e.Message);
} //RaportKB, Data, Kwota, NUMER OBCY !!!
rZapis.DefinicjaDokumentu = rNumerator.DefinicjaDokumentu;
rZapis.Kierunek = zapis.Symbol;
try
{
var rKontrahent = oSession.CreateObject("CDN.Kontrahenci").Item("Knt_KOD = '" + "!NIEOKREŚLONY!" + "'");
rZapis.Podmiot = rKontrahent;
}
catch (Exception e)
{
Debug.WriteLine("Kontrahent nie dodany pomyślnie: " + e.Message);
Form1.log.Debug("Kontrahent nie dodany pomyślnie: " + e.Message);
} //Kontrahent
oSession.Save();
//Debug.WriteLine("sesja udana");
}
catch (Exception e)
{
Debug.WriteLine("Błąd tworzenia sesji: " + e.Message);
}
} //tworzenie zapisu KB ( bez niepotrzebnych zapytań do bazy)
