//#opis  "Dane z programu iCargo", "*.TXT (Pliki tekstowe)"  //
#format  "AMS"  //
#opisy  "10"  //
//#Disable  "1"  //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

Section( "INFO", "INFO")
{
//	Info("Wlasciciel: [", [kod], "] ", [nazwa])
	Info("Wlasciciel")
	$nazwaprog = [Nazwa_programu]
	Section( "Kontrahent", "Kontrahent")
	{
		$id = [id] //externalId
		$kod = [kod] //symbol
		$nazwa = [nazwa] // name
		$nip = [nip] //taxNumber
                $regon = [regon] //regon
		$miejscowosc = [miejscowosc] //city
		$ulica	= [ulica] //address
		$dom	= [dom]   //part of address
		$lokal 	= [lokal] //part of address
		$kodpocz = [kodpocz] //postalCode
		$rejon = [rejon] //not in iCargo
		$tel1 = [tel1] //officePhone
		$tel2 = [tel2] //mobilePhone
		$fax = [fax] //fax
		$email = [e-mail] //email
		$idKraju = 0
		MakeSec( "kraj" )
		{
			$kod = [krajKod] //country from Company
			$nazwa = [krajNazwa]
		}
		@numer_konta   = 1
		Section("konto_bankowe", "", "REPEAT")	//REPEAT: analizujemy wszystkie podsekcje
		{
			switch(@numer_konta) 
			{
			case "1"
				IF( equal([adres], "") )
					$bnazwa 	= CAT([waluta], " ",[nazwa])
				ELSE
					$bnazwa 	= CAT([waluta], " ",[nazwa], ", ", [adres])
				$bkonto 	= [konto]	
				break	
			}
			@numer_konta = SUM0(@numer_konta,1)
		}
	}
}


Section( "Kontrahent", "Kontrahent")
{
	Info("Kontrahent: [", [kod], "] ", [nazwa])
	$id = [id] //externalId
        $guid           = [guid] //not in iCargo
	$kod = [kod] //symbol
	$nazwa = [nazwa] // name
	$nip = [nip] //taxNumber
        $regon = [regon] //regon
	$pesel = [pesel] //not in iCargo
	$miejscowosc = [miejscowosc] //city
	$ulica	= [ulica] //address
	$dom	= [dom]   //part of address
	$lokal 	= [lokal] //part of address
	$kodpocz = [kodpocz] //postalCode
	$rejon = [rejon] //not in iCargo
	$tel1 = [tel1] //officePhone
	$tel2 = [tel2] //mobilePhone
	$fax = [fax] //fax
	$email = [e-mail] //email
	$naglowek = [naglowek] //not in iCargo
	$nazwisko = [nazwisko] //not in iCargo
	$imie = [imie] //not in iCargo
	$osfiz = [osfiz] //set 0 in iCargo
	$statusUE = [statusUE] //not in iCargo
	$rejestr_platnosci = [rejestr_platnosci] //not in iCargo
	$forma_platnosci = [forma_platnosci] //not in iCargo

	$idKraju = [idKraju] //set 0 in iCargo
	MakeSec( "kraj" )
	{
		$kod = [krajKod] //country from Company
		$nazwa = [krajNazwa]
	}

//	$fk_ident	= [iCargo_id] //id
	$limit		= [limit] //set true in iCargo
	$limitKwota	= [limit_kwota] //tradeCreditAmount
	$limitWaluta	= [limit_waluta] //tradeCreditCurrency
	$aktywny	= [aktywny] //active

	@numer_konta   = 1
	Section("konto_bankowe", "", "REPEAT")	//REPEAT: analizujemy wszystkie podsekcje
	{
		switch(@numer_konta) 
		{
		case "1"
			IF( equal([adres], "") )
				$bnazwa 	= CAT([waluta], " ",[nazwa])
			ELSE
				$bnazwa 	= CAT([waluta], " ",[nazwa], ", ", [adres])
			$bkonto 	= [konto]	
			break	
		}
		@numer_konta = SUM0(@numer_konta,1)
	}
}
//dotad OK

Section("dokument", "")
{
	Info("Dokument nr: ", [nr_dokumentu])

	if( NOT(equal( [anulowany], "1")) )
	{
		MakeSec("dokument")
		{
			switch([rodzaj_dokumentu])
			{
				case "sprzedazy"
					$rodzaj_dok		="sprzedaży"
					break
				case "zakupu"
					$rodzaj_dok		="zakupu"
					break
			}

			switch ($rodzaj_dok)
			{
			case "zakupu"
				$data    =[data_wystawienia]
				$datasp	 =[data_sprzedazy]
				$dataotrz =[data_wys_odeb]
//				$datarej =@okres
				$datarej  =[data_wys_odeb]
				$datawp  =[data_wys_odeb]
				break
			case "sprzedaży"
				$data    =[data_wystawienia]
				$datasp	 =[data_sprzedazy]
				$datarej =[data_wys_odeb]
//				$datarej =@okres
//				$datawp  =[data_wystawienia]
				break
			}

			$kpir = [kpir]
//			$ewid = 0
			$rejestr = [rejestr]
//			$rozrachunek = 0

			$guid = [guid]
			
			Info("rodzaj_dok: ", $rodzaj_dok)
//			@kategoria =[kategoria]
			@opisy = ""
			$typdk 	=[obsluguj_jak]
			$klucz		=[typ_dokumentu]
			$nazwa		=[nr_dokumentu]
			$nrdow		=[nr_dokumentu]
			


			@okres =rex([data_wystawienia],"{???????}{???}", CAT(@rex1,"-01"))



			$seria =[typ_dokumentu]

			$okres =@okres
			$dzial =0

	
			$opiszd =[opis]
			$ok =1

			$rejestr_platnosci =[sposob_zaplaty]
			$forma_platnosci =[sposob_zaplaty]
			$plattermin =Date([termin_platnosci])


			$naliczvat = 0
			$metodavat = 0
			$od_brutto = 0


			if(Equal([faktura_walutowa],"1"))
			{
				//Info("faktura walutowa")
				$walutowy =3
				$waluta =[waluta]
				$kurs =[kurs_waluty]
				$kurs_vat =[kurs_waluty]
				$netto=[netto]
				$nettowal=[netto]
				$vat =[podatek]
				$vatwal =[podatek_w_walucie]
				$rozrach =[brutto]
				$rozrachwal =[brutto_w_walucie]
			} 
			else
			{
				//Info("faktura pln")
				$netto =[netto]
				$vat =[podatek]
				$brutto =[brutto]
				$walutowy =0
				$waluta	  =""
				$kurs =1.0
				$kurs_vat =1.0
				$rozrach =[brutto]
				$rozrachwal =$rozrach
			}

			@opisDok 	= ""

			$subtypi =40
			$typi =0
			$znaczniki =0
			$rodzaj =3300
			$katalog =2300



			$naliczvat = 0
			$metodavat = 0
			$od_brutto = 0


			IF(NOT (equal([plattermin], "")) )
			{
				@plattermin	= Date([termin_platnosci])
			}
	

			Section("", "", "REPEAT")
			{
				switch( Translate( Name(), "L") )
				{
				case "kontrahent"
					$guid_kh     = [numer_firmy]
					$kod_kh      = [symbol]
					$nazwa_kh    = [nazwa]
					$nip 	     = [nip]
					$ulica	= [ulica]
					$dom	= [dom]
					$lokal 	= [lokal]
					$miejscowosc = [miejscowosc]
					$kodpocz     = [kod_pocztowy]

					break
				
				case "pozycja" 
					MakeSec("RejestrVat")
					{
// dodac
						switch($$rodzaj_dok)
						{
						case "zakupu"
//							if( NOT(equal([grupa_zakupu],""))){
//								$rejestr_vat = CAT($$klucz,",",[podatek_symbol],",",@@kategoria,",",[grupa_zakupu])
//							}
//							else{
//								$rejestr_vat = CAT($$klucz,",",[podatek_symbol],",",@@kategoria)
//							}

							$naliczony =1
							
							switch ( [rodzaj_zakupu] )
							{
							case "B"
								$typzv		="2"	//B
								break
							case "C"
								$typzv		="1"	//C
								break
							case "D"
								$typzv		="6"	//D
								break
							case "A"
							case else
								$typzv		="0"	//A
								break
							}
							break
				
						case "sprzedaży"
							$naliczony =0
							$typzv =0
							break
						}
						
						$datarej =@@okres
			

						$netto		=[netto]
						$vat		=[podatek]
//						$brutto		=[brutto]


						//stawka VAT nierozpoznana
						@nrstawki =100 
						switch([podatek_symbol])
						{
						case "0"
							@nrstawki =3
							@stawka ="0%"
							break
						case "3"
							@nrstawki =2
							@stawka ="3%"
							break
						case "4"
							@nrstawki =12
							@stawka ="4%"
							break
						case "5"
							@nrstawki =8
							@stawka ="5%"
							break
						case "6"
							@nrstawki =9
							@stawka ="6%"
							break
						case "7"
							@nrstawki =1
							@stawka ="7%"
							break
						case "8"
							@nrstawki =11
							@stawka ="8%"
							break
						case "23"
							@nrstawki =10
							@stawka ="23%"
							break
						case "ex"
						case "EX"
							@nrstawki =4
							@stawka ="EX"
							break
						case "np"
						case "NP"
							@nrstawki =7
							@stawka ="NP"
							break
						case "zw"
						case "ZW"
							@nrstawki =6
							@stawka ="ZW"
							break
						}

						$nrstawki =@nrstawki
						$stawka =@stawka
						
						//						$usluga		= ""
//						$ue			= ""
						
						if( equal($$walutowy,"0")) 
						{
						} 
						else {
							//Info("rejestr walutowy")
							$nettowal =[netto_waluta]
							$vatwal =[podatek_waluta]
//							$bruttoWaluta = [brutto_waluta]
						}

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


						MakeSec( "PozycjaVat" )
						{
							$opis=[towar]
							$wartosc=[netto]
//							$usluga = 0
//							$ue = 0
						}
					}
                             
					switch ($rodzaj_dok)
					{
					case "sprzedaży"
						MakeSec( "Ksiega" )
						{
							$kolumna = 7
							$kwota = [netto]
							$kwotawal = [netto_waluta]
						}
						break
					case "zakupu"
						MakeSec( "Ksiega" )
						{
							$kolumna = 13
							$kwota = [netto]
							$kwotawal = [netto_waluta]
						}
						break
					}
							 
					break	
				}
			}
			$opiszd = @opisDok
		}
	}
}



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