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)
//Aceita endereço e lat e long na origem e destino UrlRota isstring="http://maps.googleapis.com/maps/api/directions/xml?origin="+Origem+"&destination="+Destino+"&sensor=false&mode=driving"
IFDebugSN="S"THEN Info("URL Busca Origem Google",UrlRota) END ok=HTTPRequest(UrlRota)
IFDebugSN="S" Info("POINT",GloRotaEncode,"",XmlResultado) END
//Nao deve remover o acento antes do endecode XmlResultado=WS_RemoveAcentos(XmlResultado)// retirou caracteres especiais //Nao deve remover o acento antes do endecode
sXmlResultadoRecorte isstring=XmlResultado
//IMPORTANTE LIMPAR O XML
XmlResultado=WS_RemoveCaracteresRota(XmlResultado)// retirou os steps
IFDebugSN="S"THEN Info("Retorno XML Busca Origem",XmlResultado) END //Corta inicio ////////////////////////////////////////////////////////////////////////////////////// nInicio isint=PositionOccurrence(XmlResultado,"</step>",lastRank,FromBeginning) +7 XmlResultado=Middle(XmlResultado,nInicio,Length(XmlResultado)) XmlResultado="<leg>"+XmlResultado
//Corta fim nFim isint=PositionOccurrence(XmlResultado,"</leg>",firstRank,FromBeginning) +5 XmlResultado=Middle(XmlResultado,1,nFim) //////////////////////////////////////////////////////////////////////////////////////
