Linha Microsiga Protheus

Árvore de páginas

Pesquisa Via Execauto

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Gesta de Pesquisa e Resultados

Rotina:

Rotina

Nome Técnico

GPRA010

Pesquisa

Tickets relacionadosObs: Para funcionamento da rotina GPRA010 via rotina automática, deverá ser aplicado o pacote da Issue DSERFAT-1063, caso o fonte GPRA010 possuir data inferior a 25/05/2017.

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

SKC - Cabeçalho da Pesquisa

SKL - Itens da Pesquisa

Sistema(s) Operacional(is):

Windows / Linux

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

Descrição:

Execauto de manutenção das tabelas de preço

Localização:

GPRA010.PRX

Eventos:

 3 = "Incluir"
 4 = "Alterar"
 5 = "Excluir"

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

ExpA1

Array of Record

Array com lista de campos (SKC)

X

ExpA2

Array of Record

Array com lista de campos (SKL)

X

ExpN1NuméricoNumero da opção selecionadaX

 

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