Предварительный почасовой заказ — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Цвета)
м
Строка 24: Строка 24:
 
   if fld = 'NATTR2'
 
   if fld = 'NATTR2'
 
     if SubStr( K1NAME, 2, 1 ) = '1'
 
     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' }
 
       result := { 'clRed', 'clRed' }
 
     endif
 
     endif

Версия 16:49, 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 = '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