Exemple #1
0
        // 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);
        }
Exemple #2
0
        // 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();
        }