#Include 'protheus.ch'
#INCLUDE 'Protheustbiconn.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- CasoPara salvar o log de erros deverá ser salvorelatório em uma pasta específica dentro da pasta protheus_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 protheus_data)
// 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ánenhuma alteração, o relatório será salvo na pasta \execauto_mdt\epi dentro da pasta protheus_data,
no caminho \execauto_mdt\epi
Local cPath := ""
//------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
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
|
