forum.clarionlife.net

Код: Выделить всё

If ~Pos:flgCheck
    ?OLE1{'DeviceEnabled'}=True
    If ?OLE1{'ResultCode'}=0
        If ?OLE1{'GetStatus'}=0
            If  ?OLE1{'CheckState'}<>0 Then ?OLE1{'CancelCheck'}. 
                l:Summa=0.01
                ?OLE1{'Password'}='1'
                ?OLE1{'Mode'}=1
                ?OLE1{'SetMode'}
                ?OLE1{'Name'}='Платные услуги'
                ?OLE1{'Price'}=l:Summa
                ?OLE1{'Quantity'}=1
                !?OLE1{'Department'}=1
                ?OLE1{'Registration'}
                !---- оплата ----------  
                ?OLE1{'Summ'}=l:Summa
                ?OLE1{'TypeClose'}=0
                ?OLE1{'Payment'}
                ?OLE1{'CloseCheck'}
                Pos:flgCheck=1
                Access:Pos.Update()
        end
    end
end

Код: Выделить всё

  ECR.Name = "Молоко";
  ECR.Price = 0.01;
  ECR.Quantity = 1;
  ECR.Department = 1;
  Если ECR.Registration() <> 0 тогда
    Возврат;
  КонецЕсли;