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 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
|
//Dans lévénement Sortie de SAI_Code
SI Taille(SAI_Code) = 13 ALORS //utilisation de la douchette
sReqRechercheCodeBarre est une chaîne
ParamCodeBarre est un numérique
ParamCodeBarre = SAI_Code
sReqRechercheCodeBarre = [
SELECT A.Code, A.Référence, A.Désignation, A.Couleur, A.Prix_Vente_TTC, A.code_barre
FROM
(
SELECT
P.IDproduit AS Code, P.produit_ref_produit AS Référence, P.produit_nom_produit AS Désignation, PC.Couleur_Nom AS Couleur,
P.produit_prixvente_ttc AS Prix_Vente_TTC, P.produit_code_barre AS Code_Barre
FROM
PRODUIT AS P
LEFT OUTER JOIN PRODUIT_COULEUR AS PC ON PC.IDcouleur = P.IDcouleur
) A
WHERE
A.CODE_BARRE = %1
]
sReqRechercheCodeBarre = ChaîneConstruit(sReqRechercheCodeBarre, ParamCodeBarre)
sdMaRequeteRechercheCodeBarre est une Source de Données
SI PAS HExécuteRequêteSQL(sdMaRequeteRechercheCodeBarre, sReqRechercheCodeBarre) ALORS
Erreur(ErreurInfo(errComplet))
SINON
HLitRecherche(sdMaRequeteRechercheCodeBarre, Code_Barre , SAI_Code, hIdentique)
SI PAS HTrouve(sdMaRequeteRechercheCodeBarre) ALORS
Info("Le code barre que vous avez saisi n'est pas valide")
SINON
POUR TOUT sdMaRequeteRechercheCodeBarre
SI HTrouve() = Vrai ALORS
TableAjouteLigne(TABLE_Article, sdMaRequeteRechercheCodeBarre.Code, sdMaRequeteRechercheCodeBarre.Reference,...
sdMaRequeteRechercheCodeBarre.Designation, sdMaRequeteRechercheCodeBarre.Couleur, 1, sdMaRequeteRechercheCodeBarre.Prix_Vente_TTC,...
"", "", SAI_numero_ligne, SAI_Numero_vente, SAI_Ligne_Ligne)
SAI_numero_ligne = SAI_numero_ligne + 1
SAI_Ligne_Ligne = SAI_Ligne_Ligne + 1
SAI_Code = ""
DonneFocus(SAI_Code)
FIN
FIN
FIN
FIN
FIN
SI PAS SAI_Code = "" ALORS
sReqRechercheCode est une chaîne
ParamIDproduit est un entier
ParamIDproduit = SAI_Code
sReqRechercheCode = [
SELECT A.Code, A.Référence, A.Désignation, A.Couleur, A.Prix_Vente_TTC
FROM
(
SELECT
P.IDproduit AS Code, P.produit_ref_produit AS Référence, P.produit_nom_produit AS Désignation, PC.Couleur_Nom AS Couleur,
P.produit_prixvente_ttc AS Prix_Vente_TTC
FROM
PRODUIT AS P
LEFT OUTER JOIN PRODUIT_COULEUR AS PC ON PC.IDcouleur = P.IDcouleur
) A
WHERE
A.Code = %1
]
sReqRechercheCode = ChaîneConstruit(sReqRechercheCode, ParamIDproduit)
sdMaRequeteRechercheCode est une Source de Données
SI PAS HExécuteRequêteSQL(sdMaRequeteRechercheCode, sReqRechercheCode) ALORS
Erreur(ErreurInfo(errComplet))
SINON
HLitRecherche(sdMaRequeteRechercheCode, Code, SAI_Code, hIdentique)
SI PAS HTrouve(sdMaRequeteRechercheCode) ALORS
Info("Le code du produit que vous avez saisi n'est pas valide")
SINON
POUR TOUT sdMaRequeteRechercheCode
SI HTrouve() = Vrai ALORS
TableAjouteLigne(TABLE_Article, sdMaRequeteRechercheCode.Code, sdMaRequeteRechercheCode.Reference,...
sdMaRequeteRechercheCode.Designation, sdMaRequeteRechercheCode.Couleur, 1, sdMaRequeteRechercheCode.Prix_Vente_TTC,...
"", "", SAI_numero_ligne, SAI_Numero_vente, SAI_Ligne_Ligne)
SAI_numero_ligne = SAI_numero_ligne + 1
SAI_Ligne_Ligne = SAI_Ligne_Ligne + 1
SAI_Code = ""
DonneFocus(SAI_Code)
FIN
FIN
FIN
FIN
FIN |
Partager