Версия 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

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

NAT