forum.clarionlife.net

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

File field:
SQL_Goods:GoodsName

does not begin with 0

Condition:
GLO:ShowSHGoods=0

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

!Name(MSSQL,'NK_Goods','NK_Goods'),DATA(MAV) 
SQL_Goods FILE,DRIVER('ODBC'),PRE(SQL_Goods),BINDABLE,THREAD
!!> IDENT(63),USAGE(File)
NK_Goods_pk KEY(SQL_Goods:GoodsID),OPT,PRIMARY
!!> IDENT(279)
NK_Goods_idx_Name KEY(SQL_Goods:GoodsName),NOCASE,OPT
!!> IDENT(689)
Record                   RECORD
[SCREENCONTROLS]
! PROMPT('Goods ID:'),USE(?SQL_Goods:GoodsID:Prompt)
! ENTRY(@n-14),USE(SQL_Goods:GoodsID),REQ,READONLY
[REPORTCONTROLS]
! STRING(@n-14),USE(SQL_Goods:GoodsID)
GoodsID                    LONG
!!> IDENT(1043),VALID(NONZERO),INITIAL('SELECT @@IDENTITY'),PROMPT('Goods ID:'),HEADER('Goods ID'),PICTURE(@n-14),READONLY
[SCREENCONTROLS]
! PROMPT('Goods Name:'),USE(?SQL_Goods:GoodsName:Prompt)
! ENTRY(@s50),USE(SQL_Goods:GoodsName),REQ
[REPORTCONTROLS]
! STRING(@s50),USE(SQL_Goods:GoodsName)
GoodsName                  STRING(50)
!!> IDENT(1045),VALID(NONZERO),PROMPT('Goods Name:'),HEADER('Goods Name'),PICTURE(@s50)
[SCREENCONTROLS]
! PROMPT('Sale Price:'),USE(?SQL_Goods:SalePrice:Prompt)
! ENTRY(@n-21.2),USE(SQL_Goods:SalePrice)
[REPORTCONTROLS]
! STRING(@n-21.2),USE(SQL_Goods:SalePrice)
SalePrice                  DECIMAL(15,2)
!!> IDENT(1047),PROMPT('Sale Price:'),HEADER('Sale Price'),PICTURE(@n-21.2)
[SCREENCONTROLS]
! PROMPT('Guarantee:'),USE(?SQL_Goods:Guarantee:Prompt)
! ENTRY(@n-14),USE(SQL_Goods:Guarantee)
[REPORTCONTROLS]
! STRING(@n-14),USE(SQL_Goods:Guarantee)
Guarantee                  LONG
!!> IDENT(1049),PROMPT('Guarantee:'),HEADER('Guarantee'),PICTURE(@n-14)
[SCREENCONTROLS]
! PROMPT('Group ID:'),USE(?SQL_Goods:GroupID:Prompt)
! ENTRY(@n-14),USE(SQL_Goods:GroupID)
[REPORTCONTROLS]
! STRING(@n-14),USE(SQL_Goods:GroupID)
GroupID                    LONG
!!> IDENT(1051),PROMPT('Group ID:'),HEADER('Group ID'),PICTURE(@n-14)
[SCREENCONTROLS]
! PROMPT('Info:'),USE(?SQL_Goods:Info:Prompt)
! ENTRY(@s100),USE(SQL_Goods:Info)
[REPORTCONTROLS]
! STRING(@s100),USE(SQL_Goods:Info)
Info                       STRING(100)
!!> IDENT(1053),PROMPT('Info:'),HEADER('Info'),PICTURE(@s100)
[SCREENCONTROLS]
! PROMPT('Goods Type:'),USE(?SQL_Goods:GoodsType:Prompt)
! ENTRY(@n3),USE(SQL_Goods:GoodsType)
[REPORTCONTROLS]
! STRING(@n3),USE(SQL_Goods:GoodsType)
GoodsType                  BYTE
!!> IDENT(1055),PROMPT('Goods Type:'),HEADER('Goods Type'),PICTURE(@n3)
                         END
                       END

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

CREATE TABLE [dbo].[NK_Goods] (
  [GoodsID] int IDENTITY(1, 1) NOT NULL,
  [GoodsName] char(50) COLLATE Cyrillic_General_CI_AS NOT NULL,
  [SalePrice] numeric(15, 2),
  [Guarantee] int,
  [GroupID] int,
  [Info] char(100) COLLATE Cyrillic_General_CI_AS,
  [GoodsType] tinyint,
  CONSTRAINT [NK_Goods_idx_Name] UNIQUE ([GoodsName]),
  CONSTRAINT [NK_Goods_pk] PRIMARY KEY NONCLUSTERED ([GoodsID])
)
ON [PRIMARY]