From 22fea2ec7fb9d5559d9d7e6797755fa5d009dd3c Mon Sep 17 00:00:00 2001
From: Rene Evertz <rene.evertz@ownsoft.de>
Date: Thu, 20 Jun 2024 11:50:22 +0200
Subject: [PATCH] SentSuccess

---
 .../Controls/GkvAbrechnungDetailControl.xaml  | 32 ++++++++++---------
 .../Accounting/GkvAbrechnungOverview.xaml     |  2 +-
 BeWo/ViewModel/GkvAbrechnungVM.cs             | 19 ++++++-----
 Data/Access/SearchDAO.cs                      |  4 +--
 Data/Entities/GkvTransferprotokoll.cs         |  2 ++
 Data/Mappings/GkvTransferProtokoll.hbm.xml    |  3 +-
 Host/GkvAbrechnungView.aspx.cs                |  7 +++-
 Model/Changes_2024_06_20 GKV_SentSuccess.txt  |  2 ++
 ...ransferProtokollDC_GkvTransferprotokoll.cs |  4 +++
 .../AccountingServiceImp.cs                   |  1 -
 .../GkvAbrechnung/GkvTransferProtokollDC.cs   |  6 ++++
 11 files changed, 51 insertions(+), 31 deletions(-)
 create mode 100644 Model/Changes_2024_06_20 GKV_SentSuccess.txt

diff --git a/BeWo/View/Controls/GkvAbrechnungDetailControl.xaml b/BeWo/View/Controls/GkvAbrechnungDetailControl.xaml
index 2939e14e7..2b8e12127 100644
--- a/BeWo/View/Controls/GkvAbrechnungDetailControl.xaml
+++ b/BeWo/View/Controls/GkvAbrechnungDetailControl.xaml
@@ -104,37 +104,39 @@
             <TabItem Header="Protokoll">
                 <dxg:GridControl Margin="3" x:Name="datagrid_transfer" DataSource="{Binding TransferProtokolle}" VerticalAlignment="Stretch" HorizontalAlignment="Stretch">
                     <dxg:GridControl.Columns>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="GkvTransferProtokollOid" Header="Protokoll Oid" Tag="Debug"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="GkvTransferProtokollVersion" Header="Protokoll Version" Tag="Debug"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="AbsenderBezeichnung" Header="Absender Bezeichnung"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="EmpfangerBezeichnung" Header="Empfanger Bezeichnung"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="IKLeistungserbringer" Header="IK Leistungserbringer"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="IKKrankenkasse" Header="IK Krankenkasse"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="IKKostentrager" Header="IK Kostentrager"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Rechnungsnummer" Header="Rechnungsnummer"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Datenaustauschreferenz" Header="Datenaustauschreferenz"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Transfernummer" Header="Transfernummer"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Transfername" Header="Transfername"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="GkvTransferProtokollOid" Header="Oid" Tag="Debug"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="GkvTransferProtokollVersion" Header="Version" Tag="Debug"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="AbsenderBezeichnung" Header="Absender"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="EmpfangerBezeichnung" Header="Empfanger"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="IKLeistungserbringer" Header="Leistungserbringer"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="IKKrankenkasse" Header="Krankenkasse"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="IKKostentrager" Header="Kostentrager"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Rechnungsnummer" Header="Rec.Nr."></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Datenaustauschreferenz" Header="Dat. ref."></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Transfernummer" Header="TNr."></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Transfername" Header="TName"></dxg:GridColumn>
                         <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="ErstelltAm" Header="Erstellt">
                             <dxg:GridColumn.EditSettings>
                                 <dxe:TextEditSettings DisplayFormat="g" Mask="c" MaskType="DateTime"></dxe:TextEditSettings>
                             </dxg:GridColumn.EditSettings>
                         </dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Dateityp" Header="Dateityp"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Dateityp" Header="Typ"></dxg:GridColumn>
                         <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Dateiname" Header="Dateiname"></dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Dateigrosse" Header="Dateigrosse"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Dateigrosse" Header="Größe"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="SentSuccess" Header="Dakota Ãœbertragen"></dxg:GridColumn>
                         <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Fehlertitel" Header="Fehlertitel"></dxg:GridColumn>
+                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Fehlernachricht" Header="Fehlernachricht"></dxg:GridColumn>
                         <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Fehlerdatum" Header="Fehlerdatum">
                             <dxg:GridColumn.EditSettings>
                                 <dxe:TextEditSettings DisplayFormat="g" Mask="c" MaskType="DateTime"></dxe:TextEditSettings>
                             </dxg:GridColumn.EditSettings>
                         </dxg:GridColumn>
-                        <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Fehlernachricht" Header="Fehlernachricht"></dxg:GridColumn>
                         <dxg:GridColumn ReadOnly="True" AllowEditing="False" FieldName="Fehlerlevel" Header="Fehlerlevel"></dxg:GridColumn>
                     </dxg:GridControl.Columns>
                     <dxg:GridControl.View>
-                        <dxg:TableView NavigationStyle="Cell" BestFitMode="Smart" 
+                        <dxg:TableView NavigationStyle="Cell" BestFitMode="Smart" x:Name="gridView2"
                                        AllowBestFit="True" ShowGroupPanel="False" ScrollingMode="Smart" SnapsToDevicePixels="True"
+                                       Loaded="gridView_Loaded"
                                        Margin="3,22,3,3"/>
                     </dxg:GridControl.View>
                 </dxg:GridControl>
diff --git a/BeWo/View/Detail/Accounting/GkvAbrechnungOverview.xaml b/BeWo/View/Detail/Accounting/GkvAbrechnungOverview.xaml
index ae731b5a9..8b403fec3 100644
--- a/BeWo/View/Detail/Accounting/GkvAbrechnungOverview.xaml
+++ b/BeWo/View/Detail/Accounting/GkvAbrechnungOverview.xaml
@@ -50,7 +50,7 @@
                                         <!--<Button Click="btn_nutz_Click" Content="Â¥" Padding="0" Margin="1" ToolTip="Nutzdatendatei" Foreground="#BBBBBB" FontSize="10" FontFamily="Webdings" x:Name="btn_nutz" Height="17" Width="20" VerticalAlignment="Center" />
                                         <Button Click="btn_auf_Click" Content="Â¥" Padding="0" Margin="1" ToolTip="Auftragsdatei" Foreground="#BBBBBB" FontSize="10" FontFamily="Webdings" x:Name="btn_auf" Height="17" Width="20" VerticalAlignment="Center" />-->
                                         <Button Click="btn_send_Click" Content="*" Padding="0" Margin="1" ToolTip="Senden" Foreground="#ffffff" FontSize="11" FontFamily="Wingdings" x:Name="btn_send" Height="18" Width="20" VerticalAlignment="Center"/>
-                                        <Button Click="btn_force_send_Click" Content="r" Padding="0" Margin="1" ToolTip="DEBUG: Protokolle Löschen" Foreground="#FFFF00" FontSize="11" FontFamily="Wingdings" x:Name="btn_force_send" Height="18" Width="20" VerticalAlignment="Center" />
+                                        <Button Click="btn_force_send_Click" Content="r" Padding="0" Margin="1" ToolTip="DEBUG: Protokolle Löschen" Foreground="#FFFF00" FontSize="11" FontFamily="Wingdings" x:Name="btn_force_send" Height="18" Width="20" VerticalAlignment="Center" Visibility="Visible"/>
                                         <Button Click="btn_delete_Click" Content="r" Padding="0" Margin="1" ToolTip="Löschen" Foreground="#FF0000" FontSize="11" FontFamily="Webdings" x:Name="btn_delete" Height="18" Width="20" VerticalAlignment="Center" />
                                     </StackPanel>
                                 </ControlTemplate>
diff --git a/BeWo/ViewModel/GkvAbrechnungVM.cs b/BeWo/ViewModel/GkvAbrechnungVM.cs
index 3d14f5e8d..276c008a0 100644
--- a/BeWo/ViewModel/GkvAbrechnungVM.cs
+++ b/BeWo/ViewModel/GkvAbrechnungVM.cs
@@ -368,20 +368,19 @@ namespace BeWo.ViewModel
                          GkvAbrechnungVersion = dc.GkvAbrechnungVersion;
                          TransferProtokolle = dc.TransferProtokolle.ToList();
 
-                         if (cb.Successful)
+                         var protokoll = cb.TransferProtokoll;
+
+                         if (cb.TransferProtokoll.Fehlerlevel == GkvTransferFehlerlevel.Soft)
                          {
-                             MessageBox.Show(Application.Current.MainWindow, "Ihre Sendung wurde korrekt übertragen");
+                             MessageBox.Show(Application.Current.MainWindow, cb.TransferProtokoll.Fehlernachricht, cb.TransferProtokoll.Fehlertitel);
+                         }
+                         else if (cb.TransferProtokoll.Fehlerlevel == GkvTransferFehlerlevel.Fatal)
+                         {
+                             BeWoApp.ShowError(cb.TransferProtokoll.Fehlertitel + ": " + cb.TransferProtokoll.Fehlernachricht, null, false);
                          }
                          else
                          {
-                             if (cb.TransferProtokoll.Fehlerlevel == GkvTransferFehlerlevel.Soft)
-                             {
-                                 MessageBox.Show(Application.Current.MainWindow, cb.TransferProtokoll.Fehlernachricht, cb.TransferProtokoll.Fehlertitel);
-                             }
-                             else if (cb.TransferProtokoll.Fehlerlevel == GkvTransferFehlerlevel.Fatal)
-                             {
-                                 BeWoApp.ShowError(cb.TransferProtokoll.Fehlernachricht, null, false);
-                             }
+                             MessageBox.Show(Application.Current.MainWindow, "Ihre Sendung wurde korrekt übertragen");
                          }
                      }
                      else
diff --git a/Data/Access/SearchDAO.cs b/Data/Access/SearchDAO.cs
index 5f53d142d..47f215735 100644
--- a/Data/Access/SearchDAO.cs
+++ b/Data/Access/SearchDAO.cs
@@ -5927,7 +5927,7 @@ namespace BeWo.Data.Access
         public int GetNextDatenaustauschreferenz(string datenannahmestelle)
         {
             var criteria = CreateCriteria<GkvTransferProtokoll>()
-            .Add(Restrictions.Where<GkvTransferProtokoll>(x => x.IKDatenannahmestelle == datenannahmestelle))
+            .Add(Restrictions.Where<GkvTransferProtokoll>(x => x.SentSuccess && x.IKDatenannahmestelle == datenannahmestelle))
             .SetProjection(Projections.Max("Datenaustauschreferenz"));
 
             var t = criteria.List<int?>().SingleOrDefault();
@@ -5938,7 +5938,7 @@ namespace BeWo.Data.Access
         public int GetNextTransfernummer(string datenannahmestelle)
         {
             var criteria = CreateCriteria<GkvTransferProtokoll>()
-            .Add(Restrictions.Where<GkvTransferProtokoll>(x => x.IKDatenannahmestelle == datenannahmestelle))
+            .Add(Restrictions.Where<GkvTransferProtokoll>(x => x.SentSuccess && x.IKDatenannahmestelle == datenannahmestelle))
             .SetProjection(Projections.Max("Transfernummer"));
 
             var t = criteria.List<int?>().SingleOrDefault();
diff --git a/Data/Entities/GkvTransferprotokoll.cs b/Data/Entities/GkvTransferprotokoll.cs
index b33d0b773..ecc108534 100644
--- a/Data/Entities/GkvTransferprotokoll.cs
+++ b/Data/Entities/GkvTransferprotokoll.cs
@@ -36,6 +36,8 @@ namespace BeWo.Data.Entities
         public virtual string Nutzdatendatei { get; set; }
         public virtual string Auftragsdatei { get; set; }
 
+        public virtual bool SentSuccess { get; set; }
+
         public virtual string Fehlertitel { get; set; }
         public virtual DateTime? Fehlerdatum { get; set; }
         public virtual string Fehlernachricht { get; set; }
diff --git a/Data/Mappings/GkvTransferProtokoll.hbm.xml b/Data/Mappings/GkvTransferProtokoll.hbm.xml
index 0e54f4f3b..7a70cdea9 100644
--- a/Data/Mappings/GkvTransferProtokoll.hbm.xml
+++ b/Data/Mappings/GkvTransferProtokoll.hbm.xml
@@ -32,7 +32,8 @@
 		<property column="Datenaustauschreferenz" type="int" name="Datenaustauschreferenz" />
 		<property column="Transfernummer" type="int" name="Transfernummer" />
 		<property column="ErstelltAm" type="DateTime" name="ErstelltAm" />
-		
+
+		<property column="SentSuccess" type="Boolean" name="SentSuccess" />
 		<property column="Fehlertitel" type="string" name="Fehlertitel" />
 		<property column="Fehlerdatum" type="DateTime" name="Fehlerdatum" />
 		<property column="Fehlernachricht" type="string" name="Fehlernachricht" />
diff --git a/Host/GkvAbrechnungView.aspx.cs b/Host/GkvAbrechnungView.aspx.cs
index 646067c23..1d4ca6c4d 100644
--- a/Host/GkvAbrechnungView.aspx.cs
+++ b/Host/GkvAbrechnungView.aspx.cs
@@ -156,7 +156,6 @@ namespace Host
             return successful;
         }
 
-
         private void SendNew(GkvApp8SendNewRequest req)
         {
             var debug_mode = false;
@@ -181,6 +180,12 @@ namespace Host
 
                 int return_code = p.ExitCode;
 
+                req.GkvTransferProtokoll.SentSuccess = false;
+                req.GkvTransferProtokoll.Fehlerdatum = DateTime.Now;
+                req.GkvTransferProtokoll.Fehlerlevel = GkvTransferFehlerlevel.Soft;
+                req.GkvTransferProtokoll.Fehlertitel = "App8";
+                req.GkvTransferProtokoll.Fehlernachricht = "Kann nicht senden - TEST";
+
                 response.Success = true;
 
                 response.GkvTransferProtokollDC = req.GkvTransferProtokoll;
diff --git a/Model/Changes_2024_06_20 GKV_SentSuccess.txt b/Model/Changes_2024_06_20 GKV_SentSuccess.txt
new file mode 100644
index 000000000..8618ca45c
--- /dev/null
+++ b/Model/Changes_2024_06_20 GKV_SentSuccess.txt	
@@ -0,0 +1,2 @@
+ALTER TABLE `gkvtransferprotokoll` 
+ADD COLUMN `SentSuccess` TINYINT NULL AFTER `Auftragsdatei`;
diff --git a/Service/DCEntityMapper/GkvTransferProtokollDC_GkvTransferprotokoll.cs b/Service/DCEntityMapper/GkvTransferProtokollDC_GkvTransferprotokoll.cs
index bf9adbf2c..7fb50b93e 100644
--- a/Service/DCEntityMapper/GkvTransferProtokollDC_GkvTransferprotokoll.cs
+++ b/Service/DCEntityMapper/GkvTransferProtokollDC_GkvTransferprotokoll.cs
@@ -37,6 +37,9 @@ namespace BeWo.Service.DCEntityMapper
 
             pDataContract.ErstelltAm = pEntity.ErstelltAm;
 
+            pDataContract.SentSuccess = pEntity.SentSuccess;
+
+            pDataContract.HasFehler = pEntity.Fehlerdatum.HasValue || !string.IsNullOrWhiteSpace(pEntity.Fehlernachricht);
             pDataContract.Fehlerdatum = pEntity.Fehlerdatum;
             pDataContract.Fehlerlevel = pEntity.Fehlerlevel;
             pDataContract.Fehlernachricht = pEntity.Fehlernachricht;
@@ -73,6 +76,7 @@ namespace BeWo.Service.DCEntityMapper
 
             pEntity.ErstelltAm = pDataContract.ErstelltAm;
 
+            pEntity.SentSuccess = pDataContract.SentSuccess;
             pEntity.Fehlerdatum = pDataContract.Fehlerdatum;
             pEntity.Fehlerlevel = pDataContract.Fehlerlevel;
             pEntity.Fehlernachricht = pDataContract.Fehlernachricht;
diff --git a/Service/ServiceImplementations/AccountingServiceImp.cs b/Service/ServiceImplementations/AccountingServiceImp.cs
index d627a8429..db5175269 100644
--- a/Service/ServiceImplementations/AccountingServiceImp.cs
+++ b/Service/ServiceImplementations/AccountingServiceImp.cs
@@ -904,7 +904,6 @@ namespace BeWo.Service.ServiceImplementations
             DAOFactory.GenericDAO.Update(entity);
 
             response.TransferProtokoll = MapperFactory.GkvTransferProtokollDC_GkvTransferprotokoll.MapToNewDC(protokoll);
-
             response.GkvAbrechnungDC = MapperFactory.GkvAbrechnungDC_GkvAbrechnung.MapToNewDC(entity);
 
             return response;
diff --git a/Shared/DataContracts/GkvAbrechnung/GkvTransferProtokollDC.cs b/Shared/DataContracts/GkvAbrechnung/GkvTransferProtokollDC.cs
index 454fefc85..e8447f691 100644
--- a/Shared/DataContracts/GkvAbrechnung/GkvTransferProtokollDC.cs
+++ b/Shared/DataContracts/GkvAbrechnung/GkvTransferProtokollDC.cs
@@ -68,6 +68,12 @@ namespace BS.Shared.DataContracts.GkvAbrechnung
         [DataMember]
         public string Auftragsdatei { get; set; }
 
+        [DataMember]
+        public bool SentSuccess  { get; set; }
+
+        [DataMember]
+        public bool HasFehler { get; set; }
+
         [DataMember]
         public string Fehlertitel { get; set; }