mojaSymfonia FORUM
https://forum.mix-soft.pl/

Import Dokumentów do FK - problem z moim szablonem
https://forum.mix-soft.pl/viewtopic.php?f=16&t=1052		 Strona 1 z 1
Autor:  Dalmar [ 2009-07-30, 09:23 ]
Tytuł:  Import Dokumentów do FK - problem z moim szablonem
Witam

Mam taki problem, że po imporcie dokumentów do FKi dokumenty importują się prawidłowo natomiast pojawiają się przy nich wykrzykniki informujące o błędzie. Wystarczy wejść do tych dokumentów i kliknąć zapisz - do bufora - i po kłopocie. Oczywiście jest to trochę uciążliwe. Co robię nie tak :

szablon importu:
##format "POLKA" //
Section("Identyfikacja","")
{
Info("Nadawca: ", [Nadawca], " Typ zbioru: ", [Typ zbioru], " Data: ", [Data stworzenia])
}

Section("<Dane globalne>","") //dane globalne
{
if( Exist("DATA") )
Def("DATA", [DATA])
if( Exist("SEPARATOR_01") )
Def("SEPARATOR_01",".")
if( Exist("KOD_LITER_WE") )
Def("TYP_KODOWANIA", [KOD_LITER_WE])
//reszta jest pomijana
Info("Parametry")

Def("DATA","yyyy.mm.dd")
}
section("Dokument handlowy", "dokument") //nagłówek dokumentu sprzedaży
{
info([Typ])
switch ([Typ])
//------------------Sprzedaz Gastro POSY
{
case "POS1"

$klucz=[Typ]
$$typek=$klucz
$nazwa=CAT([Typ],[Data wystawienia])
$$numerekdok=CAT([Typ],[Data wystawienia])
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Do zapłaty]
$konto = "201-1"
$$kontra = $konto
$$pozycja = "0"
$rozbicie="0"
$nrrozbkp="-1"
$opis = [Numer dokumentu]
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=field("Wartość sprzedaży towarów netto")
$konto=[Kontoposa]
$rozbicie="1"
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Wartość VAT za towary]
$konto="221-1"
$rozbicie="2"
}
}

//Rejestr vat


if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " sprzedaż towarów") //rodzaj rejestru
$rNazwa=$klucz //"Sprzedaż towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]

if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}



if (Exist("Wartość towarów na VAT nowy"))
{
$netto2 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat2 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat2 = Money([Wartość VAT towarów na VAT nowy])
}
}



if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}




if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])





//$brutto = Money([Do zapłaty])
//$dozaplaty = Money([Do zapłaty])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])
}
}
break

//------------------Sprzedaz Gastro POSY
case "POS3"

$klucz=[Typ]
$$typek=$klucz
$nazwa=CAT([Typ]," ",[Data wystawienia])
$$numerekdok=CAT([Typ],[Data wystawienia])
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Do zapłaty]
$konto = "201-1"
$$kontra = $konto
$$pozycja = "0"
$rozbicie="0"
$nrrozbkp="-1"
$opis = [Numer dokumentu]
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=field("Wartość sprzedaży towarów netto")
$konto=[Kontoposa]
$rozbicie="1"
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Wartość VAT za towary]
$konto="221-1"
$rozbicie="2"
}
}



//Rejestr vat


if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " sprzedaż towarów") //rodzaj rejestru
$rNazwa=$klucz //"Sprzedaż towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]

if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}



if (Exist("Wartość towarów na VAT nowy"))
{
$netto2 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat2 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat2 = Money([Wartość VAT towarów na VAT nowy])
}
}



if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}




if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])





//$brutto = Money([Do zapłaty])
//$dozaplaty = Money([Do zapłaty])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])
}
}
break

//------------------Faktura z w-z1
case "FV-WZ1"

$klucz=[Typ]
$$typek=$klucz
$nazwa=[Numer dokumentu]
$$numerekdok=$nazwa
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Do zapłaty]
$konto = CAT("202-K", @@kth)
$$kontra = $konto
$$pozycja = "0"
$rozbicie="1"
$nrrozbkp="-1"
$opis = cat([Numer dokumentu],"•",$$opisek,"•")
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=field("Wartość sprzedaży towarów netto")
$konto="331-1"
$rozbicie="0"
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość VAT za towary]
$konto="221-2"
$rozbicie="2"
}
}


// MakeSec("Zapis")
// {
// $strona="0"
// $kwota=[Wartość sprzedaży towarów netto]
// $konto="502-8"
// $rozbicie="0"
// $ZapisRownolegly="33"
// $Pozycja="1"
// }

// Section("Zapis","zapis","Repeat"){
// $strona="1"
// $kwota=[Kwota pozycji netto]
// $konto= "490"
// $Pozycja="1"
// $ZapisRownolegly="1"
// $Rozbicie=[Pozycja]
//
// }
//Rejestr vat
if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " zakup towarów") //rodzaj rejestru
$rNazwa=$klucz //"zakup towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]
$ABC="1"
if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}
if (Exist("Wartość towarów na VAT nowy"))
{
$netto3 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat3 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat3 = Money([Wartość VAT towarów na VAT nowy])
}
}
if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}
if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])

}
}
break

//------------------Faktura z w-z3

case "FV-WZ3"
$klucz=[Typ]
$$typek=$klucz
$nazwa=[Numer dokumentu]
$$numerekdok=$nazwa
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Do zapłaty]
$konto = CAT("202-K", @@kth)
$$kontra = $konto
$$pozycja = "0"
$rozbicie="1"
$nrrozbkp="-1"
$opis = cat([Numer dokumentu],"•",$$opisek,"•")
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=field("Wartość sprzedaży towarów netto")
$konto="331-2"
$rozbicie="0"
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość VAT za towary]
$konto="221-2"
$rozbicie="2"
}
}


// MakeSec("Zapis")
// {
// $strona="0"
// $kwota=[Wartość sprzedaży towarów netto]
// $konto="502-9"
// $rozbicie="0"
// $ZapisRownolegly="33"
// $Pozycja="1"
// }
//
// Section("Zapis","zapis","Repeat"){
// $strona="1"
// $kwota=[Kwota pozycji netto]
// $konto= "490"
// $Pozycja="1"
// $ZapisRownolegly="1"
// $Rozbicie=[Pozycja]
//
// }
//Rejestr vat
if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " zakup towarów") //rodzaj rejestru
$rNazwa=$klucz //"zakup towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]
$ABC="1"
if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}
if (Exist("Wartość towarów na VAT nowy"))
{
$netto3 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat3 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat3 = Money([Wartość VAT towarów na VAT nowy])
}
}
if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}
if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])
//$brutto = Money([Do zapłaty])
//$dozaplaty = Money([Do zapłaty])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])
}
}
break

//------------------Faktura z w-z2
case "FV-WZ2"

$klucz=[Typ]
$$typek=$klucz
$nazwa=[Numer dokumentu]
$$numerekdok=$nazwa
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Do zapłaty]
$konto = CAT("202-K", @@kth)
$$kontra = $konto
$$pozycja = "0"
$rozbicie="1"
$nrrozbkp="-1"
$opis = cat([Numer dokumentu],"•",$$opisek,"•")
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=field("Wartość sprzedaży towarów netto")
$konto="331-1"
$rozbicie="0"
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość VAT za towary]
$konto="221-2"
$rozbicie="2"
}
}


// MakeSec("Zapis")
// {
// $strona="0"
// $kwota=[Wartość sprzedaży towarów netto]
// $konto="502-8"
// $rozbicie="0"
// $ZapisRownolegly="33"
// $Pozycja="1"
// }
//
// Section("Zapis","zapis","Repeat"){
// $strona="1"
// $kwota=[Kwota pozycji netto]
// $konto= "490"
// $Pozycja="1"
// $ZapisRownolegly="1"
// $Rozbicie=[Pozycja]
//
// }
//Rejestr vat
if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " zakup towarów") //rodzaj rejestru
$rNazwa=$klucz //"zakup towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]
$ABC="1"
if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}
if (Exist("Wartość towarów na VAT nowy"))
{
$netto3 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat3 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat3 = Money([Wartość VAT towarów na VAT nowy])
}
}
if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}
if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])
//$brutto = Money([Do zapłaty])
//$dozaplaty = Money([Do zapłaty])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])
}
}
break

//------------------Faktura z w-z1
case "FV-WZ4"

$klucz=[Typ]
$$typek=$klucz
$nazwa=[Numer dokumentu]
$$numerekdok=$nazwa
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Do zapłaty]
$konto = CAT("202-K", @@kth)
$$kontra = $konto
$$pozycja = "0"
$rozbicie="1"
$nrrozbkp="-1"
$opis = cat([Numer dokumentu],"•",$$opisek,"•")
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=field("Wartość sprzedaży towarów netto")
$konto="316"
$rozbicie="0"
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość VAT za towary]
$konto="221-2"
$rozbicie="2"
}
}


//Rejestr vat
if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " zakup towarów") //rodzaj rejestru
$rNazwa=$klucz //"zakup towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]

if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}
if (Exist("Wartość towarów na VAT nowy"))
{
$netto3 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat3 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat3 = Money([Wartość VAT towarów na VAT nowy])
}
}
if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}
if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])
//$brutto = Money([Do zapłaty])
//$dozaplaty = Money([Do zapłaty])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])
$ABC="1"
}
}
break



//------------------Pz 1

case "PZ1"

$klucz=[Typ]
$$typek=$klucz
$nazwa=[Numer dokumentu]
$$numerekdok=$nazwa
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0

MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=field("Wartość sprzedaży towarów netto")
$konto="331-1"
$rozbicie="0"
$$pozycja = "1"
}


MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Do zapłaty]
$konto = CAT("202-K", @@kth)
$$kontra = $konto
$rozbicie="1"
$nrrozbkp="-1"
$opis = cat([Numer dokumentu],"•",$$opisek,"•")
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość VAT za towary]
$konto="221-2"
$rozbicie="2"
}
}

// MakeSec("Zapis")
// {
// $strona="0"
// $kwota=[Wartość sprzedaży towarów netto]
// $konto="502-8"
// $rozbicie="0"
// $ZapisRownolegly="33"
// $Pozycja="1"
// }
//
// Section("Zapis","zapis","Repeat"){
// $strona="1"
// $kwota=[Kwota pozycji netto]
// $konto= "490"
// $Pozycja="1"
// $ZapisRownolegly="1"
// $Rozbicie=[Pozycja]
//
// }
//Rejestr vat
if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " zakup towarów") //rodzaj rejestru
$rNazwa=$klucz //"zakup towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]

if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}
if (Exist("Wartość towarów na VAT nowy"))
{
$netto3 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat3 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat3 = Money([Wartość VAT towarów na VAT nowy])
}
}
if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}
if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])
//$brutto = Money([Do zapłaty])
//$dozaplaty = Money([Do zapłaty])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])
$ABC="1"
}
}
break

//------------------Faktura PZ3
case "PZ3"
$klucz=[Typ]
$$typek=$klucz
$nazwa=[Numer dokumentu]
$$numerekdok=$nazwa
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Do zapłaty]
$konto = CAT("202-K", @@kth)
$$kontra = $konto
$$pozycja = "0"
$rozbicie="1"
$nrrozbkp="-1"
$opis = cat([Numer dokumentu],"•",$$opisek,"•")
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=field("Wartość sprzedaży towarów netto")
$konto="331-2"
$rozbicie="0"
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość VAT za towary]
$konto="221-2"
$rozbicie="2"
}
}


// MakeSec("Zapis")
// {
// $strona="0"
// $kwota=[Wartość sprzedaży towarów netto]
// $konto="502-9"
// $rozbicie="0"
// $ZapisRownolegly="33"
// $Pozycja="1"
// }
//
// Section("Zapis","zapis","Repeat"){
// $strona="1"
// $kwota=[Kwota pozycji netto]
// $konto= "490"
// $Pozycja="1"
// $ZapisRownolegly="1"
// $Rozbicie=[Pozycja]
//
// }
//Rejestr vat
if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " zakup towarów") //rodzaj rejestru
$rNazwa=$klucz //"zakup towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]

if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}
if (Exist("Wartość towarów na VAT nowy"))
{
$netto3 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat3 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat3 = Money([Wartość VAT towarów na VAT nowy])
}
}
if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}
if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])
//$brutto = Money([Do zapłaty])
//$dozaplaty = Money([Do zapłaty])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])
$ABC="1"
}
}
break

//------------------Faktura PZ2
case "PZ2"

$klucz=[Typ]
$$typek=$klucz
$nazwa=[Numer dokumentu]
$$numerekdok=$nazwa
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Do zapłaty]
$konto = CAT("202-K", @@kth)
$$kontra = $konto
$$pozycja = "0"
$rozbicie="1"
$nrrozbkp="-1"
$opis = cat([Numer dokumentu],"•",$$opisek,"•")
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=field("Wartość sprzedaży towarów netto")
$konto="331-1"
$rozbicie="0"
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość VAT za towary]
$konto="221-2"
$rozbicie="2"
}
}


// MakeSec("Zapis")
// {
// $strona="0"
// $kwota=[Wartość sprzedaży towarów netto]
// $konto="502-8"
// $rozbicie="0"
// $ZapisRownolegly="33"
// $Pozycja="1"
// }
//
// Section("Zapis","zapis","Repeat"){
/// $strona="1"
// $kwota=[Kwota pozycji netto]
// $konto= "490"
// $Pozycja="1"
// $ZapisRownolegly="1"
// $Rozbicie=[Pozycja]
//
// }
//Rejestr vat
if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " zakup towarów") //rodzaj rejestru
$rNazwa=$klucz //"zakup towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]

if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}
if (Exist("Wartość towarów na VAT nowy"))
{
$netto3 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat3 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat3 = Money([Wartość VAT towarów na VAT nowy])
}
}
if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}
if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])
//$brutto = Money([Do zapłaty])
//$dozaplaty = Money([Do zapłaty])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])
$ABC="1"
}
}
break

//------------------Faktura PZ4

case "PZ4"

$klucz=[Typ]
$$typek=$klucz
$nazwa=[Numer dokumentu]
$$numerekdok=$nazwa
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

Section("Kontrahent odbiorca", "kontrahent")
{
$klucz=[Numer kontrahenta]
@@kth=$klucz //klucz kontrahenta dla zamapowania numeru konta
// $id=@@kth
$nazwa=[Nazwa klienta DO]
$$opisek=[Nazwa klienta DO]
$skrot=[Nazwa krótka]
$miejscowosc=[Miasto klienta DO]
$panstwo=[Panstwo]
$ulica=[Ulica klienta DO]
$NIP=[Nipek]
}

MakeSec("transakcja")
{
$idDlaRozliczen="-1"
$termin=[Termin płatności]
$ustawowe="1"
}

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Do zapłaty]
$konto = CAT("202-K", @@kth)
$$kontra = $konto
$$pozycja = "0"
$rozbicie="1"
$nrrozbkp="-1"
$opis = cat([Numer dokumentu],"•",$$opisek,"•")
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=field("Wartość sprzedaży towarów netto")
$konto="316"
$rozbicie="0"
}

if (Exist("Wartość VAT za towary"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość VAT za towary]
$konto="221-2"
$rozbicie="2"
}
}


//Rejestr vat
if( Exist( "Wartość sprzedaży towarów netto" ))
{
MakeSec("Rejestr")
{
$klucz=Cat([typ], " zakup towarów") //rodzaj rejestru
$rNazwa=$klucz //"zakup towarów"
$rTyp="3"
$stawka1=[Stawka VAT pełny]
$stawka2=[Stawka VAT obniżony]
$stawka3=[Stawka VAT nowy]

if (Exist("Wartość towarów na VAT pełny"))
{
$netto1 = Money([Wartość towarów na VAT pełny])
if (Exist("Wartość korekty VAT towarów na VAT pełny"))
$vat1 = Money([Wartość korekty VAT towarów na VAT pełny])
else
{
$vat1 = Money([Wartość VAT towarów na VAT pełny])
}
}
//$brutto1 = SUM2($netto1, $vat1)
if (Exist("Wartość towarów na VAT obniżony"))
{
$netto2 = Money([Wartość towarów na VAT obniżony])
if (Exist("Wartość korekty VAT towarów na VAT obniżony"))
$vat2 = Money([Wartość korekty VAT towarów na VAT obniżony])
else
{
$vat2 = Money([Wartość VAT towarów na VAT obniżony])
}
}
if (Exist("Wartość towarów na VAT nowy"))
{
$netto3 = Money([Wartość towarów na VAT nowy])
if (Exist("Wartość korekty VAT towarów na VAT nowy"))
$vat3 = Money([Wartość korekty VAT towarów na VAT nowy])
else
{
$vat3 = Money([Wartość VAT towarów na VAT nowy])
}
}
if (Exist("Wartość towarów na VAT 0"))
{
$netto0 = Money([Wartość towarów na VAT 0])
}
if (Exist("Wartość towarów zwolnionych z VAT"))
{
$nettoWolne = Money([Wartość towarów zwolnionych z VAT])
}

$sumanetto = Money([Wartość sprzedaży towarów netto])
//$brutto = Money([Do zapłaty])
//$dozaplaty = Money([Do zapłaty])
$rZs="2"
$okres=Date([data wystawienia])
$dataws=Date([data wystawienia])
$ABC="1"
}
}
break
//------------------Rozchody ze sprzedaży gastro kasa restauracja mag kawiarnia
case "ROZCH3/1"
$klucz=[Typ]
$$typek=$klucz
$nazwa=CAT([Numer dokumentu]," z ",[Data wystawienia])
$$numerekdok=CAT([Numer dokumentu]," z ",[Data wystawienia])
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość sprzedaży towarów netto]
$konto = "411-11-2"
$pozycja = "0"
$rozbicie="0"
$opis = [Numer dokumentu]
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$pozycja = "0"
$kwota=[Wartość sprzedaży towarów netto]
$konto="331-2"
$rozbicie="1"
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość sprzedaży towarów netto]
$konto = "502-11-2"
$pozycja = "1"
$rozbicie="0"
$ZapisRownolegly="33"
$opis = [Numer dokumentu]

}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Wartość sprzedaży towarów netto]
$konto="490"
$rozbicie="1"
$pozycja = "1"
$ZapisRownolegly="1"
}


break
//------------------Rozchody ze sprzedaży gastro kasa restauracja mag główny
case "ROZCH1/1"
$klucz=[Typ]
$$typek=$klucz
$nazwa=CAT([Numer dokumentu]," z ",[Data wystawienia])
$$numerekdok=CAT([Numer dokumentu]," z ",[Data wystawienia])
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość sprzedaży towarów netto]
$konto = "411-11-2"
$pozycja = "0"
$rozbicie="0"
$opis = [Numer dokumentu]
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Wartość sprzedaży towarów netto]
$konto="331-1"
$rozbicie="1"
$pozycja = "0"
}

MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość sprzedaży towarów netto]
$konto = "502-11-2"
$pozycja = "1"
$rozbicie="0"
$opis = [Numer dokumentu]

}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Wartość sprzedaży towarów netto]
$konto="490"
$rozbicie="1"
$pozycja = "1"
}



break
//------------------Rozchody ze sprzedaży gastro kasa kawiarnia mag główny
case "ROZCH1/3"
$klucz=[Typ]
$$typek=$klucz
$nazwa=CAT([Numer dokumentu]," z ",[Data wystawienia])
$$numerekdok=CAT([Numer dokumentu]," z ",[Data wystawienia])
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość sprzedaży towarów netto]
$konto = "411-9"
$pozycja = "0"
$rozbicie="0"
$opis = [Numer dokumentu]
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Wartość sprzedaży towarów netto]
$konto="331-1"
$rozbicie="1"
$pozycja = "0"
}

MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość sprzedaży towarów netto]
$konto = "504-8"
$pozycja = "1"
$rozbicie="0"
$opis = [Numer dokumentu]

}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Wartość sprzedaży towarów netto]
$konto="490"
$rozbicie="1"
$pozycja = "1"

}



break
//------------------Rozchody ze sprzedaży gastro kasa kawiarnia mag kawiarnia
case "ROZCH3/3"
$klucz=[Typ]
$$typek=$klucz
$nazwa=CAT([Numer dokumentu]," z ",[Data wystawienia])
$$numerekdok=CAT([Numer dokumentu]," z ",[Data wystawienia])
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]

@@poz=0
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość sprzedaży towarów netto]
$konto = "411-9"
$pozycja = "0"
$rozbicie="0"
$nrrozbkp="-1"
$opis = [Numer dokumentu]
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Wartość sprzedaży towarów netto]
$konto="331-2"
$rozbicie="1"
$pozycja = "0"
}

MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Wartość sprzedaży towarów netto]
$konto = "504-8"
$pozycja = "1"
$rozbicie="0"
$opis = [Numer dokumentu]

}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Wartość sprzedaży towarów netto]
$konto="490"
$rozbicie="1"
$pozycja = "1"

}



break


}
}

a tu plik importowany:
#KOD_LITER_WE "WIN 1250"
#DATA_I_CZAS "yyyy-MM-dd hh: mm: ss"
#DATA "yyyy-MM-dd"
#CZAS "hh:mm:ss"
#SEPARATOR_01 ","
#SEPARATOR_1000 " "
#OGRANICZNIK_POLA ""
#IGNORUJ_SPACJE "NIE"
#DENOMINACJA 10 000,000000
#IDENTYFIKACJA {
Nadawca : "DZIAŁ IT"
Typ zbioru : "Format 01"
Data stworzenia :"2009.07.23"
Odbiorca [ 1 ] : @@@@@@@@,@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]
Odbiorca [ 2 ] : @@@@@@@@,@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]
Odbiorca [ 3 ] : @@@@@@@@,@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]
Odbiorca [ 4 ] : @@@@@@@@,@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]
Odbiorca [ 5 ] : @@@@@@@@,@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]
Odbiorca [ 6 ] : @@@@@@@@,@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]
Odbiorca [ 7 ] : @@@@@@@@,@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]
Odbiorca [ 8 ] : @@@@@@@@,@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]
}
Dokument handlowy [@@@@@@@@] {
Typ = R_TOWAR
Numer dokumentu =900784
opis FK = RECEPCJA BASENOWA 900784 Rozch.Auto
Data wystawienia = 2009.05.18
Tresc = RECEPCJA BASENOWA "900784" Rozch.Auto
Kwota pozycji netto1 = 8,2
Numer dokumentu1 =51 Żeton solarium
}


W innym wątku uzyskałem informację, że :

"...długo by tłumaczyć.....

symfonia wymaga podawania kwot w odpowiedniej kolejności
(zgodnej z ruchem wskazówek zegara)!!!

np.
dla sprzedaży to będzie
brutto, netto1, netto2,netto3, vat

dla zakupu
netto1
brutto
netto2
netto3
vat

..."

W moim przypadku mam tylko i wyłącznie wartość netto - jest to dokument rozchodu magazynowego. Stąd nie bardzo zrozumiałem intencje jakie zasugerował mi Darek.007
Autor:  Jarek75 [ 2009-07-30, 09:43 ]
Tytuł: 
Teraz jeszcze musisz przesłać działający szablon :)
Ten mi się wywala.

Po Switch nie masz otwarcia nawiasu klamrowego. Cytuję help:

Składnia
Switch ( wyrażenie)
{
Case wartość
Blok poleceń
Case wartość
Blok poleceń
[ Case Else ]
Blok poleceń
}
Autor:  Dalmar [ 2009-07-30, 09:53 ]
Tytuł: 
Ok dokonałem uaktualnienia szablonu - wcześniej wkliłelem tylko część odpowiedzialną za import gdzie generuje się bład.
Autor:  darek.007 [ 2009-07-30, 10:13 ]
Tytuł: 
Cytuj:
W moim przypadku mam tylko i wyłącznie wartość netto - jest to dokument rozchodu magazynowego. Stąd nie bardzo zrozumiałem intencje jakie zasugerował mi Darek.007
Ostatnio zmieniony przez Dalmar Dzisiaj 9:52, w całości zmieniany 1 ra


Ważna jest kolejność w jakiej tworzą się sekcje zapis

jeśli to tylko dokument rozchodowy to sekcje zapis powinny się tworzyć najpierw dla zapisu po Wn a następnie zapis po Ma...

Jeśli zapisy wygenerująsię w odworotnej kolejnosci to po zaimportowaniu jak klikniesz na dokument F5 dostaniesz informacje o błędzie w strukturze dokumentu, zła numeracja zapisów.... czy jakoś tak

wchodzisz zapisujesz i wszystko OK

ewentualnie przytocz dokładnie treść konumikatu jaki pokazuje sie po F5 na dokumencie (kliknięcie na liście dokumentów)
Autor:  Dalmar [ 2009-07-30, 11:55 ]
Tytuł: 
Ok udało mi się. Nie wiedziałem, że pod F5 można sprawdzić błędy ;-). Dziękuje za pomoc.

Przyczyna tkwiła w błędnym numerowaniu wierszy. Symfonia numeruje od 0. Ja ambitnie numerowałem wiersze od 1.

poprawny i uproszczony kod szablonu:

#format "POLKA" //
Section("Identyfikacja","")
{
Info("Nadawca: ", [Nadawca], " Typ zbioru: ", [Typ zbioru], " Data: ", [Data stworzenia])
}

Section("<Dane globalne>","") //dane globalne
{
if( Exist("DATA") )
Def("DATA", [DATA])
if( Exist("SEPARATOR_01") )
Def("SEPARATOR_01",".")
if( Exist("KOD_LITER_WE") )
Def("TYP_KODOWANIA", [KOD_LITER_WE])
//reszta jest pomijana
Info("Parametry")

Def("DATA","yyyy.mm.dd")
}
section("Dokument handlowy", "dokument") //nagłówek dokumentu sprzedaży
{
info([Typ])
switch ([Typ])
//------------------Sprzedaz Gastro POSY
{
case "R_TOWAR"
$klucz=[Typ]
$$typek=$klucz
$nazwa=CAT([Numer dokumentu]," z ",[Data wystawienia])
$$numerekdok=CAT([Numer dokumentu]," z ",[Data wystawienia])
Info("Dokument: ", [Typ], " ",[Numer dokumentu])
$datadok = Date([Data wystawienia])
$dataoper = Date([Data wystawienia])
$dataokr = Date([Data wystawienia])
$datawpr = Date([Data wystawienia])
$datawpl = Date([Data wystawienia])
$tresc=[opis FK]
$opis = [Numer dokumentu]
if (Exist("Numer dokumentu1")) {$opis1 = [Numer dokumentu1]}
if (Exist("Numer dokumentu2")) {$opis1 = [Numer dokumentu2]}
if (Exist("Numer dokumentu3")) {$opis1 = [Numer dokumentu3]}


@@poz=0

if (Exist("Kwota pozycji netto"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Kwota pozycji netto]
$konto="746"

$opis=[Numer dokumentu1]
$rozbicie="0"
$pozycja = "0"

}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Kwota pozycji netto]
$konto="330-6"
$rozbicie="0"
$pozycja = "0"



}
}
if (Exist("Kwota pozycji netto1"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Kwota pozycji netto1]
$konto="330-7"

$opis=[Numer dokumentu1]
$rozbicie="0"
$pozycja = "0"
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Kwota pozycji netto1]
$konto="330-6"
$rozbicie="0"
$pozycja = "0"


}
}
@@poz=1
if (Exist("Kwota pozycji netto3"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Kwota pozycji netto3]
$konto="330-7"
$opis = [Numer dokumentu2]
$rozbicie="0"
$pozycja = "1"
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Kwota pozycji netto3]
$konto="330-6"
$rozbicie="0"
$pozycja = "1"


}
}
if (Exist("Kwota pozycji netto4"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Kwota pozycji netto4]
$konto="746"
$opis = [Numer dokumentu2]
$rozbicie="0"
$pozycja = "1"
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Kwota pozycji netto4]
$konto="330-6"
$rozbicie="0"
$pozycja = "1"

}
}

@@poz=2
if (Exist("Kwota pozycji netto5"))
{
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Kwota pozycji netto5]
$konto="330-7"
$opis = [Numer dokumentu3]
$rozbicie="0"
$pozycja = "2"
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Kwota pozycji netto5]
$konto="330-6"
$rozbicie="0"
$pozycja = "2"

}
}
if (Exist("Kwota pozycji netto6"))
{

MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="0"
$kwota=[Kwota pozycji netto6]
$konto="746"
$rozbicie="0"
$pozycja = "2"
$opis = [Numer dokumentu3]
}
MakeSec("Zapis") //tworzymy sekcję WY
{
$strona="1"
$kwota=[Kwota pozycji netto6]
$konto="330-6"
$rozbicie="0"
$pozycja = "2"


}
}
break








break
break
}
}
Autor:  krzysiek [ 2009-07-30, 12:18 ]
Tytuł: 
cieszymy się ;)

A na przyszłość jeszcze propozycja by dłuższe fragmenty kodu umieszczać w pliku txt do ściągnięcia jako załącznik :)

3maj sie!
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/