M_OXC008 - Exibe informações adicionais de peças em dois quadros.

Descrição

Este ponto de entrada está localizado na consulta detalhada de peças, da rotina Orçamento por Fases (OFIXA011). Tem como finalidade exibir informações da peça consultada em dois quadros, que estão localizados na parte superior da janela da consulta, de acordo com as parametrizaçoes feitas pelo cliente.

Observações

Exemplos

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿±±
±±³ Funcao ³ M_OXC008 ³ Autor ³ Thiago ³ Data ³ 26/10/12 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³ Descricao³ Consulta Detalhada de Peças. ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³ Uso ³ Oficina ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function M_OXC008()
Local i := 0
Local cAliasSB2 := "SQLSB2"

dbSelectArea("SB5")
dbSetOrder(1)
dbSeek(xFilial("SB5")+SB1->B1_COD)
dbSelectArea("VEG")
dbSetOrder(2)
dbSeek(xFilial("VEG")+"04")

lRet := .t.
cMsg1 := "Tabela de Preços"+CHR(10)+CHR(13)

Do while !EOF() .and. VEG->VEG_FILIAL == xFilial("VEG") .and. VEG->VEG_GRUFOR == "04"
if Empty(VEG->VEG_GRUPOS)
lRet := .t.
Else
lRet := .f.
For i:=1 to 25
if Empty(Substr(VEG->VEG_GRUPOS,(i*4)-3,4))
Exit
Else
if cGrupo == Substr(VEG->VEG_GRUPOS,(i*4)-3,4)
lRet := .t.
Exit
Endif
Endif
Next
Endif
nRecNoVEG := VEG->(recno())
if lRet
wVar := VEG->VEG_FORMUL
cMsg1 = VEG->VEG_DESCRI" "+Transform(FG_FORMULA(VEG->VEG_CODIGO),"@E 9,999,999.99")+CHR(10)+CHR(13)
Endif
//
dbSelectArea("VEG")
dbSetOrder(2)
DbGoto(nRecNoVEG)
dbSkip()
Enddo

cMsg := "Itens em Outras Filiais"+CHR(10)+CHR(13)+CHR(10)+CHR(13)

cQuery := "SELECT DISTINCT SB2.B2_FILIAL,SB2.B2_QATU "
cQuery += "FROM "
cQuery += RetSqlName( "SB2" ) + " SB2 "
cQuery = " INNER JOIN "+RetSqlName("SB1")" SB1 ON SB1.B1_FILIAL = SB1.B1_FILIAL AND SB1.B1_COD = SB2.B2_COD AND SB1.D_E_L_E_T_=' ' "
cQuery += "WHERE "
cQuery = "SB2.B2_COD = '"+aColsn,1"' AND SB2.B2_LOCAL = SB1.B1_LOCPAD AND "
cQuery += "SB2.D_E_L_E_T_=' '"

dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasSB2, .T., .T. )

Do While !( cAliasSB2 )->( Eof() )

cMsg = "Filial: "( cAliasSB2 )>B2_FILIAL+space(5)+Transform(( cAliasSB2 )>B2_QATU,"@E 99999")+CHR(10)+CHR(13)

dbSelectArea(cAliasSB2)
( cAliasSB2 )->(dbSkip())
Enddo
(cAliasSB2)->(dbCloseArea())

oMsg:Refresh()
oMsg1:Refresh()

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Eventos de chamada do Ponto de Entrada

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao FS_FILPREC Autor ³ ANDRE ³ Data ³ 01/06/00 ³±±

±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±

±±³Descricao ³Retorna o preco publico da peca ³±±

±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±

±±³Parametros³Nenhum ³±±

±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±

±±³Uso ³Venda Balcao ³±±

±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±

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

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

*/

Static Function FS_FILPREC()

if cPesqui == "0"

// #########################################################

// # Adiciona botões na EnchoiceBar (aNewBot) #

// #########################################################

If ( ExistBlock("M_OXC008 ") )

ExecBlock("M_OXC008",.f.,.f.)

EndIf

Endif

return

Variáveis

Programa Fonte

OFIXC008.PRW