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 95
| //***************************************
//A chaque modification de SAI_REF
//***************************************
sMaReference=SAI_REF
HLitRecherchePremier(PROD,REF,sMaReference,hIdentique)
SI HTrouve(PROD) ALORS
LIB_VERIF_ROUGE..Visible=Faux
LIB_VERIF_BLEU..Visible=Vrai
SAI_QTE=1
SAI_DESIGNATION=PROD.DESIGNATION
SAI_PUHT=PROD.PUHT
SAI_REMISE=0
SAI_TVA=PROD.TVA
SAI_TOTAL=0
SINON
LIB_VERIF_ROUGE..Visible=Vrai
LIB_VERIF_BLEU..Visible=Faux
FIN
//***************************************
//Sortie de SAI_REF
//***************************************
sMaReference=SAI_REF
HLitRecherchePremier(PROD,REF,sMaReference,hIdentique)
SI HTrouve(PROD) ALORS
SAI_QTE=1
SAI_DESIGNATION=PROD.DESIGNATION
SAI_PUHT=PROD.PUHT
SAI_REMISE=0
SAI_TVA=PROD.TVA
SAI_TOTAL=0
//PERMET D OUVRIR AU MOMENT VENU LA FENETRE DES REMISES
//0 = Remise accordée ; 1 = Remise non accordée
gbOuvertureFenRemise=PROD.PAS_DE_REMISE
SI gbOuvertureFenRemise=Faux ALORS
CBM_Case5="Remise (%) Accordée"
SINON
CBM_Case5="Remise (%) Gelée"
FIN
ExécuteTraitement(BtnAjouter,trtClic)
SINON
FIN
//***************************************
//***************************************
//Clic sur BtnAjouter
//***************************************
//***************************************
SI SAI_REF<>"" ALORS
//OPTION - VERIFIE LE PARAMETRAGE DE L'APPLICATION * * * VENTE_GESTION_QTE
HLitRecherchePremier(PARAMETRAGES,PARAM_NOM,"VENTE_GESTION_QTE")
SI HTrouve(PARAMETRAGES) ALORS
gbOuvertureFenQuantité=PARAMETRAGES.PARAM_VALEUR
FIN
SI gbOuvertureFenQuantité=Faux ALORS
SAI_QTE=1
SINON
// OUVRE FENETRE POUR LA QUANTITE
Ouvre(GestionCommandesQTE)
SAI_QTE = grMaQTE
FIN
SI gnVenteGestionRemise=1 ALORS
//OUVRE LA FENETRE POUR LA REMISE
SI gbOuvertureFenRemise=Faux ALORS
Ouvre(GestionCommandesREMISE)
SAI_REMISE=gxMaRemise
SINON
SAI_REMISE=0
FIN
//
SINON
//NE RIEN FAIRE
gxMaRemise=0
FIN
//AJOUTE UNE NOUVELLE LIGNE A LA VENTE EN COURS
AjouteLigneCommande()
//REMISE A ZERO TOUS LES CHAMPS DE LA FENETRE
SAI_QTE=0
SAI_REF=""
SAI_DESIGNATION=""
SAI_PUHT=0
SAI_REMISE=0
SAI_TVA=0
SAI_TOTAL=0
//CALCUL DES TOTAUX
CalculeTotaux()
LIB_VERIF_ROUGE..Visible=Vrai
LIB_VERIF_BLEU..Visible=Faux
RepriseSaisie(SAI_REF)
SINON
FIN |
Partager