Á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 permite a criação de novas opções no Ações Relacionadas da tela Principal da Consulta da Analise de Itens

Parâmetros:

Array aNewBot

Eventos:

*/

Function OC520Visual(cAlias,nReg,nOpc)

Local aCpoRegistro := {}

 

Local cBkpFilial := cFilAnt

Local aBkpArea := sGetArea(,"SB1")

Local lSBZ := ( SuperGetMV("MV_ARQPROD",.F.,"SB1") == "SBZ" )

 

Local nSavnOpc := nOpc

Local lSavIncl := .f.

Local lSavAlte := .f.

Local aNewBot := {}

 

Private oSizePrinc

Private oSizeSup

Private oSizeFiltro

Private oSizeDet

Private oSizeDet1

Private oSizeDet2

 

Private oDlg520

Private obC520EncFiltro

Private obC520EncDetalhe

Private obC520Estq

Private obC520Deman

Private obC520Btn

Private obC520CmpVen

Private obC520TPrc

Private obC520ItRel

Private obC520ItSub

Private obC520Check

 

Private a520FldFiltro := {}

Private a520FldDetalhe := {}

 

Private oAnt := LoadBitmap( GetResources() , "metas_baixo_16" )

Private oNov := LoadBitmap( GetResources() , "metas_cima_16" )

Private lMLF := SB5->(FieldPos("B5_MARPEC")) > 0 .and. SB5->(FieldPos("B5_CODLIN")) > 0 .and. SB5->(FieldPos("B5_CODFAM")) > 0// quando .T. trabalha com Marca / Linha / Familia

Private lMLFSBZ := SBZ->(FieldPos("BZ_MARPEC")) > 0 .and. SBZ->(FieldPos("BZ_CODLIN")) > 0 .and. SBZ->(FieldPos("BZ_CODFAM")) > 0// quando .T. trabalha com Marca / Linha / Familia

 

If Type("INCLUI") != "U"

lSavIncl := INCLUI

Endif

If Type("ALTERA") != "U"

lSavAlte := ALTERA

Endif

 

If ( ExistBlock("OC520ABT") )

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

EndIf

 

Programa Fonte:

OFIOC520.PRW        

Função:

OC520Visual()                 

Retorno:

Array com as novas opções

 

Exemplo:

User Function OC520ABT()

aNovaRotina := ParamIxb[1]

 

AADD(aNovaRotina , {"PENDENTE",{|| FS_PE520ABT() },( "Ponto de entrada" )} )

 

 

Return(aNovaRotina )

 

 

Static Function FS_PE520ABT()

 

MsgInfo("Ponto de entrada OC520ABT executado com sucesso.")

 

Return(