Kod:
#opis "Dane z systemu Baseline", "*.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
Section( "INFO", "")
{
}
Section( "Kontrahent", "Kontrahent")
{
$autoinsert = 1
$klucz = [id]
$skrot = [kod]
$nazwa = [nazwa]
$miejscowosc = [miejscowosc]
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 = [kodpocz]
$rejon = [rejon]
//$statusUE = [statusUE]
$nip = [nip]
$regon = [regon]
$pesel = [pesel]
$telefon1 = [tel1]
$telefon2 = [tel2]
$telefax = [fax]
$email = [email]
$w_banku1 = [bnazwa] //miec na uwadze
$rachunek1 = [bkonto]
$fk_ident = [khfk]
$zapas = [zapas] //miec na uwadze
$krajKod = [krajKod]
$krajNazwa = [krajNazwa] //miec na uwadze
$aktywny = [aktywny]
}
Section("Dokument", "Dokument")
{
//@opisy = ""
Info("Dokument: ", [kod])
$ObslugujJak = [obsluguj jak]
$klucz = [symbol FK]
$nazwa = [FK nazwa]
$rezerwa1 = [rezerwa1]
$rezerwa3 = [rezerwa3]
$estatus = [rezerwa1]
switch( [obsluguj jak] )
{
case "RK"
Info("konto kasy: ", [KontoKasy])
if( equal([KontoKasy], "") )
{
Ask("Dokument nie posiada zdefiniowanego konta kasy.",
"Ponieważ nie można określić strony dla konta kasy,",
"pole kwoty pozostanie puste. DefBtn:&OK=2 Ico:!")
}
case "DP"
case "FZ"
@opisy = 1
$tresc = [opis FK]
break
case "WB"
case "DIM"
case "DEX"
@opisy = 1
$tresc = [opis FK]
break
case else
if (!Def("opisy"))
{
Def("opisy", Ask("Czy importować opisy faktur VAT i rachunków? DefBtn:&Tak=10 Btn:&Nie=C Ico:?") )
}
if( Equal( Def("opisy"), "10") )
{
@opisy = 1
$tresc = [opis FK]
}
}
$DataDok = Date([datadok])
if ( !equal([iddokkoryg], "0") ) // dla korekt data operacji dla FK powinna być równa dacie wystawienia dokumentu, a nie dacie sprzedaży
$DataOper = Date([dataza])
else
$DataOper = Date([dataza])
$Kwota = [kwota]
$Sygnatura = [Sygnatura]
$SaldoPoczRK = [SaldoPRK]
// $SaldoZapRK = sum0([SaldoZRK],[SaldoPRK])
$SaldoZapRK = [SaldoZRK]
$KontoKasy = [KontoKasy]
$NazwaKor = [NazwaKor]
$DataKor = Date([DataKor])
$Datawpl = Date([Datawpl])
IF(NOT (equal([plattermin], "")) )
{
@plattermin = Date([plattermin])
}
IF ( NOT(equal([waluta], "")) )
{
if ( !equal([wkwota], "") )
{
$wkwota = [wkwota]
$waluta = [waluta]
$kurs = [kurs]
$typkursu = 3
}
}
//analizujemy wszystkie sekcje - mogą być wymieszane
Section("", "", "REPEAT") //REPEAT: analizujemy wszystkie podsekcje
{
switch( Translate( Name(), "L") )
{
case "atrybutwaluta"
MakeSec("AtrybutWaluta")
{
$data=[data]
$kurs=[kurs]
$waluta=[waluta]
$opis=[opis]
$dane=[dane]
}
break
case "dane nabywcy"
case "dane sprzedawcy"
if (!equal([khid], 0))
{
MakeSec("Kontrahent")
{
$klucz = [khid]
if (!Equal([fk_ident], "0"))
$fk_ident = [fk_ident] //uzgodniony numer FK
IF ( REX( [khnip], "{[rRpP]}/:{*$}" ) )
{
// na dokumencie piszemy tyko NIP , więć nic nie robimy
}
ELSE
{
$NIP = [khnip]
}
}
}
else
{
if( !equal( [khnip], "") )
{
MakeSec("Incydentalny")
{
$klucz = [khnip]
$NIP = [khnip]
$nazwa = [khnazwa]
$miejscowosc= [khmiasto]
$ulica = [khadres]
IF( EXIST( "khdom") )
{
$NumerDomu = [khdom]
$NumerMieszk= [khlokal]
}
$kod = [khkodpocz]
}
}
else
if( !equal( [khnazwa], "") )
{
MakeSec("Incydentalny")
{
$klucz = [khnazwa]
$NIP = [khnip]
$nazwa = [khnazwa]
$miejscowosc= [khmiasto]
$ulica = [khadres]
IF( EXIST( "khdom") )
{
$NumerDomu = [khdom]
$NumerMieszk= [khlokal]
}
$kod = [khkodpocz]
}
}
}
break
case "zapis"
MakeSec("zapis")
{
$strona = Rex([strona], "MA", 1) //WN=0 (""), MA=1
$kwota = [kwota]
$Konto = [Konto]
$NumerDok = [NumerDok]
$IdDlaRozliczen = [IdDlaRozliczen]
if ( Equal(@@opisy, 1) )
{
$Opis = [opis]
$typopisu = 1 //opis bezpośrednio
}
$ZapisRownolegly = [ZapisRownolegly]
$pozycja = [Pozycja]
IF ( NOT(equal([waluta], "")) )
{
$wkwota = [wkwota]
$waluta = [waluta]
$kurs = [kurs]
$typkursu = 3
}
$dataKPKW = Date([dataKPKW])
}
break
case "rejestr"
IF( NOT(Equal($$obslugujJak, "FWN")) )
{
MakeSec("rejestr")
{
IF( EXIST( "skrot") )
$Klucz = CAT([skrot], ",", "ZW", ",", [stawka])
ELSE
$Klucz = CAT($$klucz, ",", "ZW", ",", [stawka])
$ABC = 1 //A
switch( [metoda_vat] )
{
case "0"
$oczek = 0
break
case "1"
switch( $$ObslugujJak )
{
case "FKS"
case "RKS"
$oczek = 0
break
case else
$oczek = 2
break
}
break
case "2"
$oczek = 0
break
}
$okres = [okres]
$netto = [netto]
$vat = [vat]
$brutto = [brutto]
$stawka = [stawka]
// "Handel przesyła Netto, VAT i Brutto w walucie".
// Zatem z uwagi na Handel (jako jednego z nadawców)
$nettoWaluta = [nettoWaluta]
$vatWaluta = [vatWaluta]
$bruttoWaluta = [bruttoWaluta]
$typ = "ZW"
Section("", "", "REPEAT") //REPEAT: analizujemy wszystkie podsekcje
{
switch( Translate( Name(), "L") )
{
case "pozycja vat"
MakeSec( "pozycja vat" )
{
$stawka=[stawka]
$stawka_pl=[stawka_pl]
$opis=[opis]
$wartosc=[wartosc]
$usluga=[usluga]
$ue=[ue]
}
}
}
}
}
break
case "transakcja"
MakeSec("transakcja")
{
$ustawowe = 1 //odsetki ustawowe
$zaliczka = 0 //Zaliczka
$idDlaRozliczen = [idDlaRozliczen]
$termin = [termin] //Termin;
}
break
case "zlecenie przelewu"
MakeSec("ePrzelewy")
{
$idDlaRozliczen = [idDlaRozliczen]
$guid = [guid]
$rodzaj = 1
}
break
case "operacja bankowa"
MakeSec("operacjaBankowa")
{
$idDlaRozliczen = [idDlaRozliczen]
$guid = [guid]
$rodzaj = 2
}
break
case "rozliczenie"
MakeSec("rozliczenie")
{
$dSymbol = [dSymbol] //numer własny dokumentu
$idDlaRozliczen = [idDlaRozliczen]
if( !equal([kwota], "") )
{
$kwota = [kwota]
}
if( !equal([wkwota], "") )
{
$wkwota = [wkwota]
}
$kursWO = [kursWO]
$walutaObca = [walutaObca]
$rozliczonoWO = [rozliczonoWO]
$oBGuid = [OBguid]
$ePGuid = [EPguid]
$ustawowe = 1 //odsetki ustawowe
$zaliczka = 0 //Zaliczka
IF(NOT (equal(@@plattermin, "")) )
{
$termin = @@plattermin //Termin;
}
}
break
}
}
}