Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:Financeiro (SIGAFIN)
Função:Compensação contas a pagar (FINA340)
País:Brasil

02. VISÃO GERAL

Ponto de entrada que permite a manipulação dos valores totais dos títulos a serem compensados.

03. PARÂMETROS

PosiçãoTipoConteúdo
1@Objeto

Referência ao objeto oPanel da tela de compensação. Só é informado quando opção = 1.

2NuméricoOpção (1=compensação, 2=estorno)
3NuméricoConteúdo da variável nValTot
4NuméricoConteúdo da variável nValor

04. RETORNO

Não há.

05. EXEMPLO


Exemplo de execução
#include "protheus.ch"

STATIC nValTot2 := 0
Static oGetUser

User function F340TOTCP()
	Local oPanel := PARAMIXB[1]
	Local nOpc := PARAMIXB[2]
	Local nValTot := PARAMIXB[3]
	Local nValor := PARAMIXB[4]

	If nOpc == 1
		nValTot2 := nValor - nValTot
		@ 4, 200 SAY "Restante a Compensar" PIXEL OF oPanel SIZE 70,7
		@ 4, 250 MSGET oGetUser VAR nValTot2 PICTURE "@E 999,999,999.99" WHEN .F. PIXEL OF oPanel SIZE 70,7
	Else
		nValTot2 := nValor - nValTot
		oGetUser:Refresh()
	Endif
Return