mojaSymfonia FORUM https://forum.mix-soft.pl/ |
|
Edycja numeru dokumentu https://forum.mix-soft.pl/viewtopic.php?f=15&t=8733 |
Strona 1 z 1 |
Autor: | wojtek [ 2018-07-24, 09:52 ] |
Tytuł: | Edycja numeru dokumentu |
Witam, Jak za pomocą BIORec edytować numer wystawionego dokumentu? Trzeba w jakiś sposób ustawić tryb QUIET tylko nie wiem jak. Poniżej Kod przy którym program się wiesza... Kod: Int Sub Opis_FWewn(Long IdDk) Dispatch xDz = xFactory.NewObject("BDokumentZk") Dispatch xBIORec = xFactory.NewObject("BIORec") Dispatch xFunkcja = xFactory.NewObject("BFunkcja") Dispatch xPoz xDz.Load("id=" + (Using"%l",IdDk)) string sOpis string sNrObcy string sNumer int k Dispatch xP //if xDz.typDk == "FWO" || xDz.typDk == "FWN" then if xDz.czyFakturaWewnetrzna then If !xDz.czyKorekta >0 Then sNumer = xDz.numer for k = 1 to k>xDZ.powiazaneDk.count() xP = xDz.powiazaneDk.item(k) if xP.dkId then sNrObcy = DokPowiazany(xP.dkId) endif next k sOpis = sNumer +" "+sNrObcy xBIORec.SetField("id", Using "%l", xDz.id) xBIORec.SetField("numer", sOpis) xDz.UstawNumerDK xFactory.SetSuperUser(1) xFunkcja.EditZK(xBIORec) xFactory.SetSuperUser(0) EndIf endif EndSub |
Strona 1 z 1 | Strefa czasowa UTC+1godz. [letni] |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |