9511874 DNG-11342 DT Inclusão de Campos na Gravação de Solicitação de EPI ao Armazém

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Solicitação de ajuste de Ponto de Entrada MDTA6959 na rotina EPI x Funcionário (MDTA695) para que seja possível realizar a inclusão de campos em todos os registros enviados.

03. SOLUÇÃO

Ajustado o ponto de entrada MDTA6959 permitindo a incluir campos em todos os itens, conforme exemplo.

#Include 'Protheus.ch'

User Function MDTA6959()

    Local aCabPE    := PARAMIXB[1]
    Local aItemPE   := PARAMIXB[2]
    Local n

    aAdd( aCabPE , {"CP_SEGUM" , "CM" , NIL} )
    For n := 1 To Len(aItemPE)
        aAdd( aItemPE[n] , {"CP_SEGUM" , "CM" , NIL} )
    Next n

Return { aCabPE , aItemPE }

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

Não há.