Histórico da Página

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.

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

Função:

FS_MONTATELA