REW CTRL F9

REW_CTRL_F9 - это программа из справочника R266

Вызывается по CTRL+F9 из документа "Пересортица", этаж 2

Текст

local fld, _, _2, sql, DescFld, DescHK, DescTbl, prog1, sr, ind

fld := ' _1,N,1; _2,C,4; _3,N,5; _4,N,14,4; _5,N,14,4; _6,N,14,4; _7,N,5;;
  _8,C,10; _9,C,50; '

if Empty( AUTOID )
  return
endif

prog1 := GetProgText( '_5_PostBlk' )

sql := [ Select REFL2, ANAL2, EAMNT, ESUM ;
  From REPS] + Ret_f_ext() + [ ;
  Where SHIFT = '] + DOCS1->DSHIFT + [' and REFL1 = '] + DOCS1->DREFL1 + [' and ;
    ANAL1 = ] + DOCS1->DANAL1 + [ and ANAL2 <> 0 and EAMNT <> 0 ]

try
  _  := CreateTmpFile( fld, '_' , ~IsFreeDel := true )
  _2 := CreateTmpFile( fld, '_2', ~IsFreeDel := true )

  SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _2, _3, ;
    _5, _6 ) ] + sql, OpdataPath )

  // r08
  sql := [ Update _2 ;
    Set _9 = Left( PNAME, 50 ), _7 = KODED ;
    From ] + TmpFilePath( _2 ) + [ _2 ;
      left outer join R08 ON _3 = KOD ;
    Where _2 = 'R08 '  ]
  SimpleSql( sql, ReflisPath )

  // r11
  sql := [ Update _2 ;
    Set _9 = Left( PNAME, 50 ), _7 = KODED ;
    From ] + TmpFilePath( _2 ) + [ _2 ;
      left outer join R11 ON _3 = KOD ;
    Where _2 = 'R11 '  ]
  SimpleSql( sql, ReflisPath )

  sql := [ Update _2 ;
    Set _4 = Round( _6 / _5, 2 ) ;
    From ] + TmpFilePath( _2 ) + [ _2 ]
  SimpleSql( sql, TempPath )

  // _2 -> _
  sql := [ Select TOP 100 PERCENT * ;
    From ] + TmpFilePath( _2 ) + [ ;
    Order by _4 ]
  SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [ ] + sql, OpdataPath )

  // r09
  sql := [ Update _ ;
    Set _8 = PNAME ;
    From ] + TmpFilePath( _ ) + [ _ ;
      left outer join R09 ON _7 = KOD ]
  SimpleSql( sql, ReflisPath )

  ( _ )->( DbGoTop() )

  ind := CreateIndex( _, '_9', '_9' )
  ( _ )->( OrdSetFocus( '_9' ) )

  DescFld := { ;
    { { 'FldName', '_3' }, { 'FldTitl', 'Код'          }, { 'PreBlk', false } }, ;
    { { 'FldName', '_9' }, { 'FldTitl', 'Наименование' }, { 'PreBlk', false } }, ;
    { { 'FldName', '_8' }, { 'FldTitl', 'ед.изм.'      }, { 'PreBlk', false } }, ;
    { { 'FldName', '_5' }, { 'FldTitl', 'Количество'   }, { 'PostBlk', prog1 } }, ;
    { { 'FldName', '_4' }, { 'FldTitl', 'Цена'         }, { 'PreBlk', false } }, ;
    { { 'FldName', '_6' }, { 'FldTitl', 'Сумма'        }, { 'PreBlk', false } } ;
  }

  DescHK := { ;
    { ;
      { 'KeyName', 'F7'      }, ;
      { 'TEXT'   , 'В накл.' }, ;
      { 'BLK', 'CloseForm( GetForm(), false ), SetProperty( "ModalResult", 1, GetForm() )' } ;
    }, ;
    { { 'KeyName', 'F6' } }, ;
    { { 'KeyName', 'F8' } }, ;
    { { 'KeyName', 'Enter'          }, ;
      { 'TEXT'   , 'Оборот'         }, ;
      { 'BLK'    , 'gridedit(true)' } ;
    } ;
  }

  DescTbl := { ;
    { 'Title', 'Выберите одну номенклатуру по Alt+F1 ( или измените количество ) и нажмите F7' },;
    { 'ResultExpr', 'SelRows()' }, ;
    { 'CurLineStr', 'RealName( _2, _3, true )' }, ;
    { 'ShowType'  , 2 } ;
  }

  sr := MyGrid( _, DescTbl, DescFld, DescHK, ~Modal := true )

  if !Empty( sr )
    ( _ )->( DbGoTo( sr[1] ) )
    ( _ )->_1 := 1

    // KREFL2 - справочник
    // KANAL2 - код
    // NATTR1 - количество
    KREFL2 := ( _ )->_2
    KANAL2 := ( _ )->_3
    NATTR1 := ( _ )->_5
  endif

finally
  DeleteTmpIndex( _, ind )
  CloseTable( _ )
  CloseTable( _2 )
end

// _1 - признак выбора
// _2 - справочник
// _3 - код
// _4 - цена
// _5 - количество
// _6 - сумма
// _7 - единица измерения, код
// _8 - единица измерения, наименование
// _9 - наименование

<_5_PostBlk>

if NewValue <> OldValue
  _6 := Round( val( NewValue ) * _4, 2 )
endif

SetSelRows( Recno(), true )

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

Полезные функции

Функции Delphi