SI SAI_SaisieGestCommande = "" ALORS
Erreur("Vous n'avez pas remplie la gestion commande.")
RepriseSaisie(SAI_SaisieGestCommande)
FIN
SI INT_InterrupteurNonRegroup = Faux ET INT_InterrupteurURG = Faux ALORS
Erreur("Vous n'avez pas cochez une des deux cases.")
RepriseSaisie(INT_InterrupteurURG)
FIN
SI SAI_SaisieIniExpedi = "" ALORS
Erreur("Vous n'avez pas remplie les initiales de l'expéditeur.")
RepriseSaisie(SAI_SaisieIniExpedi)
FIN
SI SAI_SaisieObjetDepense = "" ALORS
Erreur("Vous n'avez pas remplie l'objet de dépense.")
RepriseSaisie(SAI_SaisieObjetDepense)
FIN
SI SAI_SaisieNomFournisseur = "" ALORS
Erreur("Vous n'avez pas remplie le nom du fournisseur.")
RepriseSaisie(SAI_SaisieNomFournisseur)
FIN
SI SAI_SaisieN°Fournisseur = 0 ALORS
Erreur("Vous n'avez pas remplie le N° de fournisseur.")
RepriseSaisie(SAI_SaisieN°Fournisseur)
FIN
SI SAI_SaisieDateRecep = "" ALORS
Erreur("Veuillez saisir une date de réception.")
RepriseSaisie(SAI_SaisieDateRecep)
FIN
SI SAI_SaisieDateFacture = "" ALORS
Erreur("Veuillez saisir une date de facture.")
RepriseSaisie(SAI_SaisieDateFacture)
FIN
SI SAI_SaisieDateArrivé = "" ALORS
Erreur("Veuillez saisir une date d'arrivée.")
RepriseSaisie(SAI_SaisieDateArrivé)
FIN
SI SAI_SaisieDateRecep > DateSys() ALORS
Erreur("La date de récepetion est incorrecte car elle est supérieure à la date du jour.")
RepriseSaisie(SAI_SaisieDateRecep)
FIN
SI SAI_SaisieDateFacture > DateSys() ALORS
Erreur("La date de facture est incorrecte car elle est supérieure à la date du jour.")
RepriseSaisie(SAI_SaisieDateFacture)
FIN
SI SAI_SaisieDateArrivé > DateSys() ALORS
Erreur("La date d'arrivée est incorrecte car elle est supérieure à la date du jour.")
RepriseSaisie(SAI_SaisieDateArrivé)
FIN
SI SAI_SaisieDateRecep > SAI_SaisieDateFacture ALORS
Erreur("La date de réception précède la date de facture.")
RepriseSaisie(SAI_SaisieDateRecep)
FIN
SI SAI_SaisieDateFacture > SAI_SaisieDateArrivé ALORS
Erreur("La date de facture précède la date de d'arrivé.")
RepriseSaisie(SAI_SaisieDateFacture)
FIN
SI SAI_SaisieRattachement = "" ALORS
Erreur("Vous n'avez pas remplie le rattachement.")
RepriseSaisie(SAI_SaisieRattachement)
FIN
SI SAI_SaisieN°Liquidation = "" ALORS
Erreur("Vous n'avez pas remplie le N° de liquidation.")
RepriseSaisie(SAI_SaisieN°Liquidation)
FIN
SI SAI_SaisieN°DeCommande = "" ALORS
Erreur("Vous n'avez pas remplie le N° de commande.")
RepriseSaisie(SAI_SaisieN°DeCommande)
FIN
SI SAI_SaisieRefFacture = 0 ALORS
Erreur("Vous n'avez pas remplie la référence de la facture.")
RepriseSaisie(SAI_SaisieRefFacture)
FIN
EcranVersFichier()
HAjoute(Entête)
HRAZ(Entête)
Info("Votre liquidation à bien été enregistrée")
SAI_SaisieDateArrivé = ""
SAI_SaisieDateFacture = ""
SAI_SaisieDateRecep = ""
SAI_SaisieGestCommande = ""
SAI_SaisieIniExpedi = ""
SAI_SaisieN°DeCommande = ""
SAI_SaisieN°Fournisseur = ""
SAI_SaisieN°Liquidation = ""
SAI_SaisieNomFournisseur = ""
SAI_SaisieObjetDepense = ""
SAI_SaisieRattachement = ""
SAI_SaisieRefFacture = ""
SAI_SaisieTotalTTC = ""
INT_InterrupteurNonRegroup = ""
INT_InterrupteurURG = ""
TableSupprimeTout(TABLE_TableTVA)
POUR i = 1 A 3
TableAjouteLigne(TABLE_TableTVA,"","","","","","")
FIN
TableSupprimeTout(TABLE_TableLSCP)
POUR i = 1 A 99
TableAjouteLigne(TABLE_TableLSCP,"","","","","","","","","")
FIN
Partager