// 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();
}
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));
}
/*<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));
}
}