[FogBugz #126] Plusieurs tickets enregistrés à la même heure/min/sec #188
Loading…
Reference in New Issue
There is no content yet.
Delete Branch "%!s(<nil>)"
Deleting a branch is permanent. Although the deleted branch may exist for a short time before cleaning up, in most cases it CANNOT be undone. Continue?
Assigned To: Frederik Benoist
Project: CAISSE
Area: awcaisse
Category: Bogue
Priority: A fixer impérativement
Event ID: 564
Date: 2013-06-04T15:49:05Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist
Event ID: 563
Date: 2013-06-04T15:44:00Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist
C:\projets\DotSoft\CaisseAuto\bApplication\cApplication.vb
#Region "Gestion date ouverture Caisse"
Public Shared Property pDateOuvertureCaisse() As Date
Get
If cApplication.vDateOuvertureCaisse = New DateTime(1800, 1, 1) Then Return cApplication.pDateCourante Else Return cApplication.vDateOuvertureCaisse
End Get
Set(ByVal value As Date)
cApplication.vDateOuvertureCaisse = value
End Set
End Property
==> Normalement retourne toujours cApplication.pDateCourante
Event ID: 562
Date: 2013-06-04T15:42:56Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist
C:\projets\DotSoft\CaisseAuto\bApplication\cApplication.vb
Public Shared Property pDateOuvertureCaisse() As Date
Get
If cApplication.vDateOuvertureCaisse = New DateTime(1800, 1, 1) Then Return cApplication.pDateCourante Else Return cApplication.vDateOuvertureCaisse
End Get
Set(ByVal value As Date)
cApplication.vDateOuvertureCaisse = value
End Set
End Property
Event ID: 561
Date: 2013-06-04T15:29:24Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist
Event ID: 560
Date: 2013-06-04T15:28:59Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist
C:\projets\DotSoft\CaisseAuto\bApplication\cApplication.vb
''' <summary>
''' Renvoie la date du serveur (si on arrive pas a recuperer la date d'ouverture caisse)
''' </summary>
Public Shared ReadOnly Property pDateCourante() As Date
Get
If cApplication.psIsConnected AndAlso Not cApplication.pCaisse Is Nothing Then
Dim dateServeur As Date = bInternet.cInternet.psDateServeur(CType(cConfigLocal.psIdStructure, Integer), CType(cConfigLocal.psIdCaisse, Integer))
Try
If cPeriodeHoraire.msIsEte(dateServeur) Then
dateServeur = dateServeur.AddHours(cApplication.pStructure.pDecalageHoraireEte)
Else
dateServeur = dateServeur.AddHours(cApplication.pStructure.pDecalageHoraireHiver)
End If
Dim decalage As Integer = CType((dateServeur - Date.Now).TotalSeconds, Integer)
If decalage <> cConfigLocal.psParaDecalageHeureServeur Then cConfigLocal.psParaDecalageHeureServeur = decalage
Return dateServeur
Catch ex As Exception
Return Date.Now.AddSeconds(cConfigLocal.psParaDecalageHeureServeur)
End Try
Else
'MsgBox("Date local = " & Date.Now.ToString)
Return Date.Now.AddSeconds(cConfigLocal.psParaDecalageHeureServeur)
End If
End Get
End Property
Event ID: 559
Date: 2013-06-04T15:14:52Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist
C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketEntete.vb
Public ReadOnly Property pDate() As Date Implements iTicketEntete.pDate
Get
If Me.vDate = CDate("01/01/0001") Or Me.vDate = CDate("01/01/1800") Then
Me.mInitDateTicketCaisse()
End If
Return Me.vDate
End Get
End Property
Event ID: 558
Date: 2013-06-04T15:14:22Z
Person: Frederik Benoist
Description: Attribué à Frederik Benoist par Frederik Benoist
Event ID: 557
Date: 2013-06-04T15:14:22Z
Person: Frederik Benoist
Description: Ouvert par Frederik Benoist