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
| HLITRECHERCHE("POINTAGE","cis",SAISIE1)
TANTQUE H.TROUVE
VARSAISIE1=HRECUPERERUBRIQUE("POINTAGE",2)
VARPIECE1=HRECUPERERUBRIQUE("POINTAGE",5)
VARQUANT1=HRECUPERERUBRIQUE("POINTAGE",102)
HLITRECHERCHE("BESOINM","piece",VARPIECE1)
TANTQUE H.TROUVE
VARDESIGN1=HRECUPERERUBRIQUE("BESOINM",1)
VARNUANCE1=HRECUPERERUBRIQUE("BESOINM",2)
VARETAT1=HRECUPERERUBRIQUE("BESOINM",3)
VAREPAISS1=HRECUPERERUBRIQUE("BESOINM",4)
VARSURFASE=HRECUPERERUBRIQUE("BESOINM",5)
VARPROTECT=HRECUPERERUBRIQUE("BESOINM",6)
VARPIECES2=HRECUPERERUBRIQUE("BESOINM",7)
TANTQUE H.TROUVE
SI VARPIECE1=VARPIECES2 ALORS
VARSURFTOTAL=VARSURFASE*VARQUANT1
fin
hlitsuivant("BESOINM","piece")
fin
SI VARPIECE1=VARPIECES2 ALORS
ouvre("r0_fic2","Création")
fin
fin
iapercu(1)
iimprimeetat("ETATRECHERCHEMATIERCIS",SAISIE1,SAISIE1)
hlit("RESBEMA",1)
si h.trouve alors hsupprime("RESBEMA")
info("Operation terminée.")
FIN |
Partager