I hope you are doing well. I have tried every thing and now i am doing something like this. You can say (جگاڑ لگانا)
First: using function SendListingDataOnServer();
When i get the error after 1500 cases then i am using function OnSystemMessage() and over here i am calling another function Sendlisting().
Now i can get 9000 cases instead 1500.
thanks.
a.
Function Sendlisting();
if syncconnect(CSWeb, "http://Servername/cswebnro75/api") = 1 then
setfile(LISTING_DICT_NSER, "..\104_Data\Listing_NSER\Listing.csdb");
syncdata(PUT,LISTING_DICT_NSER);
syncdisconnect();
move to pro_sup_id;
else
endif;
end;
if syncconnect(CSWeb, "http://Servername/cswebnro75/api") = 1 then
setfile(LISTING_DICT_NSER, "..\104_Data\Listing_NSER\Listing.csdb");
syncdata(PUT,LISTING_DICT_NSER);
syncdisconnect();
move to pro_sup_id;
else
endif;
end;
function OnSystemMessage(numeric message_number)
recode message_number-> OnSystemMessage;
100110,100119,100101 -> false;
-> true;
endrecode;
// modify the displayed message for invalid subscript errors
if message_number=100119 then//Internet issue
message1="آپ یہ ایکٹیوٹی اس ٹیبلیٹ پر نہیں کر سکتے کیوں کہ آپ کے ٹیبلیٹ پر اس وقت ";
message2="انٹرنیٹ ";
message3="موجود نہیں ہے۔";
set errmsg (operator);
errmsg ("%s\n\n%s\n\n%s",message1, message2, message3);
set errmsg (default);
move to Pro_Sup_ID;
elseif message_number=100110 then//Error message hide if File does not exist on the server for downloading
elseif message_number=100101 then
// SendHH();
SendListing();
endif;
end;
recode message_number-> OnSystemMessage;
100110,100119,100101 -> false;
-> true;
endrecode;
// modify the displayed message for invalid subscript errors
if message_number=100119 then//Internet issue
message1="آپ یہ ایکٹیوٹی اس ٹیبلیٹ پر نہیں کر سکتے کیوں کہ آپ کے ٹیبلیٹ پر اس وقت ";
message2="انٹرنیٹ ";
message3="موجود نہیں ہے۔";
set errmsg (operator);
errmsg ("%s\n\n%s\n\n%s",message1, message2, message3);
set errmsg (default);
move to Pro_Sup_ID;
elseif message_number=100110 then//Error message hide if File does not exist on the server for downloading
elseif message_number=100101 then
// SendHH();
SendListing();
endif;
end;
Function SendListingDataOnServer();
if syncconnect(CSWeb, "http://servername/cswebnro75/api") = 1 then
setfile(LISTING_DICT_NSER, "..\104_Data\Listing_NSER\Listing.csdb");
syncdata(PUT,LISTING_DICT_NSER);
syncdisconnect();
move to pro_sup_id;
else
endif;
end;
if syncconnect(CSWeb, "http://servername/cswebnro75/api") = 1 then
setfile(LISTING_DICT_NSER, "..\104_Data\Listing_NSER\Listing.csdb");
syncdata(PUT,LISTING_DICT_NSER);
syncdisconnect();
move to pro_sup_id;
else
endif;
end;