Á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 tem a finalidade de permitir que o cliente inclua opções no Ações Relacionadas da rotina Transferência de Peças entre filiais.

Localização:

 
Atualizações / Mov. Peças / Transferência de Peças

Eventos:


if nOpc == 2 .or. nOpc == 4 .or. nOpc == 5
nQtdPec := 0
nTotPec := 0
nTotGer := 0
For i := 1 to Len(aCols)
if aCols[i,FG_POSVAR("VS3_QTDINI")] <> 0
nQtdPec += aCols[i,FG_POSVAR("VS3_QTDINI")]
nTotPec += aCols[i,FG_POSVAR("VS3_VALPEC")]
nTotGer += aCols[i,FG_POSVAR("VS3_VALPEC")]*aCols[i,FG_POSVAR("VS3_QTDINI")]
Endif
Next
Endif
// Configura os tamanhos dos objetos
aObjects := {}
AAdd( aObjects, { 05, 20 , .T., .F. } ) //Cabecalho
AAdd( aObjects, { 01, 20, .T. , .T. } ) //list box superior
AAdd( aObjects, { 01, 20, .T. , .F. } ) //list box superior

AADD( aNewBot , {"BACKORDER", {|| OM430Impos() }, STR0139 })

If ( ExistBlock("OM430ABT") ) // Incluir Opcoes no Acoes relacionadas
aNewBot := ExecBlock("OM430ABT",.f.,.f.,{aNewBot})
EndIf

 

Programa Fonte:

OFIOM430.PRW  

Função:

FS_MONTATELA

Parâmetro:aNewBot = Array com os botões do ações relacionadas

Retorno:

Array com os botões do ações relacionadas.

 

Exemplo:

User Function OM430ABT()

Local aBotao := ParamIXB[1]

AADD( aBotao , {"BACKORDER", {|| novobotao() }, "NOVO BOTAO" })

Return(aBotao)