• A Confluence está sendo executada atualmente com todos os plugins que não são do sistema desabilitados. Pode haver perda de algumas funcionalidades
Linha Microsiga Protheus

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Atual »

Ponto de Entrada:

Descrição:

Este Ponto de Entrada é executado após clicar no Botão Processar, presente nos parâmetros iniciais do Relatório de Resumo do Caixa.
O retorno deste Ponto de Entrada deve ser obrigatoriamente Lógico (.T. ou .F.). Onde Verdadeiro (.T.) permite a continuação da geração do relatório, e Falso (.F.) impossibilita a continuação da geração, devido alguma inconsistência.

Localização:Resumo de Caixa 2.0 (LOJC130)
Eventos:Verifica se permite o prosseguimento, da geração do Resumo de Caixa 2.0 (LOJC130)
Programa Fonte:LOJC130.PRW
Função:LJ130VLPER
Parâmetros:

Nome

Tipo

Descrição

PARAMIXB[1]DateData Inicial 
PARAMIXB[2]DateData Final 
PARAMIXB[3]ArrayArray contendo as Filiais selecionadas
Exemplo:
PARAMIXB[3][1][1] = .T.
PARAMIXB[3][1][2] = "D SP 01"
PARAMIXB[3][1][3] = "FILIAL 01"
PARAMIXB[4]Array

Array contendo os Caixas selecionados
Exemplo:
PARAMIXB[4][1][1] = .T.
PARAMIXB[4][1][2] = "E9Y"
PARAMIXB[4][1][3] = "7"

PARAMIXB[5]LógicoContém a informação Soma Crédito 
Retorno:

Nome

Tipo

Descrição

Obrigatório

lRetlógico

Retorna se o conteúdo digitado pelo usuário é valido.
Se retorno .T., o Protheus prossegue com a geração do Resumo de Caixa.
Caso .F., retorna para tela inicial de solicitação de dados para geração do Resumo de Caixa. 

Sim


Exemplo #1

#INCLUDE "PROTHEUS.CH"

User Function   ()
Local lRet      := .T.
dDataIni        := PARAMIXB[1]      // Data Inicio
dDataFim      := PARAMIXB[2]      // Data Final
aFiliais           := PARAMIXB[3]      // Filiais
aCaixas         := PARAMIXB[4]      // Caixas
lSomaCred   := PARAMIXB[5]      // Soma Credito  

// Inserir a regra neste ponto
// As varáveis acima declaradas, estão sendo passadas na execução do P.E. 

lRet := MsgYesNo("Permite a continuação do relatório?","Atenção")

Return lRet


  • Sem rótulos