invdm.~pas

文件包含程序源原文件

        //--
        lcp^.REC_ID     := Fields[0].AsInteger;
        lcp^.SIGEN_CD   := Fields[1].AsInteger;
        strPCopy(lcp^.SIGEN_NM, Fields[2].AsString);
        lcp^.DEPART_CD  := Fields[3].AsInteger;
        Next;
        FEmpList.Add(lcp);
      end;
    finally
      Close;
    end;
  end;
end;

function Tdm_Inventory.Get_EmpName(shigen_CD: string): string;
var IX:  Integer;
    lcP: PShigen;
begin
  Result := '';
  for IX:=0 to FEmpList.Count-1 do begin
    lcp := FEmpList[IX];
    if (IntToStr(lcp^.SIGEN_CD) = shigen_CD) then begin
     Result := strpas(lcP^.SIGEN_NM);
     Exit;
    end;
  end;
end;

function Tdm_Inventory.Get_EmpDepartID(shigen_CD: string): Integer;
var IX:  Integer;
    lcP: PShigen;
begin
  Result := 0;
  for IX:=0 to FEmpList.Count-1 do begin
    lcp := FEmpList[IX];
    if (IntToStr(lcp^.SIGEN_CD) = shigen_CD) then begin
     Result := lcP^.DEPART_CD;
     Exit;
    end;
  end;
end;

function  Tdm_Inventory.GetDepartName_fromEmpID(Sigen_CD: string): String;
var
  IX:  Integer;
  lcP: PSHIGEN;
  iDepart: integer;
begin
  Result := '';
  iDepart := dm_inventory.Get_EmpDepartID(Sigen_CD);
  result  := dm_inventory.GetDepartName(iDepart);
end;

function  Tdm_Inventory.Emp_IDProc(scode: string; var edt: TEdit): Boolean;
var WStr: string;
begin
  Result := True;
  WStr := dm_Inventory.Get_EmpName(scode);
  if (scode<>'')and(WStr='') then
    if MessageDlg('该编码不存在/确定使用不存在的该编码？', mtWarning, [mbOk], 0) = mrOK then begin
      Result := False;
      Exit;
    end;
  edt.Text := WStr;
end;

{**********************************************************************************}
{**********************************************************************************}
function  Tdm_Inventory.InsertShizai(lcP: PSHIZAI): Integer;
var
  Sqls: string;
  Sep:  string[2];
begin
  Result := 0;
  lcP^.REC_ID := dm_Inventory.GetRecid1;
  Sqls := 'INSERT INTO shizai ' +
          '(rec_id, flag, code, name, unit_price, maker_cd, shiire_cd, ' +
          'unit_type, standard) '+
          'VALUES(';
  Sep := ', ';
  Sqls := Sqls + IntToStr(lcP^.REC_ID) + Sep + '1, ' +
                 QuotedStr(StrPas(lcP^.SHIZAI_CD)) + Sep +
                 QuotedStr(StrPas(lcP^.SHIZAI_NM)) + Sep +
                 Format('%8.4f',[lcP^.UNT_PRICE]) + Sep +
                 IntToStr(lcP^.MAKER_CD) + Sep +
                 IntToStr(lcP^.SHIIRE_CD) + Sep +
                 IntToStr(lcP^.UNT_TYPE) + Sep +
                 QuotedStr(StrPas(lcP^.STANDARD)) + ')';
  if not(dm_Inventory.ExecuteQuery(Sqls)) then Result := -99;
end;

function  Tdm_Inventory.InsertInventory(lcP: PINVENTORY): Integer;
var
  Sqls: string;
  Sep:  string[2];
begin
  Result := 0;
  lcP^.REC_ID := dm_Inventory.GetRecid7;
  Sqls := 'INSERT INTO inventory_sheet ' +
          '(rec_id, kind, stk_id, date, material_rec_id, material_name, guage_id,' +
          ' supplier_code,maker_code,maker_price,'+
          ' unit_price, quantity, total_price, use_guage, use_quantity,use_amount,'+
          ' order_rec_id, parts_rec_id,sequal_no,order_no,order_code,'+
          'paperno,iss_paperno,inout_id, recieve_empid,input_empid,invoice_no,is_account,is_close,note) '+
          'VALUES(';
  Sep := ', ';
  Sqls := Sqls + IntToStr(lcP^.REC_ID) + Sep +
                 IntToStr(lcP^.KIND) + Sep +
                 QuotedStr(StrPas(lcP^.STK_ID)) + Sep +
                 QuotedStr(FormatDateTime('yyyy/mm/dd hh:mm:ss', lcP^.DATE))+Sep+
                 IntToStr(lcP^.MAT_RID) + Sep +
                 QuotedStr(StrPas(lcP^.MAT_NM)) + Sep +
                 IntToStr(lcP^.GUAGE_ID) + Sep +
                 IntToStr(lcP^.SUP_CD) + Sep +
                 IntToStr(lcP^.MAK_CD) + Sep +
                 Format('%8.4f',[lcP^.MAK_PRICE]) + Sep +
                 Format('%8.4f',[lcP^.UNT_PRICE]) + Sep +
                 Format('%8.4f',[lcP^.QUANTITY]) + Sep +
                 Format('%8.4f',[lcP^.TTL_PRICE]) + Sep +
                 QuotedStr(strpas(lcP^.USE_GUAGE)) + Sep +
                 Format('%8.4f',[lcP^.USE_QUANTITY]) + Sep +
                 Format('%8.4f',[lcP^.USE_AMOUNT]) + Sep +
                 IntToStr(lcP^.ODR_RID) + Sep +
                 IntToStr(lcP^.PAT_RID) + Sep +
                 QuotedStr(lcp^.SEQUAL_NO) + Sep +
                 IntToStr(lcP^.HAT_RID) + Sep +
                 QuotedStr(lcp^.HAT_CODE) + Sep +
                 QuotedStr(lcp^.PAPERNO) + Sep +
                 QuotedStr(lcp^.ISS_PAPERNO) + Sep +
                 QuotedStr(lcp^.Inout_id) + Sep +
                 QuotedStr(lcp^.recieve_EmpID) + Sep +
                 QuotedStr(lcp^.input_empid) + Sep +
                 QuotedStr(lcp^.invoice_no) + Sep +
                 IntToStr(lcp^.is_account) + Sep +
                 IntToStr(lcp^.IS_CLOSE) + Sep +
                 QuotedStr(lcp^.NOTE) +
                  ')';
  if not(dm_Inventory.ExecuteQuery(Sqls)) then Result := -99;
end;

{************************************************************************************}
{************************************************************************************}
function Tdm_Inventory.UpdateProcess_jkcd(InvValue: TINVENTORY_VALUE): Integer;
var
  Sqls: string;
begin
  Result := 0;

  if InvValue.order_rec_id = -1 then begin
    Sqls :=   'DELETE FROM kotei '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id) + ')';
    Sqls := Sqls+ 'UPDATE buhin set bup_flag=3 '
            +   'where rec_id=' + InttoStr(InvValue.part_rec_id)
            +   ' and tehai_kubun in (2,3)'+' '+
                'UPDATE kotei SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'jk_cd='     + IntToStr(3)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)    + ' '
            + 'WHERE (rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else
  if (InvValue.order_rec_id <> -1) and (InvValue.part_rec_id = -1) then begin
    Sqls :=   'DELETE FROM kotei '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id) + ')';
    Sqls := Sqls+ 'UPDATE buhin set bup_flag=3 '
            +   'where rec_id=' + InttoStr(InvValue.part_rec_id)
            +   ' and tehai_kubun in (2,3)'+' '+
                'UPDATE kotei SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'jk_cd='     + IntToStr(3)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)    + ' '
            + 'WHERE (rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else
  if (InvValue.order_no > 0) then begin
    Sqls :=     'UPDATE buhin set bup_flag=3 '
            +   'where rec_id=' + InttoStr(InvValue.part_rec_id)
            +   ' and tehai_kubun in (2,3)'+' '+
                'UPDATE kotei SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'jk_cd='     + IntToStr(3)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)    + ' '
            + 'WHERE (rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else begin
    Sqls :=     'UPDATE kotei SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'jk_cd='     + IntToStr(3)                      + ' '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id)   + ')';
  end;

  if not(ExecuteQuery(Sqls)) then Result := -99;
end;

{************************************************************************************}
function  Tdm_Inventory.UpdateProcess_flag2(InvValue: TINVENTORY_VALUE): Integer;
var
  Sqls: string;
begin
  Sqls := ' UPDATE kotei SET ' +
          ' flag2= '+ IntToStr(InvValue.inv_rec_id)+
          ' WHERE (rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  if not(ExecuteQuery(Sqls)) then Result := -99;
end;

{************************************************************************************}
function  Tdm_Inventory.UpdateProcessLog_jkcd_kakojokyo(ihatchu_id: Integer): Integer;
var
  Sqls: string;
begin
  Sqls := ' update kotei set ' +
          ' jk_cd= '+ IntToStr(1)+
          ' where (hatchu_bango=' + IntToStr(ihatchu_id) + ')'+
          ' and visible>0 ' +
          ' update log set '+
          ' kako_jokyo=1,jk_cd=1 '+
          ' where (hatchu_bango='+ IntToStr(ihatchu_id) + ')'+
          ' and visible>0 ';
  if not(ExecuteQuery(Sqls)) then Result := -99;
end;


{************************************************************************************}
function Tdm_Inventory.UpdateProcess(InvValue: TINVENTORY_VALUE): Integer;
var
  Sqls: string;
begin
  Result := 0;

  if InvValue.order_rec_id = -1 then begin
    Sqls :=   'DELETE FROM kotei '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id) + ')';
    Sqls := Sqls+ 'UPDATE buhin set bup_flag=3 '
            +   'where rec_id=' + InttoStr(InvValue.part_rec_id)
            +   ' and tehai_kubun in (2,3)'+' '+
                'UPDATE kotei SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'shizai_rec_id=' + IntToStr(InvValue.material_rec_id) + ','
            +   'suryo='     + FloatToStr(InvValue.quantity)    + ','
            +   'tanka='     + FloatToStr(InvValue.unit_price)  + ','
            +   'kingaku='   + FloatToStr(InvValue.total_price) + ','
            +   'jk_cd='     + IntToStr(3)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)    + ' '
            + 'WHERE (rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else
  if (InvValue.order_rec_id <> -1) and (InvValue.part_rec_id = -1) then begin
    Sqls :=   'DELETE FROM kotei '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id) + ')';
    Sqls := Sqls+ 'UPDATE buhin set bup_flag=3 '
            +   'where rec_id=' + InttoStr(InvValue.part_rec_id)
            +   ' and tehai_kubun in (2,3)'+' '+
                'UPDATE kotei SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'shizai_rec_id=' + IntToStr(InvValue.material_rec_id) + ','
            +   'suryo='     + FloatToStr(InvValue.quantity)    + ','
            +   'tanka='     + FloatToStr(InvValue.unit_price)  + ','
            +   'kingaku='   + FloatToStr(InvValue.total_price) + ','
            +   'jk_cd='     + IntToStr(3)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)    + ' '
            + 'WHERE (rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else
  if (InvValue.order_no > 0) then begin
    Sqls :=     'UPDATE buhin set bup_flag=3 '
            +   'where rec_id=' + InttoStr(InvValue.part_rec_id)
            +   ' and tehai_kubun in (2,3)'+' '+
                'UPDATE kotei SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'shizai_rec_id=' + IntToStr(InvValue.material_rec_id) + ','
            +   'suryo='     + FloatToStr(InvValue.quantity)    + ','
            +   'tanka='     + FloatToStr(InvValue.unit_price)  + ','
            +   'kingaku='   + FloatToStr(InvValue.total_price) + ','
            +   'jk_cd='     + IntToStr(3)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)    + ' '
            + 'WHERE (rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else begin
    Sqls :=     'UPDATE kotei SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'shizai_rec_id=' + IntToStr(InvValue.material_rec_id) + ','
            +   'suryo='     + FloatToStr(InvValue.quantity)    + ','
            +   'tanka='     + FloatToStr(InvValue.unit_price)  + ','
            +   'kingaku='   + FloatToStr(InvValue.total_price) + ','
            +   'jk_cd='     + IntToStr(3)                      + ' '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id)   + ')';
  end;

  if not(ExecuteQuery(Sqls)) then Result := -99;
end;

{************************************************************************************}
function Tdm_Inventory.UpdateLog_jkcd(InvValue: TINVENTORY_VALUE): Integer;
var
  Sqls: string;
begin
  Result := 0;

  if InvValue.order_rec_id = -1 then begin
    Sqls :=   'DELETE FROM log '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id) + ')';
    Sqls := Sqls+'UPDATE log SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'jk_cd='      + IntToStr(3)                      + ','
            +   'kako_jokyo=' + IntToStr(8)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)     + ' '
            + 'WHERE (kotei_rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else
  if (InvValue.order_rec_id <> -1) and (InvValue.part_rec_id = -1) then begin
    Sqls :=   'DELETE FROM log '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id) + ')';
    Sqls := Sqls+'UPDATE log SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'jk_cd='      + IntToStr(3)                      + ','
            +   'kako_jokyo=' + IntToStr(8)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)     + ' '
            + 'WHERE (kotei_rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else
  if (InvValue.order_no > 0) then begin
    Sqls :=   'UPDATE log SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'jk_cd='      + IntToStr(3)                      + ','
            +   'kako_jokyo=' + IntToStr(8)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)     + ' '
            + 'WHERE (kotei_rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else begin
    Sqls :=   'UPDATE log SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'jk_cd='      + IntToStr(3)                      + ','
            +   'kako_jokyo=' + IntToStr(8)                      + ' '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id)   + ')';
  end;

  if not(ExecuteQuery(Sqls)) then Result := -99;
end;

{************************************************************************************}
function Tdm_Inventory.UpdateLog(InvValue: TINVENTORY_VALUE): Integer;
var
  Sqls: string;
begin
  Result := 0;

  if InvValue.order_rec_id = -1 then begin
    Sqls :=   'DELETE FROM log '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id) + ')';
    Sqls := Sqls+'UPDATE log SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'shizai_rec_id=' + IntToStr(InvValue.material_rec_id) + ','
            +   'suryo='      + FloatToStr(InvValue.quantity)    + ','
            +   'tanka='      + FloatToStr(InvValue.unit_price)  + ','
            +   'kingaku='    + FloatToStr(InvValue.total_price) + ','
            +   'jk_cd='      + IntToStr(3)                      + ','
            +   'kako_jokyo=' + IntToStr(8)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)     + ' '
            + 'WHERE (kotei_rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else
  if (InvValue.order_rec_id <> -1) and (InvValue.part_rec_id = -1) then begin
    Sqls :=   'DELETE FROM log '
            + 'WHERE (flag2=' + IntToStr(InvValue.inv_rec_id) + ')';
    Sqls := Sqls+'UPDATE log SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'shizai_rec_id=' + IntToStr(InvValue.material_rec_id) + ','
            +   'suryo='      + FloatToStr(InvValue.quantity)    + ','
            +   'tanka='      + FloatToStr(InvValue.unit_price)  + ','
            +   'kingaku='    + FloatToStr(InvValue.total_price) + ','
            +   'jk_cd='      + IntToStr(3)                      + ','
            +   'kako_jokyo=' + IntToStr(8)                      + ','
            +   'flag2='     + IntToStr(InvValue.inv_rec_id)     + ' '
            + 'WHERE (kotei_rec_id=' + IntToStr(InvValue.process_rec_id) + ')';
  end
  else
  if (InvValue.order_no > 0) then begin
    Sqls :=   'UPDATE log SET '
            +   'hiyo_kubun_rec_id=' + IntToStr(InvValue.hiyo_kubun_rec_id) + ','
            +   'shizai_rec_id=' + IntToStr(InvValue.material_rec_id) + ','
            +   'suryo='      + FloatToStr(InvValue.quantity)    + ','
            +   'tanka='      + FloatToStr(InvValue.unit_price)  + ','
            +   'kingaku='    + FloatToStr(InvValue.total_price) + ','
            +   'jk_cd='      + IntT