Visualisation des données pour un seul menu avec 2 dictionnaires externes
Posted: September 15th, 2020, 6:58 am
Bonjour chers utilisateurs de CSPRO,
J'ai besoin de votre aide et je vous remercie d'avance.J'utilise souvent un dictionnaire externe et je parviens à récupérer les données. Mais maintenant que j'utilise 2 dictionnaires externes,après envoi des données par les enquêteurs qui utilisent les androîd pour collecter, je ne trouve que les données pour le premier dictionnaire externe seulement. Je ne sais pas ce qui se passe pour le second dictionnaire. De plus, quand je fais le téléchargement de nouveaux formulaires,j'obtiens ce message: "error downloading file D"MAYENGO/MAYENGO.pff":check that the file exists on the server, that the path is correct and that you have permission to read the file.
Je vous montre en bas les configurations que j'ai faites au niveau du menu pour m'aider à avancer:
{Application 'MENU' logic file generated by CSPro}
PROC GLOBAL
numeric a=1, b = 2;
function synchronization(action)
if action=a then
if syncconnect(Dropbox)=1 then
syncdata(PUT,MAYENGO_DICT);
syncdata(PUT,LISTMAYENGO_DICT);
syncdisconnect();
endif;
elseif action=b then
if syncconnect(Dropbox)=1 then
syncfile(GET,"D:\MAYENGO/MAYENGO.pff","MAYENGO.pff" );
syncfile(GET,"D:\MAYENGO/MAYENGO.pen","MAYENGO.pen");
syncfile(GET,"D:\MAYENGO/LISTMAYENGO.pff","LISTMAYENGO.pff" );
syncfile(GET,"D:\MAYENGO/LISTMAYENGO.pen","LISTMAYENGO.pen");
syncfile(GET,"D:\MAYENGO/MENU.pff","MENU.pff");
syncfile(GET,"D:\MAYENGO/MENU.pen","MENU.pen");
syncdisconnect();
endif;
endif;
end;
function launchMAYENGODataEntry()
string pathToEntryMAYENGO = "MAYENGO.pff";
if execpff(pathToEntryMAYENGO, stop) = notappl then errmsg("Echec de lancement");
endif; end;
function launchLISTMAYENGODataEntry()
string pathToEntryLISTMAYENGO = "LISTMAYENGO.pff";
if execpff(pathToEntryLISTMAYENGO , stop) = notappl then errmsg("Echec de lancement");
endif; end;
PROC MENU_FF
preproc
userbar(clear);
userbar( add button,"Envoyer données au Serveur", synchronization(a));
userbar( add button,"Télécharger les nouveaux formulaires", synchronization(b));
userbar(add spacing,50); userbar(show);
PROC MENU_ID
if $ =2 then launchMAYENGODataEntry(); else launchLISTMAYENGODataEntry(); endif;
J'ai besoin de votre aide et je vous remercie d'avance.J'utilise souvent un dictionnaire externe et je parviens à récupérer les données. Mais maintenant que j'utilise 2 dictionnaires externes,après envoi des données par les enquêteurs qui utilisent les androîd pour collecter, je ne trouve que les données pour le premier dictionnaire externe seulement. Je ne sais pas ce qui se passe pour le second dictionnaire. De plus, quand je fais le téléchargement de nouveaux formulaires,j'obtiens ce message: "error downloading file D"MAYENGO/MAYENGO.pff":check that the file exists on the server, that the path is correct and that you have permission to read the file.
Je vous montre en bas les configurations que j'ai faites au niveau du menu pour m'aider à avancer:
{Application 'MENU' logic file generated by CSPro}
PROC GLOBAL
numeric a=1, b = 2;
function synchronization(action)
if action=a then
if syncconnect(Dropbox)=1 then
syncdata(PUT,MAYENGO_DICT);
syncdata(PUT,LISTMAYENGO_DICT);
syncdisconnect();
endif;
elseif action=b then
if syncconnect(Dropbox)=1 then
syncfile(GET,"D:\MAYENGO/MAYENGO.pff","MAYENGO.pff" );
syncfile(GET,"D:\MAYENGO/MAYENGO.pen","MAYENGO.pen");
syncfile(GET,"D:\MAYENGO/LISTMAYENGO.pff","LISTMAYENGO.pff" );
syncfile(GET,"D:\MAYENGO/LISTMAYENGO.pen","LISTMAYENGO.pen");
syncfile(GET,"D:\MAYENGO/MENU.pff","MENU.pff");
syncfile(GET,"D:\MAYENGO/MENU.pen","MENU.pen");
syncdisconnect();
endif;
endif;
end;
function launchMAYENGODataEntry()
string pathToEntryMAYENGO = "MAYENGO.pff";
if execpff(pathToEntryMAYENGO, stop) = notappl then errmsg("Echec de lancement");
endif; end;
function launchLISTMAYENGODataEntry()
string pathToEntryLISTMAYENGO = "LISTMAYENGO.pff";
if execpff(pathToEntryLISTMAYENGO , stop) = notappl then errmsg("Echec de lancement");
endif; end;
PROC MENU_FF
preproc
userbar(clear);
userbar( add button,"Envoyer données au Serveur", synchronization(a));
userbar( add button,"Télécharger les nouveaux formulaires", synchronization(b));
userbar(add spacing,50); userbar(show);
PROC MENU_ID
if $ =2 then launchMAYENGODataEntry(); else launchLISTMAYENGODataEntry(); endif;