× Linguagem de Programação ADVPL

Perguntas Rotina Automatica MDTA695

Mais
11 anos 1 mês atrás #10614 por barater
Bom dia
Alguem possui exemplo da rotina automatica MDTA695?

Grato

Cezar

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 1 mês atrás #10625 por kanaamlrr
Respondido por kanaamlrr no tópico Rotina Automatica MDTA695
Cara, pelo que eu saiba essa rotina não possui ExecAuto.
Se tiver e você conseguir um exemplo posta ai pra gente!

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 10 meses atrás #32159 por admin
Respondido por admin no tópico Rotina Automatica MDTA695
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

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.126 segundos
Joomla templates by a4joomla