Histórico da Página

#Include 'PROTHEUS.CH'

User Function OMSA040AUT()
Local aCab   := {}
Local aItens := {}

Private lMSErroAuto := .F.

Aadd(aCab,{"DA4_COD"   ,"900001"       ,NIL})	//-- Código do motorista
Aadd(aCab,{"DA4_NOME"  ,"JOSE DA SILVA",NIL})	//-- Nome do motorista
Aadd(aCab,{"DA4_TIPMOT","1"            ,NIL})	//-- Tipo do motorista (1 = Próprio)
Aadd(aCab,{"DA4_NREDUZ","JSILVA"       ,NIL})	//-- Nome reduzido
Aadd(aCab,{"DA4_CGC"   ,"49657627460"  ,NIL})	//-- CPF

//--Itens da ocorrencia:
aAdd(aItens,{{"DEL_ITEM"  ,StrZero(1,Len(DEL->DEL_ITEM)),NIL},;
			 {"DEL_CODOPE","01"                         ,NIL},;
			 {"DEL_IDOPE" ,"600805182"                   ,NIL},;
			 {"DEL_STATUS","1"                          ,NIL}})

MsAguarde({|| MsExecAuto({|x,y,z| OMSA040(x,y,z)},aCab,3,aItens)},"AGUARDE,PROCESSANDO...")

If lMSErroAuto    
	MostraErro()
Else    
	Alert("Concluído com Sucesso !!")
EndIf
	
Return