Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

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.

Localização:

Atualizações \ Mov Atendimento \ Atend. Modelo 2 (VEIXA018)

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

Programa Fonte:

VEIXX016.PRW

Função:

VEIXX016()

Parâmetros:
NomeTipoDescrição

aNewBot

Vetor

Vetor que compõe as opções padrão do browse da rotina.

Retorno:
NomeTipoDescrição

aRot

Vetor

Vetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina.

Exemplo:

Include totvs.ch

/*

===============================================================================================

###############################################################################################

##+----------+------------+-------+---------------------------------------+------+----------+##

##|Função | VXX16BOT | Autor | MIL | Data | 26/11/19 |##

##+----------+------------+-------+---------------------------------------+------+----------+##

##|Descrição | Inclusão no aNewBot e Atend. Modelo 2 (VEIXA018) ao selecionar a opção |##

##|----------| Prioridade de Venda |##

##+----------+------------------------------------------------------------------------------+##

###############################################################################################

===============================================================================================

*/


User Function VXX16BOT()

Local aRot := ParamIxb[1]


aadd(aRot, { "U_M_EXEMPLO", {|| }, "Executar Exemplo" })


MsgInfo("Ponto de Entrada VXX16BOT executado com sucesso!","")


Return aRot