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)