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 chamado quando realizada a confirmação da compensação.

03. PARÂMETROS

PosiçãoTipoConteúdo
1Vetor

Vetor contendo os RECNOs (SE5) dos registros processados

04. RETORNO

Não há.

05. EXEMPLO


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

User Function F340SE5()
	Local aRecno := ParamIxb[1]
	Local nX := 0
	Local cMsg := ""
	Local aArea := getArea()

	SE5->(DbSetOrder(1))
	For nX  := 1 to Len(aRecno)
		SE5->(dbGoto(aRecno[nX ]))
		cMsg := "Titulo posicionado na SE5 Filial:" + SE5->E5_FILIAL+ Chr(13)+Chr(10)
		cMsg += "Data: "+ DToC(SE5->E5_DATA) + Chr(13)+Chr(10)
		cMsg += "Tipo: " + SE5->E5_TIPO+ Chr(13)+Chr(10)
		cMsg += "Moeda: " + SE5->E5_MOEDA + Chr(13)+Chr(10)
		cMsg += "Valor: " + str(SE5->E5_VALOR) + Chr(13)+Chr(10)
		MsgAlert(cMsg)
	Next nX

	restArea(aArea)
Return