Realizado alteração para que seja possível realizar a devolução de epis através do ExecAuto.
Linha de Produto: | Microsiga Protheus. |
Segmento: | Serviços. |
Módulo: | Medicina e Segurança do Trabalho. |
Função: | MDTA695 |
Situação/Requisito: | Através do ExecAuto não era possível realizar a devolução de um epi. |
Solução/Implementação: | Realizado alteração para que seja possível realizar a devolução de epis através do ExecAuto. Realizado correção na função "fEPIMDT695" para que seja possível fazer a inclusão de Epis através do ExecAuto. |
Exemplo | User Function Auto695() Local aFunc := {} Private lMSHelpAuto := .T. aAdd( aFunc, {"RA_MAT", '998 ', Nil } ) // Array com a chave, setando no funcionário a ser entregue o EPI. aAdd( aItem, { {"TNF_FILIAL" , '0 00 00 ' , Nil },; If lMSErroAuto Return |