Znajdź raport : Raporty → System → Pomocnicze →
Zmiana kodu towaru
ZNAJDŹ :
Kod:
form " " +GetReportName(),375,170
Group "Stary &kod towaru",10,10,350,50
ed1=Edit "",sTW_before,20,30,255,18
Group "&Nowy kod towaru",10,60,350,50
ed2=Edit "",sTW_after,20,80,325,18
button "&OK",130,114,70,23,CheckData()
button "&Anuluj",210,114,70,23,-1
btn_choose = Button "&Wybierz...",285,28,60,22,WyborTowaru(btn_choose)
if execform(Oncommand)==-1 then Error ""
ZAMIEŃ NA :
Kod:
//form " " +GetReportName(),375,170
//
// Group "Stary &kod towaru",10,10,350,50
// ed1=Edit "",sTW_before,20,30,255,18
//
// Group "&Nowy kod towaru",10,60,350,50
// ed2=Edit "",sTW_after,20,80,325,18
//
// button "&OK",130,114,70,23,CheckData()
// button "&Anuluj",210,114,70,23,-1
//
// btn_choose = Button "&Wybierz...",285,28,60,22,WyborTowaru(btn_choose)
//
//if execform(Oncommand)==-1 then Error ""
sTW_before = Arg0
sTw_after = Arg1
ZNAJDŹ:
Kod:
message "Kod towaru '"+sTW_beforeOrg+"' został zmieniony na '"+sTW_after+"'."
ZAMIEŃ NA:
Kod:
//message "Kod towaru '"+sTW_beforeOrg+"' został zmieniony na '"+sTW_after+"'."
Utwórz nowy raport : Raporty → Kartoteki → Raporty z menu → Towary →
Seryjna zmiana kodu towaruWKLEJ
Kod:
int err
basetw tw
string sTW_before, sTW_after
err = SetTaggedPos(FS)
while err!=0
tw.GetRecById( GetLineId( err ) )
buf = tw.GetField("kod")
sTW_before = buf
replace " ", ""
sTW_after = buf
if sTW_before != sTW_after then
Run("Zmiana kodu towaru","",sTW_before, sTW_after)
endif
err = SetTaggedPos(NX)
wend
Zaznacz w kartotece towary, które Cię interesują.
Kliknij prawym klawiszem myszy.
Wybierz opcję : Seryjna zmiana kodu towaru.
W efekcie działania raportu dla wszystkim zaznaczonych towarów zostanie usunięta pierwsza spacja z kodu towaru. Czyli przykładowo R 99687 zostanie zmienione na R99687
UWAGA!!
Raport ingeruje w dane.
Używasz tego rozwiazania na własną odpowiedzialność.
Zrób kopię bezpieczeństwa przed robieniem czegokolwiek.
