Версия 16:54, 10 февраля 2017

Документ NAT

Диспетчерская (все заказы) - Документы - Предварительный почасовой заказ - Торговый дом "Настюша"

NATTR2 Пост-блок

if NewValue <> OldValue

 Field->K1NAME := Left( K1NAME, 1 ) + '1' + SubStr( K1NAME, 3, 6 )

endif

Цвета

parameters fld

if fld = 'NATTR5' or fld = 'CATTR5'
  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 = 'NATTR8'
    if SubStr( K1NAME, 8, 1 ) = '1'
      result := { 'clRed', 'clRed' }
    endif
  endif
endif

if DANAL1 <> DOCS1->DANAL1
  { 'clRed', 'clRed' }
endif

Смотрите также

NAT