Histórico da Página

#INCLUDE#Include 'Protheusprotheus.ch'
#Include 'tbiconn.ch'

//---------------------------------------------------------------------
/*/{Documentação} Auto695

https://tdn.totvs.com/x/gvtZE

/*/
//---------------------------------------------------------------------
User Function Auto695()
  
    Local aFunc := {}
 
    Local aItem := {}
  
    Local nOpcao := 4

    //------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    // Opções de apresentação/geração do log de erros disponíveis:
    // 1- CasoPara o log de erros deverá relatório aparecer em tela, definadescomente a variável cPath como vazia e descomente na chamada da MSExecAuto. Ex: Local cPath := ""
    // 2- Para Casosalvar o log de erros deverá ser salvo relatório em uma pasta específica dentro da pasta systemprotheus_data, defina a variável com esse caminho e descomente na chamada da MSExecAuto. (Ex: Local cPath := "\log_mdt, onde a pasta log_mdt estará dentro da pasta system")
    // 3- CasoEm ocaso 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 cPath := ""
  nenhuma alteração, o relatório será salvo na pasta \execauto_mdt\epi dentro da pasta protheus_data
    //------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Local cPath

    cPath := ''

    Private lMSHelpAuto := .T. // Não mostrar erros na tela
 
    Private lMSErroAuto := .F. // Inicializa como falso, retorna verdadeiro se houver erro

    /*PREPARE ENVIRONMENT EMPRESA 'T1' FILIAL 'D MG 01 '*/ // Utilizado para chamar diretamente a função

    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', '0601' , 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 };
    } )

    aAdd( aItem, {;
        { 'TNF_CODEPI', '02' , 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, /*cPath*/ )

    //-----------------------------------------------------------------------------
    // A função MostrarErro() está sendo disparada diretamente no fonte, portanto,
    // ao disparar aqui a mesma apresentará uma tela em branco
    //-----------------------------------------------------------------------------

    /*
    If lMSErroAuto
  
        MostraErro()

    EndIf
    EndIf*/

    /*RESET ENVIRONMENT*/ // Utilizado para chamar diretamente a função

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 exemplo não necessariamente é funcional e trata-se apenas de um exemplo orientativo de utilização.