OX001SUG - Adiciona botões na tela de Sugestão de Compra

Descrição

Este Ponto de Entrada permite adicionar botões na tela de Sugestão de Compra, localizada na opção Ações Relacionadas da rotina Orçamento por Fases (OFIXA011).

Observações

Exemplos

User Function OX001SUGT()

AADD(aIncBot, \{"IMPRESSAO",\{|| FS_PE() \},( "Ponto de entrada" )\} )

Return(aIncBot)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

aIncBot retornara um vetor.

Eventos de chamada do Ponto de Entrada

If ( ExistBlock("OX001SUG") )
aIncBot := ExecBlock("OX001SUG",.f.,.f.,\{aIncBot\})
EndIf

//
nOpcao := 1
cForPed := ""
aRStatus := \{STR0195,STR0196,STR0197,STR0198\}
DEFINE MSDIALOG oSugest TITLE STR0199 FROM aSizeHalf[7],0 TO aSizeHalf[6],aSizeHalf[5] OF oMainWnd PIXEL // Financiamento / Leasing

@ aPosObj[1,1]+05,10 SAY STR0200 SIZE 150,8 OF oSugest PIXEL COLOR CLR_BLUE
@ aPosObj[1,1]+04,60 COMBOBOX oLimite VAR cForPed ITEMS aRStatus SIZE 100,8 OF oSugest PIXEL

@ aPos[1,1]+20,aPos[1,2] LISTBOX oLboxFAI FIELDS HEADER;
"" ,;
STR0201 , ; // Banco
STR0202 , ; // Tipo
STR0203 , ; // Tabela
STR0204 , ; // Parcelas
COLSIZES 30,50,80,40 SIZE aPos[1,4],aPos[1,3]-25 OF oSugest PIXEL ON DBLCLICK (aSugest[oLboxFAI:nAt,1] := ! aSugest[oLboxFAI:nAt,1] , oLboxFAI:Refresh(), .t. )
oLboxFAI:SetArray(aSugest)
oLboxFAI:bLine := \{ || \{ IIF(aSugest[oLboxFAI:nAt,01],oTik,oNo),;
aSugest[oLboxFAI:nAt,02],;
aSugest[oLboxFAI:nAt,03],;
aSugest[oLboxFAI:nAt,04],;
FG_AlinVlrs(Transform(aSugest[oLboxFAI:nAt,05],"@E 9999")) \}\}

ACTIVATE MSDIALOG oSugest CENTER ON INIT (EnchoiceBar(oSugest, \{ || ( nOpcao:=1 , oSugest:End() ) \} , \{ || ( nOpcao:=2 , oSugest:End() ) \},,aIncBot))

Variáveis

Programa Fonte

OFIXX001.PRW