Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada após a gravação dos dados de EPI x Fornecedor

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Medicina e Segurança do Trabalho (SIGAMDT)

Rotina:

Rotina

Nome Técnico

MDTA620

EPI x Fornecedor

Cadastros Iniciais:

MATA020 - Fornecedores

MATA010 - Produto(Epi)

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Windows/Linux

Ponto de Entrada

Descrição:

Ponto de Entrada após a gravação dos dados de EPI x Fornecedor.

Localização:

SIGAMDT: Atualizações\EPI\EPI x Fornecedor

Eventos:

Relacionar EPI ao Fornecedor.

Programa Fonte:

MDTA620.prw

Função:

MDTA6203().

Retorno:

Nulo

 

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