#INCLUDE#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 cCamArqna chamada comoda vazia. Ex: Local cCamArq := ""MSExecAuto.
// 2- CasoPara salvar 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. (Ex: Local cCamArqcPath := "\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 deixenenhuma alteração, o orelatório parâmetroserá comentadosalvo na chamada do MSExecAuto. Apasta \execauto_mdt\epi dentro da pasta padrãoprotheus_data
será dentro da pasta system, no caminho \execauto_mdt\epi //------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Local cPath
LocalcPath cCamArq := ""''
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, /*cCamArqcPath*/ )
//-----------------------------------------------------------------------------
// 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
|
