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

Przesunięcie Magazynowe
https://forum.mix-soft.pl/viewtopic.php?f=15&t=10034
Strona 1 z 1

Autor:  wojtek [ 2021-09-21, 11:23 ]
Tytuł:  Przesunięcie Magazynowe

Witam, czy istnieje jakiś sposób automatycznego wystawienia dok MM+ do MM- ?
Dokument MM- tworzę za pomocą kodu i działa poprawnie - chciałbym aby równocześnie tworzył się dokument MM+ a między dokumentami istniało powiązanie tak jak za pomocą przycisku na dokumencie "Wystaw dokument przesunięcia"
Kod:
IORec dok_mg
string TypDokumentu = "MM-"
string Seria = "sMM-"
string KodMagazynu = "MAXSTAL"
string KodKontrahenta = "KOMNINO"
string sKodtw = "TGWC000300X0300XK0000S235JRN---TC1G4SERU"
string sIlosc = "3"
int czyWystawiony

long sub WystawDokMg()

   int i, ok
   long id_dk_buf
   dok_mg.Clear()

   i=1
    ok = 1
//   for i=1 to i>size(rec_tw_wz)
//      if rec_tw_wz(i).ilosctw != 0 then ok = 1 : exit
//   next i
   
   if ok == 1 then
      //dok_mg.BeginSection("DokumentMG")         
      dok_mg.SetField("typDk", TypDokumentu)
      dok_mg.SetField("seria", Seria)
      dok_mg.SetField("dataWystawienia", data() )
      dok_mg.SetField("dataOperacji", data() )
      dok_mg.SetField("numer_obcy","" )
      dok_mg.SetField("dzial", KodMagazynu)
      
      dok_mg.BeginSection("DaneKh")
         dok_mg.SetField("KhKod",KodKontrahenta)//Kod_kontrahenta(rec_dok_wz(1).idkhdokwz) )   
         //dok_mg.SetField("Khnazwa", )      
         //dok_mg.SetField("Khadres", )
         //dok_mg.SetField("Khnip", )      
         //dok_mg.SetField("Khkodpocz", )
         //dok_mg.SetField("Khmiasto", )      
      dok_mg.EndSection()   
      //dok_mg.SetField("NumerZnacznika",(using "%d",GetField(dk, "znaczniki") ) )
      //dok_mg.SetField("Notatka", )
      //dok_mg.SetField("Opis", GetField(dk, "opis"))   
   
   //   for i=1 to i>1
   
   //      if rec_tw_wz(i).ilosctw != 0 then
            dok_mg.BeginSection("Pozycja dokumentu")   
               dok_mg.SetField("Kod", (sKodtw) )
               dok_mg.SetField("Lp", (using "%d",i) )
               dok_mg.SetField("Ilosc", (sIlosc) )
            //   dok_mg.SetField("Wartosc",(using "%f",rec_tw_wz(i).wartnettotw) )      
            dok_mg.EndSection()
   //      endif
   
   //   next i
   
      //dok_mg.EndSection()
      id_dk_buf = ImportMg(dok_mg)
      message using "%i",id_dk_buf
      if id_dk_buf != 0 then   
      UtworzDokumentMagazynowy(id_dk_buf,1,1)
         czyWystawiony = 1
         if WystawDokumentMagazynowy (id_dk_buf) != 0 then czyWystawiony = 2
      endif
   else
      czyWystawiony = 3
   endif

endsub

Autor:  wojtek [ 2021-09-28, 07:58 ]
Tytuł:  Re: Przesunięcie Magazynowe

Nie ma żadnej funkcji Typu UtworzDokumentMagazynowy aby obsłużyć MM+ z AMBasic?

Autor:  Picasso [ 2022-09-27, 13:38 ]
Tytuł:  Re: Przesunięcie Magazynowe

cześć
chyba było UtworzDokumentMMPlus(IdMgMinus, 1,1)
z pamięci pisze że arg 2 to bez komunikatów a arg 3 że automatycznie

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