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 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94
| d est un entier=0
q est un entier=0
qt1 est un entier=0
qt2 est un entier=0
TexteRequête1 est une chaîne
TexteRequête2 est une chaîne
j est une Date
i est une chaîne
k est une chaîne
o est une chaîne
x est une chaîne
y est une Date
//sParam2 est une chaine
HLitRechercheDernier(Comporte,Comporte.Designation,FEN_Fiche_Contient.SC_Fiche.COMBO_Designation)
SI HTrouve(Comporte) ALORS
FEN_Fiche_Contient.SC_Fiche.SAI_Date_peremption=Comporte.Date_peremption
FEN_Fiche_Contient.SC_Fiche.COMBO_Nom_magasin=Comporte.Nom_magasin
o=Comporte.Nom_magasin
x=FEN_Fiche_Contient.SC_Fiche.COMBO_Designation
y=Comporte.Date_peremption
SQLConnecte("D:\MARCHANDISES\LG_MARCHANDISE.WDD", "", "")
TexteRequête1 = "SELECT DISTINCT Designation , Nom_magasin ,Date_peremption , Qte FROM Comporte "
SQLExec(TexteRequête1, "REQ1")
TANTQUE SQLAvance("REQ1") = 0
i=SQLLitCol("REQ1", 1)
SI i=x ALORS
k=SQLLitCol("REQ1", 2)
SI k=o ALORS
j=SQLLitCol("REQ1", 3)
SI j=y ALORS
HLitDernier(COPIECOMPORTE)
COPIECOMPORTE.RQC = SQLLitCol("REQ1", 4)
COPIECOMPORTE.RQCI=0
HAjoute(COPIECOMPORTE)
FIN
FIN
FIN
FIN
SQLFerme("REQ1")
TexteRequête2 ="SELECT DISTINCT Designation , Nom_magasin , Date_peremption , Qte FROM Contient "
SQLExec(TexteRequête2, "REQ2")
TANTQUE SQLAvance("REQ2") = 0
i=SQLLitCol("REQ2", 1)
SI i=x ALORS
k=SQLLitCol("REQ2", 2)
SI k=o ALORS
j=SQLLitCol("REQ2", 3)
SI j=y ALORS
HLitDernier(COPIECOMPORTE)
COPIECOMPORTE.RQC=0
COPIECOMPORTE.RQCI = SQLLitCol("REQ2", 4)
HAjoute(COPIECOMPORTE)
FIN
FIN
FIN
FIN
SQLFerme("REQ2")
HLitPremier(COPIECOMPORTE)
TANTQUE PAS HEnDehors(COPIECOMPORTE)
SI COPIECOMPORTE.RQC<>"" ALORS
qt1+=COPIECOMPORTE.RQC
FIN
SI COPIECOMPORTE.RQCI<>"" ALORS
qt2+=COPIECOMPORTE.RQCI
FIN
HLitSuivant(COPIECOMPORTE)
FIN
HSupprimeTout(COPIECOMPORTE)
q=qt1-qt2
HLitPremier(Dureperemption)
SI DateValide( Comporte.Date_peremption) ALORS
d=DateVersEntier(Comporte.Date_peremption)-DateVersEntier(DateSys())
SI d<Dureperemption.Dure ET d>0 ALORS
SI qt1>qt2 ALORS
Info((q)+RC+"quantite(s) de"+RC+Comporte.Designation+RC+"sera perimé dans "+RC+d+RC+"jour(s)"+RC+"date de peremption:"+RC+Comporte.Date_peremption)
FIN
FIN
FIN
FIN
HLitRecherche(PRODUIT,Designation,FEN_Fiche_Contient.SC_Fiche.COMBO_Designation)
SI HTrouve(PRODUIT) ALORS
FEN_Fiche_Contient.SC_Fiche.SAI_Pv=PRODUIT.Pv
FEN_Fiche_Contient.SC_Fiche.SAI_TVA=PRODUIT.Pv*PRODUIT.Taux_TVA
FEN_Fiche_Contient.SC_Fiche.SAI_TPvHT=PRODUIT.Pv*FEN_Fiche_Contient.SC_Fiche.SAI_Qte
FEN_Fiche_Contient.SC_Fiche.SAI_TPvTTC=FEN_Fiche_Contient.SC_Fiche.SAI_TPvHT+FEN_Fiche_Contient.SC_Fiche.SAI_TVA
FEN_Fiche_Contient.SC_Fiche.SAI_Remise=FEN_Fiche_Contient.SC_Fiche.SAI_TPvTTC*PRODUIT.Taux_remise
FEN_Fiche_Contient.SC_Fiche.SAI_Qte=q
FIN |
Partager