Problème avec mode Console
Publié : mer. 29/juin/2005 12:18
Bonjour,
Chez moi ça plante (en le lançant sans argument), chez vous aussi ? Si oui, savez vous pourquoi (compilé en mode console) en PB 3.93 ?
Chez moi ça plante (en le lançant sans argument), chez vous aussi ? Si oui, savez vous pourquoi (compilé en mode console) en PB 3.93 ?
Code : Tout sélectionner
Dim tableau(100,1000)
Structure oldtypo
typautorisl.l
EndStructure
NewList oldtypo.oldtypo()
Structure market
id_marketi.l
EndStructure
NewList market.market()
Declare test()
Procedure test()
If OpenConsole()
Date$ = FormatDate("%dd.%mm.%yyyy-%hh:%ii:%ss",#PB_Compiler_Date)
PrintN(" - Date de generation : "+Date$)
PrintN("Transcodage ")
PrintN("-----------------------------------------------------------")
PrintN("")
PrintN("Transcode ")
PrintN("Usage:")
PrintN("------")
PrintN("TRANSTYPAUTORISL < TYPAUTORISL_A_TRANSCODER > < FICHIER INI > < Resultat >")
PrintN("")
PrintN("< TYPAUTORISL_A_TRANSCODER.TXT > : Fichier en entree. Liste qu'il faut convertir, exemple :")
PrintN("65535")
PrintN("102")
PrintN("...")
PrintN("< Fichier INI > : Fichier en entree. Liste des marches a oter (par exemple : -12) ou à ajouter (par exemple : 7), exemple :")
PrintN("-12");
PrintN("7")
PrintN("...")
PrintN("< Resultat > : Fichier de sortie. Genere les requetes SQL d'update , exemple :")
PrintN("update l=77;")
PrintN("Genere une log nommee nom du fichier resultat .log")
CloseConsole()
EndIf
EndProcedure
;- Début du programme
arg=1
arg1$=ProgramParameter()
If arg1$=""
arg=0
test()
EndIf