mojaSymfonia FORUM :: Wyświetl temat - Symfonia Handel Premium

Kod:

////////////////////////////
// Engine do dokumentów magazynowych RTF - zamiana
// dkmg_rtf.sci
////////////////////////////

Kod:

baseTW mxTW
mxTW.Open()

Kod:

                     if par != 0 then
                        sDostawa+=RS(Dostawy(par).nazwa)+"\\par "
                     endif
                     par = idw
                  endif
               next idw
               if par != 0 then sDostawa+=RS(Dostawy(par).nazwa)
            if czyimport then sDostawa=RS("Dokument importowany")   
               myReplace( "@Dostawa", sDostawa ) : found=1
            endif

Kod:

            if find regular at "@Waga" then
               mxTw.GetRecById(Pozycje(i).idtw) 
               myReplace( "@Waga", using "%.2f",mxTw.GetField("przelkg") ) : found=1
            endif

Kod:

            if find regular at "@Waga" then
               mxTw.GetRecById(Pozycje(i).idtw) 
               myReplace( "@Waga", using "%.2f",mxTw.GetField("przelkg") * Pozycje(i).Ilosc ) : found=1
            endif

Kod:

String s
#define DEKRET
#define PLATWYD

Kod:

#define MIXMASA   213
baseTW ttw
ttw.Open()

float fMixMasa

Kod:

StlTabPR(1)=StlTabPR(2)=kr

Add ( -1, 50, nc, 0 )
Add ( -1, 500, nl, 0 )

Kod:

Add ( -1, 100, kr, MIXMASA )

Kod:

               case KOD
                  sPom = "Kod"
                  if nKodTyp==2 then sPom+=" obcy"
                  if nKodTyp==3 then sPom+=" paskowy"

Kod:

               case MIXMASA
                  sPom = "Masa jedn. [kg]"

Kod:

            case SWW
               buf = Pozycje(i).sww

Kod:

               case MIXMASA
                  ttw.SetKey("kod")
                  ttw.SetKeySeg("typi",0)
                  ttw.SetKeySeg("kod",Pozycje(i).Kod)
                  ttw.GetRec (EQ)
               
                  if ttw.GetField("przelkg") == 0 then
                     buf = ""
                  else
                     buf = Kwota(ttw.GetField("przelkg"))
                     fMixMasa += ttw.GetField("przelkg") * Pozycje(i).Ilosc
                  endif

Kod:

ramka od 0,#B+10,str.szer,90,bRamki
   SetStyl ( nbl )
   print at 30,20;"Słownie: "
   SetFont ( "tekst" )
   print KwotaNaTekst( (using "%.2f",tot_brutto), "" )
koniec

Kod:

   ramka od 0,#B+10,700,90,bRamki
      SetStyl ( nbl )
      print at 30,20;"Masa całkowita: "+Kwota(fMixMasa) + " kg."
   koniec

Autor:	poly [ 2012-09-10, 14:09 ]
Tytuł:	Symfonia Handel Premium - szablon RTF
Witam, mam problem z dodaniem nowego makra do szablonu RTF, mianowicie chciałbym aby przy wydruku WZ pojawiała się przy towarze masa np. Intrastat masa, w jaki sposób dodać takie makro ?

Autor:	rafal [ 2012-09-10, 14:13 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
czy podejmowałeś/łaś już jakieś próby w tym temacie? jak tak to jakie?

Autor:	poly [ 2012-09-10, 14:25 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
Engine do dokumentu RTF - zmiana - wprowadzam makro @Masa, ale jakiej zmiennej musi ona odpowiadać to niestety nie wiem.

Autor:	rafal [ 2012-09-10, 14:33 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
Idziesz w dobrym kierunku Znajdź raport Raporty -> Dokumenty -> Dokumenty magazynowe -> Engine do dokumentów magazynowych RTF - zamiana Załącznik: hmrtf01.jpg [ 58.7 KiB \| Przeglądany 15656 razy ] ZNAJDŹ Kod: //////////////////////////// // Engine do dokumentów magazynowych RTF - zamiana // dkmg_rtf.sci //////////////////////////// WSTAW POD Kod: baseTW mxTW mxTW.Open() ZNAJDŹ Kod: if par != 0 then sDostawa+=RS(Dostawy(par).nazwa)+"\\par " endif par = idw endif next idw if par != 0 then sDostawa+=RS(Dostawy(par).nazwa) if czyimport then sDostawa=RS("Dokument importowany") myReplace( "@Dostawa", sDostawa ) : found=1 endif WSTAW POD Kod: if find regular at "@Waga" then mxTw.GetRecById(Pozycje(i).idtw) myReplace( "@Waga", using "%.2f",mxTw.GetField("przelkg") ) : found=1 endif W katalogu programu znajdź plik wz_01.rtf i wstaw do niego makro @Waga Załącznik: hmrtf02.jpg [ 46.87 KiB \| Przeglądany 15656 razy ] i zadziała

Autor:	poly [ 2012-09-11, 07:16 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
no i poczyniłem kroki jak wyżej ale nic to nie dało wyświetla @Waga

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

Symfonia Handel Premium - szablon RTF https://forum.mix-soft.pl/viewtopic.php?f=2&t=4157	Strona 1 z 2

Autor:	rafal [ 2012-09-11, 08:11 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
Po wprowadzeniu zmian nie zapomnij wcisnąć Ctrl+Shift+Z. Powinieneś zobaczyć komunikat : Kompilaty raportów zostały usunięte Załącznik: hmrtf03.jpg [ 50.99 KiB \| Przeglądany 15636 razy ] Dodatkowo możesz otworzyć wz_01.rtf za pomocą notatnika i zobaczyć czy makro @Waga jest w całości czy z jakimiś śmieciami Załącznik: hmrtf04.jpg [ 85.52 KiB \| Przeglądany 15636 razy ] Zagadnienie omawiane było tu : viewtopic.php?f=15&t=2444 Zapewniam Cię że te zmiany działają Załącznik: hmrtf05.jpg [ 41.79 KiB \| Przeglądany 15636 razy ]

Autor:	poly [ 2012-09-11, 11:04 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
dziękuję za pomoc , raczej bym tego nie ogarnął, teraz zastanawiam się jak zrobić aby pokazywał mi sumę ciężaru np. dwóch elementów oraz sumę ciężaru towarów

Autor:	rafal [ 2012-09-11, 11:34 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
analogicznie

Autor:	poly [ 2012-09-11, 11:39 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
czyli wykorzystać mniej więcej suma netto ?

Autor:	rafal [ 2012-09-11, 12:15 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
jeżeli chcesz wyświetlić sumę wag w pozycji to Kod: if find regular at "@Waga" then mxTw.GetRecById(Pozycje(i).idtw) myReplace( "@Waga", using "%.2f",mxTw.GetField("przelkg") * Pozycje(i).Ilosc ) : found=1 endif a suma wszystkich wag to musisz pokombinować

Autor:	andrew [ 2012-09-17, 14:56 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
A czy da się taką modyfikację zrobić na standardowym wydruku Dokument VAT I?

Autor:	rafal [ 2012-09-17, 15:21 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
Da się. Wejdź w Raporty -> Dokumenty -> Dokumenty sprzedaży -> Dokument VAT -> Dokument VAT I Modyfikacje dla wersji 2013 ale powinno zadziałać dla starszych. ZNAJDŹ Kod: String s #define DEKRET #define PLATWYD WSTAW POD Kod: #define MIXMASA 213 baseTW ttw ttw.Open() float fMixMasa ZNAJDŹ Kod: StlTabPR(1)=StlTabPR(2)=kr Add ( -1, 50, nc, 0 ) Add ( -1, 500, nl, 0 ) WSTAW POD Kod: Add ( -1, 100, kr, MIXMASA ) ZNAJDŹ Kod: case KOD sPom = "Kod" if nKodTyp==2 then sPom+=" obcy" if nKodTyp==3 then sPom+=" paskowy" WSTAW POD Kod: case MIXMASA sPom = "Masa jedn. [kg]" ZNAJDŹ Kod: case SWW buf = Pozycje(i).sww WSTAW POD Kod: case MIXMASA ttw.SetKey("kod") ttw.SetKeySeg("typi",0) ttw.SetKeySeg("kod",Pozycje(i).Kod) ttw.GetRec (EQ) if ttw.GetField("przelkg") == 0 then buf = "" else buf = Kwota(ttw.GetField("przelkg")) fMixMasa += ttw.GetField("przelkg") * Pozycje(i).Ilosc endif ZNAJDŹ Kod: ramka od 0,#B+10,str.szer,90,bRamki SetStyl ( nbl ) print at 30,20;"Słownie: " SetFont ( "tekst" ) print KwotaNaTekst( (using "%.2f",tot_brutto), "" ) koniec WSTAW POD Kod: ramka od 0,#B+10,700,90,bRamki SetStyl ( nbl ) print at 30,20;"Masa całkowita: "+Kwota(fMixMasa) + " kg." koniec W wyniku powinieneś otrzymać taki wydruk Załącznik: hmwaga01.jpg [ 83.59 KiB \| Przeglądany 15603 razy ]

Autor:	poly [ 2012-10-02, 20:28 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
może komuś się udała suma wszystkich wag ?

Autor:	TMajkowski [ 2022-11-03, 11:38 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
czy ktoś próbował to dostosować do wersji symfonia 50c Handel, a jeśli tak to podpowie jak to powinno wyglądać?

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

Autor:	rafal [ 2022-11-03, 13:00 ]
Tytuł:	Re: Symfonia Handel Premium - szablon RTF
TMajkowski pisze: czy ktoś próbował to dostosować do wersji symfonia 50c Handel, a jeśli tak to podpowie jak to powinno wyglądać? Co dokładnie potrzebujesz zrobić?