#Include 'Protheus'protheus.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- Para o relatório aparecer em tela, descomente a variável na chamada da MSExecAuto.
// 2- Para salvar o relatório em uma pasta específica dentro da pasta protheus_data, defina a variável (Ex: cPath := "\log_mdt")
// 3- Em caso de 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', '01' , 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', '0602' , 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
*/
/*RESET ENVIRONMENT*/ // Utilizado para chamar diretamente a função
Return
|
