pm_enter_autopo1.pas

一个MRPII系统源代码版本

  Act_Preview.Enabled:=False;
  Act_Print.Enabled:=False;

  Cmbx_PoType.Enabled:=True;
  Act_Save.Enabled:=True;

  Edt_BuyerName.Enabled:=False;
  Edt_VendorName.Enabled:=False;
  Edt_PcNo.Enabled:=True;
end;


procedure TFrm_Pm_Enter_AutoPo1.Act_QuitExecute(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Pm_Enter_AutoPo1.Act_SaveExecute(Sender: TObject);
var
  SqlText,PoNo,BookMArk:String;
  I:Integer;
  TemppoQty:double;
begin
  Edt_PcNo.OnExit(Edt_PcNo);
  Edt_EmployeeCode.OnExit(Edt_EmployeeCode);
  If AdoQry_Body.RecordCount=0 Then
  begin
    DispInfo('没有行数据，不能保存!',3);
    Abort;
  end;
  AdoQry_Body.First;
  I:=1;
  While Not AdoQry_Body.Eof Do
  begin
    If StrToFloat(FormatFloat('##0.##',AdoQry_Body.fieldbyname('PoQty').AsFloat))<=0 Then
    begin
      DispInfo('第'+IntToStr(I)+'行数据的约定交货量小于等于了0，不能保存!',3);
      Abort;
    end;
    If (AdoQry_Body.fieldbyname('PoLineDate').AsDateTime<Date()) Then
    begin
      DispInfo('第'+IntToStr(AdoQry_Body.RecNo)+'行数据约定交货日小于了系统工作日,请修改!',1);
      Abort;
    end;
    SqlText:=' Select PcLine.* '
          +' From PcLine '
          +' Where (ItemCode='''+Trim(AdoQry_Body.fieldbyname('ItemCode').AsString)+''''
          +' )And (PcNo='''+Trim(Edt_PcNo.Text)+''')';
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:=SqlText;
    AdoQry_Tmp.Open;
    If AdoQry_Tmp.Eof Then
    begin
      DispInfo('第'+IntToStr(I)+'行物料代码在相应的采购合同中找不到，不能存盘!',1);
      Abort;
    end
    Else
    begin
      SqlText:=' Select PcLine.PcTaxPrice,PcLine.PcNoTaxPrice,PcLine.PcReferencedPrice '
              +' From PcLine '
              +' Where ('''+DateTimeToStr(AdoQry_Body.fieldbyname('PoLineDate').AsDateTime) +'''>= PcStArtDate '
              +' And '''+DateTimeToStr(AdoQry_Body.fieldbyname('PoLineDate').AsDateTime) +'''<= PcendDate) '
              +' And (('''+FloatToStr(AdoQry_Body.fieldbyname('PoQty').AsFloat)+'''>= PcStArtQty '
              +' And '''+FloatToStr(AdoQry_Body.fieldbyname('PoQty').AsFloat)+'''<PcendQty)'
              +' Or (PcStArtQty=0 And PcendQty=0)) '
              +' And (ItemCode='''+Trim(AdoQry_Body.fieldbyname('ItemCode').AsString)+''''
              +' )And (PcNo='''+Trim(Edt_PcNo.Text)+''')'
              +' And (PcLine.PcLineStatus=1)';
      AdoQry_Tmp.Close;
      AdoQry_Tmp.SQL.Text:=SqlText;
      AdoQry_Tmp.Open;
      If Not AdoQry_Tmp.Eof Then
      begin
        With AdoQry_Body Do
        begin
          Edit;
          fieldbyname('POREFERENCEDPRICE').AsInteger:=AdoQry_Tmp.fieldbyname('PcREFERENCEDPRICE').AsInteger;
          fieldbyname('PoNoTaxPrice').AsFloat:=AdoQry_Tmp.fieldbyname('PcNoTaxPrice').AsFloat;
          fieldbyname('PONoTaxAmount').AsFloat:=AdoQry_Tmp.fieldbyname('PcNoTaxPrice').AsFloat*fieldbyname('PoQty').AsFloat;
          fieldbyname('PoTaxPrice').AsFloat:=AdoQry_Tmp.fieldbyname('PcTaxPrice').AsFloat;
          fieldbyname('PoTaxAmount').AsFloat:=AdoQry_Tmp.fieldbyname('PcTaxPrice').AsFloat*fieldbyname('PoQty').AsFloat;
          Post;
        end;
      end //在该段时间及数量内存在数据
      Else
      begin
        DispInfo('第'+IntTostr(I)+'行数据交货量或约定交货日与采购合同不匹配，请修改!',1);
        Abort;
      end;
    end;
    AdoQry_Body.Next;
    I:=I+1;
  end; // end While
  Application.ProcessMessages;
  DbConnect.beginTrans;
  Try
//-----------
{  AdoQry_Body.First;
  While not  AdoQry_Body.Eof Do
  begin
    SqlText:=' select sum(poqty) as PoQty from #poline1 '
            +' where ItemCode ='''+ AdoQry_Body.fieldbyname('ItemCode').AsString+''' ' ;
    AdoQry_tmp.Close;
    AdoQry_tmp.SQL.Text := SqlText;
    AdoQry_tmp.Open;
    SqlText :=' select Sum(ReMainQty) as ReMainQty from ss '
             +' where ssid in (select LimItOut from #poline1 where ItemCode= '''+ AdoQry_Body.fieldbyname('ItemCode').AsString+''')';
    AdoQry_Temp.Connection := dbconnect;
    AdoQry_Temp.Close;
    AdoQry_Temp.SQL.Text := SqlText;
    AdoQry_Temp.Open ;
    if AdoQry_Temp.fieldbyname('ReMainQty').asfloat=0 then
    begin
      If DbConnect.InTransaction Then
        DbConnect.RollBackTrans;
        DispInfo('数据已被修改,系统建议余量为0,您不可以保存此记录',3);
        abort;
    end
    else
    begin
      if AdoQry_Temp.fieldbyname('ReMainQty').AsString<> AdoQry_tmp.fieldbyname('PoQty').AsString then
      begin
        If DbConnect.InTransaction Then
          DbConnect.RollBackTrans;
          DispInfo('数据已被修改,系统建议余量为'+AdoQry_Temp.fieldbyname('ReMainQty').AsString,3);
          activecontrol:=dbgrideh1;
          exit;
      end;
    end;
    AdoQry_Body.Next;
  end;
 }
//-----------
  AdoQry_Body.First;
  While Not AdoQry_Body.Eof Do
  begin
    TemppoQty:=AdoQry_Body.fieldbyname('PoQty').AsFloat;
    SqlText := ' Select * from #poline1 '
              +' where ItemCode='''+AdoQry_Body.fieldbyname('ItemCode').AsString+''' '
              +' Order by polinedate' ;
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text := SqlText;
    AdoQry_Tmp.Open;
    While not AdoQry_Tmp.Eof do
    begin
      if TemppoQty>=AdoQry_Tmp.fieldbyname('poqty').AsFloat then
      begin
        TemppoQty:=TemppoQty-AdoQry_Tmp.fieldbyname('poqty').AsFloat;
      end
      else
      begin
        if  TemppoQty > 0 then
        begin
          AdoQry_Tmp.Edit;
          AdoQry_Tmp.fieldbyname('poqty').AsFloat:= TemppoQty;
          AdoQry_Tmp.fieldbyname('PONoFinishQty').AsFloat:= TemppoQty;
          TemppoQty:=TemppoQty-AdoQry_Tmp.fieldbyname('poqty').AsFloat;
          AdoQry_Tmp.Post;
         end
         else
         begin
          AdoQry_Tmp.Edit ;
          AdoQry_Tmp.fieldbyname('poqty').AsFloat:= 0;
          AdoQry_Tmp.fieldbyname('PONoFinishQty').AsFloat:= 0;
          AdoQry_Tmp.Post;
         end;
      end;
      AdoQry_Tmp.next;
    end;
    AdoQry_Body.next;
  end;

//-------


 {   AdoQry_Head.First;
    BookmArk:=AdoQry_Head.BookmArk;
    While Not AdoQry_Head.Eof Do
    begin
      If AdoQry_Head.fieldbyname('SScheck').AsInteger=1 Then
      begin
        SqlText:=' Select * From Ss Where SsId='''+IntToStr(AdoQry_Body.fieldbyname('LimItOut').AsInteger)+''''
                +' And convert(decimal(14,2),ReMainQty)>=convert(decimal(14,2),'''+FloatToStr(AdoQry_Body.fieldbyname('SsQty').AsFloat)+''')';
        AdoQry_Tmp.Close;
        AdoQry_Tmp.SQL.Text:=SqlText;
        AdoQry_Tmp.Open;
        If AdoQry_Tmp.Eof Then
        begin
          SqlText:= 'Select * From ss Where SsId='''+IntToStr(AdoQry_Body.fieldbyname('LimItOut').AsInteger)+'''';
          AdoQry_Tmp.Close;
          AdoQry_Tmp.SQL.Text := SqlText;
          AdoQry_Tmp.Open;
          if AdoQry_Tmp.fieldbyname('ReMainQty').AsFloat = 0 then
          begin
           If DbConnect.InTransaction Then
            DbConnect.RollBackTrans;
            DispInfo('数据已被修改,系统建议余量为0,您不可以保存此记录',3);
            abort;
          end
          else
          begin
            If  AdoQry_Body.fieldbyname('ssqty').AsFloat>AdoQry_Tmp.fieldbyname('ReMainQty').AsFloat then
            begin
              AdoQry_Body.Edit;
              AdoQry_Body.fieldbyname('SsQty').AsFloat:=AdoQry_Tmp.fieldbyname('ReMainQty').AsFloat;
              AdoQry_Body.Post;
            end;
            If DbConnect.InTransaction Then
              DbConnect.RollBackTrans;
            DispInfo('数据已被修改,系统建议余量为'+AdoQry_Tmp.fieldbyname('ReMainQty').AsString,3);
            activecontrol:=dbgrideh1;
            exit;
          end;
          //Abort;
        end;
      end;
      AdoQry_Head.Next;
    end;  }
    If CurrentFormStatus='Add' Then
    begin
      PoNO:='P'+Trim(Copy(FormatDateTime('yyyy.mm.dd',Now),3,2))+Trim(Copy(FormatDateTime('yyyy.mm.dd',Now),6,2));
      Edt_PoNo.Text:=GetNo(DbConnect,PoNo,'Po');
      Application.ProcessMessages;
      SqlText:='Insert Po '
              +' (PoNo,VendorCode,PcNO,POType,PODate,'
              +'  POTaxRate_Percent,CurrencyCode,EmployeeCode, PoSpecial,PORemArk)'
              +'  Values('
              +''''+Trim(Edt_PoNo.Text)+''''+','
              +''''+Trim(Edt_VendorCode.Text)+''''+','
              +''''+Trim(Edt_PcNo.Text)+''''+','
              +''''+IntToStr(Cmbx_PoType.ItemIndex)+''''+','
              +''''+Medt_PoDate.Text+''''+','
              +''''+Trim(Edt_PoTax.Text)+''''+','
              +''''+Trim(Edt_CurrencyCode.Text)+''''+','
              +''''+Trim(Edt_EmployeeCode.Text)+''''+','
              +''''+'0'+''''+','
              +''''+Trim(Edt_PoReMArk.Text)+''''+')';
      AdoQry_Tmp.Close;
      AdoQry_Tmp.SQL.Text:=SqlText;
      AdoQry_Tmp.ExecSQL;   // Insert Po Table
      If Not  SavePoHistory('Add') Then
        Abort;
      AdoQry_Body.First;
      While Not AdoQry_Body.Eof Do
      begin
        SqlText:='Insert PoLine '
                +' (PoNo,PoLineNo,ItemCode,POLineDate,PoStArtWorkDate,SsQty,POQty,POTaxPrice, '
                +' POTaxAmount,PONoTaxPrice,PONoTaxAmount,PONoFinishQty,POReferencedPrice,POLineStatus )'
                +' Values('
                +''''+Trim(Edt_PoNo.Text)+''','
                +''''+IntToStr(AdoQry_Body.fieldbyname('PoLineNo').AsInteger)+''','
                +''''+AdoQry_Body.fieldbyname('ItemCode').AsString+''','
                +''''+DatetimeToStr(AdoQry_Body.fieldbyname('PoLineDate').AsDateTime)+''','
                +''''+DatetimeToStr(AdoQry_Body.fieldbyname('PoStArtWorkDate').AsDateTime)+''',';
        If AdoQry_Body.fieldbyname('PoQty').AsFloat<=AdoQry_Body.fieldbyname('ssQty').AsFloat Then
          SqlText:=SqlText+''''+FloatToStr(AdoQry_Body.fieldbyname('PoQty').AsFloat)+''','
        Else
          SqlText:=SqlText+''''+FloatToStr(AdoQry_Body.fieldbyname('SsQty').AsFloat)+''',';
        SQlText:=SqlText+''''+FloatToStr(AdoQry_Body.fieldbyname('PoQty').AsFloat)+''','
                +''''+FloatToStr(AdoQry_Body.fieldbyname('POTaxPrice').AsFloat)+''','
                +''''+FloatToStr(AdoQry_Body.fieldbyname('POTaxAmount').AsFloat)+''','
                +''''+FloatToStr(AdoQry_Body.fieldbyname('PONoTaxPrice').AsFloat)+''','
                +''''+FloatToStr(AdoQry_Body.fieldbyname('PONoTaxAmount').AsFloat)+''','
                +''''+FloatToStr(AdoQry_Body.fieldbyname('PONoFinishQty').AsFloat)+''','
                +''''+IntToStr(AdoQry_Body.fieldbyname('POReferencedPrice').AsInteger)+''','
                +''''+IntToStr(AdoQry_Body.fieldbyname('POLineStatus').AsInteger)+''')';
        AdoQry_Tmp.Close;
        AdoQry_Tmp.SQL.Text:=SqlText;
        AdoQry_Tmp.ExecSQL;
        If Not  SavePoLineHistory('Add') Then //保存历史记录
          Abort;
        If Cmbx_PoType.ItemIndex=1 Then //委外加工
          IF Not AutoBuildOrder(DbConnect,Trim(Edt_PoNo.Text),Trim(AdoQry_Body.fieldbyname('ItemCode').AsString),IntToStr(AdoQry_Body.fieldbyname('PoLineNo').AsInteger),
                'Add','Po',AdoQry_Body.fieldbyname('PoQty').Asfloat) Then  //自动产生领料单
           Abort;
        AdoQry_Body.Next;
      end;
    end;
//---------------
    AdoQry_Temp.Connection := dbconnect;
    SqlText:='Select * from #poline1';
    AdoQry_Temp.Close;
    AdoQry_Temp.SQL.Text := SqlText;
    AdoQry_Temp.Open;


//-------AdoQry_Body>>>>>-AdoQry_Temp---------
    AdoQry_Temp.First;
    While Not AdoQry_Temp.Eof Do
    begin
      If AdoQry_Temp.fieldbyname('PoQty').AsFloat<=AdoQry_Temp.fieldbyname('SsQty').AsFloat Then
      begin
        AdoQry_Temp.Edit;
        AdoQry_Temp.fieldbyname('SsQty').AsFloat:=AdoQry_Temp.fieldbyname('PoQty').AsFloat;
        AdoQry_Temp.Post;
      end;
      SqlText:='Update Ss '
              +'Set ReMainQty=ReMainQty-'''+(FloatToStr(AdoQry_Temp.fieldbyname('SsQty').AsFloat))+''''
              +'where Ssid='''+IntToStr(AdoQry_Temp.fieldbyname('LimItOut').AsInteger)+'''';
      AdoQry_Tmp.Close;
      AdoQry_Tmp.SQL.Text:=SqlText;

      AdoQry_Tmp.ExecSQL;

      If AdoQry_Head.Locate('SsId',AdoQry_Temp.fieldbyname('LimItOut').AsInteger,[loCaseInsensitive]) Then
         begin
          BookmArk:=AdoQry_Head.BookmArk;
          AdoQry_Head.edit;
          AdoQry_Head.fieldbyname('ReMainQty').AsFloat:=AdoQry_Head.fieldbyname('ReMainQty').AsFloat-AdoQry_Body.fieldbyname('ssQty').AsFloat;
          AdoQry_Head.fieldbyname('SScheck').AsInteger:=0;
          AdoQry_Head.Post;

          {SqlText:='Update #Ss '
              +'Set ssReMainQty=ssReMainQty-'''+(FloatToStr(AdoQry_Temp.fieldbyname('SsQty').AsFloat))+''''
              +'where Ssid='''+IntToStr(AdoQry_Temp.fieldbyname('LimItOut').AsInteger)+'''';}
          SqlText:='Update #Ss '
              +'Set ssReMainQty= case when ssReMainQty-'''+(FloatToStr(AdoQry_Temp.fieldbyname('SsQty').AsFloat))+''' >0 then'