Poniżej treść standardowego raportu.
//"zmkod_kh.sc","Zmiana kodu kontrahenta","\System\Pomocnicze\",0,1.0.1,SYSTEM
//////////////////////////////////////////////////////////////////////
// Zmiana kodu kontrahenta
// zmkod_kh.sc
#define BEZ_KODOW 1
dispatch xPr=xFactory.GetObject("BProgram")
if xPr.liczbaUzytkownikow>1 then error "Nie można wykonać raportu.Przed wykonaniem raportu prosimy wylogować pozostałych użytkowników programu."
#include "Wydruki - include"
string sUPDATE="UPDATE %s SET %s='%s' WHERE %s"
string sKH_before,sKH_after,sKH_beforeOrg,sKH_afterOrg
long lKH_id
dispatch xKh
int btn_choose,i
string sWARUNEK
dispatch cmdUpdate="ADODB.Command"
dispatch connUpdate=GetAdoConnection()
cmdUpdate.ActiveConnection=connUpdate
int sub UpdateTabeli(string sTabela,string sPole,string sWarunek)
cmdUpdate.CommandText=using sUPDATE,sTabela,sPole,sKH_after,sWarunek
cmdUpdate.Execute()
endsub
#include "Wybór obiektu - include"
int sub WyborKontrahenta()
Enable(btn_choose,0)
save
string kod = ChooseObject(sKH_before,"BKh","BKartParamsKh","kontrahenta")
if kod != "" then sKH_before = kod :load
Enable(btn_choose,1)
endsub
int sub CheckData()
CheckData=1
Save
sKH_before=NormalizeStr(sKH_before)
sKH_after=NormalizeStr(sKH_after)
if Len(sKH_before)>40 then sKH_before=mid(sKH_before,1,40)
if Len(sKH_after)>40 then sKH_after=mid(sKH_after,40)
Load
if !sKh_before || !sKH_after then Message "Nie podano kodu kontrahenta" : exit
if sKH_before==sKH_after then message "Nowy kod jest taki sam jak aktualny." : exit
if !(xKH=GetObjByKod("BKh",sKH_before)) then Message "Kontrahent o kodzie '"+sKH_before+"' nie istnieje." : exit
if GetObjByKod("BKh",sKH_after) then Message "Kontrahent o kodzie '"+sKH_after+"' już istnieje." : exit
CheckData=2
endsub
form " " +GetReportName(),300,170
Group "Stary &kod kontrahenta",10,10,275,50
Edit "",sKH_before,20,30,180,18
Group "&Nowy kod kontrahenta",10,60,275,50
Edit "",sKH_after,20,80,255,18
button "&OK",130,114,70,23,CheckData()
button "&Anuluj",210,114,70,23,-1
btn_choose = Button "&Wybierz...",210,28,60,22,WyborKontrahenta()
if execform==-1 then Error ""
Arg "'","''"
buf=sKH_after
Replace Arg
sKH_afterOrg=buf
buf=sKH_before
Replace Arg
sKH_beforeOrg=buf
Delete Arg
swap sKH_after,sKH_afterOrg
swap sKH_before,sKH_beforeOrg
lKH_id = xKh.id
connUpdate.BeginTrans()
//dokumenty
PopUp(1,"Zmiana kodów w dokumentach handlowych")
sWARUNEK="(khid=%l"+IIF(BEZ_KODOW,"%s)"," AND khkod='%s')")
sWARUNEK=using sWARUNEK,lKH_id,IIF(BEZ_KODOW,"",sKH_before)
UpdateTabeli("DK","khkod",sWARUNEK)
PopUp(1,"Zmiana kodów w dokumentach zamówień")
UpdateTabeli("ZO","khkod",sWARUNEK)
PopUp(1,"Zmiana kodów w dokumentach magazynowych")
UpdateTabeli("MG","khkod",sWARUNEK)
PopUp(1,"Zmiana kodów w dokumentach płatności")
sWARUNEK=sWARUNEK+" AND (flag & 0x4000) = 0"
UpdateTabeli("PN","khkod",sWARUNEK)
PopUp(1,"Zmiana kodów w dokumentach handlowych")
sWARUNEK="(odid=%l"+IIF(BEZ_KODOW,"%s)"," AND odkod='%s')")
sWARUNEK=using sWARUNEK,lKH_id,IIF(BEZ_KODOW,"",sKH_before)
UpdateTabeli("DK","odkod",sWARUNEK)
PopUp(1,"Zmiana kodów w dokumentach zamówień")
UpdateTabeli("ZO","odkod",sWARUNEK)
/*
//baza zz
PopUp(1,"Zmiana kodów w bazie związków")
sWARUNEK="(baza1=20 AND id1=%l"+IIF(BEZ_KODOW,"%s)"," AND kod1='%s')")
sWARUNEK=using sWARUNEK,lKH_id,IIF(BEZ_KODOW,"",sKH_before)
UpdateTabeli("ZZ","kod1",sWARUNEK)
sWARUNEK="(baza2=20 AND id2=%l"+IIF(BEZ_KODOW,"%s)"," AND kod2='%s')")
sWARUNEK=using sWARUNEK,lKH_id,IIF(BEZ_KODOW,"",sKH_before)
UpdateTabeli("ZZ","kod2",sWARUNEK)
*/
//zmiana w bazie RZ
PopUp(1,"Zmiana kodu w bazie rezerwacji")
sWARUNEK="idkh=%l"
sWARUNEK=using sWARUNEK,lKH_id
UpdateTabeli("RZ","kodkh",sWARUNEK)
//zmiana kodu w bazie adresowej
PopUp(1,"Zmiana kodu w bazie adresowej")
UpdateTabeli("AD","kod",sWARUNEK)
// rekord w bazie KH
sWARUNEK="id=%l"
sWARUNEK=using sWARUNEK,lKH_id
UpdateTabeli("KH","kod",sWARUNEK)
connUpdate.CommitTrans()
message "Kod kontrahenta '"+sKH_beforeOrg+"' został zmieniony na '"+sKH_afterOrg+"'.\nAby zaktualizować dane należy zakończyć pracę z Firmą i otworzyć ją ponownie."
NoOutput()[/size][/size][/size][/size][/i][/i]
|
