Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • 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
titleExemplo da tela de informações do Meu Imóvel com os parâmetros definidos.

Image Added

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
languagec#
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
languagec#
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))

...