POOM170ENC - Criação de opção na Enchoicebar

O ponto de entrada POOM170ENC está localizado na rotina de Liberação de Venda, para que possa ser criação de opção na Enchoicebar.

Function FS_CHBAR170(oDlg,bOk,bCancel)

Local bSet6, bSet15, bSet24, lOk, oBtOk, oBtCan, oBtFab
Local lVolta :=.f.
Private oBar

DEFINE BUTTONBAR oBar SIZE 25,25 3D TOP OF oDlg

DEFINE BUTTON RESOURCE "S4WB005N" OF oBar ACTION NaoDisp() TOOLTIP STR0021 //"Recortar"
DEFINE BUTTON RESOURCE "S4WB006N" OF oBar ACTION NaoDisp() TOOLTIP STR0022 //"Copiar"
DEFINE BUTTON RESOURCE "S4WB007N" OF oBar ACTION NaoDisp() TOOLTIP STR0023 //"Colar"
DEFINE BUTTON RESOURCE "S4WB008N" OF oBar GROUP ACTION Calculadora() TOOLTIP STR0024 //"Calculadora..."
DEFINE BUTTON RESOURCE "S4WB009N" OF oBar ACTION Agenda() TOOLTIP STR0025 //"Agenda..."
DEFINE BUTTON RESOURCE "S4WB010N" OF oBar ACTION OurSpool() TOOLTIP STR0026 //"Gerenciador de ImpressÆo..."
DEFINE BUTTON RESOURCE "S4WB016N" OF oBar ACTION HelProg() TOOLTIP STR0027 //"Help de Programa..."
DEFINE BUTTON RESOURCE "PRECO"    OF oBar ACTION FS_AVRESGER() TOOLTIP STR0028 //"Avaliacao de Resultado"

If ExistBlock("POOM170ENC") // Ponto de Entrada para criacao de Botao na Enchoicebar
 ExecBlock("POOM170ENC")
Endif

oBar:nGroups += 6
DEFINE BUTTON oBtOk RESOURCE "Ok" OF oBar GROUP ACTION ( cTudoOk, lLoop:=lVolta,lOk:=Eval(bOk)) TOOLTIP STR0029 //"Ok - <Ctrl-O>"
SetKEY(15,oBtOk:bAction)
oDlg:bSet15 := oBtOk:bAction

DEFINE BUTTON oBtCan RESOURCE "CANCEL" OF oBar ACTION ( lLoop:=.f.,Eval(bCancel),ButtOff(bSet6,bSet15,bSet24,.T.)) TOOLTIP STR0030 //"Cancelar - <Ctrl-X>"
SetKEY(24,oBtCan:bAction)
oDlg:bSet24 := oBtCan:bAction
oBar:bRClicked := {|| AllwaysTrue()}

Return nil

POOM170ENC.PRW, OFIOM170

POOM170ENC - Criação de opção na Enchoicebar ( [ ] )

()

#Include "Protheus.ch"                                           /*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Funcao    ³POOM170ENC³ Autor ³ Rafael Goncalves      ³ Data ³22/02/2010|±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descricao ³ PE para criacao de Botao na Enchoicebar                    ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/    User Function POOM170ENC () DEFINE BUTTON RESOURCE "GEOROTA" OF oBar ACTION NaoDisp() TOOLTIP "PE"Return