#Include "Protheus.ch"
'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. // paraNão nao mostrar os erroerros na tela
Private lMSErroAuto := .F. // inicializaInicializa como .F.falso, voltaretorna .T.verdadeiro se houver erro
/*PREPARE ENVIRONMENT EMPRESA 'T1' FILIAL 'D MG 01 '*/ // Utilizado para chamar diretamente a função
aAdd( aFunc, {" 'RA_MAT"', '00000201', Nil } ) // Array com a chave, setando noo 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"', '00000000000000101' , Nil },;
{ 'TNF_FORNEC', '01', Nil },;
{" 'TNF_FORNEC"LOJA', '00000101', Nil },;
{ 'TNF_MAT', '01', Nil },;
{" 'TNF_LOJA", '00'DTENTR', Date(), Nil },;
{ 'TNF_HRENTR', Time(), Nil },;
{ 'TNF_QTDENT', 1, Nil };
} )
aAdd( aItem, {;
{" 'TNF_MAT"CODEPI', '00000202' , Nil },;
{ 'TNF_FORNEC', '01', Nil },;
{" 'TNF_DTENTR"LOJA', Date()'01', Nil },;
{ 'TNF_MAT', '01', Nil },;
{" 'TNF_HRENTR"DTENTR', TimeDate(), Nil },;
{ 'TNF_HRENTR', Time(), Nil },;
{" 'TNF_QTDENT"', 1, Nil };
} )
dbSelectArea(" 'SRA"' )
dbSetOrder( 1 )
dbSelectArea(" 'TNF"' )
MSExecAuto( { | x, z, y, w, c | MDTA695mdta695( 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
|
