Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2021-10-17, 14:32x



Odpowiedz w temacie  [ Posty: 2 ] 
Przesunięcie Magazynowe 
Autor Wiadomość

Rejestracja: 2010-02-10, 21:24
Posty: 255
Pomógł: 4
Post 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


2021-09-21, 11:23
Wyświetl profil
Autor Wiadomość
 



Rejestracja: 2010-02-10, 21:24
Posty: 255
Pomógł: 4
Post Re: Przesunięcie Magazynowe
Nie ma żadnej funkcji Typu UtworzDokumentMagazynowy aby obsłużyć MM+ z AMBasic?


2021-09-28, 07:58
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 2 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Data - przesuniecie o ileś dni

w Programowanie

zz

2

952

2011-12-08, 12:49

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. przesunięcie towaru na cele własne firmy

w Programy Handlowe

bob4u

1

1085

2019-11-06, 12:41

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Zmiana skali podatkowej i kosztów a przesunięcie wypłaty

w Programy Kadrowo Płacowe

wojtek

2

1384

2019-10-03, 08:54

perek Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Logi - przesunięcie towarów z kosza do głównego katalogu.

w Programowanie

Simon123

4

1396

2017-03-15, 17:11

rafal Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: anna84 i 2 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant