Árvore de páginas


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 é executado no momento da exclusão das  notas fiscais de saída na rotina de Limpeza Mensal, para permitir ou não a exclusão dos documentos processados.

03. SINTAXE

MA580F2V(F2_FILIAL, F2_CLIENTE, F2_LOJA, F2_DOC, F2_SERIE, F2_TIPO, F2_ESPECIE) --> lDeleta

04. PARÂMETROS

NomeTipoDescrição

PARAMIXB[1]

Caractere

Filial

PARAMIXB[2]

Caractere

Cliente

PARAMIXB[3]

Caractere

Loja

PARAMIXB[4]

Caractere

Número

PARAMIXB[5]

Caractere

Série

PARAMIXB[6]

Caractere

Tipo

PARAMIXB[7]

Caractere

Espécie

05. RETORNO

Retorno

Tipo

Descrição

Obrigatório

lDeleta

Lógico

Indica se o registro processado será excluído, sendo: 
.T. - Exclui o documento processado
.F. - Não exclui o documento processado

Sim

06. EXEMPLO

#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" .And. cTipSF2 == "D"
        lDeleta := .F.
    EndIf

Return lDeleta