PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → New Config Mobile Example
New Config Mobile Example
Débuté par adrianoboller, 18 nov. 2014 13:55 - Aucune réponse
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 18 novembre 2014 - 13:55
Procedure DB_GeraConfig()

DB_InitializeDatabase()

//Gerar Nova Base de Dados
Resultado is boolean = False
bResultadoADD 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