Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 4 minutos


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

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

Função:Funcionário X EPI (MDTA695)
País:Brasil
Ticket:Não há.
Issue:Não há.


02. DESCRIÇÃO

O ponto de entrada MDTA6958 pode ser utilizado ao realizar a entrega de um epi na rotina de Funcionário X EPI (MDTA695).


Ponto de EntradaMDTA6958()
ChamadaAo realizar a entrega de um epi na rotina de Funcionário X EPI (MDTA695).
Pré-RequisitoEntregar pelo menos um EPI para o funcionário.
EventoÉ executado no momento em que o cursor muda de linha, ou seja, de registro.
RetornoRetorna os EPIs entregues ao funcionário.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA6958()
Parâmetros

aPosChv, Numérico, Compatibilidade.

aChvTNF, Array, Compatibilidade.

nPosTNF, Númerico, Posição do cursor no Grid.

cCodEPI, Caracter, Valor do código do EPI (TNF_CODEPI).

dDtEntr, Date, Valor do campo Data Entrega (TNF_DTENTR).

cHrEntr, Caracter, Valor do campo Hora Entrega (TNF_HRENTR).

cIndDevol, Caracter, Valor do campo Situação EPI (TNF_INDDEV).

aColsAux, Array, Os valores presentes na grid de EPIs.

aCOLStnf, Array, Valor da grid antes das alterações.

nPOSEpi, Numérico, Posição do campo Código do EPI (TNF_CODEPI).

nPosDtEn, Numérico, Posição do campo Data Entrega na grid de EPIs.

nPosHrEn, Numérico, Posição do campo Hora Entrega na grid de EPIs.

lFound, Lógico, Compatibilidade.

lRET, Lógico, Valor que define se a linha que está sendo alterada ou incluída é válida ou não.

l695Auto, Lógico, Define a utilização da rotina automática.

cUsaInt1, Caracter, Integracao do SIGAMDT com o Estoque, parâmetro MV_NGMDTES.

dDataBloq, Date, Valor do parâmetro MV_DBLQMOV.

dDtDevol, Date, Valor do campo Data Devol. (TNF_DTDEVO).

nQntDevol, Numérico, Valor do campo Quant.Devol().

nQntEntr, Numérico, Valor do campo Quant. Entr. (TNF_QTDENT).

oGetAux, Objeto, Objeto que monta a tela.

RetornoaCols, Array, contém os EPIs entregues.



Exemplo
#Include 'Protheus.ch'  

User Function MDTA6958()

    Local nPosChv   := PARAMIXB[1]  //Compatibilidade
    Local aChvTNF   := PARAMIXB[2]  //Compatibilidade
    Local nPosTNF   := PARAMIXB[3]  //Posição do cursor na Grid
    Local cCodEPI   := PARAMIXB[4]  //Valor do código do EPI (TNF_CODEPI)
    Local dDtEntr   := PARAMIXB[5]  //Valor do campo Data Entrega (TNF_DTENTR)
    Local cHrEntr   := PARAMIXB[6]  //Valor do campo Hora Entrega (TNF_HRENTR)
    Local cIndDevol := PARAMIXB[7]  //Valor do campo Situação EPI (TNF_INDDEV)
    Local aColsAux  := PARAMIXB[8]  //Os valores presentes na grid de EPI's
    Local aCOLStnf  := PARAMIXB[9]  //Valor da grid antes das alterações
    Local nPOSEpi   := PARAMIXB[10] //Posição do campo Código do EPI (TNF_CODEPI)
    Local nPosDtEn  := PARAMIXB[11] //Posição do campo Data Entrega na grid de EPI's
    Local nPosHrEn  := PARAMIXB[12] //Posição do campo Hora Entrega na grid de EPI's
    Local lFound    := PARAMIXB[13] //Compatibilidade
    Local lRET      := PARAMIXB[14] //Valor que define se a linha que está sendo alterada ou incluída é válida ou não
    Local l695Auto  := PARAMIXB[15] //Define a utilização da rotina automática
    Local cUsaInt1  := PARAMIXB[16] //Integracao do SIGAMDT com o Estoque, parâmetro MV_NGMDTES
    Local dDataBloq := PARAMIXB[17] //Valor do parâmetro MV_DBLQMOV
    Local dDtDevol  := PARAMIXB[18] //Valor do campo Data Devol. (TNF_DTDEVO)
    Local nQntDevol := PARAMIXB[19] //Valor do campo Quant.Devol ()
    Local nQntEntr  := PARAMIXB[20] //Valor do campo Quant. Entr. (TNF_QTDENT)
    Local oGetAux   := PARAMIXB[21] //Objeto que monta a tela
    /* Ponto de entrada para operações adicionais na Entrega de EPI */
    If( aColsAux[ n , nPosDtEn ] <= dDataBloq .And. !Empty( aColsAux[ n , nPosDtEn ] ) )
            ShowHelpDlg( "ATENÇÃO", { "A data de entrega informada está bloqueada para movimentos." } , 1 ,;
                                    { "Favor verificar o parâmetro MV_DBLQMOV." } , 2 )
    EndIf
 
Return aColsAux


04. ASSUNTOS RELACIONADOS