Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 3 minutos


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:EPI X Fornecedor (MDTA620)
País:Brasil
Ticket:Não há.
Issue:Não há.


02. DESCRIÇÃO

Ponto de entrada MDTA6203 criado para ser executado após a gravação dos dados de um novo relacionamento entre o fornecedor e o EPI na rotina EPI X Fornecedor (MDTA620).


Ponto de EntradaMDTA6203()
ChamadaNa gravação dos dados na rotina EPI X Fornecedor (MDTA620).
Pré-Requisito

Realizar o cadastro de um fornecedor na rotina Fornecedor (MATA020) e realizar o cadastro de um EPI na rotina Produto (Epi) (MATA010).

EventoRelacionamento do EPI com o Fornecedor.
RetornoNão há.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA6203()
ParâmetrosLocal nCont, Contador, contador para percorrer as linhas.
Local nCodEPI, Variável, Variável para armazenar a posição do código do EPI no cabeçalho.
Local aCols, Array, Array que contém as colunas com dados.
Local aHeader, Array, Array que contém os cabeçalhos para identificação do campo TN3_CODEPI.
RetornoNão há.



Exemplo
#include "Protheus.ch"

User Function MDTA6203()

	Local nCont
	Local nCodEPI := 0
	Local aCols := aClone( PARAMIXB[ 1 ] )
	Local aHeader := aClone( PARAMIXB[ 2 ] )

	//Busca no Cabeçalho da GetDados o campo a ser utilizado
	nCodEPI := aScan( aHeader , { | x | AllTrim( Upper( x[ 2 ] ) ) == "TN3_CODEPI" } )

		For nCont := 1 To Len( aCols )
			If !aCols[ nCont , Len( aCols[ nCont ] ) ]//Desconsidera linhas deletadas
				MsgInfo( "Linha Ativa: " + cValToChar( nCont ) + ". EPI: " + aCols[ nCont , nCodEPI ] )
		EndIf
		
	Next nCont

Return


04. ASSUNTOS RELACIONADOS