//"mixszltw.sc","Szybkie łączenie towarów",12605,0,1.0.0,SYSTEM
//" Towary",12600,16,14

#define ZLISTY
#include "Połączenie towarów"

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

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

   button "&Anuluj",210,120,70,23,-1

   button "Zamień", 50, 120, 70, 23, Zamien()