📄 unit_returncheck.pas

📁 用友ERP功能扩展
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
    Form_Data.Table__WeiSRDs.Active := True ;

end;

procedure TForm_ReturnCheck.N1Click(Sender: TObject);
begin
    Form_Data.Table__WeiSRD.Active := False ;
    Form_Data.Table__WeiSRD.Active := True ;
    Form_Data.Table__WeiSRDs.Active := False ;
    Form_Data.Table__WeiSRDs.Active := True ;

end;

procedure TForm_ReturnCheck.DBGrid_WeiSRDsCustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
    IF Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice'] = 0 Then
    DBGrid_WeiSRDs.Canvas.Font.Color := clRED;
end;

procedure TForm_ReturnCheck.Return02Click(Sender: TObject);
Var
    sCusCode,sInvCode,sCusName,sInvName,sCustType,sPrice,sRate,sInvSCost,sDJNo,sRetrun: String;
    bLocate: Boolean;
    Opt: TLocateOptions;
begin
    IF Form_Data.Table_Manage.Lookup('MName',UserName,'M013') = 0 Then
    Begin
        Showmessage('你无权执行此项操作,请咨询系统管理员!');
        Exit;
    End;



    IF Form_Data.Table__WeiSRD.FieldByName('价格类别').AsString ='' Then  sCustType := ''
    Else sCustType := Form_Data.Table__WeiSRD.FieldValues['价格类别'];

    ID:=Form_Data.Table__WeiSRDs.FieldValues['AutoID'];

    IF (sCustType = '外省客户') AND (Form_Data.Table__WeiSRDs.FieldValues['外省价'] <> 0) Then
    sPrice := Form_Data.Table__WeiSRDs.FieldValues['外省价']
    Else IF (sCustType = '弄怀客户') AND (Form_Data.Table__WeiSRDs.FieldValues['弄怀价'] <> 0) Then
    sPrice := Form_Data.Table__WeiSRDs.FieldValues['弄怀价']
    Else
    sPrice := Form_Data.Table__WeiSRDs.FieldValues['iInvSCost'];
    sRate := floattostr(Round(strtofloat(sPrice)*100/Form_Data.Table__WeiSRDs.FieldValues['iInvSCost']*100)/100);

    sInvSCost := Form_Data.Table__WeiSRDs.FieldValues['iInvSCost'];
    sDJNo := '退单编号: ' + Form_Data.Table__WeiSRD.FieldByName('单据编号').AsString+'  '+UserName;

    Opt:= [LoPartialKey];
    sCusCode := Form_Data.Table__WeiSRD.FieldValues['cCusCode'] ;
    Form_Data.Table__SA_CusUprice.Active := False ;
    Form_Data.Table__SA_CusUprice.Active := True ;
    sInvCode := Form_Data.Table__WeiSRDs.FieldValues['cInvCode'] ;
    bLocate :=  Form_Data.Table__SA_CusUprice.Locate('cCusCode;cInvCode',varArrayof([sCusCode,sInvCode]),[]);
    sCusName := Form_Data.Table__WeiSRD.FieldByName('客户名称').AsString;
    sInvName := Form_Data.Table__WeiSRDs.FieldByName('cInvName').AsString;
    IF MessageDlg('请再确认:  '+#13+#13+'你的作业将货品的限制销退功能关闭,详细资料如下: '+#13+'客户:    ['+ sCusCode +'] '+ sCusName +#13+'货品:    ['+ sInvCode +'] '+ sInvName +#13+#13+#13+'[确定]请单击 OK 按钮,[取消]请单击 Cancel 按钮' ,mtInformation,[mbOK,mbCancel],0) = mrOk Then
    Begin

    IF  bLocate = False Then
    Begin
        Form_Data.SQL.Close;
        Form_Data.SQL.SQL.Clear;
        Form_Data.SQL.SQL.Add('INSERT INTO SA_CusUPrice');
        Form_Data.SQL.SQL.Add('(cCusCode, cInvCode, iInvSCost, iCusDisRate, iInvNowCost,cMemo,dEndDate)');
        Form_Data.SQL.SQL.Add('VALUES ('''+ sCusCode +''','''+ sInvCode +''','+ sInvSCost +','+ sRate +','+ sPrice +','''+ sDJNo +''',GetDate()+3)');
        Form_Data.SQl.ExecSQL;

        Form_Data.Table__SA_CusUprice.Close;
        Form_Data.Table__SA_CusUprice.Open;

        With Form_Data.Table__WeiSRDs do
        Begin
            Form_Data.Table__WeiSRDs.Edit;
            Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice'] := sPrice;
            Form_Data.Table__WeiSRDs.FieldValues['iMoney'] := Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice']* Form_Data.Table__WeiSRDs.FieldValues['iQuantity'];
            Form_Data.Table__WeiSRDs.Post;
        end;
    End Else Begin
        //开启失交报价
        sRetrun := Form_Data.Table__SA_CusUprice.FieldByName('bRetrun').AsString ;
        IF  sRetrun = '0' Then
        Showmessage('客户报价资料库已有指定价,状态是限销限退,如需修改请咨询采销部经理! ')
        Else
        Begin
        IF MessageDlg('客户报价资料库已有指定价,状态是限销不限退,需要收退货吗?' ,mtInformation,[mbOK,mbCancel],0) = mrOk Then
          Begin
            With Form_Data.Table__WeiSRDs do
            Begin
            Form_Data.Table__WeiSRDs.Edit;
            Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice'] := sPrice;
            Form_Data.Table__WeiSRDs.FieldValues['iMoney'] := Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice']* Form_Data.Table__WeiSRDs.FieldValues['iQuantity'];
            Form_Data.Table__WeiSRDs.Post;
            end;
          End;
        End;
    end;

    Form_Data.Table__SA_CusUprice.Active := False ;
    Form_Data.Table__SA_CusUprice.Active := True ;
    Form_Data.Table__WeiSRDs.Active := False ;
    Form_Data.Table__WeiSRDs.Active := True ;

    Form_Data.Table__WeiSRDs.Locate('AutoID',ID,[]);

    End Else Exit;
end;

procedure TForm_ReturnCheck.Return03Click(Sender: TObject);
Var
    sCusCode,sInvCode,sCusName,sInvName,sCustType,sPrice,sRate,sInvSCost,sDJNo,sRetrun: String;
    bLocate: Boolean;
    Opt: TLocateOptions;
begin
    IF Form_Data.Table_Manage.Lookup('MName',UserName,'M013') = 0 Then
    Begin
        Showmessage('你无权执行此项操作,请咨询系统管理员!');
        Exit;
    End;



    IF Form_Data.Table__WeiSRD.FieldByName('价格类别').AsString ='' Then  sCustType := ''
    Else sCustType := Form_Data.Table__WeiSRD.FieldValues['价格类别'];

    ID:=Form_Data.Table__WeiSRDs.FieldValues['AutoID'];

    IF (sCustType = '外省客户') AND (Form_Data.Table__WeiSRDs.FieldValues['外省价'] <> 0) Then
    sPrice := Form_Data.Table__WeiSRDs.FieldValues['外省价']
    Else IF (sCustType = '弄怀客户') AND (Form_Data.Table__WeiSRDs.FieldValues['弄怀价'] <> 0) Then
    sPrice := Form_Data.Table__WeiSRDs.FieldValues['弄怀价']
    Else
    sPrice := Form_Data.Table__WeiSRDs.FieldValues['iInvSCost'];
    sRate := floattostr(Round(strtofloat(sPrice)*100/Form_Data.Table__WeiSRDs.FieldValues['iInvSCost']*100)/100);

    sInvSCost := Form_Data.Table__WeiSRDs.FieldValues['iInvSCost'];
    sDJNo := '退单编号: ' + Form_Data.Table__WeiSRD.FieldByName('单据编号').AsString+'  '+UserName;

    Opt:= [LoPartialKey];
    sCusCode := Form_Data.Table__WeiSRD.FieldValues['cCusCode'] ;
    Form_Data.Table__SA_CusUprice.Active := False ;
    Form_Data.Table__SA_CusUprice.Active := True ;
    sInvCode := Form_Data.Table__WeiSRDs.FieldValues['cInvCode'] ;
    bLocate :=  Form_Data.Table__SA_CusUprice.Locate('cCusCode;cInvCode',varArrayof([sCusCode,sInvCode]),[]);
    sCusName := Form_Data.Table__WeiSRD.FieldByName('客户名称').AsString;
    sInvName := Form_Data.Table__WeiSRDs.FieldByName('cInvName').AsString;
    IF MessageDlg('请再确认:  '+#13+#13+'你的作业将货品的限制销退功能关闭,详细资料如下: '+#13+'客户:    ['+ sCusCode +'] '+ sCusName +#13+'货品:    ['+ sInvCode +'] '+ sInvName +#13+#13+#13+'[确定]请单击 OK 按钮,[取消]请单击 Cancel 按钮' ,mtInformation,[mbOK,mbCancel],0) = mrOk Then
    Begin

    IF  bLocate = False Then
    Begin
        Form_Data.SQL.Close;
        Form_Data.SQL.SQL.Clear;
        Form_Data.SQL.SQL.Add('INSERT INTO SA_CusUPrice');
        Form_Data.SQL.SQL.Add('(cCusCode, cInvCode, iInvSCost, iCusDisRate, iInvNowCost,cMemo,dEndDate)');
        Form_Data.SQL.SQL.Add('VALUES ('''+ sCusCode +''','''+ sInvCode +''','+ sInvSCost +','+ sRate +','+ sPrice +','''+ sDJNo +''',GetDate()+7)');
        Form_Data.SQl.ExecSQL;

        Form_Data.Table__SA_CusUprice.Close;
        Form_Data.Table__SA_CusUprice.Open;

        With Form_Data.Table__WeiSRDs do
        Begin
            Form_Data.Table__WeiSRDs.Edit;
            Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice'] := sPrice;
            Form_Data.Table__WeiSRDs.FieldValues['iMoney'] := Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice']* Form_Data.Table__WeiSRDs.FieldValues['iQuantity'];
            Form_Data.Table__WeiSRDs.Post;
        end;
    End Else Begin
        //开启失交报价
        sRetrun := Form_Data.Table__SA_CusUprice.FieldByName('bRetrun').AsString ;
        IF  sRetrun = '0' Then
        Showmessage('客户报价资料库已有指定价,状态是限销限退,如需修改请咨询采销部经理! ')
        Else
        Begin
        IF MessageDlg('客户报价资料库已有指定价,状态是限销不限退,需要收退货吗?' ,mtInformation,[mbOK,mbCancel],0) = mrOk Then
          Begin
            With Form_Data.Table__WeiSRDs do
            Begin
            Form_Data.Table__WeiSRDs.Edit;
            Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice'] := sPrice;
            Form_Data.Table__WeiSRDs.FieldValues['iMoney'] := Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice']* Form_Data.Table__WeiSRDs.FieldValues['iQuantity'];
            Form_Data.Table__WeiSRDs.Post;
            end;
          End;
        End;
    end;
    Form_Data.Table__SA_CusUprice.Active := False ;
    Form_Data.Table__SA_CusUprice.Active := True ;
    Form_Data.Table__WeiSRDs.Active := False ;
    Form_Data.Table__WeiSRDs.Active := True ;

    Form_Data.Table__WeiSRDs.Locate('AutoID',ID,[]);

    End Else Exit;
end;

procedure TForm_ReturnCheck.Return04Click(Sender: TObject);
Var
    sCusCode,sInvCode,sCusName,sInvName,sCustType,sPrice,sRate,sInvSCost,sDJNo,sRetrun: String;
    bLocate: Boolean;
    Opt: TLocateOptions;
begin
    IF Form_Data.Table_Manage.Lookup('MName',UserName,'M013') = 0 Then
    Begin
        Showmessage('你无权执行此项操作,请咨询系统管理员!');
        Exit;
    End;



    IF Form_Data.Table__WeiSRD.FieldByName('价格类别').AsString ='' Then  sCustType := ''
    Else sCustType := Form_Data.Table__WeiSRD.FieldValues['价格类别'];

    ID:=Form_Data.Table__WeiSRDs.FieldValues['AutoID'];

    IF (sCustType = '外省客户') AND (Form_Data.Table__WeiSRDs.FieldValues['外省价'] <> 0) Then
    sPrice := Form_Data.Table__WeiSRDs.FieldValues['外省价']
    Else IF (sCustType = '弄怀客户') AND (Form_Data.Table__WeiSRDs.FieldValues['弄怀价'] <> 0) Then
    sPrice := Form_Data.Table__WeiSRDs.FieldValues['弄怀价']
    Else
    sPrice := Form_Data.Table__WeiSRDs.FieldValues['iInvSCost'];
    sRate := floattostr(Round(strtofloat(sPrice)*100/Form_Data.Table__WeiSRDs.FieldValues['iInvSCost']*100)/100);

    sInvSCost := Form_Data.Table__WeiSRDs.FieldValues['iInvSCost'];
    sDJNo := '退单编号: ' + Form_Data.Table__WeiSRD.FieldByName('单据编号').AsString+'  '+UserName;

    Opt:= [LoPartialKey];
    sCusCode := Form_Data.Table__WeiSRD.FieldValues['cCusCode'] ;
    Form_Data.Table__SA_CusUprice.Active := False ;
    Form_Data.Table__SA_CusUprice.Active := True ;
    sInvCode := Form_Data.Table__WeiSRDs.FieldValues['cInvCode'] ;
    bLocate :=  Form_Data.Table__SA_CusUprice.Locate('cCusCode;cInvCode',varArrayof([sCusCode,sInvCode]),[]);
    sCusName := Form_Data.Table__WeiSRD.FieldByName('客户名称').AsString;
    sInvName := Form_Data.Table__WeiSRDs.FieldByName('cInvName').AsString;
    IF MessageDlg('请再确认:  '+#13+#13+'你的作业将货品的限制销退功能关闭,详细资料如下: '+#13+'客户:    ['+ sCusCode +'] '+ sCusName +#13+'货品:    ['+ sInvCode +'] '+ sInvName +#13+#13+#13+'[确定]请单击 OK 按钮,[取消]请单击 Cancel 按钮' ,mtInformation,[mbOK,mbCancel],0) = mrOk Then
    Begin

    IF  bLocate = False Then
    Begin
        Form_Data.SQL.Close;
        Form_Data.SQL.SQL.Clear;
        Form_Data.SQL.SQL.Add('INSERT INTO SA_CusUPrice');
        Form_Data.SQL.SQL.Add('(cCusCode, cInvCode, iInvSCost, iCusDisRate, iInvNowCost,cMemo,dEndDate)');
        Form_Data.SQL.SQL.Add('VALUES ('''+ sCusCode +''','''+ sInvCode +''','+ sInvSCost +','+ sRate +','+ sPrice +','''+ sDJNo +''',GetDate()+14)');
        Form_Data.SQl.ExecSQL;

        Form_Data.Table__SA_CusUprice.Close;
        Form_Data.Table__SA_CusUprice.Open;
        With Form_Data.Table__WeiSRDs do
        Begin
            Form_Data.Table__WeiSRDs.Edit;
            Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice'] := sPrice;
            Form_Data.Table__WeiSRDs.FieldValues['iMoney'] := Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice']* Form_Data.Table__WeiSRDs.FieldValues['iQuantity'];
            Form_Data.Table__WeiSRDs.Post;
        end;
    End Else Begin
        //开启失交报价
        sRetrun := Form_Data.Table__SA_CusUprice.FieldByName('bRetrun').AsString ;
        IF  sRetrun = '0' Then
        Showmessage('客户报价资料库已有指定价,状态是限销限退,如需修改请咨询采销部经理! ')
        Else
        Begin
        IF MessageDlg('客户报价资料库已有指定价,状态是限销不限退,需要收退货吗?' ,mtInformation,[mbOK,mbCancel],0) = mrOk Then
          Begin
            With Form_Data.Table__WeiSRDs do
            Begin
            Form_Data.Table__WeiSRDs.Edit;
            Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice'] := sPrice;
            Form_Data.Table__WeiSRDs.FieldValues['iMoney'] := Form_Data.Table__WeiSRDs.FieldValues['iUnitPrice']* Form_Data.Table__WeiSRDs.FieldValues['iQuantity'];
            Form_Data.Table__WeiSRDs.Post;
            end;
          End;
        End;
    end;
    Form_Data.Table__SA_CusUprice.Active := False ;
    Form_Data.Table__SA_CusUprice.Active := True ;
    Form_Data.Table__WeiSRDs.Active := False ;
    Form_Data.Table__WeiSRDs.Active := True ;

    Form_Data.Table__WeiSRDs.Locate('AutoID',ID,[]);

    End Else Exit;
end;

end.
上一页 12
💿 文件大小 1720 K
👤 上传用户 snowpilce
📂 所属分类 SQL Server
🏷️ 相关标签

#ERP #扩展
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -