Windev Mobile Transforma Cursor Mouse Ampulheta/Lupa
Transforma o cursor do mouse em uma ampulheta (e vice-versa).Isso permite que você informar o usuário que um longo processo é realizado por meio da exibição de uma ampulheta.A janela está inativo desde que a ampulheta é exibida: o usuário não pode clicar na janela.
SWITCH EDT_MES
CASE 1
EDT_mes_extenso="JAN"
CASE 2
EDT_mes_extenso="FEV"
CASE 3
EDT_mes_extenso="MAR"
CASE 4
EDT_mes_extenso="ABR"
CASE 5
EDT_mes_extenso="MAI"
CASE 6
EDT_mes_extenso="JUN"
CASE 7
EDT_mes_extenso="JUL"
CASE 8
EDT_mes_extenso="AGO"
CASE 9
EDT_mes_extenso="SET"
CASE 10
EDT_mes_extenso="OUT"
CASE 11
EDT_mes_extenso="NOV"
CASE 12
EDT_mes_extenso="DEZ"
=======================================================================
Vou Mostrar como Fazer Break no Looper. Eu estava assistindo a aula
do Pedrosao aula 13,quando viu e achei interessante. http://189.113.6.131/w_pedroso
=======================================================================
Ir na descricao do Looper
ir em Content
e no lado do break clique no verde
escolha o campo , e passe para o lado direito
Crie um combox por grupo, onde vamos decidir
se queremos ou nao o break
Na minha rotina acrescentei , perguntando se é por grupo ou nao
se for por grupo, habilita os break e faco por ordem de grupo
caso contrario desabilito os break
// Por Grupo
IF CBOX_por_grupo=0 THEN
BRK_BreakFooter1..Visible=False
BRK_BreakHeader1..Visible=False
ELSE
BRK_BreakFooter1..Visible=True
BRK_BreakHeader1..Visible=True
sFiltro = sFiltro + " order by agenda.grupo"
END
// Por Grupo
====================================== FONTE ===============
PROCEDURE agenda_looper(sGrupo is string)
gsSQL = [
SELECT
agenda.nome as age_nome,
agenda.telefone as age_telefone,
agenda.grupo as age_grupo
from
agenda
%1
]
sFiltro is string
IF sGrupo="Todos" THEN
ELSE
IF sGrupo<>"" THEN
sFiltro = " where agenda.grupo='"+sGrupo+"'"
END
END
// Por Grupo
IF CBOX_por_grupo=0 THEN
BRK_BreakFooter1..Visible=False
BRK_BreakHeader1..Visible=False
ELSE
BRK_BreakFooter1..Visible=True
BRK_BreakHeader1..Visible=True
sFiltro = sFiltro + " order by agenda.grupo"
END
// Por Gruop
gsSQL = StringBuild(gsSQL,sFiltro)
