VXX16BOT Inclusão de Opções no Outras Ações na Rotina Atend. Modelo 2 (VEIXA018) - Prioridade de Venda

Descrição:

Este Ponto de Entrada será executado na rotina Atend. Modelo 2 (VEIXA018) e permite a inclusão de opções no Outras Ações da tela Prioridade de Venda.

Eventos:

IF cTipo$"0/1"

DEFINE MSDIALOG oResTemp TITLE STR0001 FROM aTELA[1], aTELA[2] TO aTELA[3], aTELA[4] PIXEL // Prioridade de Venda

// Cria Layer e as linhas

oLayer := FWLayer():New()

oLayer:Init(oResTemp, .F., .T.)

oLayer:AddLine("TOP", 100, .F.)

// Cria as colunas

oLayer:AddCollumn("TCOL", 100, .F., "TOP")

// Variáveis (padrão) para uso das colunas criadas

cTopCol := oLayer:getColPanel("TCOL", "TOP")

lReserva := "R" $ cVisual .And. Alltrim(Str(nOpc)) $ "3/4"

lDesres := "D" $ cVisual .And. Alltrim(Str(nOpc)) $ "3/4"

lRenRes := "S" $ cVisual .And. Alltrim(Str(nOpc)) $ "3/4"

AADD(aNewBot, { "oReserva", {|| FS_RESVEI("1", lReserva)}, STR0009 }) // Reserva

AADD(aNewBot, { "oDesres", {|| FS_DESRESER(aResTem[len(aResTem), 12], "1", lDesres), FS_LEVANTA(.t.)}, STR0010 }) // Desreserva

AADD(aNewBot, { "oRenRes", {|| FS_RESVEI("2", lRenRes)}, STR0011 }) // Renovar Reserva

// Ponto de entrada para inclusão de botões no Ações Relacionadas

If ExistBlock("VXX16BOT")

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

EndIf

// Browse (Reservas)

// Usando Componente FWFormBrowse já que está sendo usado array por

// hierarquia do FWBrowse e esse componente possui inclusão de botão

oBrowseR := FWFormBrowse():New()

oBrowseR:SetOwner(cTopCol)

oBrowseR:SetDataArray()

oBrowseR:SetArray(aResTem)

oBrowseR:SetColumns(OR0100026_ColunasBrowseReservadas())

oBrowseR:DisableReport()

oBrowseR:Activate()

ACTIVATE MSDIALOG oResTemp CENTER ON INIT EnchoiceBar(oResTemp, { || oResTemp:End() }, {|| oResTemp:End() },, aNewBot)

Else

If aResTem[len(aResTem),2]=="1"

FS_DESRESER(aResTem[len(aResTem),12 ],cTipo)

EndIF

EndIF

// Volta posicoes originais dos Arquivos

DbSelectArea("VV1")

sRestArea(aArea)

Return

Função:

VEIXX016()