OC520CPO Ponto de Entrada para a inserção de Campos Customizados no Browse da Rotina Análise de Itens (OFIOC520)

Descrição:

Criação do Ponto de Entrada na Rotina análise de itens (OFIOC520) para a inserção de campos customizados no Browse

Eventos:

aCampos := {}

AADD( aCampos , { "B1_GRUPO" , "" , .t. } )

AADD( aCampos , { "B1_CODITE" , "" , .t. } )

AADD( aCampos , { "B1_DESC" , "" , .t. } )

if lSBZ .and. lMLFSBZ

AADD( aCampos , { "BZ_MARPEC" , "" , .t. } )

AADD( aCampos , { "BZ_CODLIN" , "" , .t. } )

AADD( aCampos , { "BZ_CODFAM" , "" , .t. } )

Elseif lMLF

AADD( aCampos , { "B5_MARPEC" , "" , .t. } )

AADD( aCampos , { "B5_CODLIN" , "" , .t. } )

AADD( aCampos , { "B5_CODFAM" , "" , .t. } )

Else

AADD( aCampos , { "BM_CODMAR" , "" , .t. } )

EndIf

AADD( aCampos , { "B1_CODBAR" , "" , .t. } )

AADD( aCampos , { "B1_FABRIC" , "" , .t. } )

AADD( aCampos , { "C520GRUDES" , "" , .t. } )

AADD( aCampos , { "C520ORIGEM" , "" , .t. } )

AADD( aCampos , { "B1_UM" , "" , .t. } )

AADD( aCampos , { "B1_IPI" , "" , .t. } )

AADD( aCampos , { "B1_POSIPI" , "" , .t. } )

AADD( aCampos , { "C520GRTRIB" , "" , .t. } )

AADD( aCampos , { "B1_QE" , "" , .t. } )

AADD( aCampos , { "B1_CRICOD" , "" , .t. } )

AADD( aCampos , { "B1_DTREFP1" , "" , .t. } )

AADD( aCampos , { "C520MSBLQL" , "" , .t. } )

AADD( aCampos , { "B1_CODGEN" , "" , .t. } )

If ExistBlock("OC520CPO") // Adição de Campos Customizados pelo Cliente

aCpoCtm := ExecBlock("OC520CPO",.F.,.F., aCpoCtm)

For i := 1 to len(aCpoCtm)

aadd(aCampos, aCpoCtm[i])

Next

Endif

Função:

OC520VISUAL()