Histórico da Página
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: |
| ||||
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