Devart Forum

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

procedure TADDatasetFeaturesEh.FillSTFilterListDataValues(AGrid: TCustomDBGridEh;
  AColumn: TColumnEh; AItems: TStrings);
Var
  oDS: TADAdaptedDataSet;
  oField: TField;
  oData: TStringList;
  i: Integer;
  oCol: TADDatSColumn;
begin
  oDS := AGrid.DataSource.DataSet as TADAdaptedDataSet;
  if bFilterWithValues and (AColumn.STFilter.ListSource = nil) and (not oDS.IsEmpty) then begin
    oField := oDS.FindField(AColumn.FieldName);
    if oField <> nil then begin
      oCol := oDS.GetFieldColumn(oField);
      if oCol <> nil then begin
        oData := TStringList.Create;
        oData.CaseSensitive := True;
        oData.Sorted := True;
        oData.Duplicates := dupIgnore;
        try
          for i := 0 to oDS.Table.Rows.Count - 1 do
            oData.Add(VarToStr(oDS.Table.Rows[i].ValueI[oCol.Index]));
          oData.Sort;
          AItems.AddObject('-', PopupListboxItemEhLine);
          AItems.AddStrings(oData);
        finally
          oData.Free;
        end;
      end;
    end;
  end;
end;

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

procedure TDM.drvDogGetBackUpdatedValues(DataDriver: TADODataDriverEh;
  MemRec: TMemoryRecordEh; Command: TADOCommandEh; ResDataSet: TDataSet);
begin
  if Assigned(ResDataSet) then
  begin
    MemRec.DataValues['dogovor_id', dvvValueEh]:= ResDataSet.FieldByName('dogovor_id').Value;
    MemRec.DataValues['hourcost', dvvValueEh]:= ResDataSet.FieldByName('hourcost').Value;
  end;
end;

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

CREATE PROCEDURE [dbo].[SchetSelect] (
	@KOD INT
)
AS
BEGIN
	SELECT 
		Schet.Kod,
		KodBaseLPU,
		God,
		Mes,
		NSchet,
		DSchet,
		SummaVyst,
		VidPom,
		CASE VidPom 
			WHEN 1 THEN 'стац'
			WHEN 2 THEN 'д.стац'  
			WHEN 3 THEN 'пол'  
			WHEN 4 THEN 'стом'
			WHEN 5 THEN 'с.п.'		
			ELSE '-' 
		END as VidPomName,
		Dict_Ref_BaseLPU.Naim
    FROM 
		Schet
    JOIN Dict_Ref_BaseLPU ON 
		Dict_Ref_BaseLPU.Kod = Schet.KodBaseLPU
	WHERE 
		((@KOD is NULL) OR
		(Schet.Kod=@KOD))
END

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

CREATE PROCEDURE [dbo].[InsertSchet] (
	@NSchet nvarchar(20),
	@SummaVyst numeric(15, 2)
)
AS
BEGIN
	SET NOCOUNT ON;
	
	DECLARE @KOD int
	select @KOD=MAX(Kod)+1 from Schet
	
	INSERT INTO Schet (
		Kod,
		KodBaseLPU,
		God,
		Mes,
		NSchet,
		DSchet,
		SummaVyst,
		VidPom )
	VALUES (
		@KOD,
		1,
		CONVERT(int, YEAR(GETDATE())),
		CONVERT(int, MONTH(GETDATE())),
		@NSchet,
		GETDATE(),
		@SummaVyst,
		3)
		
	exec dbo.SchetSelect @KOD


END