Histórico da Página

#Include 'Protheus.ch'

User Function Auto695()

    Local aFunc := {}
    Local aItem := {}

    Local nOpcao := 4

    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_NUMCAP', '123', Nil },;
        { 'TNF_MAT', '01', Nil },;
        { 'TNF_DTENTR', Date(), Nil },;
        { 'TNF_HRENTR', Time(), Nil },;
        { 'TNF_QTDENT', 1, Nil },;
        { 'TNF_MOTIVO', '01', Nil },;
        { 'TNF_LOCAL', '01', Nil },; // Integração com o estoque
        { 'TNF_INDDEV', '01', Nil },;
        { 'TNF_CODFUN', '01', Nil };
    } )

    dbSelectArea( 'SRA' )
    dbSetOrder( 1 )

    dbSelectArea( 'TNF' )

    MSExecAuto( { | x, z, y, w | mdta695( x, z, y, w ) }, , aFunc, aItem, nOpcao )

    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.