unit MixMaterialMst;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  wItem,
  FireDAC.Stan.Intf,
  FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf,
  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,
  FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
  FireDAC.Phys.PGDef, FireDAC.VCLUI.Wait, FireDAC.Comp.UI, FireDAC.Phys.PG,
  Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
  DCPrijndael, DCPsha256, System.NetEncoding;

type
  TMixMaterialMst = class(TwItem)
  private
    { Private declarations }
    FOrdDate: string;
    FOrdCode: string;
    FIsConfirm: string;
    FDescriptions: string;
    FUnitt: string;
    FQty: string;
    FCustName: string;

    FqMatList: TList;
    FqRelList: TList;

    FqProcList: TList;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TObject);// override;
    destructor Destroy; override;

    class function xGetStrSqlMixToMaterialList(AQuery: TFDQuery; code, prod, stDate, enDate: string): TList;
    class function xGetObjsMixMaterialMstList(AQuery: TFDQuery; code, name, stDate, enDate: string): TList;

    procedure xGetObjsMixMatRtpProcList(AQuery: TFDQuery);
    function LoadFromQueryPtpProcList(AQuery: TFDQuery): TList;
    procedure xFreeAllFqProcList;

    class function xAddSqlMark(velStr: string): string;
    class function LoadFromQuery(AQuery: TFDQuery): TList;
    class function LoadFromSingleQuery(AQuery: TFDQuery): TList;

    class function DecryptAES(const EncText, Key: string): string;//복호화..

    class function xGetStrsDistinctAttr(AQuery: TFDQuery; colName: string): TStrings;
    class function xAddSqlDoubleMark(velStr: String): String;
    class function LoadFromStringsQuery(AQuery: TFDQuery; column: string): TStrings;

    property qMatList: TList read FqMatList write FqMatList;
    property qRelList: TList read FqRelList write FqRelList;

    property qProcList: TList read FqProcList write FqProcList;
  published
    { Published declarations }
    property OrdDate: string read FOrdDate write FOrdDate;
    property OrdCode: string read FOrdCode write FOrdCode;
    property IsConfirm: string read FIsConfirm write FIsConfirm;
    property Descriptions: string read FDescriptions write FDescriptions;
    property Unitt: string read FUnitt write FUnitt;
    property Qty: string read FQty write FQty;
    property CustName: string read FCustName write FCustName;
  end;

implementation

uses
  MixMatMstR, MaterialMst,
  RtpProcessInfo, RtpMaterialInfo;

{ TMixMaterialMst }

constructor TMixMaterialMst.Create(AOwner: TObject);
begin
  FqMatList := TList.Create;
  FqRelList := TList.Create;

  FqProcList := nil;
end;

class function TMixMaterialMst.DecryptAES(const EncText, Key: string): string;
var
  Cipher: TDCP_rijndael;
  Hash: TDCP_sha256;
  KeyHash: array[0..31] of Byte;
  Decoded: string;
begin
  Cipher := TDCP_rijndael.Create(nil);
  Hash := TDCP_sha256.Create(nil);
  try
    Hash.Init;
    Hash.UpdateStr(Key);
    Hash.Final(KeyHash);

    Decoded := TNetEncoding.Base64.Decode(EncText);
    Cipher.Init(KeyHash, 256, nil);
    Result := Cipher.DecryptString(Decoded);
    Cipher.Burn;
  finally
    Hash.Free;
    Cipher.Free;
  end;
end;

destructor TMixMaterialMst.Destroy;
var
  i: Integer;
  tmpObj: TObject;
begin
  if FqMatList <> nil then begin
    i := 0;
    while i < FqMatList.Count do begin
      tmpObj := FqMatList.Items[i];
      if tmpObj <> nil then tmpObj.Free;
      tmpObj := nil;
      FqMatList.Delete(i);
    end;
    FqMatList.Free; FqMatList:=nil;
  end;

  if FqRelList <> nil then begin
    i := 0;
    while i < FqRelList.Count do begin
      tmpObj := FqRelList.Items[i];
      if tmpObj <> nil then tmpObj.Free;
      tmpObj := nil;
      FqRelList.Delete(i);
    end;
    FqRelList.Free; FqRelList:=nil;
  end;

  if FqProcList <> nil then begin
    i := 0;
    while i < FqProcList.Count do begin
      tmpObj := FqProcList.Items[i];
      if tmpObj <> nil then tmpObj.Free;
      tmpObj := nil;
      FqProcList.Delete(i);
    end;
    FqProcList.Free; FqProcList:=nil;
  end;

  inherited;
end;

class function TMixMaterialMst.LoadFromQuery(AQuery: TFDQuery): TList;
var
  i, idx, nidx, nnidx: Integer;
  valName, fieName, obidVal: string;
  curMix, tmpMix: TMixMaterialMst;
  curRel: TMixMatMstR;
  curMat: TMaterialMst;
begin
  Result := TList.Create;

  AQuery.First;
  //중복 컬럼 시작지점 찾기..
  nidx := -1;
  for i := 0 to AQuery.FieldCount-1 do begin
    fieName := AQuery.Fields[i].FieldName;
    if Pos('_1',fieName) > 0 then begin
      nidx := i;
      Break;
    end;
  end;

  nnidx := -1;
  for i := 0 to AQuery.FieldCount-1 do begin
    fieName := AQuery.Fields[i].FieldName;
    if Pos('_2',fieName) > 0 then begin
      nnidx := i;
      Break;
    end;
  end;

  AQuery.First;
  while not AQuery.Eof do begin
    obidVal := AQuery.FieldByName('OBID').AsString;
    //중복 객체 찾기..
    idx := -1;
    for i := 0 to Result.Count - 1 do begin
      tmpMix := TMixMaterialMst(Result[i]);
      if SameText(obidVal, tmpMix.OBID) then begin
        idx := i;
        Break;
      end;
    end;

    if idx = -1 then begin
      curMix := TMixMaterialMst.Create(nil);
      for i := 0 to nidx-1 do begin
        fieName := AQuery.Fields[i].FieldName;
        valName := AQuery.Fields[i].AsString;
        if SameText(fieName, 'OBID') then curMix.OBID := valName
        else if SameText(fieName, 'Name') then curMix.Name := valName
        else if SameText(fieName, 'wClassName') then curMix.wClassName := valName
        else if SameText(fieName, 'CreateDate') then curMix.CreateDate := valName
        else if SameText(fieName, 'CreateTime') then curMix.CreateTime := valName
        else if SameText(fieName, 'CreatorID') then curMix.CreatorID := valName
        else if SameText(fieName, 'IsValid') then curMix.IsValid := valName
        else if SameText(fieName, 'LcStatus') then curMix.LcStatus := valName
        else if SameText(fieName, 'OrdDate') then curMix.OrdDate := valName
        else if SameText(fieName, 'OrdCode') then curMix.OrdCode := valName
        else if SameText(fieName, 'IsConfirm') then curMix.IsConfirm := valName
        else if SameText(fieName, 'Descriptions') then curMix.Descriptions := valName
        else if SameText(fieName, 'Unitt') then curMix.Unitt := valName
        else if SameText(fieName, 'Qty') then curMix.Qty := valName
        else if SameText(fieName, 'CustName') then curMix.CustName := valName;
      end;
      Result.Add(curMix);
    end else begin
      curMix := TMixMaterialMst(Result.Items[idx]);
    end;

    curRel := TMixMatMstR.Create(nil);
    for i := nidx to nnidx-1 do begin
      fieName := StringReplace(AQuery.Fields[i].FieldName, '_1', '', [rfReplaceAll]);
      valName := AQuery.Fields[i].AsString;
      if SameText(fieName, 'OBID') then curRel.OBID := valName
      else if SameText(fieName, 'Name') then curRel.Name := valName
      else if SameText(fieName, 'wClassName') then curRel.wClassName := valName
      else if SameText(fieName, 'CreateDate') then curRel.CreateDate := valName
      else if SameText(fieName, 'CreateTime') then curRel.CreateTime := valName
      else if SameText(fieName, 'CreatorID') then curRel.CreatorID := valName
      else if SameText(fieName, 'IsValid') then curRel.IsValid := valName
      else if SameText(fieName, 'Revision') then curRel.Revision := valName
      else if SameText(fieName, 'LOBID') then curRel.LOBID := valName
      else if SameText(fieName, 'ROBID') then curRel.ROBID := valName
      else if SameText(fieName, 'LClassName') then curRel.LClassName := valName
      else if SameText(fieName, 'RClassName') then curRel.RClassName := valName
      else if SameText(fieName, 'Qty') then curRel.Qty := valName
      else if SameText(fieName, 'QtyEnc') then begin
        curRel.QtyEnc := DecryptAES(valName, 'SecretKey123');
      end else if SameText(fieName, 'Unitt') then curRel.Unitt := valName
      else if SameText(fieName, 'Descriptions') then curRel.Descriptions := valName
      else if SameText(fieName, 'OrdNum') then curRel.OrdNum := valName;
    end;
    curMix.qRelList.Add(curRel);

    curMat := TMaterialMst.Create(nil);
    for i := nnidx to AQuery.FieldCount-1 do begin
      fieName := StringReplace(AQuery.Fields[i].FieldName, '_2', '', [rfReplaceAll]);
      valName := AQuery.Fields[i].AsString;
      if SameText(fieName, 'OBID') then curMat.OBID := valName
      else if SameText(fieName, 'Name') then curMat.Name := valName
      else if SameText(fieName, 'wClassName') then curMat.wClassName := valName
      else if SameText(fieName, 'CreateDate') then curMat.CreateDate := valName
      else if SameText(fieName, 'CreateTime') then curMat.CreateTime := valName
      else if SameText(fieName, 'CreatorID') then curMat.CreatorID := valName
      else if SameText(fieName, 'IsValid') then curMat.IsValid := valName
      else if SameText(fieName, 'LcStatus') then curMat.LcStatus := valName
      else if SameText(fieName, 'MatCode') then curMat.MatCode := valName
      else if SameText(fieName, 'Descriptions') then curMat.Descriptions := valName
      else if SameText(fieName, 'MatType') then curMat.MatType := valName
      else if SameText(fieName, 'CustName') then curMat.CustName := valName;
    end;
    curRel.LObj.Add(curMat);

    AQuery.Next;
  end;
end;

function TMixMaterialMst.LoadFromQueryPtpProcList(AQuery: TFDQuery): TList;
var
  i, idx, nidx, nnidx: Integer;
  valName, fieName, obidVal: string;
  curMix, tmpMix: TMixMaterialMst;
  curRel: TMixMatMstR;
  curMat: TMaterialMst;

  curProc: TRtpProcessInfo;
  curRtp: TRtpMaterialInfo;
begin
  Result := TList.Create;

  AQuery.First;
  //중복 컬럼 시작지점 찾기..
  nidx := -1;
  for i := 0 to AQuery.FieldCount-1 do begin
    fieName := AQuery.Fields[i].FieldName;
    if Pos('_1',fieName) > 0 then begin
      nidx := i;
      Break;
    end;
  end;
  {
  nnidx := -1;
  for i := 0 to AQuery.FieldCount-1 do begin
    fieName := AQuery.Fields[i].FieldName;
    if Pos('_2',fieName) > 0 then begin
      nnidx := i;
      Break;
    end;
  end;
  }
  AQuery.First;
  while not AQuery.Eof do begin
    obidVal := AQuery.FieldByName('OBID').AsString;
    //중복 객체 찾기..
    idx := -1;
    for i := 0 to Result.Count - 1 do begin
      curProc := TRtpProcessInfo(Result[i]);
      if SameText(obidVal, curProc.OBID) then begin
        idx := i;
        Break;
      end;
    end;

    if idx = -1 then begin
      curProc := TRtpProcessInfo.Create(nil);
      for i := 0 to nidx-1 do begin
        fieName := AQuery.Fields[i].FieldName;
        valName := AQuery.Fields[i].AsString;
        if SameText(fieName, 'OBID') then curProc.OBID := valName
        else if SameText(fieName, 'Name') then curProc.Name := valName
        else if SameText(fieName, 'wClassName') then curProc.wClassName := valName
        else if SameText(fieName, 'CreateDate') then curProc.CreateDate := valName
        else if SameText(fieName, 'CreateTime') then curProc.CreateTime := valName
        else if SameText(fieName, 'CreatorID') then curProc.CreatorID := valName
        else if SameText(fieName, 'IsValid') then curProc.IsValid := valName
        else if SameText(fieName, 'LcStatus') then curProc.LcStatus := valName
        else if SameText(fieName, 'OrdNum') then curProc.OrdNum := valName
        else if SameText(fieName, 'SumQty') then curProc.SumQty := valName
        else if SameText(fieName, 'Unitt') then curProc.Unitt := valName
        else if SameText(fieName, 'WorkTime') then curProc.WorkTime := valName
        else if SameText(fieName, 'Descriptions') then curProc.Descriptions := valName;
      end;
      Result.Add(curProc);
    end else begin
      curProc := TRtpProcessInfo(Result.Items[idx]);
    end;

    curRtp := TRtpMaterialInfo.Create(nil);
    for i := nidx to AQuery.FieldCount-1 do begin
      fieName := StringReplace(AQuery.Fields[i].FieldName, '_1', '', [rfReplaceAll]);
      valName := AQuery.Fields[i].AsString;
      if SameText(fieName, 'OBID') then curRtp.OBID := valName
      else if SameText(fieName, 'Name') then curRtp.Name := valName
      else if SameText(fieName, 'wClassName') then curRtp.wClassName := valName
      else if SameText(fieName, 'CreateDate') then curRtp.CreateDate := valName
      else if SameText(fieName, 'CreateTime') then curRtp.CreateTime := valName
      else if SameText(fieName, 'CreatorID') then curRtp.CreatorID := valName
      else if SameText(fieName, 'IsValid') then curRtp.IsValid := valName
      else if SameText(fieName, 'LcStatus') then curRtp.LcStatus := valName

      else if SameText(fieName, 'OrdNum') then curRtp.OrdNum := valName
      else if SameText(fieName, 'MatCode') then curRtp.MatCode := valName
      else if SameText(fieName, 'Qty') then curRtp.Qty := valName
      else if SameText(fieName, 'Unitt') then curRtp.Unitt := valName
      else if SameText(fieName, 'Ratio') then curRtp.Ratio := valName
      else if SameText(fieName, 'Descriptions') then curRtp.Descriptions := valName
      //디크립트 AES복호화..
      else if SameText(fieName, 'QtyEnc') then curRtp.QtyEnc := DecryptAES(valName, 'SecretKey123')
      else if SameText(fieName, 'RatioVal') then curRtp.RatioVal := valName;


      {
      else if SameText(fieName, 'Qty') then curRel.Qty := valName
      else if SameText(fieName, 'QtyEnc') then begin
        curRel.QtyEnc := DecryptAES(valName, 'SecretKey123');
      end else if SameText(fieName, 'Unitt') then curRel.Unitt := valName
      else if SameText(fieName, 'Descriptions') then curRel.Descriptions := valName
      else if SameText(fieName, 'OrdNum') then curRel.OrdNum := valName;
      }
    end;
    curProc.qRtpList.Add(curRtp);
    {
    curMat := TMaterialMst.Create(nil);
    for i := nnidx to AQuery.FieldCount-1 do begin
      fieName := StringReplace(AQuery.Fields[i].FieldName, '_2', '', [rfReplaceAll]);
      valName := AQuery.Fields[i].AsString;
      if SameText(fieName, 'OBID') then curMat.OBID := valName
      else if SameText(fieName, 'Name') then curMat.Name := valName
      else if SameText(fieName, 'wClassName') then curMat.wClassName := valName
      else if SameText(fieName, 'CreateDate') then curMat.CreateDate := valName
      else if SameText(fieName, 'CreateTime') then curMat.CreateTime := valName
      else if SameText(fieName, 'CreatorID') then curMat.CreatorID := valName
      else if SameText(fieName, 'IsValid') then curMat.IsValid := valName
      else if SameText(fieName, 'LcStatus') then curMat.LcStatus := valName
      else if SameText(fieName, 'MatCode') then curMat.MatCode := valName
      else if SameText(fieName, 'Descriptions') then curMat.Descriptions := valName
      else if SameText(fieName, 'MatType') then curMat.MatType := valName
      else if SameText(fieName, 'CustName') then curMat.CustName := valName;
    end;
    curRel.LObj.Add(curMat);
    }
    AQuery.Next;
  end;
end;

class function TMixMaterialMst.LoadFromSingleQuery(AQuery: TFDQuery): TList;
var
  curMix: TMixMaterialMst;
begin
  Result := TList.Create;
  while not AQuery.Eof do begin
    curMix := TMixMaterialMst.Create(nil);
    curMix.OBID := AQuery.FieldByName('OBID').AsString;
    curMix.Name := AQuery.FieldByName('Name').AsString;
    curMix.wClassName := AQuery.FieldByName('wClassName').AsString;
    curMix.CreateDate := AQuery.FieldByName('CreateDate').AsString;
    curMix.CreateTime := FormatDateTime('hh:nn:ss', AQuery.FieldByName('CreateTime').AsDateTime);
    curMix.CreatorID := AQuery.FieldByName('CreatorID').AsString;
    curMix.IsValid := AQuery.FieldByName('IsValid').AsString;
    curMix.LcStatus := AQuery.FieldByName('LcStatus').AsString;

    curMix.OrdDate := AQuery.FieldByName('OrdDate').AsString;
    curMix.OrdCode := AQuery.FieldByName('OrdCode').AsString;
    curMix.IsConfirm := AQuery.FieldByName('IsConfirm').AsString;
    curMix.Descriptions := AQuery.FieldByName('Descriptions').AsString;
    curMix.Unitt := AQuery.FieldByName('Unitt').AsString;
    curMix.Qty := AQuery.FieldByName('Qty').AsString;
    curMix.CustName := AQuery.FieldByName('CustName').AsString;
    Result.Add(curMix);

    AQuery.Next;
  end;
end;

class function TMixMaterialMst.LoadFromStringsQuery(AQuery: TFDQuery;
  column: string): TStrings;
var
  valStr: string;
begin
  Result := TStringList.Create;
  while not AQuery.Eof do begin
    valStr := AQuery.FieldByName(column).AsString;
    Result.Add(valStr);

    AQuery.Next;
  end;
end;

class function TMixMaterialMst.xAddSqlDoubleMark(velStr: String): String;
begin
  Result := '';
  Result := '"' + velStr + '"';
end;

class function TMixMaterialMst.xAddSqlMark(velStr: string): string;
begin
  Result := '';
  Result := '''' + velStr + '''';
end;

procedure TMixMaterialMst.xFreeAllFqProcList;
var
  i: Integer;
  tmpObj: TObject;
begin
  if FqProcList <> nil then begin
    i := 0;
    while i < FqProcList.Count do begin
      tmpObj := FqProcList.Items[i];
      if tmpObj <> nil then tmpObj.Free;
      tmpObj := nil;
      FqProcList.Delete(i);
    end;
    FqProcList.Free; FqProcList:=nil;
  end;
end;

class function TMixMaterialMst.xGetObjsMixMaterialMstList(AQuery: TFDQuery;
  code, name, stDate, enDate: string): TList;
var
  sql: string;
begin
  Result := nil;
  sql := 'SELECT obj0.* FROM "MixMaterialMst"obj0';
  sql := sql + ' WHERE obj0."IsValid"=' + xAddSqlMark('t');
  if Length(Trim(code)) > 0 then sql := sql + ' AND obj0."OrdCode"=' + xAddSqlMark(code);
  if Length(Trim(name)) > 0 then sql := sql + ' AND obj0."Name"=' + xAddSqlMark(name);
  if Length(Trim(stDate)) > 0 then begin
    sql := sql + ' AND obj0."OrdDate">=' + xAddSqlMark(stDate);
    sql := sql + ' AND obj0."OrdDate"<=' + xAddSqlMark(enDate);
  end;

  try
    AQuery.Close;
    AQuery.SQL.Text := sql;
    AQuery.Open;
  except
    on E: Exception do ShowMessage('XGetObjsMixMaterialMstList 쿼리 실행 오류: ' + E.Message);
  end;
  Result := LoadFromSingleQuery(AQuery);
end;

procedure TMixMaterialMst.xGetObjsMixMatRtpProcList(AQuery: TFDQuery);
var
  sql: string;
begin
  //FqProcList := nil;
  sql := 'SELECT obj2.*, obj4.* FROM "MixMaterialMst"obj0, "MixMatRtpProcR"obj1, "RtpProcessInfo"obj2, "RtpProcRtpMatR"obj3, "RtpMaterialInfo"obj4';
  sql := sql + ' WHERE obj0."IsValid"=' + xAddSqlMark('t');
  sql := sql + ' AND obj0."OBID"=' + xAddSqlMark(OBID);
  sql := sql + ' AND obj1."IsValid"=' + xAddSqlMark('t');
  sql := sql + ' AND obj1."LOBID"= obj0."OBID"';
  sql := sql + ' AND obj2."IsValid"=' + xAddSqlMark('t');
  sql := sql + ' AND obj2."OBID"=obj1."ROBID"';
  sql := sql + ' AND obj3."IsValid"=' + xAddSqlMark('t');
  sql := sql + ' AND obj3."LOBID"=obj2."OBID"';
  sql := sql + ' AND obj4."IsValid"=' + xAddSqlMark('t');
  sql := sql + ' AND obj4."OBID"=obj3."ROBID"';

  try
    AQuery.Close;
    AQuery.SQL.Text := sql;
    AQuery.Open;
  except
    on E: Exception do ShowMessage('xGetObjsMixMatRtpProcList 쿼리 실행 오류: ' + E.Message);
  end;
  if FqProcList <> nil then xFreeAllFqProcList;
  FqProcList := LoadFromQueryPtpProcList(AQuery);
end;

class function TMixMaterialMst.xGetStrsDistinctAttr(AQuery: TFDQuery;
  colName: string): TStrings;
var
  sql: string;
begin
  Result := nil;
  sql := 'SELECT DISTINCT ' + xAddSqlDoubleMark(colName) + ' FROM "MixMaterialMst"';
  sql := sql + ' WHERE "IsValid"=' + xAddSqlMark('t');

  try
    AQuery.Close;
    AQuery.SQL.Text := sql;
    AQuery.Open;
  except
    on E: Exception do ShowMessage('xGetStrsDistinctAttr 쿼리 실행 오류: ' + E.Message);
  end;
  Result := LoadFromStringsQuery(AQuery, colName);
end;

class function TMixMaterialMst.xGetStrSqlMixToMaterialList(AQuery: TFDQuery;
  code, prod, stDate, enDate: string): TList;
var
  sql: string;
begin
  Result := nil;
  sql := 'SELECT obj0.*, obj1.*, obj2.* FROM "MixMaterialMst"obj0, "MixMatMstR"obj1, "MaterialMst"obj2';
  sql := sql + ' WHERE obj0."IsValid"=' + xAddSqlMark('t');
  if Length(Trim(code)) > 0 then sql := sql + ' AND obj0."OrdCode"=' + xAddSqlMark(code);
  if Length(Trim(prod)) > 0 then sql := sql + ' AND obj0."Name"=' + xAddSqlMark(prod);
  if Length(Trim(stDate)) > 0 then begin
    sql := sql + ' AND obj0."OrdDate">=' + xAddSqlMark(stDate);
    sql := sql + ' AND obj0."OrdDate"<=' + xAddSqlMark(enDate);
  end;
  sql := sql + ' AND obj1."IsValid"=' + xAddSqlMark('t');
  sql := sql + ' AND obj1."LOBID"=obj0."OBID"';
  sql := sql + ' AND obj2."IsValid"=' + xAddSqlMark('t');
  sql := sql + ' AND obj2."OBID"=obj1."ROBID"';

  try
    AQuery.Close;
    AQuery.SQL.Text := sql;
    AQuery.Open;
  except
    on E: Exception do ShowMessage('xGetStrSqlMixToMaterialList 쿼리 실행 오류: ' + E.Message);
  end;
  Result := LoadFromQuery(AQuery);
end;

end.