//"fv_kor01.sci","Faktura VAT korygująca - ustawienia","\Dokumenty\Sprzedaż\",0,2.1.6,SYSTEM 
////////////////////////////

#ifndef SHOWOO
	#define SHOWOO 0
#endif

#ifndef PKURS_DEFINED
#define PKURS_DEFINED
Int PKurs, PKursDoch
#endif //PKURS_DEFINED

int PCenaN,PCenaB,PWartN, PWartB,PVat,WCena,WWart,PWalVat,PPlnVat,nOO 
int mov=0
Int moveY = 0, moveY2 = 0

#ifndef PLN_ONLY_DEFINED
#define PLN_ONLY_DEFINED

Int PLNonly = -1		// -1	dokument inny niz SKWK / SZWK
						//  0	ceny i wartosci w walucie
						//  1	ceny i wartosci w PLN

#endif // PLN_ONLY_DEFINED

Int nDatExtra = 1

string sSekcja = GetReportName()
string sSekcjaIn = sSekcja
sSekcja += " "+xDocument.TypDK
if xDocument.Charakter==102 || (DokZakupu && xDocument.Charakter==139) then
	if GetIni( sSekcja, "Stopki VAT")!="" then
		sSekcjaIn=sSekcja
	else
		WCena = 1
		WWart = 1
	endif
else
	if GetIni( sSekcja, "Notatka")!="" then  sSekcjaIn=sSekcja
endif
int bOpisTypu,bStanRozl, bNrParagonuFisk, bNrUnikatowyKasy
int bPozTow = IIF( CompactForm, 0, 1 )
int cbPozTow,gPrzedPo
int bPokaz = !Val( Arg7 )
string cmbBoxZaokrCen(3) = "0,01","0,001","0,0001"
#ifdef FAKTURKOR
Int fakturkor = 1
#else
Int fakturkor = 0
#endif
#ifdef TURPOZ
Int ftk2 = 170
#else
Int ftk2 = 0
#endif

String sIloscPo
String sIloscPr
String sJmTur
String sNazwaTur

Float ftkCenaPozycjeKorygowane
Float ftkWartoscKorektaIlosci
Int   ftkPrzelicz

#include "Ustawienia grafiki"

int bPrzed		= IIF(xDocument.czyKZ(), 0, Val( GetIni( sSekcjaIn,"Przed korekta" ) ))
int bPo			= IIF(xDocument.czyKZ(), 0, Val( GetIni( sSekcjaIn,"Po korekcie" ) ))
int bPozycje	= IIF(xDocument.czyKZ(), Val( GetIni( sSekcjaIn,"Pokazuj pozycje" ) ), 0)
int bStopki		= Val( GetIni( sSekcjaIn, "Stopki VAT" ) )
int bZerVat		= Val ( GetIni( sSekcjaIn, "Zerowe kwoty VAT" ) )
int nDat			= Val( GetIni( sSekcjaIn, "Data sprzedaży" ) )
rBoxData.Init(1,1,nDat,bKZ)
int nKod			= GetValFromIni("Pokaz kod",2)
int nKodTyp   = GetValFromIni("Rodzaj kodu" ,1)
int bOdbiorca	= Val( GetIni( sSekcjaIn, "Pokaz odbiorcę" ) )
int bKonth		= Val( GetIni( sSekcjaIn, "Kontrahent" ) )
int bNotat		= Val( GetIni( sSekcjaIn, "Notatka" ) )
int bNotatRodz  = Val( GetIni( sSekcjaIn, "Notatka z rodzaju" ) )
int bBrutto		= !Val(GetIni( sSekcjaIn, "Kolumna brutto" ) )
int bVat			= !Val(GetIni( sSekcjaIn, "Kolumna VAT" ) )
bKhTeleadr		=	GetValFromIni("Dane teleadresowe kontrahenta",0)
int bDekretacje = Val( GetIni ( sSekcjaIn, "Dekretacje" ) )
int bDostawy	= Val( GetIni ( sSekcjaIn, "Dostawy" ) )
int nJednMiary	=	GetValFromIni( "Jednostka miary", 1)
int nCenaRound = GetValFromIni("Zaokr. ceny",1)
int bRabaty,CzyRabaty,bFNotatka
#ifndef KONTRAKTS
if iTyp != SKK && iTyp != SKWK then bOpisTypu	=	GetValFromIni("Opis typu dokumentu",1)
#endif
bStanRozl	=	GetValFromIni("Stan rozliczenia",0)
bFNotatka	=	GetValFromIni("Notatka firmy",0)
If iTyp == 51 Then
 bNrParagonuFisk = Val( GetIni( sSekcjaIn, "Numer paragonu fiskalnego" ) )
 bNrUnikatowyKasy = Val( GetIni( sSekcjaIn, "Numer unikatowy kasy" ) )
endif
int nSWW = GetIniPC(sSekcjaIn, "SWW", 1)
if !nSWW then nSWW=1
if SHOWOO then
nOO			=	GetValFromIni( "OO" , 3 )
else
nOO			=	3
endif

#ifdef SIMPLIFIED
bOpis		=	Val( GetIni ( sSekcjaIn, "Opis") )
#endif

#ifdef RABATY_
 bRabaty= GetValFromIni("Rabaty",0)
 CzyRabaty=1
#endif
#ifdef FZALKOR
	bPozTow = GetValFromIni("Pozycje Towarowe",1)
	bRabaty = 0
	bDostawy = 0
	czyrabaty = 0
#endif

	bPlatnosci = Val( GetIni( sSekcjaIn, "Platnosci" ) )
	bWydania = Val( GetIni( sSekcjaIn, "Wydania" ) )

/*
if bKZ then
	if bStopki && !bPozycje then
		bPrzed = 1
		bPo = 1
	else
		bPrzed = 0
		bPo = 0
	endif
endif	
*/

if xDocument.Charakter==102 || (DokZakupu && xDocument.Charakter==139) then //VatWal == "102" then
	PCenaN = Val( GetIni(sSekcjaIn,"Cena netto w PLN") )
	PCenaB = Val(GetIni(sSekcjaIn,"Cena brutto w PLN") )
	PWartN = Val(GetIni(sSekcjaIn,"Wartosc netto w PLN") )
	PWartB = Val(GetIni(sSekcjaIn,"Wartosc brutto w PLN") )
	Pkurs = Val(GetIni(sSekcjaIn,"Kurs") )
	PkursDoch = Val(GetIni(sSekcjaIn, "KursDoch"))
	PVat = Val(GetIni(sSekcjaIn,"Kolumna VAT") )
 	PWalVat = Val(GetIni(sSekcjaIn,"Stopka VAT") )
	PPlnVat = GetValFromIni("Stopka VAT PLN",PVat)
	if WCena == 0 then	WCena = Val(GetIni(sSekcjaIn,"Cena w walucie") )
	if WWart == 0 then WWart = Val(GetIni(sSekcjaIn,"Wartosc w walucie") )
#ifdef SIMPLIFIED
Else
	PPlnVat = Val( GetIni( sSekcjaIn, "Stopka VAT" ) )
#endif
endif

If xDocument.Charakter == 151 || xDocument.Charakter == 153 || xDocument.Charakter == 158 Then
	Pkurs = Val( GetIni( sSekcjaIn, "Kurs" ) )
	If xDocument.Charakter == 153 Then PkursDoch = Val( GetIni( sSekcjaIn, "KursDoch" ) )
	PLNonly = Val( GetIni( sSekcjaIn, "CenyWartosciPLN" ) )
EndIf

#include "Ustawienia wydruku uproszczonego - GetIni"

int first
int sub OnCommand(int id,int msg)
	if !id && !msg then
		if !GRAF then Enable ( bmpbtn,-1 )
#ifdef FZALKOR
		if !first then

			if !bPozTow then
				Enable(gPrzedPo,-1)
				Enable(chkPrzed,-1)
				Enable(chkPo,-1)
			endif
			first = 1
		endif
#endif
	endif

#ifdef FZALKOR
	if (id == cbpozTow) then
		save
		Enable(gPrzedPo,2*bPozTow-1)
		Enable(chkPrzed,2*bPozTow-1)
		Enable(chkPo,2*bPozTow-1)
	endif
#endif
endsub


int sub Validate()
	if DokZakupu && xDocument.Charakter==139 then
		save
		if !(PPlnVat || PWalVat) then
			Message ("Nie wybrano stopki VAT") 
			Validate = 0
		else
			Validate  = OK
		endif
	else
		Validate = OK
	endif
endsub


//****************************

if !bPokaz then
if xDocument.Charakter==102 || (DokZakupu && xDocument.Charakter==139) then //VatWal == "102" then
#ifdef SIMPLIFIED
PCenaN = 0           // Wartosci w PLN           - Cena netto        - Nie drukuj
PCenaB = 0           //                          - Cena brutto       - Nie drukuj
PWartN = 0           //                          - Wartosc netto     - Nie drukuj
PWartB = 0           //                          - Wartosc brutto    - Nie drukuj
PVat = 0             //                          - VAT               - Nie drukuj
WCena = 0            // Wartosci w walucie       - Cena w walucie    - Nie drukuj
WWart = 0            //                          - Wartosc w walucie - Nie drukuj
bStopki = 0          // Stopki VAT                                   - Nie drukuj
bPrzed = 0           // Pokazuj pozycje towarowe - Przed korekta     - Nie drukuj
bPo = 1              //                          - Po korekcie       - Drukuj
#include "Ustawienia wydruku uproszczonego"
GoTo ExecuteForm
#endif
	Form "Ustawienia wydruku",490,395+20*CzyRabaty //490,305
		Group " Wartości w PLN ", 165,5,185,100
		ChkBox "Cena netto", PCenaN, 172, 20, 80, 20
		ChkBox "Cena brutto", PCenaB, 172, 40, 80, 20
		ChkBox "Wartość netto",PWartN, 172,60,90,20
		ChkBox "Wartość brutto", PWartB, 172,80,90,20

		ChkBox "Vat", PVat, 262, 20, 45, 20
		ChkBox "Kurs dla VAT", PKurs, 262, 40, 83,20
		ChkBox "Kurs CIT/PIT", PkursDoch, 262, 60, 83, 20
		ChkBox "Stopka VAT", PPlnVat, 262, 80,83,20

		Group " Wartości w walucie ",355,5,125,85
		ChkBox "Cena w walucie", WCena, 365,20,100,20
		ChkBox "Wartość w walucie", WWart, 365, 40, 110, 20
		ChkBox "Stopka VAT",          PWalVat,365,60,110, 20
		#define CWalWartKorDef

		Group " Kod towaru ",5,5,150,100
  	RadioBtn "W osobnej kolumnie",nKod,15,20,120,20
  	RadioBtn "Obok nazwy towaru", nKod,15,40,120,20
  	RadioBtn "Nie pokazuj",       nKod,15,60,100,20
		Text "Kod towaru:",								 15,84,60,18
		CmbBox "",CmbBoxKod,			 nKodTyp,75,80,75,100

		Group "Data/Okres sprzedaży",5,110,150,60
		rBoxData.PrepareControl(10,127)	

		Group " Zaokrąglanie cen",5,175,150,40
		CmbBox "",CmbBoxZaokrCen,nCenaRound,88,190,62,120
		Text "Dokładność:",15,194,62,18

		Group " Jednostka miary ",5,220,150,60	//225 - 145
		RadioBtn "Ewidencyjna",nJednMiary,15,235,90,20 //240 - 160
		RadioBtn "Wprowadzona", nJednMiary,15,255,90,20 //260 - 180
#ifndef  WALVAT
	if !xDocument.czyKZ() then
		gPrzedPo = Group "Pokazuj pozycje towarowe",5,285,150,80		//225 145
		chkPrzed = ChkBox "Przed korektą",bPrzed,15,300,100,20 //240 - 160
		chkPo = ChkBox "Po korekcie",bPo,15,320,100,20 //260 - 180
	else
			chkPozycje = ChkBox "Pokazuj pozycje towarowe",bPozycje,15,300,150,20 //240 - 160
	endif
#else
		gPrzedPo = Group "Pokazuj pozycje towarowe",5,285,150,84		//225 145
		chkPrzed = ChkBox "Przed korektą",bPrzed,15,300,100,20 //240 - 160
		chkPo = ChkBox "Po korekcie",bPo,15,320,100,20 //260 - 180
#endif
		ChkBox "Stopki VAT",bStopki,15,340,100,20 //120 - 40

		Group "Inne elementy wydruku dokumentu",165,105,315,155+40*CzyRabaty //105 - 5,315,115 - 135
		ChkBox "Kod kontrahenta",bKonth,172,120,100,20  //120 - 20
		if DokZakupu then
			ChkBox "Dane dostawcy",bOdbiorca,172,140,100,20 //140- 40
		else
			ChkBox "Dane odbiorcy",bOdbiorca,172,140,100,20 //140- 40
		endif
		ChkBox "Notatka",bNotat,172,160,100,20  //160-60
		ChkBox "Notatka z rodzaju",bNotatRodz,172,180,110,20 //180 -80
		ChkBox "Notatka firmy",bFNotatka,172,200,110,20 //180 -80
//		ChkBox "Netto i brutto",bBrutto,180,100,100,20
		ChkBox "Dostawy", bDostawy,172,220,100,15 // 200 - 120
		if !dokZakupu then
			  ChkBox "Dokumenty wydań", bWydania, 300,220,160,20 //225 - 290
		  else
			  ChkBox "Dokumenty przyjęć", bWydania, 300,220,160,20 //225 - 290
		  endif
		ChkBox "Stan rozliczenia z dnia wystawienia", bStanRozl, 172,240,220,20
		ChkBox "Drukuj opis typu jako nazwę dokumentu", bOpisTypu, 172,260,220,20

		#ifdef RABATY_
			if CzyRabaty  && !DokZakupu then ChkBox "Rabaty",bRabaty,172,280,100,15
		#endif

//		ChkBox "Rabaty",bRabaty,300,20,100,20
	//	ChkBox "Stopki VAT",bStopki,300,120,160,20 //120 - 40
		ChkBox "Dokumenty płatności", bPlatnosci,300,120,160,20
		ChkBox "Zerowe kwoty VAT w stopce",bZerVat,300,140,160,20 //140 - 60
	  ChkBox "Dane teleadresowe kontrahenta",	bKhTeleadr, 300,160,170,20 // 160 - 80
		ChkBox "Dekretacje księgowe na kopii", bDekretacje, 300,180,160,20 //180 - 100
		Text	 "dokumentu",330,200,80,15 //200 - 120

		if !DokZakupu && SHOWOO then
			mov=20
			Group sOO_,165,280+20*CzyRabaty,140,40	
			CmbBox "",cmb,nOO,170,295+20*CzyRabaty,130,20+20*size(cmb)
		endif

		Button "&OK",310,305+20*CzyRabaty+mov,75,25,Validate() //305-245
		Button "&Anuluj",395,305+20*CzyRabaty+mov,75,25,ANULUJ //305-245

		bmpbtn= Button "Ustawienia &grafiki...",165,305+20*CzyRabaty+mov,140,25,GraphSet2()
		ChkBox "Nie pokazuj tego okna ponownie",bPokaz,5,350+20*CzyRabaty,180,20   //290 -250
else
If iTyp == 125 || fakturkor Then
	nKod = 3				// Kod towaru					- nie pokazuj
	nKodTyp = 1				// Kod towaru					- wlasny
	nSWW = 3				// SWW / PKWiU					- nie pokazuj
	nOO = 3					// OO							- nie pokazuj
	bBrutto = 0				// Netto i brutto				- nie
	bDostawy = 0			// Dostawy						- nie
	bVat = 0				// VAT							- nie
	bStopki = 0				// Stopki VAT					- nie
	bZerVat = 0				// Zerowe kwoty VAT w stopce	- nie
	bDekretacje = 0			// Dekretacje księgowe na kopii	- nie
	bRabaty = 0				// Rabaty						- nie
	nJednMiary = 2			// Jednostka miary				- wprowadzona

	If ftk2 Then
		sIloscPo = Using "%.2f", Po(1).IloscWP
		sIloscPr = Using "%.2f", Przed(1).IloscWP
		sJmTur = Przed(1).JmWP
		sNazwaTur = Przed(1).Kod
	EndIf

	Form "Ustawienia wydruku",                                     495,270+ftk2
		If ftk2 Then
			Group " Elementy wydruku dokumentu ",                  10,5,310,160
			Text "Nazwa towaru:",                                  15,20,130,18
			MEdit "",                                   sNazwaTur, 15,40,290,65
			Edit "Ilość towaru przed",                  sIloscPr,  120,110,100,20
			Edit "Ilość towaru po" ,                    sIloscPo,  120,135,100,20
			Edit "Jm ",                                 sJMTur,    255,110,50,20
		EndIf
		Group " Inne elementy wydruku dokumentu ",                 10,5+ftk2,310,145
		ChkBox "Kod kontrahenta",                       bKonth,    20,20+ftk2,132,20
		ChkBox "Notatka",              	                bNotat,    155,20+ftk2,132,20
		ChkBox "Dane odbiorcy",                         bOdbiorca, 20,40+ftk2,132,20
		ChkBox "Notatka firmy",                         bFNotatka, 155,40+ftk2,132,20
		ChkBox "Notatka z rodzaju",                     bNotatRodz,20,60+ftk2,132,20
		ChkBox "Dane teleadresowe kontrahenta",		    bKhTeleadr,20,80+ftk2,222,20
		ChkBox "Stan rozliczenia z dnia wystawienia",   bStanRozl, 20,100+ftk2,222,20
		ChkBox "Drukuj opis typu jako nazwę dokumentu", bOpisTypu, 20,120+ftk2,222,20

		Group " Zaokrąglanie",                                     330,5,150,44
		Text "Cen",                                                340,27,70,18
		CmbBox "",CmbBoxZaokrCen,                       nCenaRound,395,23,72,120

		CmbBox "",ndatnamesP,                           nDatExtra, 330,55,120,100

		Group "Pokazuj pozycje towarowe",                          330,80,150,60
		ChkBox "Przed korektą",                         bPrzed,    340,95,105,20
		ChkBox "Po korekcie",                           bPo,       340,115,115,20

		bmpbtn = Button "Ustawienia &grafiki...",                  10,165+ftk2,110,25,   GraphSet2()

		ChkBox "Nie pokazuj tego okna ponownie",        bPokaz,    10,200+ftk2,200,20

		Button "&OK",                                              310,200+ftk2,75,25,   OK
		Button "&Anuluj",                                          395,200+ftk2,75,25,   ANULUJ
Else
#ifdef SIMPLIFIED
nOO = 3				 // OO										 - Nie pokazuj
nSWW = 3             // SWW / PKWiU                              - Nie pokazuj
bBrutto = 0          // Netto i brutto                           - Nie drukuj
bVat = 0             // VAT                                      - Nie drukuj
bStopki = 0          // Stopki VAT                               - Nie drukuj
bPozTow = 0          // Pokazuj pozycje towarowe                 - Nie pokazuj
bPrzed = 0           //                          - Przed korekta - Nie drukuj
bPo = 1              //                          - Po korekcie   - Drukuj
#include "Ustawienia wydruku uproszczonego"
GoTo ExecuteForm
#endif
	// wyzsze okno, przesuniecie grupy 'Inne elementy wydruku dokumentu' oraz dolna zawartosc okna
	If iTyp == 151 || iTyp == 153 || iTyp == 158 Then moveY = 65		// korekta walutowego kontraktu lub korekta walutowej zaliczki
	If iTyp == 51 Then moveY2 = 40 //dodanie nr paragonu fiskalnego oraz nr kasy dokumenty platnosci

	Form "Ustawienia wydruku",490,305+75+moveY+moveY2 //490,305

		Group " Kod towaru ",5,5,150,100
  	RadioBtn "W osobnej kolumnie",nKod,15,20,120,20
  	RadioBtn "Obok nazwy towaru", nKod,15,40,120,20
  	RadioBtn "Nie pokazuj",       nKod,15,60,100,20
		Text "Kod towaru:",								 15,84,60,18
		CmbBox "",CmbBoxKod,			 nKodTyp,75,80,75,100

        if iTyp != 135 && iTyp != 137 && iTyp != 151 && iTyp != 153 then
		Group "Data/Okres sprzedaży",5,110,150,60
		   rBoxData.PrepareControl(10,127)		   
        else
           rBoxData.nDatExtra = 1
        endif

		Group " Zaokrąglanie cen",5,175,150,40
		CmbBox "",CmbBoxZaokrCen,nCenaRound,88,190,62,120
		Text "Dokładność:",15,194,62,18

		If moveY Then
			Group " Wartości w PLN ",165,5,315,moveY-5
			If iTyp == 151 Then
				ChkBox "Kurs",                  PKurs,     180, 20, 100, 20
			Else
				ChkBox "Kurs dla VAT",          PKurs,     180, 20, 100, 20
				ChkBox "Kurs CIT/PIT",          PKursDoch, 180, 40, 100, 20
			EndIf
			RadioBtn "Ceny i wartości w walucie",	PLNonly, 300, 20, 140, 20
			RadioBtn "Ceny i wartości w PLN",		PLNonly, 300, 40, 140, 20
		EndIf
		Group "Inne elementy wydruku dokumentu",165,5+moveY,315,215+moveY2+CzyRabaty*5 //85 - 5
		ChkBox "Kod kontrahenta",bKonth,180,20+moveY,100,20  //100 - 20
		if DokZakupu then
			ChkBox "Dane dostawcy",bOdbiorca,180,40+moveY,100,20 //120- 40
		else
			ChkBox "Dane odbiorcy",bOdbiorca,180,40+moveY,100,20 //120- 40
		endif
		ChkBox "Notatka",bNotat,180,60+moveY,100,20  //140-60
		ChkBox "Notatka z rodzaju",bNotatRodz,180,80+moveY,110,20 //160 -80
		ChkBox "Notatka firmy",bFNotatka,180,100+moveY,110,20 //160 -80
		ChkBox "Netto i brutto",bBrutto,180,120+moveY,100,20
#ifndef FZALKOR
		ChkBox "Dostawy", bDostawy,180,140+moveY,100,15 // 180 - 120
#endif
		ChkBox "VAT",bVat,300,20+moveY,100,20
		ChkBox "Stopki VAT",bStopki,300,40+moveY,160,20
		ChkBox "Zerowe kwoty VAT w stopce",bZerVat,300,60+moveY,160,20
	  ChkBox "Dane teleadresowe kontrahenta",	bKhTeleadr, 300,80+moveY,170,20
		ChkBox "Dekretacje księgowe na kopii", bDekretacje, 300,100+moveY,160,20 //160 - 100
		Text	 "dokumentu",330,120+moveY,80,15 //180 - 120
		#ifdef RABATY_
			if CzyRabaty && !DokZakupu then ChkBox "Rabaty",bRabaty,300,120+moveY,120,15
		#endif
#ifndef KONTRAKTS
  if iTyp != SKK && iTyp != SKWK then ChkBox "Stan rozliczenia z dnia wystawienia", bStanRozl, 180,160+moveY,220,20
#endif
	ChkBox "Drukuj opis typu jako nazwę dokumentu", bOpisTypu, 180,180+moveY,220,20	

#ifndef ZALICZKAKOR
		if !DokZakupu then 
			ChkBox "Dokumenty wydań", bWydania, 300,140+moveY,120,15
		else
			ChkBox "Dokumenty przyjęć", bWydania, 300,140+moveY,120,15
		endif
#endif

    If iTyp == 51 Then
		ChkBox "Numer paragonu fiskalnego", bNrParagonuFisk, 180,200+moveY,220,20
		ChkBox "Numer unikatowy kasy", bNrUnikatowyKasy, 180,220+moveY,220,20
		ChkBox "Dokumenty płatności",					bPlatnosci, 180,240+moveY,220,20
    else
		ChkBox "Dokumenty płatności",					bPlatnosci, 180,200+moveY,220,20
	endif

#ifdef FZALKOR
	cbpozTow = ChkBox "Pokazuj pozycje towarowe",bPozTow, 180,140+moveY,220,20
#endif

		Group " Jednostka miary ",165,225+CzyRabaty*5+moveY+moveY2,110,60	//225 - 145
	  RadioBtn "Ewidencyjna",nJednMiary,175,240+CzyRabaty*5+moveY+moveY2,90,20 //240 - 160
	  RadioBtn "Wprowadzona", nJednMiary,175,260+CzyRabaty*5+moveY+moveY2,90,20 //260 - 180

//   SKK   SKWK   SZK   SZWK
		Group "",5,220,5,40
		Group "",150,220,5,40
		CmbBox "",cmbPC,currPC,10,216,140,20+20*size(cmbPC)
		CmbBox "",cmb,nSWW,10,237,140,20+20*size(cmb)

		if !DokZakupu && SHOWOO then
			Group sOO_,5,265,150,40	
			CmbBox "",cmb,nOO,10,280,140,20+20*size(cmb)
		endif

	if !xDocument.czyKZ() then
		gPrzedPo = Group "Pokazuj pozycje towarowe",285,225+CzyRabaty*5+moveY+moveY2,195,60		//225 145
		chkPrzed = ChkBox "Przed korektą",bPrzed,300,240+CzyRabaty*5+moveY+moveY2,100,20 //240 - 160
		chkPo = ChkBox "Po korekcie",bPo,300,260+CzyRabaty*5+moveY+moveY2,100,20 //260 - 180
#ifndef  WALVAT
	else
		chkPozycje = ChkBox "Pokazuj pozycje towarowe",bPozycje,300,240+CzyRabaty*5+moveY+moveY2,195,20 //240 - 160
#endif
	endif
		Button "&OK",310,320+moveY+moveY2,75,25,Validate() //305-245
		Button "&Anuluj",395,320+moveY+moveY2,75,25,ANULUJ //305-245

		bmpbtn= Button "Ustawienia &grafiki...",165,295+CzyRabaty*5+moveY+moveY2,130,25,GraphSet2()
		ChkBox "Nie pokazuj tego okna ponownie",bPokaz,10,325+moveY+moveY2,180,20  //280 -250

EndIf
endif
ExecuteForm:
	ExecFormPC()

#ifdef FAKTURKOR2
	If ftk2 Then
		ftkPrzelicz = Sign( Przed(1).IloscWP - Val( sIloscPr ) ) || Sign( Po(1).IloscWP - Val( sIloscPo ) )

		// POZYCJE KORYGOWANE
		Przed(1).Kod = sNazwaTur
		Przed(1).JmWP = sJmTur
		If ftkPrzelicz Then
			Przed(1).IloscWP = Val( sIloscPr )
			If Sign( Przed(1).IloscWP ) Then
				ftkCenaPozycjeKorygowane = Przed(1).WartoscBrutto / Przed(1).IloscWP
				Przed(1).CenaWP = Round( ftkCenaPozycjeKorygowane, 2 )
			Else
				ftkCenaPozycjeKorygowane = Przed(1).CenaWP
			EndIf
		EndIf

		// POZYCJE PO KOREKCIE
		Po(1).Kod = sNazwaTur
		Po(1).JmWP = sJmTur
		If ftkPrzelicz Then
			Po(1).IloscWP = Val( sIloscPo )
			If Sign( Po(1).IloscWP ) Then
				Po(1).CenaWP = Round( Po(1).WartoscBrutto / Po(1).IloscWP, 2 )
			EndIf
		EndIf

		// KOREKTY ILOSCI (2) i KOREKTY CENY (3)
		If ftkPrzelicz Then
			ftkPos = 0
			ftkWartoscKorektaIlosci = 0
			For i = 1 to i > Size( Korekty ) || ftkPos
				If Korekty(i).nKorStat == 2 Then
					ftkPos = i
				EndIf
			Next i
			If ftkPos == 0 && Sign( Po(1).IloscWP - Przed(1).IloscWP ) Then
				Grow Korekty, 1
				ftkPos = Size( Korekty )
				Korekty(ftkPos).nKorStat = 2
			EndIf
			If ftkPos != 0 Then
				Korekty(ftkPos).Kod = sNazwaTur
				Korekty(ftkPos).JmWP = sJmTur
				Korekty(ftkPos).IloscWP = Po(1).IloscWP - Przed(1).IloscWP
				Korekty(ftkPos).CenaWP = Round( ftkCenaPozycjeKorygowane, 2 )
				Korekty(ftkPos).WartoscBrutto = Round( Korekty(ftkPos).IloscWP * ftkCenaPozycjeKorygowane, 2 )
				ftkWartoscKorektaIlosci = Korekty(ftkPos).WartoscBrutto
			EndIf

			ftkPos = 0
			For i = 1 to i > Size( Korekty ) || ftkPos
				If Korekty(i).nKorStat == 3 Then
					ftkPos = i
				EndIf
			Next i
			If ftkPos == 0 Then
				Grow Korekty, 1
				ftkPos = Size( Korekty )
				Korekty(ftkPos).nKorStat = 3
			EndIf
			If ftkPos != 0 Then
				Korekty(ftkPos).Kod = sNazwaTur
				Korekty(ftkPos).JmWP = sJmTur
				Korekty(ftkPos).IloscWP = Po(1).IloscWP
				Korekty(ftkPos).WartoscBrutto = Po(1).WartoscBrutto - Przed(1).WartoscBrutto - ftkWartoscKorektaIlosci
				If Sign( Korekty(ftkPos).IloscWP ) Then
					Korekty(ftkPos).CenaWP = Round( Korekty(ftkPos).WartoscBrutto / Korekty(ftkPos).IloscWP, 2 )
				EndIf
			EndIf
		Else
			For i = 1 to i > Size( Korekty )
				If Korekty(i).nKorStat != 1 Then
					Korekty(i).Kod = sNazwaTur
					Korekty(i).JmWP = sJmTur
				EndIf
			Next i
		EndIf
	EndIf
#endif

	nDat = rBoxData.TranslateVar()

	PutIniPC(sSekcja, "SWW", nSWW)
	PutIni ( sSekcja, "OO",using "%d",nOO )
if !xDocument.czyKZ() then
	PutIni( sSekcja, "Przed korekta",using "%d",bPrzed )
	PutIni( sSekcja, "Po korekcie",using "%d",bPo )
else
	PutIni( sSekcja, "Pokazuj pozycje",using "%d",bPozycje )
endif
	PutIni( sSekcja, "Stopki VAT",using "%d",bStopki )
	PutIni( sSekcja, "Zerowe kwoty VAT",using "%d",bZerVat )
	PutIni( sSekcja, "Data sprzedaży",using "%d",nDat )
	PutIni( sSekcja, "Pokaz kod",using "%d",nKod )
	PutIni( sSekcja, "Rodzaj kodu",using "%d",nKodTyp )
	PutIni( sSekcja, "Pokaz odbiorcę",using "%d",bOdbiorca )
	PutIni( sSekcja, "Nie pokazuj dialogu",using "%d",bPokaz )
	PutIni( sSekcja, "Kontrahent",using "%d",bKonth )
	PutIni( sSekcja, "Notatka",using "%d",bNotat )
	PutIni( sSekcja, "Notatka z rodzaju",using "%d",bNotatRodz )
	PutIni( sSekcja, "Kolumna brutto",using"%d",!bBrutto)
	PutIni( sSekcja, "Kolumna VAT",using"%d",!bVat)
	PutIni( sSekcja, "Dane teleadresowe kontrahenta",	using "%d",bKhTeleadr )
	PutIni ( sSekcja, "Dekretacje",          using "%d",bDekretacje )
#ifndef FZALKOR
	bDostawy=KomunikatImp(xDocument.CzyKopia,bDostawy)
	PutIni ( sSekcja, "Dostawy", 					using "%d",bDostawy )
#endif
	PutIni ( sSekcja, "Jednostka miary",        using "%d",nJednMiary )
	PutIni ( sSekcja, "Zaokr. ceny",		using "%d",nCenaRound )
	#ifdef RABATY_
		if CzyRabaty then PutIni(sSekcja,"Rabaty",using "%d",bRabaty)
	#endif
	#ifdef FZALKOR
		PutIni(sSekcja, "Pozycje Towarowe",using "%d",bPozTow)
	#endif

	PutIni( sSekcja, "Platnosci", Using "%d", bPlatnosci )
	PutIni( sSekcja, "Wydania", Using "%d", bWydania )

	if xDocument.Charakter==102 || (DokZakupu && xDocument.Charakter==139) then //VatWal == "102" then
		PutIni( sSekcja,"Cena netto w PLN",using "%d", PCenaN)
		PutIni( sSekcja,"Cena brutto w PLN", using "%d", PCenaB)
		PutIni( sSekcja,"Wartosc netto w PLN", using "%d", PWartN)
		PutIni( sSekcja,"Wartosc brutto w PLN", using "%d", PWartB)
		PutIni( sSekcja,"Kurs",using "%d", PKurs)
		PutIni( sSekcja, "KursDoch", using "%d", PKursDoch)
		PutIni( sSekcja, "Stopka VAT", using "%d", PWalVat)
	    PutIni( sSekcja, "Stopka VAT PLN", using "%d", PPlnVat)
		PutIni( sSekcja,"Kolumna VAT", using "%d", PVat)
		PutIni( sSekcja,"Cena w walucie", using "%d", WCena)
		PutIni( sSekcja,"Wartosc w walucie", using "%d", WWart)
#ifdef SIMPLIFIED
	Else
		PutIni( sSekcja, "Stopka VAT", Using "%d", PPlnVat )
#endif
	endif

	If xDocument.Charakter == 151 || xDocument.Charakter == 153 || xDocument.Charakter == 158 Then
		PutIni( sSekcja, "Kurs", Using "%d", PKurs )
		If xDocument.Charakter == 153 Then PutIni( sSekcja, "KursDoch", Using "%d", PKursDoch )
		PutIni( sSekcja, "CenyWartosciPLN", Using "%d", PLNonly )
	EndIf

	If xDocument.Charakter == 51 Then
		PutIni( sSekcja, "Numer paragonu fiskalnego", Using "%d", bNrParagonuFisk )
		PutIni( sSekcja, "Numer unikatowy kasy", Using "%d", bNrUnikatowyKasy )
	EndIf

PutIni( sSekcja, "Opis typu dokumentu",	using "%d",bOpisTypu )
PutIni( sSekcja, "Stan rozliczenia",	using "%d",bStanRozl )
PutIni( sSekcja, "Notatka firmy",	using "%d",bFNotatka )

#ifdef SIMPLIFIED
PutIni( sSekcja, "Opis",			using "%d",bOpis )
#endif

	SaveGraphIni()

#include "Ustawienia wydruku uproszczonego - PutIni"

endif
	if !bOpisTypu then sNazwaDok=xDocument.nazwa
	Plat(!bStanRozl)
