Histórico da Página
...
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 Entrada | MDTA6203() |
|---|---|
| Chamada | Na 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). |
| Evento | Relacionamento do EPI com o Fornecedor. |
| Retorno | Não há. |
03. DEMAIS INFORMAÇÕES
| Função | MDTA6203() |
|---|---|
| Parâmetros | Local nCont, Numérico, Contador , contador para percorrer as linhas. Local nCodEPI, VariávelNumérico, 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. |
| Retorno | Não há.Nulo |
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas