{"text_format":"dbase-jsonl-2026-09-30","columns":[{"name":"LIGNE","type":"character","width":100}],"n_rows":132,"rows_kept":132,"cut":false,"deleted_skipped":0,"read_ended":"whole","bounds":"16MiB/16384/4096/first_that_fit","version":"dbase_level_three","encoding_class":"enc_absent","reader":"statdb_count/12"}
["* anulation des resevations / jour ou / client"]
["titre =\"ANULATIONS RESERVATIONS\""]
["niveau =2"]
["************"]
["*BASES SDARTI FICHIER ARTICLES INDEX CODEARTI"]
["*BASES reserv LIGNES DE RESERVATION"]
["*FENETRE POUR FAIRE DEFILER LES ARTICES L7 0 L17"]
["CLEAR"]
["SET DELET ON"]
["DO titre"]
["NLFAC=40"]
["NLPG=66"]
["NLET=5"]
["SET ESCAP OFF"]
["SELECT 1"]
["USE RESERV   INDEX RESERV ,RESERVN ALIAS res"]
["SELE 2"]
["USE SDARTI INDEX SDARTI ALIAS AR"]
["SELE 1"]
["SET relation TO codearti into ar"]
["WSET window clients TO 7,39,17,78"]
["WSET window articles TO 7,1,17,38"]
["WSET window saisie TO 19,1,24,78"]
["WSELE 3"]
["WUSE SAISIE"]
["WSELE 2"]
["WUSE articles"]
["WSELE 1"]
["WUSE clients"]
["DO WHILE .T."]
["VCODE = SPACE(34)"]
["SELE 1"]
["GO TOP"]
["WSELE 0"]
["rep=\" \""]
["DO titre"]
["@ 7,12 SAY \"ANULATION PAR CLIENT OU PAR DATE C/D\"GET REP PICTURE \"@!\" HELP \"ATTENTION !!! toutes les"]
["READ"]
["IF REP =\" \""]
["EXIT"]
["ENDI"]
["IF rep =\"D\""]
["SET EXACT OFF"]
["date1 =CTOD(\"  /  /  \")"]
["@ 10,2 SAY \"date d'anulation \" GET date1 VALID (date1 <date()+1)"]
["READ"]
["vrech =date1"]
["*SET order TO 2"]
["FIND &Vrech"]
["SET EXACT ON"]
[null]
["***************************"]
["WSELE 1"]
["champs =\"QUANTITE,codearti,SUBSTR(NOMCLI,1,18),date\""]
["ligne = \"quantite,codearti,substr(nomcli,1,18),date\""]
["WL=11"]
["DO afpresw1"]
["IF  CAR =KEYCR"]
["DO WHILE date=date1"]
["WSELE 3"]
["DO AFPRESF3"]
["rep=\"R\""]
["@ 5,2 SAY \"Anuler reserv  Rien Fin\" GET rep"]
["READ"]
["rep =upper(rep)"]
["DO CASE"]
["CASE rep=\"A\""]
["chx=\"N\""]
["@ 4,2 SAY \"Etes vous s\u0096r O/N\" GET chx PICTURE \"!\""]
["READ"]
["IF chx=\"O\""]
["DO afcalcm"]
["DELETE"]
["ENDI"]
["CASE REP=\"F\""]
["EXIT"]
["endc"]
["IF .NOT. EOF()"]
["SKIP"]
["ENDI"]
["endd"]
["endi"]
["ELSE"]
["rep=\"N\""]
["@ 10,12 SAY \"CLIENT \" GET VCODE PICTURE \"@!\""]
["READ"]
["IF VCODE  =SPACE(34)"]
["EXIT"]
["ENDI"]
["SET EXACT OFF"]
["vrech =VCODE"]
["SET order TO 2"]
["FIND &Vrech"]
["SET EXACT ON"]
["WSELE 1"]
["champs =\"QUANTITE,codearti,SUBSTR(NOMCLI,1,18),date\""]
["ligne = \"quantite,codearti,substr(nomcli,1,18),date\""]
["WL=11"]
["DO afpresw1"]
["IF  CAR =KEYCR"]
["vcode=nomcli"]
["DO WHILE nomcli=vcode"]
["WSELE 3"]
["DO AFPRESF3"]
["rep=\"R\""]
["@ 5,2 SAY \"Anuler reserv Rien Fin \" GET rep"]
["READ"]
["rep =upper(rep)"]
["DO CASE"]
["CASE rep=\"A\""]
["chx=\"N\""]
["@ 4,2 SAY \"Etes vous s\u0096r O/N\" GET chx PICTURE \"!\""]
["READ"]
["IF chx=\"O\""]
["DO afcalcm"]
["DELETE"]
["ENDI"]
["CASE REP=\"F\""]
["EXIT"]
["ENDC"]
["IF .NOT. EOF()"]
["SKIP"]
["ENDI"]
["enddo"]
["endi"]
["ENDI"]
["WSELE 0"]
["ENDD"]
["CLOSE DATA"]
["WRELEASE ALL"]
["RETU"]
[null]