Pesquisa Via Execauto

Características do Requisito

Descrição

Executar a rotina automática de manutenção das tabelas de preço.

Tipo de execução para a rotina automática.
 3 = "Incluir"
 4 = "Alterar"
 5 = "Excluir"

Execauto

Exemplo:

User Function MYGPRA010()

Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local nY := 0

PRIVATE lMsErroAuto := .F.

ConOut("Inicio: "+Time())

aadd(aCabec,{"KC_CODPQ" ,"000005",Nil})
aadd(aCabec,{"KC_DESC" ,"TESTE AUTO",Nil})
aadd(aCabec,{"KC_STATUS" ,"2",Nil})
aadd(aCabec,{"KC_MIDIA" ,"1",Nil})
aadd(aCabec,{"KC_DTDE" ,DATE(),Nil})
aadd(aCabec,{"KC_DTATE" ,DATE()+6,Nil})
aadd(aCabec,{"KC_INICIO" ,"00:00",Nil})
aadd(aCabec,{"KC_FINAL" ,"23:59",Nil})

For nY:= 1 to 2
aLinha := {}
aAdd(aLinha, {"KL_FILIAL", xFilial("SKL"), Nil})
aAdd(aLinha, {"KL_ITEM", "00"+AllTrim(Str(nY)), Nil})
aAdd(aLinha, {"KL_TIPO", "2", Nil})
aAdd(aLinha, {"KL_CHAVE", "1", Nil})
aAdd(aItens,aLinha)
Next nY

MsExecAuto({|x,y,z| GPRA010(x,y,z)},aCabec,aItens,3)
If !lMsErroAuto
Conout("Incluido com sucesso")
Else
Mostraerro()
EndIf

ConOut("Fim: "+Time())

Return