Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-28, 18:08x



Odpowiedz w temacie  [ Posty: 7 ] 
[HMF] Zmiana numeru dokumentu AMbasic 
Autor Wiadomość

Rejestracja: 2010-02-10, 21:24
Posty: 260
Pomógł: 4
Post [HMF] Zmiana numeru dokumentu AMbasic
Witam,
Mam problem ze zmiana numeru dokumentu magazynowego wystawianego za pomoca IOReca
Realizuje to ostatecznie w ten sposób, że wystawiam najpierw dokument - zostaje mu narzucony numer, przerzucam go w trym edycji, zmieniam numer i zapisuje. Niestety przy imporcie kilkuset dokumentów na raz cała operacja zajmuje pół godziny. Poniżej kod:
Kod:
long sub WystawDokWz()
   
   int i, ok
   long id_dk_buf
   dok_mg.Clear()
         
      dok_mg.SetField("typDk", TypDokumentu)
      dok_mg.SetField("seria", Seria)
      dok_mg.SetField("dataWystawienia",datawyst )
      dok_mg.SetField("dataOperacji", dataOper )
      dok_mg.SetField("dzial", KodMagazynu)
      dok_mg.SetField("numerWSerii", sNumerWserii)
      dok_mg.SetField("kod", sNumerDokum)
      
      dok_mg.BeginSection("DaneKh")
      dok_mg.SetField("KhKod",KodKontrahenta)//Kod_kontrahenta(rec_dok_wz(1).idkhdokwz) )      
      dok_mg.EndSection()   
      dok_mg.SetField("Opis",opis)      
      
            dok_mg.BeginSection("Pozycja dokumentu")   
               dok_mg.SetField("Kod", KodTowaru )
               dok_mg.SetField("Lp", "1" )
               dok_mg.SetField("Ilosc", ilosc )
            dok_mg.EndSection()
         
      //dok_mg.EndSection()
      id_dk_buf = ImportMg(dok_mg)
      if id_dk_buf != 0 then   
         czyWystawiony = 1
         dokumId = WystawDokumentMagazynowy (id_dk_buf,1)
         if dokumId != 0 then
            czyWystawiony = 2
            sDokumId = using "%l",dokumId
            dok_mg.clear()
            dok_mg.SetField("id", sDokumId)
            dok_mg.SetField("numerWSerii", sNumerWserii)
            dok_mg.SetField("kod", sNumerDokum)
            EditMG(dok_mg)
         endif
      endif
      
endsub


Czy można to jakoś uprościć? Np od razu narzucić numer dokumentu bez przełaczania go w tryb edycji? Będę wdzięczny za podpowiedź.


2015-06-03, 20:11
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: [HMF] Zmiana numeru dokumentu AMbasic
Z jakiego numeru na jaki zmieniasz?
Jaki jest nadawany domyslnie?
Dlaczego nie ustawisz numeru jaki chcesz za pierwszym razem?

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2015-06-03, 20:39
Wyświetl profil

Rejestracja: 2010-02-10, 21:24
Posty: 260
Pomógł: 4
Post Re: [HMF] Zmiana numeru dokumentu AMbasic
Proces polega na tym,że z zupełnie innej bazy danych (program zewnętrzny) pobierane sa informacje o dok.magazynowych, które importowane sa do HMF. Ponieważ kolejne numery w serii w HMF narzucane sa automatycznie najczęściej nie sa zgodne z numerami importowanymi. I tutaj właśnie chce narzucić numer w serii zgodny z numerem dokumentu importowanego.

Stosujac przed wystawieniem dokumentu zapis

Kod:
      dok_mg.SetField("numerWSerii", sNumerWserii)
      dok_mg.SetField("kod", sNumerDokum)


HMF z niejasnych dla mnie przyczyn i tak narzuca własny numer dokumentu zgodny z szablonem numeracji w HMF po wystawieniu dokumentu. Aby osiagnać żadany efekt, już po wystawieniu dokumentu muszę przełaczyć go w tryb edycji i zmienić uprzednio narzucony numer:
Kod:
            dok_mg.clear()
            dok_mg.SetField("id", sDokumId)
            dok_mg.SetField("numerWSerii", sNumerWserii)
            dok_mg.SetField("kod", sNumerDokum)
            EditMG(dok_mg)

Jest jakiś sposób aby przed wystawieniem dokumentu narzucić mu zadany numer w serii? Numer oczywiście jest unikalny bo wcześniej sprawdzam czy dokument o tym numerze przypadkiem nie istnieje.


2015-06-03, 21:16
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: [HMF] Zmiana numeru dokumentu AMbasic
Ustawiales w parametrach numeracje reczna?

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2015-06-03, 22:11
Wyświetl profil

Rejestracja: 2010-02-10, 21:24
Posty: 260
Pomógł: 4
Post Re: [HMF] Zmiana numeru dokumentu AMbasic
tak, próbowałem wszystkich kombinacji.


2015-06-04, 06:57
Wyświetl profil

Rejestracja: 2010-02-10, 21:24
Posty: 260
Pomógł: 4
Post Re: [HMF] Zmiana numeru dokumentu AMbasic
Niestety nie mam w tym momencie dostepu do srodowiska testowego forte. Uruchomilem podobny kod W Symfonii i przy ustawieniu ręcznym zasad numeracji wszytko działa jak należy. Mam dodatkowe pytanie do pól IOrec. Kod w forte dotyczacy wyboru typu dokumentu ma następujaca formę:

Kod:
dok_mg.SetField("typDk", "WZ")


W symfonii aby wszytko działało muszę wpisać:

Kod:
dok_mg.SetField("typ_dokumentu", "WZ")


To samo tyczy się kontrahenta - W forte kod:

Kod:
      dok_mg.BeginSection("DaneKh")
      dok_mg.SetField("KhKod",KodKontrahenta)//Kod_kontrahenta(rec_dok_wz(1).idkhdokwz) )      
      dok_mg.EndSection()


Jeśli uruchamiam to w symfonii muszę wyremować BeginSection i Endsection , inaczej nie bierze mi kontrahenta.


2015-06-04, 08:13
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: [HMF] Zmiana numeru dokumentu AMbasic
Ta wiadomość była pomocna.(1)
Działający przykład przy włączonej ręcznej numeracji w parametrach pracy.

Kod:
IoRec dok_mg

      dok_mg.SetField("typDk", "WZ")
      dok_mg.SetField("seria", "sWZ")
      dok_mg.SetField("dzial", "CEN")
      dok_mg.SetField("numerWSerii", "10")

            dok_mg.BeginSection("Pozycja dokumentu")   
               dok_mg.SetField("Kod", "Pralka WAR super" )
               dok_mg.SetField("Lp", "1" )
            dok_mg.EndSection()

long id_dk_buf = ImportMg(dok_mg)

print WystawDokumentMagazynowy (id_dk_buf,1)

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2015-06-05, 11:27
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 7 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. HMF 2010 utworzenie dokumentu ZK i WZ w AmBasic'u

w Programowanie

di3

4

3511

2011-03-29, 11:00

di3 Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. AMBASIC ERP HMF Handel Rozliczenie pieniężne dokumentu

w Programowanie

KrzysztofK

1

2494

2020-05-11, 16:08

KrzysztofK Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Zmiana rodzaju dokumentu z AmBasic

w Programowanie

user_Sam

12

5441

2013-09-20, 11:20

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Edycja numeru dokumentu

w Programowanie

wojtek

0

2864

2018-07-24, 09:52

wojtek Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 19 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