Histórico da Página
...
Os parâmetros do aplicativo podem ser acessados consultando os seguintes menus em Ambiente / Parâmetros / Gestão de Imóveis:
| Expandir | ||
|---|---|---|
| ||
|
| Expandir | ||
|---|---|---|
| ||
|
Os parâmetros do aplicativo são os seguintes:
- URL de acesso externo ao Host: Neste campo, deverá ser informada a URL externa do Host, que será enviada quando este capturar as parametrizações de primeiro acesso ao app, dentro do QRCode gerado.
- Título do texto que será exibido na tela de Informações do Aplicativo: O texto informado neste campo será exibido na tela de informações do Aplicativo. Ele tem um limite de 35 caracteres.
- Texto que será exibido na tela de Informações do Aplicativo: O texto informado neste campo será exibido na tela de informações do Aplicativo. Ele tem um limite de 255 caracteres, com no máximo de 20 quebras de linhas,
...
| Expandir | ||
|---|---|---|
| ||
|
| Informações |
|---|
| Na tela de informações também é exibida a versão do Aplicativo. Esta é uma informação muito útil para se detectar se o usuário está com o Aplicativo atualizado. |
...
| Bloco de código | ||
|---|---|---|
| ||
Decl VALOR, NUMBANCO, NUMAGENCIA, NUMCONTA, NOSSONUMERO, CARTEIRA, CODBARRAS, numConvenio, codigoCedente, digitoCedente, numeroDocumento;
EXECSQL('FÓRMULA_PROTHEUS');
SetVar(VALOR,ResultSQL("FÓRMULA_PROTHEUS","VALOR"));
SetVar(NUMBANCO,ResultSQL("FÓRMULA_PROTHEUS","NUMBANCO"));
SetVar(NUMAGENCIA,ResultSQL("FÓRMULA_PROTHEUS","NUMAGENCIA"));
SetVar(NUMCONTA,ResultSQL("FÓRMULA_PROTHEUS","NROCONTA"));
SetVar(CARTEIRA,ResultSQL("FÓRMULA_PROTHEUS","CARTEIRA"));
SetVar(NOSSONUMERO,ResultSQL("FÓRMULA_PROTHEUS","NOSSONUMERO"));
SetVar(NOSSONUMERO,ResultSQL("FÓRMULA_PROTHEUS","NOSSONUMERO"));
se (NUMBANCO = 237) Entao
SetVar(CODBARRAS,MONTACODIGOBARRASBRADESCO(VALOR, NUMBANCO, NUMAGENCIA, NUMCONTA, CARTEIRA, NOSSONUMERO, TABLAN('DATAVENCIMENTO','D'),0));
Senao
se (NUMBANCO = 104) Entao
SetVar(CODBARRAS,MONTACODIGOBARRASCAIXA(VALOR, NUMBANCO, numConvenio, NUMAGENCIA, codigoCedente, digitoCedente, CARTEIRA, NOSSONUMERO, TABLAN('DATAVENCIMENTO','D')));
Senao
se (NUMBANCO = 341) Entao
SetVar(CODBARRAS,MONTACODIGOBARRASITAU(VALOR, NUMBANCO, NUMCONTA, NUMAGENCIA, codigoCedente, CARTEIRA, NOSSONUMERO, numeroDocumento, TABLAN('DATAVENCIMENTO','D')));
FimSe
FimSe
FimSe
MONTAIPTE(CODBARRAS) |
...
3) Consulta SQL (FÓRMULA_PROTHEUS
...
do exemplo acima)
...
| Bloco de código | ||
|---|---|---|
| ||
SELECT
XXF.XXF_EXTVAL,
SE1.E1_CODBAR CODIGOBARRA,
SE1.E1_VALOR VALOR,
SE1.E1_IDCNAB IDBOLETO,
SE1.E1_NUMBCO NOSSONUMERO,
SE1.E1_PORTADO NUMBANCO,
SE1.E1_AGEDEP NUMAGENCIA,
SE1.E1_VALJUR PERCENTUAL_JUROS,
SE1.E1_PORCJUR PERCENUTAL_MULTA,
SEE.EE_CONTA NROCONTA,
SEE.EE_DVCTA DIGCONTA,
SEE.EE_CODCART CARTEIRA
FROM PROTHEUS12_PRODUCAO.XXF XXF
INNER JOIN PROTHEUS12_PRODUCAO.SE1040 SE1
ON SE1.D_E_L_E_T_ = ' '
AND LTRIM(RTRIM('04'|| RTRIM(SE1.E1_FILIAL) || RTRIM(SE1.E1_PREFIXO) || RTRIM(SE1.E1_NUM) || RTRIM(SE1.E1_PARCELA) || RTRIM(SE1.E1_TIPO))) = LTRIM(RTRIM(REPLACE(XXF.XXF_INTVAL,'|','')))
LEFT JOIN PROTHEUS12_PRODUCAO.SEE040 SEE
ON SEE.D_E_L_E_T_ = ' '
AND RTrim(SEE.EE_FILIAL) = SUBSTR(SE1.E1_FILIAL, 0, 4) /* ///// filial na tabela SEE não sendo preenchida por completo*/
AND SEE.EE_CODIGO = SE1.E1_PORTADO
AND SEE.EE_AGENCIA = SE1.E1_AGEDEP
AND SEE.EE_CONTA = SE1.E1_CONTA
AND SEE.EE_SUBCTA = '001' /* ALTERAMOS PARA QUE SEJA RETORNADO APENAS O REGISTRO DE RETORNO A RECEBER E TIRAMOS A COMPARAÇÃO COM O CAMPO E1_NUMCONTA QUE NÃO POSSUI OS DADOS */
WHERE XXF.D_E_L_E_T_ = ' '
AND XXF.XXF_ALIAS = 'SE1'
AND XXF.XXF_FIELD = 'E1_NUM'
AND RTRIM(XXF.XXF_EXTVAL) = CAST(:FRM_COLIGADA AS VARCHAR(3)) || '|' || CAST(:FRM_IDLAN AS VARCHAR (10)) |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas