Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT540EXC
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: TopConnect
Idiomas: Português (Brasil)
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.
Programa Fonte 
MATA540.PRX
Sintaxe

MT540EXC ( [ cGrupo1 ], [ aHeader ], [ aCols ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
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
    ()
Exemplos 
#Include "Protheus.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