Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)


Função:MDTUTIL
País:Brasil
Ticket:18983892
Requisito/Story/Issue (informe o requisito relacionado) :

DNG-22209


02. DESCRIÇÃO

Solicitação de criação de um ponto de entrada na rotina de Funcionário x Epi (MDTA695) para realizar a alteração do centro de custo antes da baixa na tabela SD3.

Ponto de EntradaMOVEST1()
ChamadaRotina Funcionário x Epi (MDTA695), quando entregar um EPI ao funcionário.
Pré-RequisitoExistir a integração com o Estoque (SIGAEST).
EventoAo realizar a entrega de EPI ao funcionário, o sistema dispara o ponto de entrada.
RetornoO valor pré-definido do centro de custo desejado.


03. DEMAIS INFORMAÇÕES

Exemplo


#Include 'Protheus.ch'
 
/**************************************
aCab - Cabeçalho
 
aCab[1][1]:= Campo - D3_DOC        
aCab[1][2]:= Número do Documento
aCab[1][3]:= Nil
 
aCab[2][1]:= Campo - D3_TM
aCab[2][2]:= Código do Tipo de Movimento
aCab[2][3]:= Nil
 
aCab[3][1]:= Campo - D3_CC
aCab[3][2]:= Código do Centro de Custo
aCab[3][3]:= Nil
 
aCab[4][1]:= Campo - D3_EMISSAO
aCab[4][2]:= Data
aCab[4][3]:= Nil
 
***************************************
aAutoItens - Itens
 
aAutoItens[1][1]: Campo - D3_COD
aAutoItens[1][2]: Código do EPI
aAutoItens[1][3]: Nil
 
aAutoItens[2][1]: Campo - D3_UM
aAutoItens[2][2]: Unidade de Medida
aAutoItens[2][3]: Nil
 
aAutoItens[3][1]: Campo - D3_QUANT
aAutoItens[3][2]: Quantidade
aAutoItens[3][3]: Nil
 
aAutoItens[4][1]: Campo - "D3_CF"
aAutoItens[4][2]: Tipo de Requisicao/Devolução
aAutoItens[4][3]: Nil
 
aAutoItens[5][1]: Campo - D3_CONTA
aAutoItens[5][2]: Código da Conta
aAutoItens[5][3]: Nil
 
aAutoItens[6][1]: Campo - D3_LOCAL
aAutoItens[6][2]: Código do Armazém
aAutoItens[6][3]: Nil
 
aAutoItens[7][1]: Campo - D3_SEGUM
aAutoItens[7][2]: Segunda Unidade de Medida
aAutoItens[7][3]: Nil
 
aAutoItens[8][1]: Campo - D3_QTSEGUM
aAutoItens[8][2]: Quantidade na Segunda Unidade
aAutoItens[8][3]: Nil
 
aAutoItens[9][1]: Campo - D3_GRUPO
aAutoItens[9][2]: Código Grupo
aAutoItens[9][3]: Nil
 
 
aAutoItens[10][1]: Campo - D3_TIPO
aAutoItens[10][2]: Tipo do Material
aAutoItens[10][3]: Nil
 
aAutoItens[11][1]: Campo - D3_CHAVE
aAutoItens[11][2]: Chave de Indexação
aAutoItens[11][3]: Nil
 
aAutoItens[12][1]: Campo - D3_USUARIO
aAutoItens[12][2]: Usuário Logado
aAutoItens[12][3]: Nil
 
 
aAutoItens[13][1]: Campo - D3_ESTORNO
aAutoItens[13][2]: Foi Estornado (S/N)?
aAutoItens[13][3]: Nil
 
 
*/
 
User Function MOVEST1()
 
    Local aCab  := PARAMIXB[1]
    Local aAutoItens := PARAMIXB[2]
 
    aCab[3][2] := '01'
 
Return {aCab, aAutoItens}


04. ASSUNTOS RELACIONADOS

EPI x Funcionario (MDTA630 - SIGAMDT)