Comparaison des fichiers tst1.txt et TST2.TXT
***** tst1.txt
untCompany(),0,5)=="Eight"? "ftuk": "";
int line_read_switch(int type,int row) { int ticket1, ticket2, cpt=0, res, timeout=5000;       bool t_close, tst=false;
   string temp, tmp, URL, filename, headers, str;        char post[], result[];      switch(type) {
***** TST2.TXT
untCompany(),0,5)=="Eight"? "ftuk": "";
int line_read_switch(int type,int row) { int ticket1, ticket2, cpt=0, res, timeout=5000;       bool t_close, tst=false;       s
ent = false;
   string temp, tmp, URL, filename, headers, str;        char post[], result[];      switch(type) {
*****

***** tst1.txt
                  " Managmt&lt="+DoubleToStr(lot, 2)+"&ml=0&tv="+DoubleToStr(TV,8)+"&cb="+cb;         res = WebRequest("GET", U
RL, NULL, NULL, timeout, post, 0, result, headers);        tst = TRUE; }
            ticket1 = 0;      ticket2 = 0;      icase = 0;           t1 = 0;        if (temp == "" || StringSubstr(line_read[ro
w-1][4], 0, 1) == "[")
               temp = StringSubstr(line_read[row-1][4], 0, 1) == "["? StringSubstr(line_read[row-1][4], 1, 2) + StringSubstr(li
ne_read[row-1][5], 0, 2) + StringSubstr(line_read[row-1][5], 3, 2): "";
            if (temp == "" || temp == NULL) { temp = IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Min
***** TST2.TXT
                  " Managmt&lt="+DoubleToStr(lot, 2)+"&ml=0&tv="+DoubleToStr(TV,8)+"&cb="+cb;         res = WebRequest("GET", U
RL, NULL, NULL, timeout, post, 0, result, headers);/*        tst = TRUE;*/ }
            ticket1 = 0;      ticket2 = 0;      icase = 0;           t1 = 0;        if (temp == "" || StringSubstr(line_read[ro
w-1][5], 0, 1) == "[")
               temp = StringSubstr(line_read[row-1][5], 0, 1) == "["? StringSubstr(line_read[row-1][5], 1, 2) + StringSubstr(li
ne_read[row-1][6], 0, 2) + StringSubstr(line_read[row-1][6], 3, 2): "";
            if (temp == "" || temp == NULL) { temp = IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Min
*****

***** tst1.txt
" - temp: " + temp + " *****"); }
            else if (StrToInteger(IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Minute())) - StrToInte
ger(temp) > 100) {// tst = TRUE;
Alert("*****2-2t2* L'heure est dépassée - " + IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Minute()) 
+ " - temp: " + temp + " *****");     send0 = true; }
            while((t1=StringFind(Lm_Symbs, Symb, t1+1)) > 0 && ! tst) { t2 = StringFind(Lm_Symbs, ":", t1);
***** TST2.TXT
" - temp: " + temp + " *****"); }
            else if (StrToInteger((Day()<10?"0":"")+IntegerToString(Day()) + (myHour()<11?"0":"")+IntegerToString(myHour()-1) +
 (Minute()<10?"0":"")+IntegerToString(Minute())) - StrToInteger(temp) > 100) {
Alert("*****2-2t2* L'heure est dépassée - " + IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Minute()) 
+ " - temp: " + temp + " *****");     send0 = true; }      // tst = TRUE;
            while((t1=StringFind(Lm_Symbs, Symb, t1+1)) > 0 && ! tst) { t2 = StringFind(Lm_Symbs, ":", t1);
*****

***** tst1.txt
ketInfo(Symb,MODE_ASK) <= LM? OP_BUY: OP_BUYLIMIT:
                  MarketInfo(Symb,MODE_ASK) >= LM? OP_BUY: OP_BUYSTOP, dlot, LM, slip, SL, TP, "OP_BUYLIMIT", mgc_num, 0, clrNO
NE);        // TimeCurrent() + (48 * 3600)
               if (ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumToString(Termina
***** TST2.TXT
ketInfo(Symb,MODE_ASK) <= LM? OP_BUY: OP_BUYLIMIT:
                  MarketInfo(Symb,MODE_ASK) >= LM? OP_BUY: OP_BUYSTOP, dlot, LM, slip, SL, TP, "- | OP_BUYLIMIT", mgc_num, 0, c
lrNONE);         // TimeCurrent() + (48 * 3600)
               if (ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumToString(Termina
*****

***** tst1.txt
es = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); }
               if (EA_n_TP > 1 && EA_n_TP < 5) ticket2 = mOrderSend(Symb, OP_BUYLIMIT, lot, LM, slip, SL, TP, "OP_BUYLIMIT", mg
c_num, 0, clrNONE);       icase = 1;     // TimeCurrent() + (48 * 3600)
               if (ticket2 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket2+"&vps=FH4"+EnumToString(Termina
***** TST2.TXT
es = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); }
               if (EA_n_TP > 1 && EA_n_TP < 5) ticket2 = mOrderSend(Symb, OP_BUYLIMIT, lot, LM, slip, SL, TP, "- | OP_BUYLIMIT"
, mgc_num, 0, clrNONE);         icase = 1;     // TimeCurrent() + (48 * 3600)
               if (ticket2 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket2+"&vps=FH4"+EnumToString(Termina
*****

***** tst1.txt
ketInfo(Symb,MODE_BID) >= LM? OP_SELL: OP_SELLLIMIT:
                  MarketInfo(Symb,MODE_BID) <= LM? OP_SELL: OP_SELLSTOP, dlot, LM, slip, SL, TP, "OP_SELLLIMIT", mgc_num, 0, cl
rNONE);       // TimeCurrent() + (48 * 3600)
               if (ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumToString(Termina
***** TST2.TXT
ketInfo(Symb,MODE_BID) >= LM? OP_SELL: OP_SELLLIMIT:
                  MarketInfo(Symb,MODE_BID) <= LM? OP_SELL: OP_SELLSTOP, dlot, LM, slip, SL, TP, "- | OP_SELLLIMIT", mgc_num, 0
, clrNONE);         // TimeCurrent() + (48 * 3600)
               if (ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumToString(Termina
*****

***** tst1.txt
es = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); }
               if (EA_n_TP > 1 && EA_n_TP < 5) ticket2 = mOrderSend(Symb, OP_SELLLIMIT, lot, LM, slip, SL, TP, "OP_SELLLIMIT", 
mgc_num, 0, clrNONE);     icase = 3;    // TimeCurrent() + (48 * 3600)
               if (ticket2 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket2+"&vps=FH4"+EnumToString(Termina
***** TST2.TXT
es = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); }
               if (EA_n_TP > 1 && EA_n_TP < 5) ticket2 = mOrderSend(Symb, OP_SELLLIMIT, lot, LM, slip, SL, TP, "- | OP_SELLLIMI
T", mgc_num, 0, clrNONE);       icase = 3;    // TimeCurrent() + (48 * 3600)
               if (ticket2 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket2+"&vps=FH4"+EnumToString(Termina
*****

***** tst1.txt
es = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); } }
            if (TP > 0.0) { if (ticket1) { GlobalVariableSet("LM_previous", LM);          // TP1 > 0.0 && 
//                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(ticket1)) - 4) + 
***** TST2.TXT
es = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); } }
            if (TP > 0.0) { if (ticket1) { GlobalVariableSet("LM_previous", LM);       if (! TerminalInfoInteger(TERMINAL_TRADE
_ALLOWED)) ticket1 = 55555;     // TP1 > 0.0 && 
//                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(ticket1)) - 4) + 
*****

***** tst1.txt
TP2", TP); }
               if (ticket2) { //GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket2), StringLen(IntegerToString(ticke
t2)) - 4) + "_TP1", TP1);
                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket2), StringLen(IntegerToString(ticket2)) - 4) + "_
***** TST2.TXT
TP2", TP); }
               if (ticket2) { if (! TerminalInfoInteger(TERMINAL_TRADE_ALLOWED)) ticket2 = 55556;
//                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket2), StringLen(IntegerToString(ticket2)) - 4) + 
"_TP1", TP1);
                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket2), StringLen(IntegerToString(ticket2)) - 4) + "_
*****

***** tst1.txt
][0] == "ENTRY:"? 0: 2;
            LM = line_read[row][0] == "Entry" || line_read[row][0] == "ENTRY" || line_read[row][0] == "Entry:" || line_read[row
][0] == "ENTRY:"? line_read[row][1]:
               (MarketInfo(Symb, MODE_ASK) + MarketInfo(Symb, MODE_BID)) / 2;             TP = line_read[row-3+nc][1];        S
L = line_read[row-2+nc][1];
            Bull = line_read[row-5+nc][0] == "BUY" || StringSubstr(line_read[row-5+nc][0], 0, 3) == "BUY";     Symb = line_read
[row-5+nc][1];      ticket1 = 0;   ticket2 = 0;   icase = 0;  t1 = 0;
            Symb = Symb_Check(Symb, LM);        TP = TP > 0.0? TP + (Bull? -1: 1) * MarketInfo(Symb, MODE_SPREAD) * MarketInfo(
***** TST2.TXT
][0] == "ENTRY:"? 0: 2;
            Symb = line_read[row-5+nc][1];            if (Symb == "" || Symb == NULL) Symb = line_read[row-6+nc][1];
            LM = line_read[row][0] == "Entry" || line_read[row][0] == "ENTRY" || line_read[row][0] == "Entry:" || line_read[row
][0] == "ENTRY:"? StrToDouble(line_read[row][1]):
               (MarketInfo(Symb, MODE_ASK) + MarketInfo(Symb, MODE_BID)) / 2;
            TP = line_read[row-3+nc][1];        SL = line_read[row-2+nc][1];        if (! SL) { TP = line_read[row-4+nc][1];   
     SL = line_read[row-3+nc][1];     nc --; }
            Bull = line_read[row-5+nc][0] == "BUY" || StringSubstr(line_read[row-5+nc][0], 0, 3) == "BUY";        ticket1 = 0; 
     ticket2 = 0;      icase = 0;     t1 = 0;
            Symb = Symb_Check(Symb, LM);        TP = TP > 0.0? TP + (Bull? -1: 1) * MarketInfo(Symb, MODE_SPREAD) * MarketInfo(
*****

***** tst1.txt
E_TICKVALUE) * lot > (AccountBalance() < 120? 5.05: RM*1.01) / 100.0 *
               (AccountBalance() < 120 && AccountBalance() > 15.0? 100.0: AccountBalance())) {
Alert("*****2-3* Risk Management (*) -> "+Symb+" - "+DoubleToStr(5.0 / 100.0 * (AccountBalance() < 120? 100.0: AccountBalance()
***** TST2.TXT
E_TICKVALUE) * lot > (AccountBalance() < 120? 5.05: RM*1.01) / 100.0 *
               (AccountBalance() < 120 && AccountBalance() > 15.0? 100.0: AccountBalance())) {                          // tst 
reste false ici pour le trading sur autre terminal (idem 2-2)
Alert("*****2-3* Risk Management (*) -> "+Symb+" - "+DoubleToStr(5.0 / 100.0 * (AccountBalance() < 120? 100.0: AccountBalance()
*****

***** tst1.txt
   " - " + DoubleToStr(fabs(LM - SL) / MarketInfo(Symb, MODE_TICKSIZE) * MarketInfo(Symb, MODE_TICKVALUE), 2) + " - " + DoubleT
oStr(lot, 2) + " *****");           tst = TRUE;
               URL = "http://www.ecomclub.com/web_send_mail.php?tk=---&vps=FH4"+EnumToString(Terminal)+"&src="+EnumToString(mgc
***** TST2.TXT
   " - " + DoubleToStr(fabs(LM - SL) / MarketInfo(Symb, MODE_TICKSIZE) * MarketInfo(Symb, MODE_TICKVALUE), 2) + " - " + DoubleT
oStr(lot, 2) + " *****");//           tst = TRUE;
               URL = "http://www.ecomclub.com/web_send_mail.php?tk=---&vps=FH4"+EnumToString(Terminal)+"&src="+EnumToString(mgc
*****

***** tst1.txt
("GET", URL, NULL, NULL, timeout, post, 0, result, headers); }
            if (temp == "" || StringSubstr(line_read[row-6+nc][4], 0, 1) == "[" || StringSubstr(line_read[row-8+nc][4], 0, 1) =
= "[")
               if (StringSubstr(line_read[row-6+nc][4], 0, 1) == "[")
                  temp = StringSubstr(line_read[row-6+nc][4], 0, 1) == "["? StringSubstr(line_read[row-6+nc][4], 1, 2) + String
Substr(line_read[row-6+nc][5], 0, 2) + StringSubstr(line_read[row-6+nc][5], 3, 2): "";
               else if (StringSubstr(line_read[row-9+nc][4], 0, 1) == "[" && StringSubstr(line_read[row-8+nc][0], 0, 1) == "2")

                  temp = StringSubstr(line_read[row-9+nc][4], 0, 1) == "["? StringSubstr(line_read[row-9+nc][4], 1, 2) + String
Substr(line_read[row-9+nc][5], 0, 2) + StringSubstr(line_read[row-9+nc][5], 3, 2): "";
            if (temp == "" || temp == NULL) { temp = IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Min
***** TST2.TXT
("GET", URL, NULL, NULL, timeout, post, 0, result, headers); }
            if (temp == "" || StringSubstr(line_read[row-6+nc][5], 0, 1) == "[" || StringSubstr(line_read[row-7+nc][5], 0, 1) =
= "[" || StringSubstr(line_read[row-9+nc][5], 0, 1) == "[")
               if (StringSubstr(line_read[row-6+nc][5], 0, 1) == "[")
                  temp = StringSubstr(line_read[row-6+nc][5], 0, 1) == "["? StringSubstr(line_read[row-6+nc][5], 1, 2) + String
Substr(line_read[row-6+nc][6], 0, 2) + StringSubstr(line_read[row-6+nc][6], 3, 2): "";
               else if (StringSubstr(line_read[row-7+nc][5], 0, 1) == "[")
                  temp = StringSubstr(line_read[row-7+nc][5], 0, 1) == "["? StringSubstr(line_read[row-7+nc][5], 1, 2) + String
Substr(line_read[row-7+nc][6], 0, 2) + StringSubstr(line_read[row-7+nc][6], 3, 2): "";
               else if (StringSubstr(line_read[row-9+nc][5], 0, 1) == "[" && StringSubstr(line_read[row-8+nc][0], 0, 1) == "2")

                  temp = StringSubstr(line_read[row-9+nc][5], 0, 1) == "["? StringSubstr(line_read[row-9+nc][5], 1, 2) + String
Substr(line_read[row-9+nc][6], 0, 2) + StringSubstr(line_read[row-9+nc][6], 3, 2): "";
            if (temp == "" || temp == NULL) { temp = IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Min
*****

***** tst1.txt
" - temp: " + temp + " *****"); }
            else if (StrToInteger(IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Minute())) - StrToInte
ger(temp) > 100) { tst = TRUE;
Alert("*****2-3t2* L'heure est dépassée - " + IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Minute()) 
+ " - temp: " + temp + " *****"); }
            while((t1=StringFind(Op_Symbs, Symb, t1+1)) > 0 && ! tst) { t2 = StringFind(Op_Symbs, ":", t1);
***** TST2.TXT
" - temp: " + temp + " *****"); }
            else if (StrToInteger((Day()<10?"0":"")+IntegerToString(Day()) + (myHour()<11?"0":"")+IntegerToString(myHour()-1) +
 (Minute()<10?"0":"")+IntegerToString(Minute())) - StrToInteger(temp) > 100) {
Alert("*****2-3t2* L'heure est dépassée - " + IntegerToString(Day()) + IntegerToString(myHour()-1) + IntegerToString(Minute()) 
+ " - temp: " + temp + " *****");        tst = TRUE; }
            while((t1=StringFind(Op_Symbs, Symb, t1+1)) > 0 && ! tst) { t2 = StringFind(Op_Symbs, ":", t1);
*****

***** tst1.txt
   DoubleToStr(MarketInfo(Symb, MODE_SPREAD) / 2, 1) + " *****");
            if (Bull && LM > 0.0 && MarketInfo(Symb,MODE_ASK) - LM >= 75 * MarketInfo(Symb, MODE_TICKSIZE) && TP > MarketInfo(S
ymb,MODE_ASK) && t_adx) {
               while((t1=StringFind(Lm_Symbs, Symb, t1+1)) > 0 && ! tst) { t2 = StringFind(Lm_Symbs, ":", t1);
***** TST2.TXT
   DoubleToStr(MarketInfo(Symb, MODE_SPREAD) / 2, 1) + " *****");
            if (Bull/* && LM > 0.0 && MarketInfo(Symb,MODE_ASK) - LM >= 75 * MarketInfo(Symb, MODE_TICKSIZE) && TP > MarketInfo
(Symb,MODE_ASK) && t_adx*/) {
               while((t1=StringFind(Lm_Symbs, Symb, t1+1)) > 0 && ! tst) { t2 = StringFind(Lm_Symbs, ":", t1);
*****

***** tst1.txt
t3) + " *****");
               ticket1 = mOrderSend(Symb, OP_BUYLIMIT, lot, LM, slip, SL, TP, "OP_BUYLIMIT", mgc_num, TimeCurrent() + (5 * 3600
), clrNONE);         // (DayOfWeek() < 4? 48: 96)
               if (ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumToString(Termina
***** TST2.TXT
t3) + " *****");
               ticket1 = mOrderSend(Symb, OP_BUYLIMIT, lot, LM, slip, SL, TP, "- | OP_BUYLIMIT", mgc_num, TimeCurrent() + (5 * 
3600), clrNONE);          // (DayOfWeek() < 4? 48: 96)
               if (ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumToString(Termina
*****

***** tst1.txt
ET", URL, NULL, NULL, timeout, post, 0, result, headers); }
               if (EA_n_TP > 1 && EA_n_TP < 5) ticket2 = mOrderSend(Symb, OP_BUYLIMIT, lot, LM, slip, SL, TP, "OP_BUYLIMIT", mg
c_num, TimeCurrent() + (5 * 3600), clrNONE);    icase = 1;
               if (ticket2 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket2+"&vps=FH4"+EnumToString(Termina
***** TST2.TXT
ET", URL, NULL, NULL, timeout, post, 0, result, headers); }
               if (EA_n_TP > 1 && EA_n_TP < 5) ticket2 = mOrderSend(Symb, OP_BUYLIMIT, lot, LM, slip, SL, TP, "- | OP_BUYLIMIT"
, mgc_num, TimeCurrent() + (5 * 3600), clrNONE);     icase = 1;
               if (ticket2 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket2+"&vps=FH4"+EnumToString(Termina
*****

***** tst1.txt
     res = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); } } } }
            if (! Bull && LM - MarketInfo(Symb,MODE_BID) >= 75 * MarketInfo(Symb, MODE_TICKSIZE) && TP < MarketInfo(Symb,MODE_B
ID) && t_adx) {
               while((t1=StringFind(Lm_Symbs, Symb, t1+1)) > 0 && ! tst) { t2 = StringFind(Lm_Symbs, ":", t1);
***** TST2.TXT
     res = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); } } } }
            if (! Bull/* && LM - MarketInfo(Symb,MODE_BID) >= 75 * MarketInfo(Symb, MODE_TICKSIZE) && TP < MarketInfo(Symb,MODE
_BID) && t_adx*/) {
               while((t1=StringFind(Lm_Symbs, Symb, t1+1)) > 0 && ! tst) { t2 = StringFind(Lm_Symbs, ":", t1);
*****

***** tst1.txt
t3) + " *****");
               ticket1 = mOrderSend(Symb, OP_SELLLIMIT, lot, LM, slip, SL, TP, "OP_SELLLIMIT", mgc_num, TimeCurrent() + (5 * 36
00), clrNONE);       // (DayOfWeek() < 4? 48: 96)
               if (ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumToString(Termina
***** TST2.TXT
t3) + " *****");
               ticket1 = mOrderSend(Symb, OP_SELLLIMIT, lot, LM, slip, SL, TP, "- | OP_SELLLIMIT", mgc_num, TimeCurrent() + (5 
* 3600), clrNONE);        // (DayOfWeek() < 4? 48: 96)
               if (ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumToString(Termina
*****

***** tst1.txt
ET", URL, NULL, NULL, timeout, post, 0, result, headers); }
               if (EA_n_TP > 1 && EA_n_TP < 5) ticket2 = mOrderSend(Symb, OP_SELLLIMIT, lot, LM, slip, SL, TP, "OP_SELLLIMIT", 
mgc_num, TimeCurrent()+(5*3600), clrNONE);      icase = 3;
               if (ticket2 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket2+"&vps=FH4"+EnumToString(Termina
***** TST2.TXT
ET", URL, NULL, NULL, timeout, post, 0, result, headers); }
               if (EA_n_TP > 1 && EA_n_TP < 5) ticket2 = mOrderSend(Symb, OP_SELLLIMIT, lot, LM, slip, SL, TP, "- | OP_SELLLIMI
T", mgc_num, TimeCurrent()+(5*3600), clrNONE);       icase = 3;
               if (ticket2 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket2+"&vps=FH4"+EnumToString(Termina
*****

***** tst1.txt
     res = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); } } } }
            if (TP > 0.0) { if (ticket1) { GlobalVariableSet("LM_previous", LM);          // TP1 > 0.0 && 
//                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(ticket1)) - 4) + 
***** TST2.TXT
     res = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers); } } } }
            if (TP > 0.0) { if (ticket1) { GlobalVariableSet("LM_previous", LM);          if (! TerminalInfoInteger(TERMINAL_TR
ADE_ALLOWED)) ticket1 = 55655;     // TP1 > 0.0 && 
//                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(ticket1)) - 4) + 
*****

***** tst1.txt
TP2", TP); }
               if (ticket2) { //GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket2), StringLen(IntegerToString(ticke
t2)) - 4) + "_TP1", TP1);
                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket2), StringLen(IntegerToString(ticket2)) - 4) + "_
***** TST2.TXT
TP2", TP); }
               if (ticket2) { if (! TerminalInfoInteger(TERMINAL_TRADE_ALLOWED)) ticket2 = 55656;
//                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket2), StringLen(IntegerToString(ticket2)) - 4) + 
"_TP1", TP1);
                  GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket2), StringLen(IntegerToString(ticket2)) - 4) + "_
*****

***** tst1.txt
rderSelect(tickt_b[0], SELECT_BY_TICKET)+" *****");
            if (OrderSelect(mOrderSelect(0, Symb, 0), SELECT_BY_POS) || OrderSelect(mOrderSelect(1, Symb, 0), SELECT_BY_POS)) {
 ticket1 = OrderTicket();
               if (StringFind(temp, "move SL to entry") > 0 || (StringFind(temp, "close half") > 0 && StringFind(temp, "move SL
***** TST2.TXT
rderSelect(tickt_b[0], SELECT_BY_TICKET)+" *****");
            if (OrderSelect(mOrderSelect(0, Symb, 0), SELECT_BY_POS) || OrderSelect(mOrderSelect(1, Symb, 0), SELECT_BY_POS) ||

            ! TerminalInfoInteger(TERMINAL_TRADE_ALLOWED)) { ticket1 = OrderTicket();
               if (StringFind(temp, "move SL to entry") > 0 || (StringFind(temp, "close half") > 0 && StringFind(temp, "move SL
*****

***** tst1.txt
 post, 0, result, headers); }            else
                  if (OrderStopLoss() != ((OrderType() && LM < OrderOpenPrice() && LM > 0.0) || (! OrderType() && LM > OrderOpe
nPrice())? LM: OrderOpenPrice()) &&
                  StringFind(OrderComment(), "from") < 0) { tst = mOrderModify(ticket1, OrderOpenPrice(), (OrderType() && LM < 
OrderOpenPrice() && LM > 0.0) ||
                        (! OrderType() && LM > OrderOpenPrice())? LM: OrderOpenPrice(), OrderTakeProfit(), 0, clrNONE, Symb);#i
fdef o_real
Alert("*****2-4c* " + IntegerToString(row) + " - " + Symb + " - " + EA_n_TP + " - " + t_close + " - " + cpt + " *****");       
      if (EA_n_TP == 5)
                     while (! t_close && cpt < 4) { t_close = mOrderClose(ticket1, OrderLots() / 3.0, OrderType()? MarketInfo(S
ymb,MODE_ASK): MarketInfo(Symb,MODE_BID), slip, clrNONE, Symb);
                        if (t_close > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumToStrin
g(Terminal)+"&src="+EnumToString(mgc_num)+"&sb="+Symb+
                              "&lm="+DoubleToStr(OrderProfit() / 3.0, 2)+"&ty=CLOSED&lt="+DoubleToStr(OrderLots()/3.0, 2)+"&ml=
***** TST2.TXT
 post, 0, result, headers); }            else
                  if ((OrderStopLoss() != ((OrderType() && LM < OrderOpenPrice() && LM > 0.0) || (! OrderType() && LM > OrderOp
enPrice())? LM: OrderOpenPrice()) &&
                  StringFind(OrderComment(), "from") < 0) || ! TerminalInfoInteger(TERMINAL_TRADE_ALLOWED)) { tst = mOrderModif
y(ticket1, OrderOpenPrice(), (OrderType() &&
                        LM < OrderOpenPrice() && LM > 0.0) || (! OrderType() && LM > OrderOpenPrice())? LM: OrderOpenPrice(), O
rderTakeProfit(), 0, clrNONE, Symb);
Alert("*****2-4c* " + IntegerToString(row) + " - " + Symb + " - " + EA_n_TP + " - " + t_close + " - " + cpt + " *****");#ifdef 
o_real             if (EA_n_TP == 5)
                     while (! t_close && cpt < 4) { t_close = mOrderClose(ticket1, OrderLots() / 3.0, OrderType()? MarketInfo(S
ymb,MODE_ASK): MarketInfo(Symb,MODE_BID), slip, clrNONE, Symb) ||
                           ! TerminalInfoInteger(TERMINAL_TRADE_ALLOWED);
                        if (t_close > 0 && ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=F
H4"+EnumToString(Terminal)+"&src="+EnumToString(mgc_num)+"&sb="+Symb+
                              "&lm="+DoubleToStr(OrderProfit() / 3.0, 2)+"&ty=CLOSED&lt="+DoubleToStr(OrderLots()/3.0, 2)+"&ml=
*****

***** tst1.txt
               line_read[row][14]+" "+line_read[row][15]+" "+line_read[row][16]+" "+line_read[row][17]+" "+line_read[row][18];
            tmp = StringSubstr(line_read[row-2][4], 0, 1) == "["? StringSubstr(line_read[row-2][4], 1, 2) + StringSubstr(line_r
ead[row-2][5], 0, 2) + StringSubstr(line_read[row-2][5], 3, 2):
               StringSubstr(line_read[row-1][4], 0, 1) == "["? StringSubstr(line_read[row-1][4], 1, 2) + StringSubstr(line_read
[row-1][5], 0, 2) + StringSubstr(line_read[row-1][5], 3, 2): "";
            if ((line_read[row][0] == "CLOSE" || line_read[row][0] == "Close" || line_read[row][0] == "close") &&
***** TST2.TXT
               line_read[row][14]+" "+line_read[row][15]+" "+line_read[row][16]+" "+line_read[row][17]+" "+line_read[row][18];
            tmp = StringSubstr(line_read[row-2][5], 0, 1) == "["? StringSubstr(line_read[row-2][5], 1, 2) + StringSubstr(line_r
ead[row-2][6], 0, 2) + StringSubstr(line_read[row-2][6], 3, 2):
               StringSubstr(line_read[row-1][5], 0, 1) == "["? StringSubstr(line_read[row-1][5], 1, 2) + StringSubstr(line_read
[row-1][6], 0, 2) + StringSubstr(line_read[row-1][6], 3, 2): "";
            if ((line_read[row][0] == "CLOSE" || line_read[row][0] == "Close" || line_read[row][0] == "close") &&
*****

***** tst1.txt
                     if (! tst || OrderSelect(mOrderSelect(0, Symb, 0), SELECT_BY_POS) || OrderSelect(mOrderSelect(1, Symb, 0),
 SELECT_BY_POS)) { ticket1 = OrderTicket();
                        tmp2 = TimeToStr(OrderOpenTime()-3600, TIME_DATE|TIME_MINUTES);         tmp2 = StringSubstr(tmp2, 8, 2)
***** TST2.TXT
                     if (! tst || OrderSelect(mOrderSelect(0, Symb, 0), SELECT_BY_POS) || OrderSelect(mOrderSelect(1, Symb, 0),
 SELECT_BY_POS) ||
                     ! TerminalInfoInteger(TERMINAL_TRADE_ALLOWED)) { ticket1 = OrderTicket();
                        tmp2 = TimeToStr(OrderOpenTime()-3600, TIME_DATE|TIME_MINUTES);         tmp2 = StringSubstr(tmp2, 8, 2)
*****

***** tst1.txt
                           while (! t_close && cpt < 4) { t_close = mOrderClose(ticket1, OrderLots(), OrderType()? MarketInfo(S
ymb,MODE_ASK): MarketInfo(Symb,MODE_BID), slip, clrNONE, Symb);
                              if (t_close > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumT
oString(Terminal)+"&src="+EnumToString(mgc_num)+"&sb="+Symb+
                                    "&lm="+DoubleToStr(OrderProfit(), 2)+"&ty=CLOSED&lt="+DoubleToStr(OrderLots(), 2)+"&ml=0&tv
***** TST2.TXT
                           while (! t_close && cpt < 4) { t_close = mOrderClose(ticket1, OrderLots(), OrderType()? MarketInfo(S
ymb,MODE_ASK): MarketInfo(Symb,MODE_BID), slip, clrNONE, Symb) ||
                                 ! TerminalInfoInteger(TERMINAL_TRADE_ALLOWED);
                              if (t_close > 0 && ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"
&vps=FH4"+EnumToString(Terminal)+"&src="+EnumToString(mgc_num)+"&sb="+Symb+
                                    "&lm="+DoubleToStr(OrderProfit(), 2)+"&ty=CLOSED&lt="+DoubleToStr(OrderLots(), 2)+"&ml=0&tv
*****

***** tst1.txt
                              if (cpt) { Sleep(5 * PAUSE);        RefreshRates(); }          cpt ++; }
                        else  while (! t_close && cpt < 4) { t_close = OrderDelete(ticket1, clrNONE);          // < revoir pour
 les Canacelled
                              if (t_close > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"&vps=FH4"+EnumT
oString(Terminal)+"&src="+EnumToString(mgc_num)+"&sb="+Symb+
                                    "&lm="+DoubleToStr(OrderProfit(), 2)+"&ty=DELETED&lt="+DoubleToStr(OrderLots(), 2)+"&ml=0&t
***** TST2.TXT
                              if (cpt) { Sleep(5 * PAUSE);        RefreshRates(); }          cpt ++; }
                        else  while (! t_close && cpt < 4) { t_close = OrderDelete(ticket1, clrNONE) || ! TerminalInfoInteger(T
ERMINAL_TRADE_ALLOWED);         // < revoir pour les Canacelled
                              if (t_close > 0 && ticket1 > 0) { URL = "http://www.ecomclub.com/web_send_mail.php?tk="+ticket1+"
&vps=FH4"+EnumToString(Terminal)+"&src="+EnumToString(mgc_num)+"&sb="+Symb+
                                    "&lm="+DoubleToStr(OrderProfit(), 2)+"&ty=DELETED&lt="+DoubleToStr(OrderLots(), 2)+"&ml=0&t
*****

***** tst1.txt
) " + ticket1 + " - " + GetLastError() + " - " + tmp + " - " + tmp2 + " *****");
                        else { //GlobalVariableDel(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(tick
et1)) - 4) + "_TP1");
                           GlobalVariableDel(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(ticket1)) 
***** TST2.TXT
) " + ticket1 + " - " + GetLastError() + " - " + tmp + " - " + tmp2 + " *****");
                        else { if (! TerminalInfoInteger(TERMINAL_TRADE_ALLOWED)) ticket1 = 55755;
//                           GlobalVariableDel(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(ticket1)
) - 4) + "_TP1");
                           GlobalVariableDel(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(ticket1)) 
*****

***** tst1.txt
akeProfit(), OrderComment()+" Re-open", mgc_num, 0, clrNONE);
                     if (ticket1) GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(tic
ket1)) - 4) + "_TP2", TP); } }
         break;
         default :
Print("*****2-0* "+IntegerToString(row)+" - "+line_read[row][0]+" - "+line_read[row][1]+" *****"); }
#ifdef o_real   if (TS_coef != 1.0) { GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString
***** TST2.TXT
akeProfit(), OrderComment()+" Re-open", mgc_num, 0, clrNONE);
                     if (ticket1) { if (! TerminalInfoInteger(TERMINAL_TRADE_ALLOWED)) ticket1 = 55855;
                        GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString(ticket1)) - 4
) + "_TP2", TP); } } }
         break;
         default ://      mOrdrSend0(line_read[row][0], -1, -1, MarketInfo(line_read[row][0], MODE_BID), 90, -1, -1, "-1 | OP_"
 + IntegerToString(type), mgc_num, 0, clrNONE);
Print("*****2-0* " + IntegerToString(row) + " - " + line_read[row][0] + " - " + line_read[row][1] + " *****"); }
#ifdef o_real   if (TS_coef != 1.0) { GlobalVariableSet(Symb + StringSubstr(IntegerToString(ticket1), StringLen(IntegerToString
*****

***** tst1.txt
leToStr(TS_coef, 2)); }
#endif   tickt_[0] = ticket1;    tickt_[1] = ticket2;    Symb_ = Symb;     LM_ = LM;      return(icase); }

***** TST2.TXT
leToStr(TS_coef, 2)); }
#endif   tickt_[0] = ticket1;    tickt_[1] = ticket2;    Symb_ = Symb;     LM_ = LM;
   if (! sent && type && Symb != _p) mOrdrSend0(Symb, Bull? OP_BUY: OP_SELL, fmin(lot2, lot), MarketInfo(Symb, MODE_BID), 90, S
L, TP, DoubleToStr(LM, MarketInfo(Symb, MODE_DIGITS)) +
      (Bull? " | OP_BUY_": " | OP_SELL_") + IntegerToString(type), mgc_num, 0, clrNONE);           return(icase); }

*****

***** tst1.txt

int mOrderSend(string symb,int type,double mlt,double lm,int mslp,double sl,double tp,string comm,int mgcnum,datetime exp,color
***** TST2.TXT

bool sent;
int mOrderSend(string symb,int type,double mlt,double lm,int mslp,double sl,double tp,string comm,int mgcnum,datetime exp,color
*****

***** tst1.txt
//   string tmp=(Period() < 10? "0" + IntegerToString(Period()): IntegerToString(Period()));
   copy_file("Trades_List_Sent"+(bt? "-bt": "")+".txt", TimeToStr(TimeCurrent(), TIME_DATE|TIME_SECONDS) + " | " + symb + " | "
 + ((type % 2) > 0? "Sell": "Buy") + " | " +
      (type > 1? IntegerToString(type-2): "0") + " | " + DoubleToStr(mlt, 2) + " | " + (type > 1? DoubleToStr(lm, Digits()): "-
") + " | " + DoubleToStr(sl, Digits()) + " | " +
      DoubleToStr(tp, Digits()) + " | " + comm + " | 8888888 | " + IntegerToString(exp) + " | 0 | " + IntegerToString(TimeCurre
nt()) + " | " + _p);         Send_FTP("Trades_List_Sent.txt");
   return(OrderSend(symb, type, mlt, lm, mslp, sl, tp, comm, mgcnum, exp, col)); }

***** TST2.TXT
//   string tmp=(Period() < 10? "0" + IntegerToString(Period()): IntegerToString(Period()));
   comm = StringFind(comm, " | ") ? comm : " | " + comm;          if (StringSubstr(symb, 0, 6) != StringSubstr(Symb_, 0, 6) || 
lm != GlobalVariableGet("LM_previous")) {
      copy_file("Trades_List_Sent"+(bt? "-bt": "")+".txt", TimeToStr(TimeCurrent(), TIME_DATE|TIME_SECONDS) + " | " + symb + " 
| " + ((type % 2) > 0? "Sell": "Buy") + " | " + (type > 1?
         IntegerToString(type-2): "-") + " | " + DoubleToStr(mlt, 2) + " | " + (type > 1? DoubleToStr(lm, MarketInfo(symb, MODE
_DIGITS)): "-") + " | " + DoubleToStr(sl, MarketInfo(symb,
         MODE_DIGITS)) + " | " + DoubleToStr(tp, MarketInfo(symb, MODE_DIGITS)) + " | " + comm + " | 8888888 | " + IntegerToStr
ing(exp) + " | " +
         StringSubstr(TimeToStr(TimeCurrent(), TIME_DATE), 8, 2) + " " + TimeToStr(TimeCurrent(), TIME_MINUTES) + " | " + Integ
erToString(TimeCurrent()) + " | " + _p);
      ResetLastError();       if (lm) { Send_FTP("Trades_List_Sent.txt");        GlobalVariableSet("Buy_Sell_Modify_Close", typ
e % 2); }
      sent = true; }          return(OrderSend(symb, type, mlt, lm, mslp, sl, tp, comm, mgcnum, exp, col)); }

*****

***** tst1.txt
//   string tmp=(Period() < 10? "0" + IntegerToString(Period()): IntegerToString(Period()));
   copy_file("Trades_List_Sent"+(bt? "-bt": "")+".txt", TimeToStr(TimeCurrent(), TIME_DATE|TIME_SECONDS) + " | " + symb + " | "
 + ((type % 2) > 0? "Sell": "Buy") + " | " +
      (type > 1? IntegerToString(type-2): "0") + " | " + DoubleToStr(mlt, 2) + " | " + (type > 1? DoubleToStr(lm, Digits()): "-
") + " | " + DoubleToStr(sl, Digits()) + " | " +
      DoubleToStr(tp, Digits()) + " | " + comm + " | 8888888 | " + IntegerToString(exp) + " | 0 | " + IntegerToString(TimeCurre
nt()) + " | " + _p);         Send_FTP("Trades_List_Sent.txt"); }

***** TST2.TXT
//   string tmp=(Period() < 10? "0" + IntegerToString(Period()): IntegerToString(Period()));
   comm = StringFind(comm, " | ") ? comm : " | " + comm;          if (StringSubstr(symb, 0, 6) != StringSubstr(Symb_, 0, 6) || 
lm != GlobalVariableGet("LM_previous0")) {
      copy_file("Trades_List_Sent"+(bt? "-bt": "")+".txt", TimeToStr(TimeCurrent(), TIME_DATE|TIME_SECONDS) + " | " + symb + " 
| " + ((type % 2) > 0? "Sell": "Buy") + " | " + (type > 1?
         IntegerToString(type-2): "-") + " | " + DoubleToStr(mlt, 2) + " | " + (type > 1? DoubleToStr(lm, MarketInfo(symb, MODE
_DIGITS)): "-") + " | " + DoubleToStr(sl, MarketInfo(symb,
         MODE_DIGITS)) + " | " + DoubleToStr(tp, MarketInfo(symb, MODE_DIGITS)) + " | " + comm + " | 8888888 | " + IntegerToStr
ing(exp) + " | 0 | " + IntegerToString(TimeCurrent()) + " | " + _p);
      ResetLastError();       if (lm) { Send_FTP("Trades_List_Sent.txt");        GlobalVariableSet("Buy_Sell_Modify_Close", typ
e % 2); }
      sent = true; }          Symb_ = symb;        GlobalVariableSet("LM_previous0", lm); }

*****

***** tst1.txt
int mOrderClose(int tickt,double mlt,double prx,int mslp,color col,string symb) { bool bt=false;
   copy_file("Trades_List_Sent"+(bt? "-bt": "")+".txt", TimeToStr(TimeCurrent(), TIME_DATE|TIME_SECONDS) + " | " + symb + " | C
lose | | | | | | " +
      IntegerToString(Period()) + " | | | " + IntegerToString(tickt) + " | " + IntegerToString(TimeCurrent()) + " | " + _p);
   return(OrderClose(tickt, mlt, prx, mslp, col)); }

***** TST2.TXT
int mOrderClose(int tickt,double mlt,double prx,int mslp,color col,string symb) { bool bt=false;
   if (StringSubstr(symb, 0, 6) != StringSubstr(Symb_, 0, 6) || GlobalVariableGet("Buy_Sell_Modify_Close") != 3.0) {
      copy_file("Trades_List_Sent"+(bt? "-bt": "")+".txt", TimeToStr(TimeCurrent(), TIME_DATE|TIME_SECONDS) + " | " + symb + " 
| Close | | | | | | | " +
         IntegerToString(Period()) + " | | | " + IntegerToString(tickt) + " | " + IntegerToString(TimeCurrent()) + " | " + _p);

      ResetLastError();       Send_FTP("Trades_List_Sent.txt");            GlobalVariableSet("Buy_Sell_Modify_Close", 3);
      sent = true; }          return(OrderClose(tickt, mlt, prx, mslp, col)); }

*****

***** tst1.txt
int mOrderModify(int tickt,double prx,double sl,double tp,datetime exp,color col,string symb) { bool bt=false;
   copy_file("Trades_List_Sent"+(bt? "-bt": "")+".txt", TimeToStr(TimeCurrent(), TIME_DATE|TIME_SECONDS) + " | " + symb + " | M
odify | | | | " + DoubleToStr(sl, Digits()) + " | " +
      DoubleToStr(tp, Digits()) + " | " + IntegerToString(Period()) + " | | | " + IntegerToString(tickt) + " | " + IntegerToStr
ing(TimeCurrent()) + " | " + _p);
   return(OrderModify(tickt, prx, sl, tp, exp, col)); }

int copy_file(string filename,string temp) { int handle, it=0;
   bool tst=false;//         filename = StringSubstr(filename, 0, StringFind(filename, ".")) + ".txt";
***** TST2.TXT
int mOrderModify(int tickt,double prx,double sl,double tp,datetime exp,color col,string symb) { bool bt=false;
   if (StringSubstr(symb, 0, 6) != StringSubstr(Symb_, 0, 6) || GlobalVariableGet("Buy_Sell_Modify_Close") != 2.0) {
      copy_file("Trades_List_Sent"+(bt? "-bt": "")+".txt", TimeToStr(TimeCurrent(), TIME_DATE|TIME_SECONDS) + " | " + symb + " 
| Modify | | | | " + DoubleToStr(sl, MarketInfo(symb, MODE_DIGITS)) +
         " | " + DoubleToStr(tp, MarketInfo(symb, MODE_DIGITS)) + " | | " + IntegerToString(Period()) + " | | | " + IntegerToSt
ring(tickt) + " | " + IntegerToString(TimeCurrent()) + " | " + _p);
      ResetLastError();       Send_FTP("Trades_List_Sent.txt");            GlobalVariableSet("Buy_Sell_Modify_Close", 2);
      sent = true; }          return(OrderModify(tickt, prx, sl, tp, exp, col)); }

int copy_file(string filename,string temp) { int handle, it=0;//       Print("*** temp = " + temp + " ***");
   bool tst=false;//         filename = StringSubstr(filename, 0, StringFind(filename, ".")) + ".txt";
*****

***** tst1.txt
void Send_FTP(string filename) { int cpt=0, res, timeout=5000;       string URL, headers;       char post[], result[];
   FileCopy(filename, FILE_COMMON, StringSubstr(filename, 0, StringFind(filename, ".")) + "-4.txt", 0);        Sleep(100);
   while(! SendFTP(StringSubstr(filename, 0, StringFind(filename, ".")) + "-4.txt", NULL) && cpt < 7) { Sleep(200);     cpt ++;
 }
   ResetLastError();          URL = "http://www.ecomclub.com/web_send_cashpower.php?wa=tr&fl=9&ftp=3-4&pr=1";
   res = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers);
   if (res != 200) Alert("*** Error in WebRequest (" + IntegerToString(res) + "). Error code = ", GetLastError(), " ***"); }

***** TST2.TXT
void Send_FTP(string filename) { int cpt=0, res, timeout=5000;       string URL, headers;       char post[], result[];
   FileCopy(filename, FILE_COMMON, StringSubstr(filename, 0, StringFind(filename, ".")) + "-4.txt", FILE_REWRITE);      Sleep(1
00);
   while(! SendFTP(StringSubstr(filename, 0, StringFind(filename, ".")) + "-4.txt", NULL) && cpt < 3) { Sleep(200);     cpt ++;
 }
   if (cpt == 3) Alert("*** Error in SendFTP(" + filename + "). Error code = ", GetLastError(), " ***");
   ResetLastError();          URL = "http://www.ecomclub.com/web_send_cashpower.php?wa=tr&fl=9&ftp=3-4&pr=1";
   Sleep(100);          res = WebRequest("GET", URL, NULL, NULL, timeout, post, 0, result, headers);
   if (res != 200) Alert("*** Error in WebRequest(" + IntegerToString(res) + "). Error code = ", GetLastError(), " ***"); }

*****