DT_OC520ABT_Novas_Opcoes_no_Acoes_Relacionadas_da_Consulta_da_Analise_de_Itens

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

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

Função:

OC520Visual()