?? sy_ckjhdzd.pas

?? 省級集郵品管理ERP
?? PAS
?? 第 1 頁 / 共 3 頁
字號:
    SQL.Add('and (A.ZT = ''' + CG_WCL + ''' or A.ZT = ''' + CG_DG + ''') ');
    SQL.Add('and C.YGDM = ''' + VG_UserID + ''' ');
    SQL.Add('order by b.PPDM ');
    Open;
    while not Eof do
    begin
      CB_PPMC.Items.Add(Fields[0].AsString);
      CB_PPMC.FieldItems.Add(Fields[1].AsString);
      Next;
    end;
    Close;
  end;
  CB_PPMC.OnChange := CB_PPMCChange;
  if CB_PPMC.Items.Count > 0 then
    CB_PPMC.ItemIndex := 0;
  CB_PPMCChange(nil);
end;

procedure TFrmY_CKJHDZD.CB_PPMCChange(Sender: TObject);
begin
  //刷新出庫計劃單
  CB_CKJHDH.Text := '';
  CB_CKJHDH.Items.Clear;
  CB_CKJHDH.OnChange := nil;
  with Qry_Static do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct A.CKJHDH from TYS_YPCKJHDB A, TYS_YPCKJHDPPB B, TGS_KFRYDZB C');
    SQL.Add('where A.CKJHDH=B.CKJHDH and B.KFDM=C.KFDM and  A.CKJHDH LIKE ''PN%''');
    SQL.Add('and B.PPDM = ''' + CB_PPMC.FieldString + ''' ');
    SQL.Add('and (A.ZT = ''' + CG_WCL + ''' or A.ZT = ''' + CG_DG + ''') ');
    SQL.Add('and C.YGDM = ''' + VG_UserID + ''' ');
    SQL.Add('order by A.CKJHDH DESC ');
    Open;
    while not Eof do
    begin
      CB_CKJHDH.Items.Add(Fields[0].AsString);
      Next;
    end;
    Close;
  end;
  CB_CKJHDH.OnChange := CB_CKJHDHChange;
  if CB_CKJHDH.Items.Count > 0 then
    CB_CKJHDH.ItemIndex := 0;
  CB_CKJHDHChange(nil);
end;


procedure TFrmY_CKJHDZD.CB_CKJHDHChange(Sender: TObject);
begin
  //數據復位
  Qry_Third.Close;
  Qry_Main.Close;
  CE_KC.Text := '';
  E_CKXZ.Text := '';

  //顏色復位
  L_CKJHDH.Font.Color := ClBlack;
  CE_KC.Font.Color := ClBlue;

  //若出庫計劃單為空，跳出
  if CB_CKJHDH.Text = '' then Exit;

  //保存臨時數據
  V_CKJHDH := UpperCase(CB_CKJHDH.Text);

  //打開主表
  with Qry_Third do
  begin
    Close;
    Prepare;
    Params[0].AsString := V_CKJHDH;
    Open;
    if not Eof then
      V_CKXZ := FieldByName('CKXZ').AsString;
  end;

  //刷新出庫性質名稱
  E_CKXZ.Text := PY_XZDMTOMC(V_CKXZ);

  //打開從表
  with Qry_Main do
  begin
    Close;
    Prepare;
    Params[0].AsString := V_CKJHDH;
    Open;

    //保存臨時數據
    V_KFDM := FieldByName('KFDM').AsString;
    V_PPDM := FieldByName('PPDM').AsString;
    V_PPMC := FieldByName('PPMC').AsString;
    V_KWH := FieldByName('KWH').AsString;
    V_JJ := FieldByName('JJ').AsFloat;
    V_XJ := FieldByName('XJ').AsFloat;
    V_ZK := FieldByName('ZK').AsFloat;
    V_JSJ := FieldByName('JSJ').AsFloat;
  end;

  //刷新出庫計劃單的出庫狀態
  if Qry_Third.FieldByName('ZT').AsString = CG_DG then
    L_CKJHDH.Font.Color := ClRed
  else
    L_CKJHDH.Font.Color := ClBlack;

  //刷新庫存
  CE_KC.Value := PS_GetSYTS(V_KFDM, V_PPDM, V_JJ);
  if CE_KC.Value < 0 then
    CE_KC.Font.Color := ClRed
  else
    CE_KC.Font.Color := ClBlue;

end;


procedure TFrmY_CKJHDZD.BBt_SaveClick(Sender: TObject);
var
  V_ItemIndex: Integer;
begin
  if CE_KC.Value < 0 then
  begin
    CHQMsgBox(V_PPMC + '的分配數量已超出實際庫存量， 請調整分配數量!');
    DBG_Main.SelectedIndex := DBG_Main.Columns.Count - 1;
    DBG_Main.SetFocus;
    Exit;
  end;

  //求出此次分配套數
  with Qry_main do
  begin
    DisableControls;
    First;
    while not Eof do
    begin
      if FieldByName('FPSL').AsInteger > 0 then
        Next
      else
      begin
        EnableControls;
        CHQMsgBox('請確定分配數量！');
        DBG_Main.SetFocus;
        Exit;
      end;
    end;
    First;
    EnableControls;
  end;

  //新增出庫單的處理
  if (V_State = 1) then
  begin
    //取得分配單號
    V_CKJHDH := GetFPDH('PN');
    //給主表賦分配單號
    with Qry_Third do
    begin
      Filtered := False;
      DisableControls;
      Edit;
      FieldByName('CKJHDH').AsString := V_CKJHDH;
      EnableControls;
      Filtered := True;
    end;
    //給從表賦分配單號
    with Qry_Main do
    begin
      Filtered := False;
      DisableControls;
      First;
      while not Eof do
      begin
        Edit;
        FieldByName('CKJHDH').AsString := V_CKJHDH;
        Next;
      end;
      First;
      EnableControls;
      Filtered := True;
    end;
  end;
  try //提交數據庫
    Qry_Main.Database.StartTransaction;
    Qry_Third.ApplyUpdates; //提交主表
    Qry_Main.ApplyUpdates; //題價從表
    Qry_Main.Database.Commit;
  except
    Qry_Main.Database.RollBack;
    CHQMsgBox('數據存儲錯誤！');
    exit;
  end;
  Qry_Third.CommitUpdates; //清除緩存的內容
  Qry_Main.CommitUpdates;

  //刷新出庫計劃單下拉框
  if (V_State = 1) then
  begin
    V_ItemIndex := CB_PPMC.FieldItems.IndexOf(V_PPDM); //DWDM);
    if V_ItemIndex = -1 then
    begin
      CB_PPMC.Items.Insert(0, V_PPMC); //V_DWMC);
      CB_PPMC.FieldItems.Insert(0, V_PPDM); //V_DWDM);
      CB_PPMC.ItemIndex := 0;
    end
    else if CB_PPMC.ItemIndex <> V_ItemIndex then
    begin
      CB_PPMC.ItemIndex := V_ItemIndex;
    end;
    CB_PPMC.OnChange(nil);
  end;

  //刪除子表為空的主表
  if Qry_Main.IsEmpty then
  begin
    with Qry_Static do
    begin
      Close;
      SQL.Text := 'delete TYS_TXPCKJHDB '
        + ' where CKJHDH=''' + V_CKJHDH + '''';
      ExecSQL;
    end;
    CB_CKJHDH.Items.Delete(CB_CKJHDH.ItemIndex);
    if CB_CKJHDH.Items.Count <= 0 then
    begin
      CB_PPMC.DeleteItems(CB_PPMC.ItemIndex);
      CB_PPMC.ItemIndex := 0;
      CB_PPMC.OnChange(nil);
    end;
    CB_CKJHDH.ItemIndex := 0;
    //刷新出庫計劃單
    CB_CKJHDHChange(nil);
  end;
  PS_SetStatus();
{  NDChange(nil);
  CB_PPMC.Text := V_PPMC;
  CB_PPMCChange(nil);
  CB_CKJHDH.Text := V_CKJHDH;
  CB_CKJHDHChange(nil);}
end;

procedure TFrmY_CKJHDZD.BBt_DeleteFPJHClick(Sender: TObject);
begin
  if Qry_Third.IsEmpty then Exit;
  if Qry_Third.FieldByName('ZT').Asstring = CG_DG then
  begin
    CHQMsgBox('此出庫計劃單已簽批！');
    Exit;
  end;
  if CHQMsgBox('確實要刪除嗎？', 2) = IDNO then Exit;
  with Qry_Static do
  begin
  //刪除從表
    Close;
    SQL.Text := 'delete TYS_YPCKJHDPPB '
      + ' where CKJHDH=''' + V_CKJHDH + '''';
    ExecSQL;
    Close;
  //刪除主表
    SQL.Text := 'delete TYS_YPCKJHDB '
      + ' where CKJHDH=''' + V_CKJHDH + '''';
    ExecSQL;
  end;
  CB_CKJHDH.Items.Delete(CB_CKJHDH.ItemIndex);
  if CB_CKJHDH.Items.Count <= 0 then
  begin
    CB_PPMC.DeleteItems(CB_PPMC.ItemIndex);
    CB_PPMC.ItemIndex := 0;
    CB_PPMC.OnChange(nil);
  end;
  CB_CKJHDH.ItemIndex := 0;
  CB_CKJHDHChange(nil);

end;

procedure TFrmY_CKJHDZD.BBt_ModifyClick(Sender: TObject);
begin
  if Qry_Third.IsEmpty then Exit;
  if Qry_Third.FieldByName('ZT').Asstring = CG_DG then
  begin
    CHQMsgBox('此出庫計劃單已簽批！');
    Exit;
  end;
  Qry_Third.Edit;
  Qry_Main.Edit;
  DBG_Main.SetFocus;
  PS_SetStatus(3);
end;

procedure TFrmY_CKJHDZD.BBt_DGClick(Sender: TObject);
begin
  if Qry_Third.IsEmpty then Exit;
  if Qry_Third.FieldByName('ZT').Asstring = CG_DG then
  begin
    CHQMsgBox('此出庫計劃單已簽批');
    Exit;
  end;
  if CHQMsgBox('確實要簽批嗎？', 2) = IDNO then Exit;
  with Qry_Static do
  begin
    Close;
    SQL.Text := 'update TYS_YPCKJHDB set ZT = ''2'' ,PZR= ''' + VG_UserName + ''''
      + ' where CKJHDH=''' + V_CKJHDH + '''';
    ExecSQL;
  end;
  CB_CKJHDHChange(nil);

  {  with Qry_Third do
  begin
    DisableControls;
    First;
    while not Eof do
    begin
      Edit;
      FieldByName('PZR').AsString := VG_UserName;
      FieldByName('ZT').AsString := CG_DG;
      Next;
    end;
    EnableControls;
  end;
//   PS_SetStatus(4);
  BBt_SaveClick(nil); }
end;

procedure TFrmY_CKJHDZD.BBt_CancelClick(Sender: TObject);
begin
  //刷新出庫計劃單
  CB_PPMC.Text := '';
  if (CB_PPMC.ItemIndex <> -1) then
    CB_PPMC.Text := CB_PPMC.Items[CB_PPMC.ItemIndex];
  if CB_CKJHDH.ItemIndex <> -1 then
    CB_CKJHDH.Text := CB_CKJHDH.Items[CB_CKJHDH.ItemIndex];
  CB_CKJHDHChange(nil);
  PS_SetStatus();
end;

procedure TFrmY_CKJHDZD.BBt_DeleteDWClick(Sender: TObject);
begin
  if Qry_Main.IsEmpty then Exit;
  //刷新庫存
  CE_KC.Value := CE_KC.Value + Qry_MainFPSL.AsInteger;
  if CE_KC.Value < 0 then
    CE_KC.Font.Color := ClRed
  else
    CE_KC.Font.Color := ClBlue;
  Qry_Main.Delete;
end;

procedure TFrmY_CKJHDZD.BBt_AddDWClick(Sender: TObject);
begin
  //添加單位
  FrmY_CKJHDZD_XZDW := TFrmY_CKJHDZD_XZDW.Create(nil);
  with FrmY_CKJHDZD_XZDW do
  begin
    Qry_Static.Close;
    Qry_Static.SQL.Text := 'select * from TGS_GXDWSJB WHERE JYYW=''1'' and FHDX=''1''  and DWDM not in (''' + GetExistField(Qry_Main, 'DWDM', ''',''') + ''')  order by PXM';
    Qry_Static.Open;
    ShowModal;
    if ModalResult <> MrOK then
    begin
      Free;
      Exit;
    end;
    with FrmY_CKJHDZD_XZDW.Qry_Static do
    begin
      First;
      while not Eof do
      begin
        if FrmY_CKJHDZD_XZDW.DBGrid1.SelectedRows.CurrentRowSelected then
        begin
          //取得臨時數據
          V_DWDM := FieldByName('DWDM').AsString;
          V_DWMC := FieldByName('DWJC').AsString;
//          V_DWMC := FieldByName('DWMC').AsString;
          V_FPSL := 0;
          if not Qry_Main.Locate('DWDM', V_DWDM, []) then
            //添加票品
            ps_AddRec();
        end;
        Next;
      end;
    end;
    Free;
  end;
  DBG_Main.SetFocus;
end;

procedure TFrmY_CKJHDZD.Qry_MainXJSetText(Sender: TField;
  const Text: string);
var
  TextValue: Integer;
begin
  try
?? 文件大小 4913 K
?? 上傳用戶 ljw128
?? 所屬分類企業管理
??? 相關標簽

#ERP
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? sy_ckjhdzd.pas

?? 快捷鍵說明
