Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Ana Karolina Holmes Coelho

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Ana Karolina Holmes Coelho

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Produto:

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVSTOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linhas_totvs
SegmentoDistribuição
RegionConstrução Projetos
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoServiç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 o usuário possa 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é-RequisitoNão háCadastro de EPI na rotina MATA010 - Produto(Epi) e fornecedor na rotina Fornecedores (MATA020).
Evento

Relacionar EPI ao fornecedor.

Retorno

Não há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
Bloco de código
themeEclipse
titleExemplo
#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á.

Templatedocumentos


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