Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Reverted changes to "Hybrid GP Errors Overview Fb" and marked it as o…
…bsolete. Replaced it with "Hybrid GP Overview Fb".
- Loading branch information
1 parent
cab097b
commit 0f1592e
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,134 @@ | ||
| page 40125 "Hybrid GP Overview Fb" | ||
| { | ||
| ApplicationArea = All; | ||
| Caption = 'GP Migration Overview'; | ||
| PageType = CardPart; | ||
|
|
||
| layout | ||
| { | ||
| area(Content) | ||
| { | ||
| cuegroup(Errors) | ||
| { | ||
| ShowCaption = false; | ||
|
|
||
| field("Migration Errors"; MigrationErrorCount) | ||
| { | ||
| Caption = 'Migration Errors'; | ||
| ApplicationArea = Basic, Suite; | ||
| Style = Unfavorable; | ||
| StyleExpr = (MigrationErrorCount > 0); | ||
| ToolTip = 'Indicates the number of errors that occurred during the migration.'; | ||
|
|
||
| trigger OnDrillDown() | ||
| begin | ||
| Page.Run(Page::"GP Migration Error Overview"); | ||
| end; | ||
| } | ||
|
|
||
| field("Failed Companies"; FailedCompanyCount) | ||
| { | ||
| Caption = 'Failed Companies'; | ||
| ApplicationArea = Basic, Suite; | ||
| Style = Unfavorable; | ||
| StyleExpr = (FailedCompanyCount > 0); | ||
| ToolTip = 'Indicates the number of companies that failed to upgrade.'; | ||
|
|
||
| trigger OnDrillDown() | ||
| begin | ||
| Page.Run(Page::"Hybrid GP Failed Companies"); | ||
| end; | ||
| } | ||
| } | ||
|
|
||
| cuegroup(Other) | ||
| { | ||
| ShowCaption = false; | ||
|
|
||
| field("Failed Batches"; FailedBatchCount) | ||
| { | ||
| Caption = 'Failed Batches'; | ||
| ApplicationArea = All; | ||
| Style = Unfavorable; | ||
| StyleExpr = (FailedBatchCount > 0); | ||
| ToolTip = 'Indicates the total number of failed batches, for all migrated companies.'; | ||
|
|
||
| trigger OnDrillDown() | ||
| begin | ||
| Message(FailedBatchMsg); | ||
| end; | ||
| } | ||
|
|
||
| field("Migration Warnings"; MigrationWarningCount) | ||
| { | ||
| Caption = 'Migration Warnings'; | ||
| ApplicationArea = All; | ||
| ToolTip = 'Indicates the number of migration warning entries.'; | ||
|
|
||
| trigger OnDrillDown() | ||
| begin | ||
| Page.Run(Page::"GP Migration Warnings"); | ||
| end; | ||
| } | ||
| } | ||
| } | ||
| } | ||
|
|
||
| trigger OnAfterGetRecord() | ||
| var | ||
| GPMigrationErrorOverview: Record "GP Migration Error Overview"; | ||
| begin | ||
| MigrationErrorCount := GPMigrationErrorOverview.Count(); | ||
| end; | ||
|
|
||
| trigger OnAfterGetCurrRecord() | ||
| var | ||
| GPMigrationErrorOverview: Record "GP Migration Error Overview"; | ||
| HybridCompanyStatus: Record "Hybrid Company Status"; | ||
| GPMigrationWarnings: Record "GP Migration Warnings"; | ||
| HelperFunctions: Codeunit "Helper Functions"; | ||
| TotalGLBatchCount: Integer; | ||
| TotalItemBatchCount: Integer; | ||
| CompanyHasFailedBatches: Boolean; | ||
| begin | ||
| FailedBatchCount := 0; | ||
| FailedBatchMsg := 'One or more batches failed to post.\'; | ||
|
|
||
| MigrationErrorCount := GPMigrationErrorOverview.Count(); | ||
| HybridCompanyStatus.SetRange("Upgrade Status", HybridCompanyStatus."Upgrade Status"::Failed); | ||
| FailedCompanyCount := HybridCompanyStatus.Count(); | ||
| MigrationWarningCount := GPMigrationWarnings.Count(); | ||
|
|
||
| HybridCompanyStatus.Reset(); | ||
| HybridCompanyStatus.SetRange("Upgrade Status", HybridCompanyStatus."Upgrade Status"::Completed); | ||
| if HybridCompanyStatus.FindSet() then | ||
| repeat | ||
| TotalGLBatchCount := 0; | ||
| TotalItemBatchCount := 0; | ||
|
|
||
| HelperFunctions.GetUnpostedBatchCountForCompany(HybridCompanyStatus.Name, TotalGLBatchCount, TotalItemBatchCount); | ||
| FailedBatchCount := FailedBatchCount + TotalGLBatchCount + TotalItemBatchCount; | ||
| CompanyHasFailedBatches := (TotalGLBatchCount > 0) or (TotalItemBatchCount > 0); | ||
| if CompanyHasFailedBatches then begin | ||
| if (TotalGLBatchCount > 0) and (TotalItemBatchCount > 0) then | ||
| FailedBatchMsg := FailedBatchMsg + HybridCompanyStatus.Name + ': GL batches: ' + Format(TotalGLBatchCount) + ', Item batches: ' + Format(TotalItemBatchCount) + '\'; | ||
|
|
||
| if (TotalGLBatchCount > 0) and (TotalItemBatchCount = 0) then | ||
| FailedBatchMsg := FailedBatchMsg + HybridCompanyStatus.Name + ': GL batches: ' + Format(TotalGLBatchCount) + '\'; | ||
|
|
||
| if (TotalGLBatchCount = 0) and (TotalItemBatchCount > 0) then | ||
| FailedBatchMsg := FailedBatchMsg + HybridCompanyStatus.Name + ': Item batches: ' + Format(TotalItemBatchCount) + '\'; | ||
| end; | ||
| until HybridCompanyStatus.Next() = 0; | ||
|
|
||
| if FailedBatchCount = 0 then | ||
| FailedBatchMsg := 'No failed batches'; | ||
| end; | ||
|
|
||
| var | ||
| MigrationErrorCount: Integer; | ||
| FailedCompanyCount: Integer; | ||
| FailedBatchCount: Integer; | ||
| FailedBatchMsg: Text; | ||
| MigrationWarningCount: Integer; | ||
| } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
You need clean tags around the page and where it is used.