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

[FiK] Import specjalny - konto kontrahenta
https://forum.mix-soft.pl/viewtopic.php?f=16&t=2101		 Strona 1 z 1
Autor:  kakus [ 2010-06-17, 09:09 ]
Tytuł:  [FiK] Import specjalny - konto kontrahenta
Witam,

Mam import specjalny raportu kasowego taki, jak poniżej. Import specjalny jest robiony z pliku CSV, w którym są informacje o KP, KW i fakturach gotówkowych. Działa to tak, że dla faktur powinno być przypisane konto kontrahenta. Po wykonaniu tego filtru efekty jest taki, że dane sie importują prawidłowo, ale dostaje ostrzeżenie "Brak kontrahenta w danych dokumentu, numer konta nie może być uzupełniony.", a do faktur jest przypsiane konto 202 (bez wyznacznika kontrahenta). Co zrobiłem źle?

Z góry dziękuje, za pomoc.

Kod:
#format "SDF"
#separator_01  "." 
#auto_insert  ""
#tbl  "ŽżĺłĄńלĹęĹŁťŁžżúÓíŻÉĘąŃáŹĆĄ"
#konto_KASY  "100"
   

Section("", "dokument")
{       

   $obslugujJak="RK"
   
   $klucz = "RK"
   $nazwa = cat("RK ",[4])
   $tresc = cat("Raport kasowy za okres: ", [4] )

   $datawpl = [4]
   $datadok = [4]
   $dataokr = [4]
   $dataOper = [4]
   
   $kontoKasy = Def("Konto_KASY") 

   Exit()

   @kontoWN = ""
   @kontoMA = ""
   @kwota = ""

   @poz = 0


   Section( "", "", "REPEAT" )
   {
   switch( [1] )
      {
      case "KP"
      @kontoWN =  Def("Konto_KASY") 
      @kontoMA = [8]
      @kwota = [6]
      break
      
      case "F"
      @kontoMA =  Def("Konto_KASY") 
      @kontoWN = "202-K"
      @kwota = mul2([6],-1)

      MakeSec( "Kontrahent")
      {
      $aktywny = 1
      $klucz = [9]
      $skrot = [11]
      $nazwa   = [11]
      $miejscowosc = [14]
      $nip = [15]
      $ulica = [12]
      $kod   = [13]
      $rachunek1    = [10]
      $autoinsert = 1
      }

      break
      
      case "KW"
      @kontoMA =  Def("Konto_KASY") 
      @kontoWN = [8]
      @kwota = mul2([6],-1)
      break
      
      case else
      @kontoMA =  Def("Konto_KASY") 
      @kontoWN = "999"
      }
            
   
   MakeSec("Zapis")
      {
      $strona = 0
      $pozycja = @@poz
      $kwota = @@kwota
      $konto =@@kontoWN
      $opis = [5]
      $numerDok = cat([1]," ",[2])   
      }

               
   MakeSec( "zapis")
      {
      $pozycja = @@poz
      $strona = 1
      $kwota = @@kwota
      $konto =@@kontoMA
      $opis = [5]
      $numerDok = cat([1]," ",[2])   
       }

       @@poz = SUM0(@@poz, 1)
   }
}
Autor:  wrob [ 2010-06-17, 15:38 ]
Tytuł: 
Tu jest blad

Kod:
@kontoWN = "202-K"


chyba ci brakuje dolaczania tu klucza kth
Autor:  darek.007 [ 2010-06-17, 22:51 ]
Tytuł: 
Kod:
@kontoWN = "202-K"


a ja bym poszedł jeszcze krok dalej
Kod:
@kontoWN = cat("202-K",[8])


na mój gust w dokumentach innych niż faktury sekcja kontrahent nie jest przetwarzana i z ich poziomu nie da się dodać kontrahnenta....

kontrahent musi być uzgodniony na poziomie dokumentu typu FAKTURA
lub trzeba przetworzyć plik z raportem kasowym dwa razy

za pierwszym razem zrobić uzgadnianie kontrahentów
za drugim przetwarzanie zapisów
Autor:  wrob [ 2010-06-18, 00:35 ]
Tytuł: 
A faktycznie darku masz racje trzeba 2 razy czytac zeby uzgodnic - ale taki watek juz byl chyba na forum......
Autor:  Bartosh89 [ 2011-07-13, 20:25 ]
Tytuł: 
Próbowałem wczytać podanym w tym poście szablonem RK i mam taki problem. Wszytko poustawiałem jednak do każdego zapisu jest inny numer kontrahenta. Jak zaczytuje dane to do wszystkich zapisów przypisuje mi się numer kontrahenta z pierwszego zapisu. Czy jakoś inaczej trzeba umieścić sekcje kontrahent ??

Cytuj:
#format "sdf"
#Typ_kodowania "latin2"
#separator_01 ","
#data "r-m-d"
#disable 2
#konto_KASY "100"

#SkrotDok "5"
#NrDok "16"
#DataDok "8"
#DataSP "8"
#Datawpl "8"
#DataPlat "8"
#NrK "34"
#NazwaK "36"
#UlicaK "43"
#KodP "47"
#MiejsceK "46"
//#NipK "1"
#Brutto "22"



Section("", "dokument")
{

$obslugujJak="RK"

$klucz = "RK"
$nazwa = [16]
$tresc = cat("Raport kasowy za okres: ",[8] )

$datawpl = [8]
$datadok = [8]
$dataokr = [8]
$dataOper = [8]

$kontoKasy = Def("Konto_KASY")




Exit()

@kontoWN = ""
@kontoMA = ""
@kwota = ""

@poz = 0


Section( "", "", "REPEAT" )
{


switch( [14] )
{
case "KP"
makesec("kontrahent")
{
$aktywny = 1
$klucz = Field(Def("NrK"))
$skrot = Field(Def("NazwaK"))
$nazwa = Field(Def("NazwaK"))
//$nip = Field(Def("NipK"))
$kod = Field(Def("KodP"))
$miejscowosc = Field(Def("MiejsceK"))
$ulica = Field(Def("UlicaK"))
$autoinsert = 1
}

@kontoWN = Def("Konto_KASY")
@kontoMA = "202-2-1-K"
@kwota = Money(Field(Def("Brutto")))

break

case "KW"
makesec("kontrahent")
{
$aktywny = 1
$klucz = Field(Def("NrK"))
$skrot = Field(Def("NazwaK"))
$nazwa = Field(Def("NazwaK"))
//$nip = Field(Def("NipK"))
$kod = Field(Def("KodP"))
$miejscowosc = Field(Def("MiejsceK"))
$ulica = Field(Def("UlicaK"))
$autoinsert = 1
}

@kontoMA = Def("Konto_KASY")
@kontoWN = "201-2-1-K"
@kwota = Money(Field(Def("Brutto")))

break

case else
@kontoMA = Def("Konto_KASY")
@kontoWN = "999"
}


MakeSec("Zapis")
{

$strona = 0
$pozycja = @@poz
$kwota = @@kwota
$konto =@@kontoWN
$opis = [55]
$numerDok = [16]
}


MakeSec( "zapis")
{

$pozycja = @@poz
$strona = 1
$kwota = @@kwota
$konto =@@kontoMA
$opis = [55]
$numerDok = [16]
}

@@poz = SUM0(@@poz, 1)
}
}
Autor:  darek.007 [ 2011-07-13, 20:59 ]
Tytuł: 
nie da się odczytać kontrahenta w nagłóku dokumentu i przypisywać go w każdym zapisie
kontrahent musi byc przetwarzany na poziomie każdego zapisu...


to dość proste ale nie wiem czy da się to ujać w jednym zdaniu...
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/