newproductunit.pas

用友系统二次开发 存货管理 客户管理 订货审核 退货审核 铺货计划 调货计划

end;

procedure TfrmNewProduct.BtnEditClick(Sender: TObject);
begin
    iState:=1;
    RzPanel1.Enabled:= True ;
    BtnNew.Enabled := False ;
    BtnEdit.Enabled := False ;
    BtnQuery.Enabled := False ;
    BtnOK.Enabled  := True ;
    BtnCancel.Enabled  := True ;

end;

procedure TfrmNewProduct.BtnOKClick(Sender: TObject);
begin
    RzMemo1.Lines.Clear;
    IF iState = 0 Then begin
       if bControl.Checked Then bControl.Hint := '是' else bControl.Hint := '否';
       if bMyLabel.Checked Then bMyLabel.Hint := '自有品牌' else bMyLabel.Hint := '代理品牌';
       if (cbProddata.Checked) then begin
           if (InvCode.Text<>'' ) AND (InvName.Text<>'')  AND (UnitList.Text <> '') Then begin
              if MessageDlg('提示: '+#13+'建立该商品的档案: '+#13+#13+#13+ InvCode.Text +' - '+ InvName.Text,mtInformation,[mbOK,mbCancel],0) = mrOk Then
              begin
              try
                with dm.sql do begin
                 CommandText := 'ExeCute _PM_P_Product_Insert '''+
                    InvCode.Text +''','''+ InvName.Text +''','''+ Rights(UnitList.Text) +''','''+
                    Lefts(TypeList.Text) +''','''+ Rights(VenList.Text) +''','''+Lefts(LabelList.Text) +''','''+
                    Lefts(UnitList.Text) +''','''+ bControl.Hint +''','''+ bMyLabel.Hint +''','''+
                    FrmLogin.LandingUser +''','''+ SouName.Text +''','''''''+ SizeList.Text +''''''','''''''+
                    ColorList.Text +''''''','''+ PlanCust.Text +''','''+ BuyPrice.Text +''','''+
                    SalePrice.Text +''','''+ WXPrice.Text +''','''+ LSPrice.Text +''','''+
                    FormatDatetime('YYYY-MM-DD',dStartDate.Date)+''','''+
                    InvType1.Text +''','''+ InvType2.Text +''','''+ InvType3.Text +''','''+
                    InvType4.Text +''','''+ InvType5.Text +''','''+ InvType6.Text +'''' ;
                execute;
              end;
              RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 商品档案...建档成功!');
            except
              RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 商品档案...建档失败! ');
            end;
            end Else Exit ;
        end
      else RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 商品档案...未建档! ');
      end;


      RzProgressBar1.Percent:= 30 ;

      if (cbColorSize.Checked) then begin
        if (InvCode.Text<>'' )  AND (ColorList.Text<>'未选择颜色' ) AND (SizeList.Text<>'未选择尺码')  then begin
          try
            With dm.sql do begin
              CommandText := 'ExeCute _PM_P_Color_Insert '''+ InvCode.Text +''','''''''+
              SizeList.Text +''''''',''''''' +  ColorList.Text + '''''''';
              execute;
            end;
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 颜色尺码...建档成功!');
          except
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 颜色尺码...建档失败! ');
          end;
        end
        else RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 颜色尺码...未建档! ');
     end;

      RzProgressBar1.Percent:= 40 ;

      if (cbInvPrice.Checked) then begin
        if (InvCode.Text<>'' ) AND (Not bControl.Checked) then begin
          try
            With dm.sql do begin
               CommandText := 'ExeCute _PM_P_InvPrice_Insert '''+ InvCode.Text +''',' +
                    STPrice.Text ;
               execute;
            end;
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 存货价格...建档成功! ');
          except
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 存货价格...建档失败! ');
          end;
        end
        else RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 存货价格...未建档! ');
      end;

      RzProgressBar1.Percent:= 50 ;

      if (cbVenPrice.Checked) then begin
        if (InvCode.Text<>'' )  AND (VenList.Text<>'' ) AND (BuyPrice.Text<>'') then begin
          try
            With dm.sql do begin
              CommandText := 'ExeCute _PM_P_VenPrice_Insert '''+ InvCode.Text +''',''' +
                    Rights(VenList.Text) +'''';
              execute;
            end;
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 供应商价格...建档成功! ');
          except
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 供应商价格...建档失败! ');
          end;
        end
        else RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 供应商价格...未建档! ');
      end;

      RzProgressBar1.Percent:= 60 ;

      if (cbSalePlan.Checked) then begin
        if (InvCode.Text<>'' ) AND (PlanCust.value>0 ) then begin
          try
            With dm.sql do begin
              CommandText := 'ExeCute _PM_P_Plan_Insert '''+ InvCode.Text +''',''1'',' +
                    IntToStr(PlanCust.Value)+','''+FrmLogin.LandingUser +''','''',''' +
                    (FormatDatetime('YYYY/MM/DD',Now())+' - '+FormatDatetime('YYYY/MM/DD',Now()))+' '+Rights(UnitList.Text)+SizeList.Text+ColorList.Text+
                    SalePrice.text+TE_PlanMemo.text+'''';
              execute;
            end;
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 铺货计划...建档成功! ');
          except
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 铺货计划...建档失败! ');
          end;
        end
        else RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 铺货计划...未建档! ');
            Showmessage(dm.SQL.CommandText);
      end;

      RzProgressBar1.Percent:= 70 ;

      if (cbLSdata.Checked) then begin
          try
            With dm.sql do begin
              CommandText := 'ExeCute _PM_P_LSserver_Insert '''+ InvCode.Text +'''';
              execute;
            end;
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 零售系统...建档成功! ');
          except
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 零售系统...建档失败! ');
            Showmessage(dm.SQL.CommandText);
          end;
      end;

      RzProgressBar1.Percent:= 80 ;

      if (cbBarCode.Checked) then begin
          Try
            With dm.sql do begin
              CommandText := 'ExeCute _PM_P_BarCode_Update ';
              execute;
            end;
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 条码档案...更新成功! ');
          except
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 条码档案...更新失败! ');
          end;
      end;

      RzProgressBar1.Percent:= 90 ;

      if (cbLSUpdate.Checked) then begin
          try
            With dm.sql do begin
              CommandText := 'ExeCute _PM_P_LSserver_Update ';
              execute;
            end;
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 零售系统...同步成功! ');
          except
            RzMemo1.Lines.Add('['+IntToStr(RzMemo1.Lines.Count)+'] ' +' 零售系统...同步失败! ');
          end;
      end;

      RzMemo1.Lines.Add('-----------');
      RzProgressBar1.Percent:= 100 ;

    end;
    RzPanel1.Enabled:= False ;
    BtnNew.Enabled := True ;
    BtnEdit.Enabled := True ;
    BtnQuery.Enabled := True ;
    BtnOK.Enabled  := False ;
    BtnCancel.Enabled  := False ;
end;

procedure TfrmNewProduct.BtnCancelClick(Sender: TObject);
begin
    RzPanel1.Enabled:= False ;
    BtnNew.Enabled := True ;
    BtnEdit.Enabled := True ;
    BtnQuery.Enabled := True ;
    BtnOK.Enabled  := False ;
    BtnCancel.Enabled  := False ;
end;

procedure TfrmNewProduct.BtnQueryClick(Sender: TObject);
begin
    RzPanel1.Enabled:= False ;
    BtnNew.Enabled := False ;
    BtnEdit.Enabled := False ;
    BtnQuery.Enabled := False ;
    BtnOK.Enabled  := True ;
    BtnCancel.Enabled  := True ;
end;

procedure TfrmNewProduct.InvType1PropertiesChange(Sender: TObject);
begin
    //读取中类代码
    Sqltext :='Execute _PM_P_LoadItem '''+InvType1.Text+''',6';
    Invtype2.Properties.Items.Clear ;
    Invtype2.Properties.Items.AddStrings(GetList(Sqltext));

end;

procedure TfrmNewProduct.InvType2PropertiesChange(Sender: TObject);
begin
    //读取小类代码
    Sqltext :='Execute _PM_P_LoadItem '''+InvType2.Text+''',7';
    Invtype3.Properties.Items.Clear ;
    Invtype3.Properties.Items.AddStrings(GetList(Sqltext));

end;

procedure TfrmNewProduct.InvType3PropertiesChange(Sender: TObject);
begin
    //读取明细类别代码
    Sqltext :='Execute _PM_P_LoadItem '''+InvType3.Text+''',8';
    Invtype4.Properties.Items.Clear ;
    Invtype4.Properties.Items.AddStrings(GetList(Sqltext));

end;

procedure TfrmNewProduct.InvNamePropertiesChange(Sender: TObject);
begin
    //读取大类代码
    Sqltext :='Execute _PM_P_LoadItem '''+lefts(TypeList.Text)+''',5';
    Invtype1.Properties.Items.Clear ;
    Invtype1.Properties.Items.AddStrings(GetList(Sqltext));
end;

procedure TfrmNewProduct.InvIDExit(Sender: TObject);
begin
      InvCode.Text := '' ;
      UnitList.Text :=  '' ;
end;

procedure TfrmNewProduct.Label_ProductCodeLabelClick(Sender: TObject);
begin
MarkcInvCode
end;

end.