Bom Dia
DICA 2666 - WINDEV WEBDEV MOBILE - DATAS 34 - DIA SEMANA - DATETODAY
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.
DICA 2666 - WINDEV WEBDEV MOBILE - DATAS 34 - DIA SEMANA - DATETODAY
ASSUNTOS:
1. CRIANDO UMA PROCEDURE CHAMADA DIA_SEMANA
2. EXECUTANDO O COMANDO SWITCH,DATETODAY E MOSTRANDO HELP, PARA DESCOBRIR QUAL DIA DA SEMANA
3. COLOCANDO AS OPCES DO CASE DO SWITCH,RECEBENDO E MANDANDO RETORNOS
4. COMPILANDO E MOSTRANDO O QUE GEROU WDL
5. ENTRAR SISTEMA MOTEL_TGS, E ATUALIZAR ROTINAS , EXPLICANDO COMO SERA USADO ROTINA
6. CRIANDO AS VARIAVEIS PARA RECEER OS RETORNOS DA ROTINA
7. RECEBENDO OS RETORNOS E MANDANDO OS PARAMETROS PARA PROCEDURE DIA DA SEMANA
8. CRIANDO UMA MENSAGEM - INFO - PARA MOSTRAR SE REALMENTE ESTAMOS RECEBENDO OS RETORNOS CORRETOS
9. EXECUTANDO PROGRAMA MOTEL ,E JA RETORNOU O DIA DA SEMANA CERTO
10. EXPLICANDO O QUE VOU FAZER AGORA, POIS COMO TENHO O DIA DA SEMANA, POSSO VERIFICAR O VALOR POR DIA DO PERNOITE
11. UTILIZANDO O COMANDO SWITCH PARA PEGAR O RESULTADO DA FUNCAO, COLOCANDO O VALOR CORRETO DO PERNOITE POR DIA
12. VAMOS COMPILAR O PROGRAMA E TESTAR, E JA VIMOS. QUE DEU CERTO.
// ROTINA PARA PEGAR O DIA DA SEMANA
PROCEDURE matos_dia_semana(dRECEBE_DATA is Date)
sDIA_SEMANA is string=""
nINDICE_SEMANA is int=0
SWITCH DateToDay(dRECEBE_DATA) CASE 1 nINDICE_SEMANA=1 sDIA_SEMANA="SEGUNDA" CASE 2 nINDICE_SEMANA=2 sDIA_SEMANA="TERCA" CASE 3 nINDICE_SEMANA=3 sDIA_SEMANA="QUARTA" CASE 4 nINDICE_SEMANA=4 sDIA_SEMANA="QUINTA" CASE 5 nINDICE_SEMANA=5 sDIA_SEMANA="SEXTA" CASE 6 nINDICE_SEMANA=6 sDIA_SEMANA="SABADO" CASE 7 nINDICE_SEMANA=7 sDIA_SEMANA="DOMINGO" OTHER CASE
END
RESULT (nINDICE_SEMANA,sDIA_SEMANA)
//================================
// PEGANDO DIA DA SEMANA
INDICE_SEMANA is int=0
DIA_SEMANA is string=""
DATA_RECEBIDA is Date=EDT_Encerramento_Data_saida
SWITCH DIA_SEMANA CASE "SEGUNDA" _EDT_Pernoite_valor=apartamento_tipo.pernoite_segunda CASE "TERCA" _EDT_Pernoite_valor=apartamento_tipo.pernoite_terca CASE "QUARTA" _EDT_Pernoite_valor=apartamento_tipo.pernoite_quarta CASE "QUINTA" _EDT_Pernoite_valor=apartamento_tipo.pernoite_quinta CASE "SEXTA" _EDT_Pernoite_valor=apartamento_tipo.pernoite_sexta CASE "SABADO" _EDT_Pernoite_valor=apartamento_tipo.pernoite_Sabado CASE "DOMINGO" _EDT_Pernoite_valor=apartamento_tipo.pernoite_domingo
END
//================================
----------------------------------- CURSO DE DATAS -----------------------------
