Histórico da Página
Ponto de Entrada
Descrição: | Criação do Ponto de Entrada na Rotina análise de itens (OFIOC520) para a inserção de campos customizados no Browse | ||||||
Localização: | Consultas / Peças / Análise de Itens | ||||||
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 | ||||||
Programa Fonte: | OFIOC520.PRW | ||||||
Função: | OC520VISUAL() | ||||||
Parâmetros: | Não há. | ||||||
Retorno: |
|
Exemplo:
Include totvs.ch
#Include "PROTHEUS.CH"
#Include "OFIOC520.CH"
User Function OC520CPO()
Local aCpoCtm := {}
aadd(aCpoCtm, {"B1_UCOM", "", .T.})
aadd(aCpoCtm, {"B1_PESO", "", .T.})
aadd(aCpoCtm, {"B1_X_TST", "", .T.})
Return aCpoCtm