#opis  "Dane z programu iCargo", "*.TXT (Pliki tekstowe)"  //
#format  "AMS"  //
#opisy  "10"  //
//#Disable  "2"  //poziom ostrzeżeń 1 (m.in. bez ostrzeżenia "Pole nie znalezione")
#POWIELONE_NAZWY  "1"  //0-zapisuje bez pytania; 1-pyta czy zapisać; 2-nie zapisuje
#separator_01  		"."  //kropka
#konto_zak_vat  	"221-2"  //Konto VAT dla zakupów
#konto_zak_netto  	"402"  //Konto netto dla zakupów
#konto_zak_brutto  	"201-1-1-k"  //'K' oznacza numer kontrahenta na dokumencie
#konto_sp_vat  		"221-1"  //Konto VAT dla sprzedaży
#konto_sp_netto  	"701-1-1-k"  //Konto netto dla sprzedaży
#konto_sp_brutto  	"201-1-1-k"  //'K' oznacza numer kontrahenta na dokumencie
#konto_koszt_wn  	""  //Konto WN dla księgowania kosztu sprzedaży
#konto_koszt_ma  	""  //Konto MA dla księgowania kosztu sprzedaży


Section( "Kontrahent", "Kontrahent")
{
    $klucz      = [id]
	$skrot		= [kod]
	$nazwa		= [nazwa]
	$miejscowosc	= [miejscowosc]

	$nip = [nip]


	IF( EXIST( "dom") )
	{
		$ulica		= [ulica]
		$NumerDomu	= [dom]
		$NumerMieszk= [lokal]
	}
	ELSE
	{
		IF( REX([ulica], "-{*}({[0-9///-]##:b()|[A-Q]})(:b[//\\.,]|(m[,.]+)|():b{[0-9]##:b[A-Z]|()})|()$"))
		{
			$ulica		= @rex1
			$NumerDomu	= @rex2
			$NumerMieszk	= @rex3
		}
		ELSE
			$ulica		= [ulica]
	}

	$kod       	= [kod_pocztowy]
	$telefon1  	= [tel1]
	$telefon2   	= [tel2]
	$telefax	= [fax]

//	$fk_ident	= [zewnetrzne_id]

	$regon		= [regon]
	$pesel		= [pesel]
	
	$krajKod = [krajKod]

	$limit		= [limit]
	$limitKwota	= [limit_kwota]
	$limitWaluta	= [limit_waluta]

	$www		= [www]
	$email		= [e-mail]

	$aktywny	= [aktywny]

	@numer_konta   = 1

	Section("konto_bankowe", "", "REPEAT")	//REPEAT: analizujemy wszystkie podsekcje
	{
		switch(@numer_konta) 
		{
		case "1"
			IF( equal([adres], "") )
				$w_banku1 	= CAT([waluta], " ",[nazwa])
			ELSE
				$w_banku1 	= CAT([waluta], " ",[nazwa], ", ", [adres])
			$rachunek1 	= [konto]	
			break	
		CASE "2"
			IF( equal([adres], "") )
				$w_banku2 	= CAT([waluta], " ",[nazwa])
			ELSE
				$w_banku2 	= CAT([waluta], " ",[nazwa], ", ", [adres])
			$rachunek2 	= [konto]	
			break	
		}
		@numer_konta = SUM0(@numer_konta,1)
	}
}


Section("dokument", "")
{
	if( NOT(equal( [anulowany], "1")) )
	{
		MakeSec("dokument")
		{

			@kategoria = [kategoria]
			@opisy = ""
			Info("Dokument: ", [nr_dokumentu])
			$ObslugujJak 	= [obsluguj_jak]
			$klucz		= [typ_dokumentu]
			$nazwa		= [nr_dokumentu]
			$rodzaj_dok	= [rodzaj_dokumentu] 
			$DataDok	= Date([data_wystawienia])
			$Dataokr	= Date([data_sprzedazy])
			$DataOper	= Date([data_sprzedazy])
			@@rodzdok	= [rodzaj_dokumentu]
	
			@okres = rex([data_wystawienia],"{???????}{???}", CAT(@rex1,"-01"))	
			

			$Kwota		= [brutto]

//			$Sygnatura	= [wystawil]
			$Sygnatura 	= ""
			
			$NazwaKor	= [nr_dokumentu_korygowanego]
			$DataKor	= Date([data_dok_korygowanego])
			$Datawpl	= Date([data_wys_odeb])

			IF ( NOT(equal([waluta], "")))
				IF ( NOT(equal([waluta],"PLN")) )
				{
					if ( !equal([netto_w_walucie], "") )
					{
						$waluta = [waluta]
						$wkwota = [brutto_w_walucie]   //nie ma tekiego pola			
						$tabela = 0 //[tabela_kursowa]
						$kurs 	= [kurs_waluty]
						$typkursu = 3
					}
				}


			$naliczenie_VAT = 0
			$eGUID		= ""
			$eStatus	= 0
			$SaldoPoczRK	= ""
			$SaldoZapRK	= ""
			$KontoKasy	= ""

			@opisDok 	= ""
			@@poz		= 0


			MakeSec("Transakcja")
			{
				IF(NOT (equal([termin_platnosci], "")) )
				{
					@plattermin	= Date([termin_platnosci])
					$Termin		= Date([termin_platnosci])
					$ustawowe	= 1
				}
				ELSE
				{
					$termin		= 14
					$ustawowe	= 1
				}
			}
	

		

			Section("", "", "REPEAT")
			{
				switch( Translate( Name(), "L") )
				{
				case "kontrahent"
					if (!equal([numer_firmy], 0))
					{
						MakeSec("Kontrahent")
						{
							$klucz	  = [numer_firmy]
							$nazwa = [nazwa]
							$skrot = [symbol]

						//	if (!Equal([fk_ident], "0"))
						//		$fk_ident = [fk_ident]   //uzgodniony numer FK
							IF ( REX( [nip], "{[rRpP]}/:{*$}" ) )
							{
								// na dokumencie  piszemy tyko NIP , więć nic nie robimy
							}
							ELSE
							{
								$NIP	  = [nip]
							}

						}	

					}
					break


				
				case "pozycja" 
					MakeSec("rejestr")
					{
// dodac
						if( NOT(equal([grupa_zakupu],""))) 
							$klucz = CAT($$klucz,",",[podatek_symbol],",",@@kategoria,",",[grupa_zakupu])
						else 
							$klucz = CAT($$klucz,",",[podatek_symbol],",",@@kategoria)
						switch ( [rodzaj_zakupu] )
						{
							case "B"
								$ABC		= 2	//B
								break
							case "C"
								$ABC		= 4	//C
								break
							case "D"
								$ABC		= 8	//D
								break
							case "A"
						//	case else
								$ABC		= 1	//A
								break
						}

						switch ( [podatek_symbol] )
						{
							case "np"
								$Stawka		= -2.00 //NP
								break
							case "0"
								$Stawka		= 0	//0%
								break
							case else
								$Stawka		= [podatek_symbol]  //niezerowa
								break
						}
						$Okres		= DATE([data_wystawienia])
						//$kontoBrutto	= DEF("konto_sp_brutto")
						//$kontoNetto	= DEF("konto_sp_netto")
						//$kontoVat	= DEF("konto_sp_vat")
						$netto		= [netto]
						$vat		= [podatek]
						$brutto		= [brutto]
						//$nazwa		= [podatek_symbol]
						//$stawka		= [podatek_procent]
						$usluga		= ""
						$ue		= ""
						
						if( NOT(equal([netto_waluta],"0.00"))) 
						{
							$nettoWaluta = [netto_waluta]
							$vatWaluta = [podatek_waluta]
							$bruttoWaluta = [brutto_waluta]
						}

						if( NOT(equal(@@opisDok,[towar])))
						{
							@@opisDok = CAT(@@opisDok,[towar])
						}

						$typ		= "ZW"
							

						$oczek		= 0
						$okres		= @@okres
						$poznum 	= -1

						MakeSec( "pozycja vat" )
						{
							$stawka=[podatek_symbol]
							$stawka_pl=[podatek_symbol]
							$opis=[towar]
							$wartosc=[netto]
							$usluga = 0
							$ue = 0
						}
					}
					

			if ( !Equal(@@rodzdok, "zakupu") )
			
			{
					@@poz=SUM0(@@poz,1)
					MakeSec("Zapis")
					{
			
						$strona = 0
						$kwota = Money([brutto])
						$konto = Def("Konto_sp_brutto")
						$pozycja = @@poz
						$rozbicie = 0
					// IdDlaRozliczen = 						
						$NumerDok = $$nazwa
						$Opis = [towar]
						$typopisu = 1
						$ZapisRownolegly = 0

						$waluta = [waluta]
						$wkwota = [brutto_waluta]   //nie ma tekiego pola			
						$tabela = 0 //[tabela_kursowa]
						$kurs 	= [kurs_waluty]
						$typkursu = 3
					}    

					MakeSec("Zapis")
					{
						$strona = 1
						$kwota = Money([netto])
						$konto = Def("Konto_sp_netto")
						$pozycja = @@poz
						$rozbicie = 1
					// IdDlaRozliczen = 						
						$NumerDok = $$nazwa
						$Opis = [towar]
						$typopisu = 1
						$ZapisRownolegly = 0
						$waluta = [waluta]
						$wkwota = [netto_waluta]   //nie ma tekiego pola			
						$tabela = 0 //[tabela_kursowa]
						$kurs 	= [kurs_waluty]
						$typkursu = 3
					}                                  
					if( Not(Equal([podatek], "0.00")))
						MakeSec("Zapis")
						{
							$strona = 1
							$kwota = Money([podatek])
							$konto = Def("Konto_sp_vat")
							$pozycja = @@poz
							$rozbicie = 2
							// IdDlaRozliczen = 						
							$NumerDok = $$nazwa
							$Opis = [towar]
							$typopisu = 1
							$ZapisRownolegly = 0
							$waluta = [waluta]
							$wkwota = [podatek_waluta]   //nie ma tekiego pola			
							$tabela = 0 //[tabela_kursowa]
							$kurs 	= [kurs_waluty]
							$typkursu = 3

						}   
			} else 
					
			{

					@@poz=SUM0(@@poz,1)
					MakeSec("Zapis")
					{
						$strona = 0
						$kwota = Money([netto])
						$konto = Def("Konto_zak_netto")
						$pozycja = @@poz
						$rozbicie = 0
					// IdDlaRozliczen = 						
						$NumerDok = $$nazwa
						$Opis = [towar]
						$typopisu = 1
						$ZapisRownolegly = 0
						$waluta = [waluta]
						$wkwota = [netto_waluta]   //nie ma tekiego pola			
						$tabela = 0 //[tabela_kursowa]
						$kurs 	= [kurs_waluty]
						$typkursu = 3
					}

					MakeSec("Zapis")
					{
			
						$strona = 1
						$kwota = Money([brutto])
						$konto = Def("Konto_zak_brutto")
						$pozycja = @@poz
						$rozbicie = 1
					// IdDlaRozliczen = 						
						$NumerDok = $$nazwa
						$Opis = [towar]
						$typopisu = 1
						$ZapisRownolegly = 0
						$waluta = [waluta]
						$wkwota = [brutto_waluta]   //nie ma tekiego pola			
						$tabela = 0 //[tabela_kursowa]
						$kurs 	= [kurs_waluty]
						$typkursu = 3
					}    
                                  
					if( Not(Equal([podatek], "0.00")))
						MakeSec("Zapis")
						{
							$strona = 0
							$kwota = Money([podatek])
							$konto = Def("Konto_zak_vat")
							$pozycja = @@poz
							$rozbicie = 2
							// IdDlaRozliczen = 						
							$NumerDok = $$nazwa
							$Opis = [towar]
							$typopisu = 1
							$ZapisRownolegly = 0

							$waluta = [waluta]
							$wkwota = [podatek_waluta]   //nie ma tekiego pola			
							$tabela = 0 //[tabela_kursowa]
							$kurs 	= [kurs_waluty]
							$typkursu = 3
						}  
			}

					break	
					
				}
			
			}
			$tresc = @opisDok
		}
	}
}



Section("","")
{
	Warning("Nierozpoznana sekcja: ", Name())
}