_cep_ is Structure
cep is string
tipoDeLogradouro is string
logradouro is string
bairro is string
cidade is string
estado is string
END
Estrutura_json is _cep_
//=======================================
// Clic (Onclick) De Btn_ExecutaMostraFoto (navigateur )
UploadStart(UPL_Upload_Foto)
//---------------------------------------
// Acionar Ajax
// Clic de Btn_ExecutaMostraFoto (Serveuer)
IMG_Imagen=SAI_Foto
//=======================================
// A chaque modification de la liste des fichier sélectionnés dans Upl_Upload_foto(navigateur)
IF UPL_Upload_Foto..Occurrence<>0 THEN
SAI_Foto=UPL_Upload_Foto
ExecuteProcess(BTN_ExecutaMostraFoto,trtClic)
END
//---------------------------------------
// Réception des fichier uploadés de Upl_Upload_foto (Server)
//Acionar Ajax
//Se upload foto for diferente de 0
IF UPL_Upload_Foto..Occurrence<>0 THEN
UploadCopieFichier(UPL_Upload_Foto,"","",1)
END
//=======================================
//Clic de Btn_RemoverImagen
IMG_Imagen=""
//=======================================
//Clic de Btn_Valider (Serveuer)
// Lecture des informations saisies
PageToFile()
//Caso Não Gravar Imagen
sites_uteis.imagen=IMG_Imagen
//Caso Não Gravar Imagen
HSave(sites_uteis)
IF PreviousPage()<>"" THEN
PageDisplay(PreviousPage)
ELSE
//PageDisplay(PAGE_Accueil)
END
=========================================================================
Aula 1047 - Dicas 15/... - Clone Tabela - Meses com Varios Anos -
// Nessa aula vou ensinar como fazer uma tabela com meses, e no
// Lado varios anos de valores acumulados
// Qry_clone_dados_ano_dup_rec
// Select com Valores Acumulados por Anos
SELECT
LEFT(duplicata_receber.data_vencimento,4) AS ano,
SUBSTR(duplicata_receber.data_vencimento,5,2) AS mes,
SUM(duplicata_receber.valor_titulo) AS sum_valor_titulo,
duplicata_receber.id_empresa AS id_empresa
FROM
duplicata_receber
WHERE
LEFT(duplicata_receber.data_vencimento,4) IN ({Param_ano})
AND duplicata_receber.id_empresa = {Param_id_empresa}
GROUP BY
LEFT(duplicata_receber.data_vencimento,4),
SUBSTR(duplicata_receber.data_vencimento,5,2),
duplicata_receber.id_empresa
ORDER BY
ano ASC,
mes ASC
// Qry_Clone_Dup_Receber
// Mostra Somente os anos
SELECT DISTINCT
LEFT(duplicata_receber.data_pagamento,4) AS ano
FROM duplicata_receber
WHERE duplicata_receber.id_empresa={PARAM_ID_EMPRESA}
ORDER BY ano ASC
//Codigo da Janela
//Recebimentos
//Ver os Anos que Existem
QRY_Clone_Dup_Receber.PARAM_ID_EMPRESA=gnEmpresaCodigo // Que Sera igual a 1
TableDisplay(TABLE_QRY_Clone_Dup_Receber,taReExecuteQuery) // Vou Mostrar conteudo Tabela
//Nessa aula vou ensinar como pegar o mes por extenso
//Percorrer do 1 até o 12
FOR n_mes=1 TO 12
s_mes_extenso is string=MonthNumberInAlpha(n_mes)
//Estou Colocando o mes por extenso
TableAddLine(TABLE_Mes,n_mes,s_mes_extenso)
END
