Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

Serviços

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 EntradaMDTA6203()
ChamadaAo gravar os dados do fornecedor de EPI na rotina.
Pré-RequisitoCadastro 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çãoMDTA6203()
Parâmetros
Local nCont
Local nCodEPI := 0
Local aCols := aClone( PARAMIXB[ 1 ] )
Local aHeader := aClone( PARAMIXB[ 2 ] )
RetornoMsgInfo( "Linha Ativa: " + cValToChar( nCont ) + ". EPI: " + aCols[ nCont , nCodEPI ] )
EndIf
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

05. ASSUNTOS RELACIONADOS.