Linha Microsiga Protheus

Árvore de páginas

Documento revisado em 29/06/2017, por gentileza conferir em: http://tdn.totvs.com/display/PROT/MDT0001+Entrega+de+Equipamentos+de+Protecao+Individual+para+Funcionarios

 

Descrição

ExecAuto MDTA695

Observações

A rotina ExecAuto do MDTA695 (Funcionário x EPI) realiza a entrega de EPI ao funcionário.

Exemplos

#Include "Protheus.ch"

User Function Auto695()

Local aFunc := {}
Local aItem := {}
Local nOpcao:= 4

Private lMSHelpAuto := .T. // para nao mostrar os erro na tela
Private lMSErroAuto := .F. // inicializa como .F., volta .T. se houver erro

aAdd( aFunc,

Unknown macro: {"RA_MAT", '000002', Nil }

)// Array com a chave, setando no 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, {

Unknown macro: {"TNF_CODEPI", '000000000000001' , Nil }

,;

Unknown macro: {"TNF_FORNEC", '000001', Nil }

,;

Unknown macro: {"TNF_LOJA", '00', Nil }

,;

Unknown macro: {"TNF_MAT", '000002', Nil }

,;

Unknown macro: {"TNF_DTENTR", Date(), Nil }

,;

Unknown macro: {"TNF_HRENTR", Time(), Nil }

,;
{"TNF_QTDENT", 1, Nil }})

dbSelectArea("SRA")
dbSetOrder(1)
dbSelectArea("TNF")
MSExecAuto(

Unknown macro: {|x,z,y,w| MDTA695(x,z,y,w)}

,, aFunc, aItem, nOpcao )

If lMSErroAuto
MostraErro()
Endif

Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte