Re: Deploy several stacks as an application to android
Posted: Mon May 23, 2022 11:48 am
tHIS IS THE FULL SCRIPT WHERE THE PROBLEM OCCURS:
I HAVE SET ANSWER DIALOGS 3 OF THEM, AND RIGHT BEFORE THE DIALOG -ANSWER "OPENCARD" - WHICH IS IN OPENCARD HANDLER, THE PROBLEM OCCURS.
AND BEFORE - ANSWER tData- THE PROBLEM OCCURS AGAIN.
ALSO IN THE HANDLER "ON MAINBOLTERV" THE PATH OF THE STACK IS THE SAME WHEN SETTING THE DGTEXT TO EMPTY OR TO tData, IT SUPPOSE TO WORK.
on preOpenCard
UPDATECLOCKNYITÓ
PUT GD INTO FIELD "DATE" OF CARD "NYITÓLAP"
--PUT GT INTO FIELD "TIME" OF CARD "NYITÓLAP"
PUT DAY INTO FIELD "DAY" OF CARD "NYITÓLAP"
PUT WEEK INTO FIELD "WEEK" OF CARD "NYITÓLAP"
PUT gBEJELENTKEZETT INTO FIELD "BEJELENTKEZETT"
SET THE VISIBLE OF GROUP "BESZALLITHATOSAG" TO FALSE
SET THE VISIBLE OF GROUP "EMAIL" TO FALSE
ANSWER "END PREOPENCARD"
end preOpenCard
---------------------------------------------
on UPDATECLOCKNYITÓ
---TIME FORMÁZÁS
set the twelveHourTime to false
put the time into tTime
convert tTime to SHORT time
put tTime into GT
put GT into field "TIME" OF CARD "NYITÓLAP"
send "UPDATECLOCKNYITÓ" to me in 5 seconds
end UPDATECLOCKNYITÓ
-------------------------------------------------------------
on openCard
ANSWER "OPENCARD"
CALL OPENCONN OF STACK(specialfolderpath("resources") & "/TERVEZES.livecode")
MAINBOLTERV
SZOVHANYCEG
SZOVETKOLTSEGBESZARON
DGTERVSZOVFILL
RENDELESOSSZCEGENKENT
RENDELESTOTALBESZARON
FIELDSTOLIG
CALL CLOSECONN OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode")
SET THE LABEL OF BUTTON "BADATLAP" TO "ADATLAP"
SET THE LABEL OF BUTTON "GOTO" OF CARD "NYITÓLAP" TO "TÉTEL"&CR&"TERVEZESE"
CALL OPENCONN OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode")
CHECKIFRENDELESEXIST
BESZNEMUTEMEZETTFILLSZOVETBEERKEZES
DGBESZUTFILL
CALL CLOSECONN OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode")
IF tR>0 THEN ------HA VAN MÁR LEADOTT RENDELÉS
PUT "EZEN A HÉTEN MÁR ADOTT LE SZÖVETRENDELÉST !" INTO FIELD "LNYINFO"
ELSE
PUT "EZEN A HÉTEN MÉG NEM ADOTT LE SZÖVETRENDELÉST!" INTO FIELD "LNYINFO"
end if
end openCard
---------------------------------------------------------------------
ON MAINBOLTERV
SET THE DGTEXT OF GROUP "DGAJ" OF CARD "NYITÓLAP" OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode") TO EMPTY
if czConnID is a number then
put "SELECT IDMAIN,SORTNUMBER,ELSZELOLEG,HATARIDOVEGE,FELMEREDMENY,FELMERESDATUM,FELMERONEV "&\
"FROM MAINFOLYAMAT WHERE STATUS='AJÁNLAT' AND AJANLATSTATUS='FELMÉRÉS ÜTEMEZETT' "&\
"AND FELMEREDMENY='ELÖLEGEZETT' AND (SORTNUMBER IS NULL OR SORTNUMBER='' OR SORTNUMBER='0') ORDER BY HATARIDOVEGE ASC" into tSQL
-- query the database
put revDataFromQuery(TAB, cr, czConnID, tSQL) into tData
-- check the result and display the data or an error message
if item 1 of tData = "revdberr" then
ANSWER ERROR "Probléma lépett fel a MAINBOLTERV során:" & cr & tData
else
PUT tData INTO FIELD "LKL"
ANSWER tData
SET THE DGTEXT OF GROUP "DGAJ" OF CARD "NYITÓLAP" OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode") to tData
end if
END if
end MAINBOLTERV
I HAVE SET ANSWER DIALOGS 3 OF THEM, AND RIGHT BEFORE THE DIALOG -ANSWER "OPENCARD" - WHICH IS IN OPENCARD HANDLER, THE PROBLEM OCCURS.
AND BEFORE - ANSWER tData- THE PROBLEM OCCURS AGAIN.
ALSO IN THE HANDLER "ON MAINBOLTERV" THE PATH OF THE STACK IS THE SAME WHEN SETTING THE DGTEXT TO EMPTY OR TO tData, IT SUPPOSE TO WORK.
on preOpenCard
UPDATECLOCKNYITÓ
PUT GD INTO FIELD "DATE" OF CARD "NYITÓLAP"
--PUT GT INTO FIELD "TIME" OF CARD "NYITÓLAP"
PUT DAY INTO FIELD "DAY" OF CARD "NYITÓLAP"
PUT WEEK INTO FIELD "WEEK" OF CARD "NYITÓLAP"
PUT gBEJELENTKEZETT INTO FIELD "BEJELENTKEZETT"
SET THE VISIBLE OF GROUP "BESZALLITHATOSAG" TO FALSE
SET THE VISIBLE OF GROUP "EMAIL" TO FALSE
ANSWER "END PREOPENCARD"
end preOpenCard
---------------------------------------------
on UPDATECLOCKNYITÓ
---TIME FORMÁZÁS
set the twelveHourTime to false
put the time into tTime
convert tTime to SHORT time
put tTime into GT
put GT into field "TIME" OF CARD "NYITÓLAP"
send "UPDATECLOCKNYITÓ" to me in 5 seconds
end UPDATECLOCKNYITÓ
-------------------------------------------------------------
on openCard
ANSWER "OPENCARD"
CALL OPENCONN OF STACK(specialfolderpath("resources") & "/TERVEZES.livecode")
MAINBOLTERV
SZOVHANYCEG
SZOVETKOLTSEGBESZARON
DGTERVSZOVFILL
RENDELESOSSZCEGENKENT
RENDELESTOTALBESZARON
FIELDSTOLIG
CALL CLOSECONN OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode")
SET THE LABEL OF BUTTON "BADATLAP" TO "ADATLAP"
SET THE LABEL OF BUTTON "GOTO" OF CARD "NYITÓLAP" TO "TÉTEL"&CR&"TERVEZESE"
CALL OPENCONN OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode")
CHECKIFRENDELESEXIST
BESZNEMUTEMEZETTFILLSZOVETBEERKEZES
DGBESZUTFILL
CALL CLOSECONN OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode")
IF tR>0 THEN ------HA VAN MÁR LEADOTT RENDELÉS
PUT "EZEN A HÉTEN MÁR ADOTT LE SZÖVETRENDELÉST !" INTO FIELD "LNYINFO"
ELSE
PUT "EZEN A HÉTEN MÉG NEM ADOTT LE SZÖVETRENDELÉST!" INTO FIELD "LNYINFO"
end if
end openCard
---------------------------------------------------------------------
ON MAINBOLTERV
SET THE DGTEXT OF GROUP "DGAJ" OF CARD "NYITÓLAP" OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode") TO EMPTY
if czConnID is a number then
put "SELECT IDMAIN,SORTNUMBER,ELSZELOLEG,HATARIDOVEGE,FELMEREDMENY,FELMERESDATUM,FELMERONEV "&\
"FROM MAINFOLYAMAT WHERE STATUS='AJÁNLAT' AND AJANLATSTATUS='FELMÉRÉS ÜTEMEZETT' "&\
"AND FELMEREDMENY='ELÖLEGEZETT' AND (SORTNUMBER IS NULL OR SORTNUMBER='' OR SORTNUMBER='0') ORDER BY HATARIDOVEGE ASC" into tSQL
-- query the database
put revDataFromQuery(TAB, cr, czConnID, tSQL) into tData
-- check the result and display the data or an error message
if item 1 of tData = "revdberr" then
ANSWER ERROR "Probléma lépett fel a MAINBOLTERV során:" & cr & tData
else
PUT tData INTO FIELD "LKL"
ANSWER tData
SET THE DGTEXT OF GROUP "DGAJ" OF CARD "NYITÓLAP" OF STACK (specialfolderpath("resources") & "/TERVEZES.livecode") to tData
end if
END if
end MAINBOLTERV