Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:Medicina e Segurança do Trabalho (SIGAMDT)
Função:Fornecedor X EPI
Ticket:Não há
Issue:Não há.


02. SITUAÇÃO/REQUISITO

Solicitação de criação de um Ponto de Entrada na rotina Fornecedor X EPI (MDTA620) para que o usuário possa 

03. SOLUÇÃO

Ponto de EntradaMDTA6203()
ChamadaAo gravar os dados do fornecedor de EPI na rotina.
Pré-RequisitoNão há.
Evento

Relacionar EPI ao fornecedor.

Retorno

Não há.


04. DEMAIS INFORMAÇÕES

FunçãoMDTA6203()
Parâmetros
Local nCont
Local nCodEPI := 0
Local aCols := aClone( PARAMIXB[ 1 ] )
Local aHeader := aClone( PARAMIXB[ 2 ] )
RetornoEndIf
#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

05. ASSUNTOS RELACIONADOS.

Não há.


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>