// 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);
}
// Przyk³ad 2. - Dodanie dokumentu rejestru VAT
protected static void DodanieRejestru()
{
// Tworzymy obiekt sesji
AdoSession Sesja = Login.CreateSession();
// tworzenie potrzebnych kolekcji
CDNBase.ICollection FormyPlatnosci = (CDNBase.ICollection)(Sesja.CreateObject("CDN.FormyPlatnosci", null));
CDNBase.ICollection Waluty = (CDNBase.ICollection)(Sesja.CreateObject("CDN.Waluty", null));
CDNBase.ICollection RejestryVAT = (CDNBase.ICollection)(Sesja.CreateObject("CDN.RejestryVAT", null));
CDNBase.ICollection Kontrahenci = (CDNBase.ICollection)(Sesja.CreateObject("CDN.Kontrahenci", null));
// pobieranie kontrahenta, formy platnosci i waluty
CDNHeal.IKontrahent Kontrahent = (CDNHeal.IKontrahent)Kontrahenci["Knt_Kod='ALOZA'"];
// w konfiguracji jest tylko jedna waluta (PLN)
// CDNHeal.Waluta Waluta = (CDNHeal.Waluta)Waluty[ "WNa_Symbol='EUR'" ];
OP_KASBOLib.FormaPlatnosci FPl = (OP_KASBOLib.FormaPlatnosci)FormyPlatnosci[1];
// utworzenie nowego obiektu rejestru VAT
CDNRVAT.VAT RejestrVAT = (CDNRVAT.VAT)RejestryVAT.AddNew(null);
//ustawianie parametrów rejestru
RejestrVAT.Typ = 2; // 1 - zakupu; 2 - sprzeda¿y
Console.WriteLine("Typ ustawiony");
RejestrVAT.Rejestr = "SPRZEDA¯"; // nazwa rejestru0
Console.WriteLine("Rejestr ustawiony");
RejestrVAT.Dokument = "DET01/05/2007";
Console.WriteLine("Dokument ustawiony");
RejestrVAT.IdentKsieg = "2007/05/28-oop";
Console.WriteLine("IdentKsieg ustawiony");
RejestrVAT.DataZap = new DateTime(2007, 05, 28);
Console.WriteLine("DataZap ustawiona");
RejestrVAT.FormaPlatnosci = FPl;
Console.WriteLine("Forma platnosci ustawiona");
RejestrVAT.Podmiot = (CDNHeal.IPodmiot)Kontrahent;
Console.WriteLine("Podmiot ustawiony");
// kategoria ustawia siê sama, gdy ustawiany jest kontrahent
// waluty nie ustawiam, bo w konf. jest na razie tylko jedna waluta (PLN)
// RejestrVAT.WalutaDoVAT = Waluta;
// Console.WriteLine( "Waluta ustawiona " + RejestrVAT.Waluta.Symbol );
// dodanie elementów rejestru VAT
DodajElementyDoRejestru(RejestrVAT);
// zapisanie zmian
Sesja.Save();
}
