Re: Szybkie połączenie towarów - HMP 2011.1.a
Dodaj raport do katalogu raportów
Raporty -> Kartoteki -> Raporty z menu -> Towary
Kod:
//"mixszltw.sc","Szybkie łączenie towarów",12605,0,1.0.0,SYSTEM
//" Towary",12600,16,14
#define ZLISTY
#include "Połączenie towarów"
Otwórz raport
Raporty -> System -> Pomocnicze -> Połączenie towarów
ZNAJDŹ:
Kod:
int sub OncommandMain(int id,int msg)
if msg==0x300 && (id==btn_setFocus(1) || id==btn_setFocus(2)) then
save
If Len(sTW_edit(1))>40 || Len(sTW_edit(2))>40 then
Message "Kod nie może być dłuższy niż 40 znaków {{icon=S}}"
if id==btn_setFocus(1) then
sTW_edit(1)=Mid(sTW_edit(1),1,40)
load
else
sTW_edit(2)=Mid(sTW_edit(2),1,40)
load
endif
endif
endif
endsub
WSTAW POD:
Kod:
int sub Zamien()
string sTmp
sTmp = GetVal(btn_setFocus(1))
SetVal(btn_setFocus(1),GetVal(btn_setFocus(2)))
SetVal(btn_setFocus(2), sTmp)
endsub
#ifdef ZLISTY
int iPierwszy = SetTaggedPos( FS )
int iOstatni = SetTaggedPos( LS )
if iPierwszy == iOstatni then
message "Zaznacz więcej niż jeden towar." :error ""
endif
buf = GetLine(iPierwszy)
find regular "{*}\t{*}\t{*}\t"
sTW_edit(1)= ( regular 2 )
buf = GetLine(iOstatni)
find regular "{*}\t{*}\t{*}\t"
sTW_edit(2)= ( regular 2 )
#endif
ZNAJDŹ:
Kod:
button "&Anuluj",210,120,70,23,-1
WSTAW POD:
Kod:
button "Zamień", 50, 120, 70, 23, Zamien()
Po tych zmianach w kartotece towarów pod prawym klawiszem myszy dostępna jest nowa funkcjonalność
Załącznik:
hmszlacz01.jpg [ 50.3 KiB | Przeglądany 5441 razy ]
Został też dodany nowy przycisk, żeby ułatwić wybór który towar ma zostać podłączony do ktorego.
Załącznik:
hmszlacz02.jpg [ 15.61 KiB | Przeglądany 5441 razy ]
