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

FK 2014.d Import specjalny księgowania równoległe
https://forum.mix-soft.pl/viewtopic.php?f=4&t=6007		 Strona 1 z 1
Autor:  perek [ 2014-09-23, 17:54 ]
Tytuł:  FK 2014.d Import specjalny księgowania równoległe
A więc mam plik txt z zewnętrznego oprogramowania którego fragment wygląda tak:
Kod:
   FK nazwa =213/14
   Datawpl =2014-07-29
   opis FK =
   Zapis{
      strona =WN
      kwota =900
      konto =402-4
      IdDlaRozliczen =2
      opis =PRZEWOŹNICY
      NumerDok =213/14
      Pozycja =0
      ZapisRownolegly =0
   }
   Zapis{
      strona =MA
      kwota =1107
      konto =201-K
      IdDlaRozliczen =1
      opis =PRZEWOŹNICY
      NumerDok =213/14
      Pozycja =0
      ZapisRownolegly =0
   }
   Zapis{
      strona =WN
      kwota =207
      konto =225-1
      IdDlaRozliczen =3
      opis =PRZEWOŹNICY
      NumerDok =213/14
      Pozycja =0
      ZapisRownolegly =0
   }
   Zapis{
      strona =WN
      kwota =900
      konto =550
      IdDlaRozliczen =4
      opis =PRZEWOŹNICY
      NumerDok =213/14
      Pozycja =1
      ZapisRownolegly =33
   }
   Zapis{
      strona =MA
      kwota =900
      konto =490
      IdDlaRozliczen =5
      opis =PRZEWOŹNICY
      NumerDok =213/14
      Pozycja =1
      ZapisRownolegly =33
   }

Natomiast fragment szablonu Faktura format 3 tak:
Kod:
   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

        }
                  IF ( NOT(equal([rozksiegowanie], "")))
                  {

                     MakeSec("transakcja")
                     {
                        $ustawowe      = 1    //odsetki ustawowe
                        $zaliczka      = 0      //Zaliczka
                        $idDlaRozliczen    = [idDlaRozliczen]
                        $termin         = [termin]   //Termin;
                     }
                  }
               }

I działa jak należy, ale co zrobić aby podczas importu zignorować zapis równoległy czyli WN=550 i MA=490 ?
Autor:  wrob [ 2014-09-24, 04:33 ]
Tytuł:  Re: FK 2014.d Import specjalny księgowania równoległe
dopisz w szablonie na poczatku sekcji zapis jakis warunek który sprawdza ZapisRownolegly =33 i jezeli tak to nie robi zapisu
Autor:  rafal [ 2014-09-24, 07:58 ]
Tytuł:  Re: FK 2014.d Import specjalny księgowania równoległe
Może tak zmodyfikuj szablon

Kod:
case "zapis"
IF ( NOT(equal([zapisrownolegly], "33")) )
{
               MakeSec("zapis")
               [...]
{
Autor:  perek [ 2014-09-24, 09:42 ]
Tytuł:  Re: FK 2014.d Import specjalny księgowania równoległe
Chwile wcześniej sam tak wykombinowałem, wcześniej próbowałem w innym miejscu ;-)

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