Exibir origem

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 uma mensagem seja exibida na tela informando os EPIs relacionados ao fornecedor, assim que o relacionamento entre o fornecedor e o EPI for confirmado e realizado com sucesso na rotina. Os EPIs aparecem no PE em tela na ordem em que foram relacionados ao fornecedor.

03. SOLUÇÃO

Ponto de Entrada	MDTA6203()
Chamada	Ao gravar os dados do fornecedor de EPI na rotina.
Pré-Requisito	Cadastro de EPI na rotina Produto(Epi) (MATA010) e fornecedor na rotina Fornecedores (MATA020).
Evento	Relacionar EPI ao fornecedor.
Retorno	Retorna os EPIs relacionados ao fornecedor na ordem em que foram relacionados na rotina Fornecedor X EPI (MDTA620).

04. DEMAIS INFORMAÇÕES

Função	MDTA6203()
Parâmetros	Local nCont Local nCodEPI := 0 Local aCols := aClone( PARAMIXB[ 1 ] ) Local aHeader := aClone( PARAMIXB[ 2 ] )
Retorno	MsgInfo( "Linha Ativa: " + cValToChar( nCont ) + ". EPI: " + aCols[ nCont , nCodEPI ] ) EndIf

#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.

Fornecedores - MATA020

<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>