Histórico da Página

 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.

MATA540.PRX

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

()

#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