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.)