Предварительный почасовой заказ — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 2: | Строка 2: | ||
[[Диспетчерская]] (все заказы) - [[Документы]] - Предварительный почасовой заказ - Торговый дом "Настюша" | [[Диспетчерская]] (все заказы) - [[Документы]] - Предварительный почасовой заказ - Торговый дом "Настюша" | ||
| + | |||
| + | = Цвета = | ||
| + | |||
| + | parameters fld | ||
| + | |||
| + | if fld = 'NATTR5' or fld = 'CATTR5' | ||
| + | result := { 'clWhite', 'clBlue' } | ||
| + | endif | ||
| + | |||
| + | if fld = 'NATTR10' or fld = 'CATTR10' | ||
| + | result := { 'clWhite', 'clBlue' } | ||
| + | endif | ||
| + | |||
| + | if val( K1NAME ) > 0 | ||
| + | if fld = 'NATTR1' | ||
| + | if Left( K1NAME, 1 ) = '1' | ||
| + | result := { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | endif | ||
| + | |||
| + | if fld = 'NATTR2' | ||
| + | if SubStr( K1NAME, 2, 1 ) = '1' | ||
| + | result := { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | endif | ||
| + | |||
| + | if fld = 'NATTR3' | ||
| + | if SubStr( K1NAME, 3, 1 ) = '1' | ||
| + | result := { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | endif | ||
| + | |||
| + | if fld = 'NATTR4' | ||
| + | if SubStr( K1NAME, 4, 1 ) = '1' | ||
| + | result := { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | endif | ||
| + | |||
| + | if fld = 'NATTR5' | ||
| + | if SubStr( K1NAME, 5, 1 ) = '1' | ||
| + | result := { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | endif | ||
| + | |||
| + | if fld = 'NATTR6' | ||
| + | if SubStr( K1NAME, 6, 1 ) = '1' | ||
| + | result := { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | endif | ||
| + | |||
| + | if fld = 'NATTR7' | ||
| + | if SubStr( K1NAME, 7, 1 ) = '1' | ||
| + | result := { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | endif | ||
| + | |||
| + | if fld = 'NATTR8' | ||
| + | if SubStr( K1NAME, 8, 1 ) = '1' | ||
| + | result := { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | endif | ||
| + | endif | ||
| + | |||
| + | if DANAL1 <> DOCS1->DANAL1 | ||
| + | { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | |||
| + | if DATDOC <> DOCS1->DATDOC | ||
| + | { 'clRed', 'clRed' } | ||
| + | endif | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[NAT]] | [[NAT]] | ||
Версия 16:48, 10 февраля 2017
Документ NAT
Диспетчерская (все заказы) - Документы - Предварительный почасовой заказ - Торговый дом "Настюша"
Цвета
parameters fld
if fld = 'NATTR5' or fld = 'CATTR5'
result := { 'clWhite', 'clBlue' }
endif
if fld = 'NATTR10' or fld = 'CATTR10'
result := { 'clWhite', 'clBlue' }
endif
if val( K1NAME ) > 0
if fld = 'NATTR1'
if Left( K1NAME, 1 ) = '1'
result := { 'clRed', 'clRed' }
endif
endif
if fld = 'NATTR2'
if SubStr( K1NAME, 2, 1 ) = '1'
result := { 'clRed', 'clRed' }
endif
endif
if fld = 'NATTR3'
if SubStr( K1NAME, 3, 1 ) = '1'
result := { 'clRed', 'clRed' }
endif
endif
if fld = 'NATTR4'
if SubStr( K1NAME, 4, 1 ) = '1'
result := { 'clRed', 'clRed' }
endif
endif
if fld = 'NATTR5'
if SubStr( K1NAME, 5, 1 ) = '1'
result := { 'clRed', 'clRed' }
endif
endif
if fld = 'NATTR6'
if SubStr( K1NAME, 6, 1 ) = '1'
result := { 'clRed', 'clRed' }
endif
endif
if fld = 'NATTR7'
if SubStr( K1NAME, 7, 1 ) = '1'
result := { 'clRed', 'clRed' }
endif
endif
if fld = 'NATTR8'
if SubStr( K1NAME, 8, 1 ) = '1'
result := { 'clRed', 'clRed' }
endif
endif
endif
if DANAL1 <> DOCS1->DANAL1
{ 'clRed', 'clRed' }
endif
if DATDOC <> DOCS1->DATDOC
{ 'clRed', 'clRed' }
endif
