From f8001ff6f7b5d06a87068c840fe5265ca1001923 Mon Sep 17 00:00:00 2001
From: xiaoding721 <33130084+xiaoding721@users.noreply.github.com>
Date: 星期二, 03 十二月 2024 15:51:00 +0800
Subject: [PATCH] Merge branch 'dev' of http://47.101.211.7:10101/r/VWED into dev
---
_Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_GenerateData.qbl | 8 ++-
_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Component_pnlContent.def | 2 +
_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Response_pnlActions_btnOk_OnClick.def | 5 +-
_Main/BL/Type_InterfaceLoginfo/StaticMethod_CallInterfaceForSAPGet.qbl | 11 +++--
_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def | 20 ++++-----
_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl | 24 +++++++++---
_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def | 10 ++++-
7 files changed, 51 insertions(+), 29 deletions(-)
diff --git a/_Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_GenerateData.qbl b/_Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_GenerateData.qbl
index 92fef6f..9c1fd0a 100644
--- a/_Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_GenerateData.qbl
+++ b/_Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_GenerateData.qbl
@@ -9,8 +9,9 @@
String versionto,
Boolean versionflag,
const Product_MPs products,
- String executor
-) as String
+ String executor,
+ String feedback
+) as InterfaceLoginfo
{
TextBody:
[*
@@ -49,7 +50,8 @@
}
loginfo.TotalRow( ms64.MS64Data( relsize ) );
- return AOnlineAndMOfflinePlanMS64::Publish( owner, loginfo );
+ feedback := AOnlineAndMOfflinePlanMS64::Publish( owner, loginfo );
+ return loginfo;
//InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
*]
}
diff --git a/_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl b/_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl
index b6203e2..ab3a4e0 100644
--- a/_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl
+++ b/_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl
@@ -2,12 +2,14 @@
#parent: #root
StaticMethod GenerateData (
InterfaceDataset owner,
+ MacroPlan macroplan,
String werk,
String version,
Date startdate,
Date enddate,
- String executor
-) as String
+ String executor,
+ String feedback
+) as InterfaceLoginfo
{
TextBody:
[*
@@ -44,8 +46,12 @@
if( not exists( productids, Elements, e, e = quantityrow.ProductID() ) ){
productids.Add( quantityrow.ProductID() );
}
-
- pir.PIRData( relnew, Product := quantityrow.ProductID(), PlanningDate := column.StartDate(), PlanningQty := [Number]cell.Quantity(), Werk := rowwerk );
+ product := selectobject( macroplan, Product_MP, product, product.ID() = quantityrow.Name() );
+ planqty := [Number]cell.Quantity();
+ if( not isnull( product ) and exists( product.GetAllParent(), Elements, proparent, proparent.ID() = 'PL' ) ){
+ planqty := planqty * 4;
+ }
+ pir.PIRData( relnew, Product := quantityrow.ProductID(), PlanningDate := column.StartDate(), PlanningQty := planqty, Werk := rowwerk );
}
}
}
@@ -63,7 +69,12 @@
if( isnull( pirdata ) ){
pirdata := pir.PIRData( relnew, Product := row.ProductID(), PlanningDate := column.StartDate(), PlanningQty := 0, Werk := rowwerk );
}
- pirdata.PlanningQty( pirdata.PlanningQty() + [Number]cell.Quantity() );
+ product := selectobject( macroplan, Product_MP, product, product.ID() = row.Name() );
+ planqty := [Number]cell.Quantity();
+ if( not isnull( product ) and exists( product.GetAllParent(), Elements, proparent, proparent.ID() = 'PL' ) ){
+ planqty := planqty * 4;
+ }
+ pirdata.PlanningQty( pirdata.PlanningQty() + planqty );
}
}
}
@@ -80,6 +91,7 @@
}
}
loginfo.TotalRow( pir.PIRData( relsize ) );
- return AOnlineAndMOfflinePlanPIR::Publish( owner, loginfo );
+ feedback := AOnlineAndMOfflinePlanPIR::Publish( owner, loginfo );
+ return loginfo;
*]
}
diff --git a/_Main/BL/Type_InterfaceLoginfo/StaticMethod_CallInterfaceForSAPGet.qbl b/_Main/BL/Type_InterfaceLoginfo/StaticMethod_CallInterfaceForSAPGet.qbl
index 666d191..c338a06 100644
--- a/_Main/BL/Type_InterfaceLoginfo/StaticMethod_CallInterfaceForSAPGet.qbl
+++ b/_Main/BL/Type_InterfaceLoginfo/StaticMethod_CallInterfaceForSAPGet.qbl
@@ -50,11 +50,14 @@
item := data.Get( i );
sapresponse.Add( InterfaceSAPResponseLoginfo::GenerateData( loginfo, item ) );
}
- sucproduct := selectuniquevalues( sapresponse, Elements, e, e.IsSuccess(), e.Msg_v1() );
- failmssages := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess(), ifexpr( e.Msg().FindString( e.Msg_v1(), 0 ) > -1, e.Msg().ReplaceAll( e.Msg_v1(), '*' ), e.Msg() ) );
- feedback := feedback.Concat( '浜у搧' ).Concat( sucproduct.Concatenate( "銆�" ) ).Concat( '鎺ㄩ�佹垚鍔�' ).Concat( '锛�' );
+ Transaction::Transaction().Propagate( attribute( InterfaceSAPResponseLoginfo, IsSuccess ) );
+ // sucproduct := selectuniquevalues( sapresponse, Elements, e, e.IsSuccess(), e.Msg_v1() );
+ failmssages := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess(), ifexpr( e.Msg().FindString( e.Msg_v1(), 0 ) > -1, e.Msg().ReplaceAll( e.Msg_v1(), '*' ), e.Msg_v2() ) );
+ // if( sucproduct.Size() > 0 ){
+ // feedback := feedback.Concat( '浜у搧' ).Concat( sucproduct.Concatenate( "銆�" ) ).Concat( '鎺ㄩ�佹垚鍔�' ).Concat( '锛�' );
+ // }
traverse( failmssages, Elements, failmsg ){
- failproduct := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess() and ( failmsg = e.Msg() or failmsg = e.Msg().ReplaceAll( e.Msg_v1(), '*' ) ), e.Msg_v1() );
+ failproduct := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess() and ( failmsg = e.Msg_v2() or failmsg = e.Msg().ReplaceAll( e.Msg_v1(), '*' ) ), e.Msg_v1() );
if( failmsg.FindString( '*', 0 ) > -1 ){
feedback := feedback.Concat( failmsg.ReplaceAll( '*', failproduct.Concatenate( '銆�' ) ) ).Concat( '锛�' );
}else{
diff --git a/_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Component_pnlContent.def b/_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Component_pnlContent.def
index a6b3254..68dd132 100644
--- a/_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Component_pnlContent.def
+++ b/_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Component_pnlContent.def
@@ -11,6 +11,8 @@
BaseType: 'WebEditField'
Properties:
[
+ DataBinding: 'dhDialogData.Data.Quantity'
+ Label: 'Quantity'
Mask: 'REAL'
Taborder: 0
]
diff --git a/_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Response_pnlActions_btnOk_OnClick.def b/_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Response_pnlActions_btnOk_OnClick.def
index 05d32be..1a02b69 100644
--- a/_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Response_pnlActions_btnOk_OnClick.def
+++ b/_Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Response_pnlActions_btnOk_OnClick.def
@@ -4,13 +4,12 @@
{
#keys: '[415136.0.1345221306]'
DefinitionID: 'Responsedef_WebButton_OnClick'
- GroupServerCalls: true
QuillAction
{
Body:
[*
- Form.ApplyChanges();
- Form.Close();
+ Form.OnOK();
*]
+ GroupServerCalls: false
}
}
diff --git a/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def b/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def
index 2832269..28ea388 100644
--- a/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def
+++ b/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def
@@ -6,20 +6,18 @@
Body:
[*
Form.ApplyChanges();
- //componentmds := ApplicationScope.ComponentMDS();
- //mdsinstanceF := select( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().MDSKey() = ddlOriginMacroPlan.Data().DatasetMDSID() );
- //handleF := mdsinstanceF.GetMDSHandle()
- //macroplanF := handleF.AsMacroPlan();
- //
- //mdsinstanceT := select( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().MDSKey() = ddlDestinationMacroPlan.Data().DatasetMDSID() );
- //handleT := mdsinstanceT.GetMDSHandle()
- //macroplanT := handleT.AsMacroPlan();
if( WebMessageBox::Question( this, '鏄惁纭鎺ㄩ��', 'OK|Cancel' ) = 0 ){
currentuser := QuintiqUser::CurrentUser().DisplayName();
-
- msg := AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser );
- WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' )
+ msg := '';
+ loginfo := AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser, msg );
+ sucproduct := selectuniquevalues( loginfo, SAPResponseLoginfo, e, e.IsSuccess(), e.Msg() );
+ // info( '--------------', sucproduct.Size(), loginfo.SAPResponseLoginfo( relsize ), sucproduct.Size() = loginfo.SAPResponseLoginfo( relsize ) );
+ if( sucproduct.Size() = loginfo.SAPResponseLoginfo( relsize ) ){
+ WebMessageBox::Success( ApplicationMacroPlanner, '鎺ㄩ�佹垚鍔�' );
+ }else{
+ WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' );
+ }
}
Form.Close();
*]
diff --git a/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def b/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def
index 1b03263..c2ceec4 100644
--- a/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def
+++ b/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def
@@ -7,8 +7,14 @@
[*
Form.ApplyChanges();
if( WebMessageBox::Question( this, '鏄惁纭鎺ㄩ��', 'OK|Cancel' ) = 0 ){
- msg := AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() );
- WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' )
+ msg := '';
+ loginfo := AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, MacroPlan, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName(), msg );
+ sucproduct := selectuniquevalues( loginfo, SAPResponseLoginfo, e, e.IsSuccess(), e.Msg_v1() );
+ if( sucproduct.Size() = loginfo.SAPResponseLoginfo( relsize ) ){
+ WebMessageBox::Success( ApplicationMacroPlanner, '鎺ㄩ�佹垚鍔�' );
+ }else{
+ WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' );
+ }
}
Form.Close();
*]
--
Gitblit v1.9.3