1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
|
SI HTransactionDébut(MaConnexion)=Vrai ALORS
HSurErreur(TicketArchives,hErrDoublon,"")
QUAND EXCEPTION DANS
ListeTicketsReq.Pjournee=idJournEncours
HExécuteRequête(ListeTicketsReq,hModifieFichier)
SI HNbEnr(ListeTicketsReq)>0 ALORS
HLitPremier(ListeTicketsReq)
TANTQUE PAS HEnDehors(ListeTicketsReq )
HLitRecherchePremier(Ticket,IDTicket,ListeTicketsReq.IDTicket)
HCopieEnreg(TicketArchives,Ticket)
SI HAjoute(TicketArchives) ALORS
nouvIDticket=TicketArchives.IDTicket
RequeteDesLignesTick.Pidticket=ListeTicketsReq.IDTicket
HExécuteRequête(RequeteDesLignesTick,hModifieFichier)
SI HNbEnr(RequeteDesLignesTick)>0 ALORS
HLitPremier(RequeteDesLignesTick)
TANTQUE PAS HEnDehors(RequeteDesLignesTick)
HLitRecherchePremier(LigneTicket,IDLigneTicket,RequeteDesLignesTick.IDLigneTicket)
HCopieEnreg(LigneTicketArchives,LigneTicket)
SI HAjoute(LigneTicketArchives) ALORS
LigneTicketArchives.IDTicket=nouvIDticket
HModifie(LigneTicketArchives)
HLitSuivant(RequeteDesLignesTick)
SINON
ExceptionDéclenche(1,HErreurInfo())
FIN
FIN
FIN
SupprimeLignesTicketReq.Pidticket=ListeTicketsReq.IDTicket
HExécuteRequête(SupprimeLignesTicketReq)
SINON
ExceptionDéclenche(1,HErreurInfo())
FIN
HLitSuivant(ListeTicketsReq)
FIN
HSupprimeTout(ListeTicketsReq)
FIN
Journées.Etatjourn="Cloturée"
Journées.dateCloture=DateSys()
Journées.HeureClot=HeureSys()
HModifie(Journées)
HTransactionFin(MaConnexion)
RENVOYER (1)
FAIRE
Info(ExceptionInfo(errComplet) )
HSurErreur(TicketArchives,hErrDoublon)
HTransactionAnnule(MaConnexion)
RENVOYER (0)
FIN
SINON
SI HErreurDoublon() ALORS
FIN
Info(HErreurInfo(hErrComplet))
RENVOYER (0)
FIN |
Partager