Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MT540EXC
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:
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas