PE - MT540EXC - Ponto de entrada para exclusão de exceção fiscal em outras filias

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Serviços
Módulo:	Fiscal

02. DESCRIÇÃO

O Ponto de Entrada é executado na função A540Deleta() no fonte MATA540.PRX.Executado após a exclusão de uma exceção fiscal do sistema.

Permitir que o cliente realize exclusões de exceções fiscais em outras filiais de forma automática.

03. Especificação

Parâmetros do ponto de entrada:

Nome	Tipo	Descrição
cGrupo1	Caracter	Traz o código de tributação da exceção que foi excluída.
aHeader	Array of Record	Traz toda estrutura de campo da tabela SF7.
aCols	Array of Record	Traz todos os valores referente ao registro que foi excluído.

Retorno

Nome	Tipo	Descrição
lRet	Array of Record	.T. para liberar a gravação da Exceção, .F. para não deixar gravar

04. EXEMPLO DE UTILIZAÇÃO

MT540EXC

#Include "Protheus.ch"
#Include "TopConn.ch"

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±±±
ºPrograma  ³MT540EXC  ºAutor  ³Rodrigo Aguilar     º Data ³  11/11/11   º±±±±
ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍ¹±±±±
ºDesc.     ³ PE executado apos a exclusao da Excecao Fiscal             º±±±±
º          ³                                                            º±±±±
º          ³ A funcao recebe como parametro os array com informacoes    º±±±±
º          ³ da SF7 e o codigo de tributacao(F7_GRTRIB)                 º±±±±
º          ³                                                            º±±±±
ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹±±±±
ºUso       ³ TOTVS                                                      º±±±±
ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
¼±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/
User Function MT540EXC()

Local nI     := 0 
Local cArea  := GetArea()
Local cGrpCli,cSequen,cFilAtu,cGrupo1,aHeader,aCols 
Default cGrupo1 := paramixb[1]
Default aHeader := paramixb[2]
Default aCols   := paramixb[3]

For nI:=1 To Len(aCols)	
    cGrpCli:=aCols[nI,Ascan(aHeader,{|x|Alltrim(x[2])=="F7_GRPCLI"})]	
    cSequen:=aCols[nI,Ascan(aHeader,{|x|Alltrim(x[2])=="F7_SEQUEN"})]
    DbSelectArea("SM0")	
    SM0->(DbGoTop())	
    
    While SM0->(!Eof())     			
        cFilAtu := SM0->M0_CODFIL				
        
        If SF7->(DbSeek(cFilAtu+cGrupo1+cGrpCli+cSequen))			
            RecLock("SF7",.F.)				
            SF7->(DbDelete())			
            SF7->(MsUnlock())		
        EndIf  				
        
        SM0->(DbSkip())		
    EndDo	
Next nI   

RestArea(cArea)

Return Nil

05. DEMAIS INFORMAÇÕES

Não há

Árvore de páginas