Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Faturamento (SIGAFAT)

Função:MATA521 - Exclusão dos Documentos de Saída

02. DESCRIÇÃO

O ponto de entrada M521DNFS está contido na função MaDelNfs e será executado após a conclusão dos lançamentos contábeis.

Observação

Este ponto possui como parâmetro o Array aPedido, que somente terá conteúdo caso o pergunte "Retornar Ped.Venda" esteja igual a "Apto a Faturar".

03. SINTAXE

M521DNFS({aPedido})

04. PARÂMETROS

Nome

Tipo

Descrição

PARAMIXB

Array

Relação da numeração dos pedidos de venda pertencentes a nota fiscal cancelada (D2_PEDIDO).

05. RETORNO

Não há.

06. EXEMPLO DE UTILIZAÇÃO

M521DNFS
#Include "Protheus.Ch"

************************
User Function M521DNFS()
************************

	Local aPedidos := ParamIxb[1]
	Local nY       := 1
	Local aArea    := GetArea()
	Local aSC5Area := SC5->(GetArea())

	SC5->(DbSetOrder(1))
	For nY := 1 to Len(aPedidos)
    	If SC5->(DbSeek(xFilial("SC5")+aPedidos[nY]))
        	SC5->(RecLock("SC5",.F.))
        	SC5->C5_COMENT := "ESTE PEDIDO JA TEVE NOTA FISCAL CANCELADA"
        	SC5->(MsUnLock())
    	EndIf
	Next

	RestArea(aSC5Area)
	RestArea(aArea)

Return