PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV Mobile 2024
→
New Config Mobile Example
New Config Mobile Example
Started by adrianoboller, Nov., 18 2014 1:55 PM - No answer
Connect yourself…
adrianoboller
#1
Registered member
3,662 messages
Popularité : +175 (223 votes)
Posted on November, 18 2014 - 1:55 PM
Procedure
DB_GeraConfig
(
)
DB_InitializeDatabase
(
)
//Gerar Nova Base de Dados
Resultado is
boolean
=
False
b
ResultadoADD is
boolean
=
False
Registros is
int
=
0
QRY is
Data Source
IF
InSimulatorMode
(
) =
False
THEN
FOR EACH t000_configuracao
IF
t000_configuracao.A000_dsc_configuracao
<
>
""
THEN
Registros
+
=
1
END
END
IF
Registros
<
7
THEN
Resultado
=
HExecuteSQLQuery
(
QRY
,
"Delete from t000_configuracao"
)
IF
Resultado
=
False
THEN
Error
(
"Erro ao Excluir os Dados!"
)
END
t000_configuracao.A000_cod_configuracao
=
1
t000_configuracao.A000_dsc_configuracao
=
"DATA_VERSAO"
t000_configuracao.A000_vlr_configuracao
=
"20000101"
//tabela velha 2000 01 01
t000_configuracao.A000_arquivado
=
"X"
t000_configuracao.A000_dta_inc_alt
=
"20000101"
//tabela velha 2000 01 01
t000_configuracao.A000_ind_desativado
=
""
HAdd
(
t000_configuracao
)
t000_configuracao.A000_cod_configuracao
=
2
t000_configuracao.A000_dsc_configuracao
=
"Resolucao"
t000_configuracao.A000_vlr_configuracao
=
""
t000_configuracao.A000_arquivado
=
"X"
t000_configuracao.A000_dta_inc_alt
=
"20000101"
//tabela velha 2000 01 01
t000_configuracao.A000_ind_desativado
=
""
HAdd
(
t000_configuracao
)
t000_configuracao.A000_cod_configuracao
=
3
t000_configuracao.A000_dsc_configuracao
=
"DataUltimaAtualizacao"
t000_configuracao.A000_vlr_configuracao
=
""
t000_configuracao.A000_arquivado
=
"X"
t000_configuracao.A000_dta_inc_alt
=
"20000101"
//tabela velha 2000 01 01
t000_configuracao.A000_ind_desativado
=
""
HAdd
(
t000_configuracao
)
t000_configuracao.A000_cod_configuracao
=
4
t000_configuracao.A000_dsc_configuracao
=
"RetornoVersaoBaseDados"
t000_configuracao.A000_vlr_configuracao
=
""
t000_configuracao.A000_arquivado
=
"X"
t000_configuracao.A000_dta_inc_alt
=
"20000101"
//tabela velha
t000_configuracao.A000_ind_desativado
=
""
HAdd
(
t000_configuracao
)
t000_configuracao.A000_cod_configuracao
=
5
t000_configuracao.A000_dsc_configuracao
=
"DataQtdeMotivos"
t000_configuracao.A000_vlr_configuracao
=
""
t000_configuracao.A000_arquivado
=
"X"
t000_configuracao.A000_dta_inc_alt
=
"20000101"
//tabela velha
t000_configuracao.A000_ind_desativado
=
""
HAdd
(
t000_configuracao
)
t000_configuracao.A000_cod_configuracao
=
6
t000_configuracao.A000_dsc_configuracao
=
"DataQtdePesquisas"
t000_configuracao.A000_vlr_configuracao
=
""
t000_configuracao.A000_arquivado
=
"X"
t000_configuracao.A000_dta_inc_alt
=
"20000101"
//tabela velha
t000_configuracao.A000_ind_desativado
=
""
HAdd
(
t000_configuracao
)
t000_configuracao.A000_cod_configuracao
=
7
t000_configuracao.A000_dsc_configuracao
=
"DataQtdeFormasPgto"
t000_configuracao.A000_vlr_configuracao
=
""
t000_configuracao.A000_arquivado
=
"X"
t000_configuracao.A000_dta_inc_alt
=
"20000101"
//tabela velha
t000_configuracao.A000_ind_desativado
=
""
HAdd
(
t000_configuracao
)
END
END
Report
0
0
→ Go back to WINDEV Mobile 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (earlier versions)
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text