Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada localizado na função de duplicar Serviços para outras Marcas da rotina de Cadastro de Serviço. É chamado a cada registro da tabela de Marcas (VE1). Seu retorno é logico (.t. ou .f.) possibilitando assim relacionar ou não a Marca posicionada (registro VE1) na tela de duplicar.

Localização:

Atualizações \ Cad Oficina \ Tabela Serviços (OFIOA030)

Eventos:

DbSelectArea("VE1")

DbSetOrder(1)

DbSeek(xFilial("VE1"))

Do While !Eof() .And. VE1->VE1_FILIAL == xFilial("VE1")

if ( ExistBlock("OF030MAR") )

lMarcaOK := ExecBlock("OF030MAR",.f.,.f.)

Endif

If VE1->VE1_CODMAR # VO6->VO6_CODMAR .and. lMarcaOK

Aadd( aMarcasDup, { .f., VE1->VE1_CODMAR, VE1->VE1_DESMAR })

EndIf

 

DbSelectArea("VE1")

DbSkip()

EndDo

Programa Fonte:

OFIOA030.PRW

Função:

FS_DUPSRV()

Retorno:

Nome

Tipo

Descrição

Obrigatório

lMarcaOK

Booleano

Retorna .t. ou .f. se o registro posicionado no VE1 (Marca) poderá ser escolhido na tela de duplicar o serviço para outras marcas

Sim

Exemplo:

 

// Ponto de Entrada localizado na função de duplicar Serviços

// para outras Marcas da rotina de Cadastro de Serviço.

// É chamado a cada registro da tabela de Marcas (VE1).

// Seu retorno é logico (.t. ou .f.) possibilitando assim

// relacionar ou não a Marca posicionada (registro VE1) na

// tela de duplicar.

 

User Function OF030MAR()

Local lRet := .t.

MsgInfo("Ponto de entrada OF030MAR executado com sucesso!","Atenção")

 

Return lRet