Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto Entrada na rotina de Consulta de Peças por Aplicação, executado na tela que mostra Estoques/Preços do produto selecionado.

Finalidade: Pode ser utilizado para substituir o levantamento padrão (formulas) de preços. Seu retorno deve ser um vetor contendo na 1ªcoluna a Descrição e na 2ªcoluna o Valor.

Exemplo de inclusão do vetor de retorno: aAdd(aPrecosRet,{"Preço A VISTA",10})

Eventos:

//////////////

// Precos //

//////////////

SB1->(DbGoTo(nRecSB1))

SB2->(DbSetOrder(1))

SB2->(DbSeek(xFilial("SB2")+SB1->B1_COD+FM_PRODSBZ(SB1->B1_COD,"SB1->B1_LOCPAD")))

SB5->(DbSetOrder(1))

SB5->(DbSeek(xFilial("SB5")+SB1->B1_COD))

If ExistBlock("OXC09PRC")

aPrecos := aClone(ExecBlock("OXC09PRC",.F.,.F.))

Else

DbSelectArea("VEG")

DbSetOrder(2)

DbSeek(xFilial("VEG")+"04")

Do while !EOF() .and. VEG->VEG_FILIAL == xFilial("VEG") .and. VEG->VEG_GRUFOR == "04"

If Empty(VEG->VEG_GRUPOS) .or. ( SB1->B1_GRUPO $ VEG->VEG_GRUPOS )

nRecNoVEG := VEG->(RecNo())

aAdd(aPrecos,{VEG->VEG_DESCRI,FG_FORMULA(VEG->VEG_CODIGO)})

VEG->(DbSetOrder(2))

VEG->(DbGoto(nRecNoVEG))

EndIf

VEG->(dbSkip())

Enddo

EndIf

If len(aPrecos) <= 0

aAdd(aPrecos,{"",0})

EndIf

Parâmetros:

Se for chamado pelo Duplo Click do ListBox (função OXC09PRC) os parâmetros são:

1o) Parâmetro - matriz com os preços

2o) Posição no ListBox no momento do Duplo Click

Caso contráriio não passa Parâmetro

Programa Fonte:

OFIXC009  

Função:

OXCESTPRC      

Retorno:

aPrecosRet - Seu retorno deve ser um vetor contendo na 1ªcoluna a Descrição e na 2ªcoluna o Valor. Exemplo de inclusão do vetor de retorno: aAdd(aPrecosRet,{"Preço A VISTA",10})

 

Exemplo:

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ OXC09PRC º Autor ³ Andre Luis Almeida º Data ³ 21/06/16 º±±

±±ÌÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao³ Ponto Entrada executado na tela que mostra Estoques/Preços º±±

±±º ³ do produto selecionado, é utilizado para substituir o º±±

±±º ³ levantamento padrão (formulas) de preços. Seu retorno deve º±±

±±º ³ ser um vetor contendo na 1ªcoluna a Descrição e na 2ªcoluna º±±

±±º ³ o Valor. Exemplo de inclusão do vetor de retorno: º±±

±±º ³ aAdd(aPrecosRet,{"Preço A VISTA",10}) º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function OXC09PRC()

Local aPrecosRet := {}

 

aAdd(aPrecosRet,{"",0})

 

MsgAlert("Ponto de Entrada OXC09PRC executado com sucesso!")

 

Return(aPrecosRet)