Exemplo de Utilização do Processo ExecAuto no Cadastro de Motoristas (OMSA040 - SIGAOMS)

//Exemplo utilização Repom

#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

//Exemplo de utilização Pamcard

#Include 'PROTHEUS.CH'

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

Private lMSErroAuto := .F.

Aadd(aCab,{"DA4_COD"   ,"900002"       ,NIL})	//-- Código do motorista
Aadd(aCab,{"DA4_NOME"  ,"JOAO DA SILVA",NIL})	//-- Nome do motorista
Aadd(aCab,{"DA4_TIPMOT","3"            ,NIL})	//-- Tipo do motorista (1 = Próprio)
Aadd(aCab,{"DA4_FORNEC"   ,"PAM005"  ,NIL})	//-- Fornecedor
Aadd(aCab,{"DA4_LOJA"   ,"01"  ,NIL})	//-- Loja Fornecedor
Aadd(aCab,{"DA4_NREDUZ","JSILVA"       ,NIL})	//-- Nome reduzido
Aadd(aCab,{"DA4_END"   ,"RUA JAFFET"  ,NIL})	//-- End
Aadd(aCab,{"DA4_BAIRRO"   ,"CENTRO"  ,NIL})	//-- Bairro
Aadd(aCab,{"DA4_MUN"   ,"SAO PAULO"  ,NIL})	//-- MUN
Aadd(aCab,{"DA4_EST"   ,"SP"  ,NIL})	//-- ESTADO
Aadd(aCab,{"DA4_CEP"   ,"04615004"  ,NIL})	//-- CEP
Aadd(aCab,{"DA4_CGC"   ,"00356718905"  ,NIL})	//-- CPF
Aadd(aCab,{"DA4_TEL"   ,"23131260"  ,NIL})	//-- TEL
Aadd(aCab,{"DA4_DATNAS"   ,CToD("11/03/2000"),NIL})	//-- DT Nasc
Aadd(aCab,{"DA4_ESTCIV"   ,"S"  ,NIL})	//-- DDD
Aadd(aCab,{"DA4_RG"   ,"25881515"  ,NIL})	//-- RG
Aadd(aCab,{"DA4_RGORG"   ,"SSP"  ,NIL})	//-- RG Origem
Aadd(aCab,{"DA4_RGEST"   ,"SP"  ,NIL})	//-- RG ESTADO
Aadd(aCab,{"DA4_RGDT"   ,CToD("08/03/2008"),NIL})	//-- DT RG
Aadd(aCab,{"DA4_DDD"   ,"011"  ,NIL})	//-- DDD
Aadd(aCab,{"DA4_CODMUN"   ,"50308"  ,NIL})	//-- Cod Mun

//--Itens da ocorrencia:
aAdd(aItens,{{"DEL_ITEM"  ,StrZero(1,Len(DEL->DEL_ITEM)),NIL},;
			 {"DEL_CODOPE","02"                         ,NIL},;
			 {"DEL_IDOPE" ,"4417819800001812"                   ,NIL},;
			 {"DEL_STATUS","1"                          ,NIL},;
			 {"DEL_TIPOID","024"                          ,NIL},;
			 {"DEL_CODBAN","237"                          ,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