Histórico da Página

#Include#INCLUDE 'Protheus.ch'
 
User Function Auto695()
 
    Local aFunc := {}

    Local aItem := {}
 
    Local nOpcao := 4

    //Opções de apresentação do log de erros disponíveis:
    //1- Caso o log de erros deverá aparecer em tela, defina a variável cCamArq como vazia. Ex: Local cCamArq := ""
    //2- Caso o log de erros deverá ser salvo em uma pasta específica dentro da pasta system, defina a variável com esse caminho. Ex: Local cCamArq := \log_mdt, onde a pasta log_mdt estará dentro da pasta system
    //3- Caso o log de erros deverá ser salvo na pasta padrão, apenas deixe o o parâmetro comentado na chamada do MSExecAuto. A pasta padrão será dentro da pasta system, no caminho \execauto_mdt\epi
    Local cCamArq := ""
 
    Private lMSHelpAuto := .T. // Não mostrar erros na tela

    Private lMSErroAuto := .F. // Inicializa como falso, retorna verdadeiro se houver erro
 
    aAdd( aFunc, { 'RA_MAT', '01', Nil } ) // Array com a chave, setando o funcionário a ser entregue o EPI
 
    // Dados dos EPI a ser entregue ao funcionário, deve-se preencher no mínimo os campos obrigatórios para que ocorra a entrega
    aAdd( aItem, {;
        { 'TNF_CODEPI', '06' , Nil },;
        { 'TNF_FORNEC', '01', Nil },;
        { 'TNF_LOJA', '01', Nil },;
        { 'TNF_MAT', '01', Nil },;
        { 'TNF_DTENTR', Date(), Nil },;
        { 'TNF_HRENTR', Time(), Nil },;
        { 'TNF_QTDENT', 1, Nil };
    } )
 
    dbSelectArea( 'SRA' )

    dbSetOrder( 1 )
 
    dbSelectArea( 'TNF' )
 
    MSExecAuto( { | x, z, y, w, c | mdta695( x, z, y, w, c ) }, , aFunc, aItem, nOpcao, /*cCamArq*/ )
 
    If lMSErroAuto
 
        MostraErro()
 
    EndIf
 
Return
 

O Modelo acima está baseado em campos padrões sem nenhuma integração ativa ou campos adicionais. Sugere-se que o desenvolvedor efetue uma simulação manual, com as integrações ativas, e observe todos os campos que poderão ser obrigatórios e deverão ser adicionados em suas respectivas posições para evitar erro no momento da execução pela falta de campos. O modelo acima não necessariamente é funcional e trata-se apenas de um exemplo orientativo de utilização.