protected static void DodajElementyDoRejestru(CDNRVAT.VAT RejestrVAT)
{
// pobranie kolekcji elementów rejestru
CDNBase.ICollection Elementy = RejestrVAT.Elementy;
Console.WriteLine("Dodawanie elementow: ");
// dodanie elementów kolejno o stawkach 0%, 3%, 5%, 7%, 22% i zwolnionej
DodajJeden(0, (CDNRVAT.VATElement)Elementy.AddNew(null));
DodajJeden(3, (CDNRVAT.VATElement)Elementy.AddNew(null));
DodajJeden(5, (CDNRVAT.VATElement)Elementy.AddNew(null));
DodajJeden(7, (CDNRVAT.VATElement)Elementy.AddNew(null));
DodajJeden(22, (CDNRVAT.VATElement)Elementy.AddNew(null));
DodajJeden(-1, (CDNRVAT.VATElement)Elementy.AddNew(null));
}
// 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();
}
