Histórico da Página

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	SIGAFAT - Faturamento
Função:	MATA580 - Limpeza de Arquivos do modulo de Faturamento

02. DESCRIÇÃO

Este ponto de entrada possibilita validar o Documento de Saída posicionado, informando se este registro será ou não excluído pela rotina, sendo acionado a cada documento de saída posicionado.

03. SINTAXE

MA580F2V - Possibilita validar o registro posicionado na tabela SF2 ( F2_FILIAL, F2_CLIENTE, F2_LOJA, F2_DOC, F2_SERIE, F2_TIPO, F2_ESPECIE) --> lDeleta

04. PARÂMETROS

Nome	Tipo	Descrição
PARAMIXB[1]	Caractere	Recebe o F2_FILIAL do registro posicionado
PARAMIXB[2]	Caractere	Recebe o F2_CLIENTE do registro posicionado
PARAMIXB[3]	Caractere	Recebe o F2_LOJA do registro posicionado
PARAMIXB[4]	Caractere	Recebe o F2_DOC do registro posicionado
PARAMIXB[5]	Caractere	Recebe o F2_SERIE do registro posicionado
PARAMIXB[6]	Caractere	Recebe o F2_TIPO do registro posicionado
PARAMIXB[7]	Caractere	Recebe o F2_ESPECIE do registro posicionado

05. RETORNO

Retorno	Tipo	Descrição	Obrigatório
lDeleta	Lógico	Variável lógico que indica se o registro será deletado (.T.) ou não (.F.)	Sim

06. EXEMPLO

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"

//***************************************************************
//Ponto de entrada MA580F2V antes de deletar o documento de saída
//#Par01 - F2_FILIAL do registro posicionado
//#Par02 - F2_CLIENTE do registro posicionado
//#Par03 - F2_LOJA do registro posicionado
//#Par04 - F2_DOC do registro posicionado
//#Par05 - F2_SERIE do registro posicionado
//#Par06 - F2_TIPO do registro posicionado
//#Par07 - F2_ESPECIE do registro posicionado
//*Return - Informa se deleta o registro .T. ou não .F.
//***************************************************************

User Function MA580F2V()

Local cFilSF2 := PARAMIXB[1]
Local cCliSF2 := PARAMIXB[2]
Local cLojSF2 := PARAMIXB[3]
Local cDocSF2 := PARAMIXB[4]
Local cSerSF2 := PARAMIXB[5]
Local cTipSF2 := PARAMIXB[6]
Local cEspSF2 := PARAMIXB[7]
Local lDeleta := .T.

If cCliSF2 == "

FAT001

FATU01" .And. cTipSF2 == "D"
lDeleta := .F.
EndIf

Return(lDeleta)

Templatedocumentos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave