Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada está localizado na rotina Liberação OS (OFIOM140) e é utilizado para possibilitar a inclusão de opções no botão Outras Ações após o usuário ter selecionado a opção Liberar OS no browse principal da rotina.

Localização:

Atualizações \ Mov Oficina \ Liberação OS (OFIOM140)

Eventos:

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³ Verifica se existe os itens no cadastro de produtos ( SB1 ) ³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

cQuery := "SELECT SB1.R_E_C_N_O_ RECSB1 , VO3.VO3_GRUITE , VO3.VO3_CODITE "

cQuery += "FROM " + RetSQLName("VO2") + " VO2 "

cQuery += "JOIN " + RetSQLName("VO3") + " VO3 ON ( VO3.VO3_FILIAL=VO2.VO2_FILIAL AND VO3.VO3_NOSNUM=VO2.VO2_NOSNUM AND VO3.D_E_L_E_T_=' ' ) "

cQuery += "LEFT JOIN " + RetSQLName("SB1") + " SB1 ON ( SB1.B1_FILIAL='"+xFilial("SB1")+"' AND SB1.B1_GRUPO=VO3.VO3_GRUITE AND SB1.B1_CODITE=VO3.VO3_CODITE AND SB1.D_E_L_E_T_=' ' ) "

cQuery += "WHERE VO2.VO2_FILIAL='"+xFilial("VO2")+"' AND VO2.VO2_NUMOSV='"+VO1->VO1_NUMOSV+"' AND VO2.D_E_L_E_T_=' ' "

dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cQAlias, .F., .T. )

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

If ( cQAlias )->( RECSB1 ) <= 0

If nPos <= 5

cSB1NEnc += ( cQAlias )->( VO3_GRUITE )+" "+( cQAlias )->( VO3_CODITE )+CHR(13)+CHR(10)

nPos++

Else

cSB1NEnc += "..."

Exit

EndIf

EndIf

( cQAlias )->( DbSkip() )

EndDo

( cQAlias )->( dbCloseArea() )

dbSelectArea("VO1")

dbSetOrder(1)

If !Empty(cSB1NEnc)

Help(" ",1,"M140SB1NENC",,cSB1NEnc,3,0)

return .f.

EndIf

//

// Ponto de entrada para inclusao de botoes no acoes relacionadas da tela Principal de Liberação de Ordem de Serviço

If ExistBlock("OM140BOT")

aNewBot := ExecBlock("OM140BOT",.f.,.f.,{aNewBot})

EndIf

Programa Fonte:

OFIOM140.PRW

Função:

OFIOM140I()

Retorno:

Vetor com os botões do Outras Ações.

Parâmetros:

Vetor com os botões do Outras Ações.

Exemplo:

#Include 'Protheus.ch'

// Ponto de Entrada utilizado para incluir opções em Outras Ações

// na tela principal da rotina de Liberação de Ordens de Serviços

// Autor: Totvs MIL

User Function OM140BOT()

aNewBot := ParamIXB[1]

AADD(aNewBot, {"PENDENTE",{|| FS_PE() },( "Ponto de entrada" )} )

Return(aNewBot)

Static Function FS_PE()

MsgInfo("Ponto de entrada OM140BOT executado com sucesso.")

Return(.t.)