forum.clarionlife.net

Код: Выделить всё

LIST,AT(4,46,422,231),USE(?SprMatList),VSCROLL,ALRT(EnterKey),ALRT(InsertKey),ALRT(DeleteKey), |
           ALRT(MouseLeft2),FORMAT('0R|M~Spec~L(2)@n3@9R|MI@S3@27R|M*~Код~C@N_6@150L(2)|M*~Наименование~C(0)@s150@3' &|
           '5L(2)|M*~<185> группы~C(0)@s6@71L|M*~Б/С~C@s20@80L(1)|M*~Получатель~C(2)@s20@40R|M*~' &|
           'Цена~C@n10.2@0R|M~SprMat_ID~L(2)@n-14@'),FROM(SprMatQueue)

Код: Выделить всё

SprMatQueue   queue
Spec          like(MAT:Spec)
Flag          like(MAT:Flag)
Kod           like(MAT:Kod)
Name          like(MAT:Name)
NoGr          like(MAT:NoGr)
BS            like(MAT:BS)
Poluch        like(MAT:Poluch)
Cena          like(MAT:Cena)
SprMat_ID     like(MAT:SprMat_ID)
              end

Код: Выделить всё

 ?SprMatList{proplist:locator , SprMatQueue.Kod} = 1
или 
   ?SprMatList{proplist:locator , MAT:Kod} = 1

Код: Выделить всё

  j#=3
  loop i#=Key0 to Key9
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end
  loop i#=AKey to ZKey
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end
  loop i#=Shift0 to Shift9
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end
  loop i#=ShiftA to ShiftZ
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end
  ?LOC:Queue{prop:Alrt,j#} = MinusKey
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = ShiftMinus
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = PlusKey
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = ShiftPlus
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = SpaceKey
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = SlashKey
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = ShiftSlash
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = BSKey
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = AstKey
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = ShiftAst
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = DecimalKey
  j# += 1
  ?LOC:Queue{prop:Alrt,j#} = ShiftDecimal
  j# += 1
  loop i#=KeyPad0 to KeyPad9
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end
  loop i#=ShiftPad0 to ShiftPad9
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end
  loop i#=186 to 192
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end
  loop i#=219 to 222
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end
  loop i#=442 to 448
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end
  loop i#=475 to 478
    ?LOC:Queue{prop:Alrt,j#} = i#
    j# += 1
  end

Код: Выделить всё

              if keycode()=BSKey
                if LOC:LocatorStringLength
                  LOC:LocatorString[(LOC:LocatorStringLength):(LOC:LocatorStringLength)] = ''
                  LOC:LocatorStringLength -= 1
                end
              else
                LOC:LocatorString = LOC:LocatorString[1:(LOC:LocatorStringLength)]&chr(keychar())
                LOC:LocatorStringLength += 1
              end
              display(?LOC:LocatorString)
              loop i#=1 to records(LOC:Queue)
                get(LOC:Queue,i#)
                if LOC:Queue.LOC:ObjectName[1:(LOC:LocatorStringLength)]=LOC:LocatorString[1:(LOC:LocatorStringLength)]
                  select(?LOC:Queue,i#)
                  break
                end
              end

Код: Выделить всё

Browsing SQL-Based Tables
 Top  Previous  Next  
This topic presents some techniques that should be followed when browsing SQL-based tables within your generated applications.

1)

You should not create a Browse procedure using an SQL table without a Key defined in the Dictionary. 

2)

You not only have to have a key defined, but the sort order has to be unique.
Without a unique Key defined you can have what we refer to as  ghosting effect, whereby at runtime paging up and down the displayed list can create duplicates in the Queue. So make sure that all your browses use a Key with a unique sort sequence. All Key defintions should include a unique column.

For example, if you had a unique EmployeeID component, and another Name key based on LastName and FirstName, add the unique EmployeeID as the third component of the name key.