mojaSymfonia FORUM :: Wyświetl temat - Dekretacja na wydruku raportu kasowego

Kod:

#define BAZAPN   32
Obliczenia obl
obl.Add(BAZAPN, iddok)

int Sub Dekretacje()
string sWN, sKwota, sMA, sKw, sKnt
int y,tbl2,j
int bc = Styl ( "nagłówek", 0, "bc" )
      y = str.Pozycja(#B)+50
      tbl2 = tabela 1,4004, 200,bc,250,bc,200,bc
      if GRAF then
         ramka od 0,y,650,10,0,1//nGray
      else
         print "\n"
         ramka od 0,#Y,str.szer,10,0
      endif
         tabela #tbl2, od 0,0
            kolumna 1, "WN"
            kolumna 2, "Kwota"
            kolumna 3, "MA"
         koniec
      koniec
      tbl2 = tabela 1,4004, 200,nc,250,kr,200,nc
      
      if obl.GetFirstZap() then
         j=0
         Do
            if j == obl.PozycjaZap then
               if sKw == kwota(obl.KwotaZap) && sKnt != obl.StronaZap then
                  if obl.StronaZap=="WN" then
                     buf = sWN
                     delete regular "\n$"
                     sWN = buf
                     sWN += obl.KontoZap + LF
                  else
                     buf = sMA
                     delete regular "\n$"
                     sMA = buf
                     sMA += obl.KontoZap + LF
                  endif
                  sKw = ""
                  sKnt = ""
               else
                  sKWota += kwota(obl.KwotaZap) + LF
                  sKw = kwota(obl.KwotaZap)
                  sKnt = obl.StronaZap
                  if obl.StronaZap=="WN" then
                     sWN += obl.KontoZap + LF
                     sMA += LF
                  else
                     sMA += obl.KontoZap + LF
                     sWN += LF
                  endif
               endif
            else
               ramka od 0,#Y,str.szer,10,0
                  tabela #tbl2, od 0,0
                     kolumna 2, sKwota
                     sKwota = ""
                     kolumna 1, sWN
                     sWN = ""
                     kolumna 3, sMA
                     sMA = ""
                  koniec
               koniec
               sKWota += kwota(obl.KwotaZap) + LF
               sKw = kwota(obl.KwotaZap)
               sKnt = obl.StronaZap
               if obl.StronaZap=="WN" then
                  sWN += obl.KontoZap + LF
                  sMA += LF
               else
                  sMA += obl.KontoZap + LF
                  sWN += LF
               endif
            endif
            j=obl.PozycjaZap
         Loop While ( obl.GetNextZap() )
         ramka od 0,#Y,str.szer,10,0
            tabela #tbl2, od 0,0
               kolumna 2, sKwota
               sKwota = ""
               kolumna 1, sWN
               sWN = ""
               kolumna 3, sMA
               sMA = ""
            koniec
         koniec
      endif

EndSub

Autor:	wrob [ 2008-11-26, 11:58 ]
Tytuł:
Faktycznie taka jest chyba idea bo w kodzie raportu nie ma nic w temacie pobierania/drukowania tego konta. Jesli jest takowa potrzeba to mozna to bez problemu dopisac. RTF - do raportu kasowego - to nie tylko sam plik RTF, ale jescze cały raport drukujący kase do RTF by trzeba bylo napisac - bo do dokumentów kasowych nigdy takowego nie bylo..... - Ale mozliwe ze juz ktos napisal :)

Autor:	wrob [ 2008-11-26, 11:59 ]
Tytuł:
A swoja droga po co ci raport kasowy z dekretacja? Przecież zapewne przesylasz go do FK a w fk masz wydruk pt raport kasowy - i on juz sie drukuje ze wszystkimi kontami itp.

Autor:	rafal [ 2008-11-26, 13:13 ]
Tytuł:
jeżeli potrzebne są Ci dekretacje na dokumencie KP i KW (nie wiem po co - nie pytam), proponuję następujące modyfikacje standardowych raportów Kasa przyjmie i Kasa wyda. Użyjemy funkcji Dekretacje() drukującej dekretacje na dokumentach sprzedaży. Raporty → Dokumenty → Dokumenty płatności → Kasa przyjmie pod : Kod: int GRAF = !Val( Arg0 ) long iddok = Val( Arg1 ) wpisz Kod: #define BAZAPN 32 Obliczenia obl obl.Add(BAZAPN, iddok) int Sub Dekretacje() string sWN, sKwota, sMA, sKw, sKnt int y,tbl2,j int bc = Styl ( "nagłówek", 0, "bc" ) y = str.Pozycja(#B)+50 tbl2 = tabela 1,4004, 200,bc,250,bc,200,bc if GRAF then ramka od 0,y,650,10,0,1//nGray else print "\n" ramka od 0,#Y,str.szer,10,0 endif tabela #tbl2, od 0,0 kolumna 1, "WN" kolumna 2, "Kwota" kolumna 3, "MA" koniec koniec tbl2 = tabela 1,4004, 200,nc,250,kr,200,nc if obl.GetFirstZap() then j=0 Do if j == obl.PozycjaZap then if sKw == kwota(obl.KwotaZap) && sKnt != obl.StronaZap then if obl.StronaZap=="WN" then buf = sWN delete regular "\n$" sWN = buf sWN += obl.KontoZap + LF else buf = sMA delete regular "\n$" sMA = buf sMA += obl.KontoZap + LF endif sKw = "" sKnt = "" else sKWota += kwota(obl.KwotaZap) + LF sKw = kwota(obl.KwotaZap) sKnt = obl.StronaZap if obl.StronaZap=="WN" then sWN += obl.KontoZap + LF sMA += LF else sMA += obl.KontoZap + LF sWN += LF endif endif else ramka od 0,#Y,str.szer,10,0 tabela #tbl2, od 0,0 kolumna 2, sKwota sKwota = "" kolumna 1, sWN sWN = "" kolumna 3, sMA sMA = "" koniec koniec sKWota += kwota(obl.KwotaZap) + LF sKw = kwota(obl.KwotaZap) sKnt = obl.StronaZap if obl.StronaZap=="WN" then sWN += obl.KontoZap + LF sMA += LF else sMA += obl.KontoZap + LF sWN += LF endif endif j=obl.PozycjaZap Loop While ( obl.GetNextZap() ) ramka od 0,#Y,str.szer,10,0 tabela #tbl2, od 0,0 kolumna 2, sKwota sKwota = "" kolumna 1, sWN sWN = "" kolumna 3, sMA sMA = "" koniec koniec endif EndSub na końcu raportu przed Kod: Footer(1) wpisz Kod: Dekretacje() [center] [/center]

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

Dekretacja na wydruku raportu kasowego https://forum.mix-soft.pl/viewtopic.php?f=2&t=427	Strona 1 z 1

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