Histórico da Página

Descrição:

Ponto de Entrada na rotina de Cadastro de Aplicação, utilizado para possibilitar inclusão de campos na Enchoice do produto (SB1). O retorno do PE deve ser do tipo string contendo os nomes dos campos adicionais (SB1) que serão apresentados na tela. Exemplo: "B1_TEST1/B1_TEST2/"

Eventos:

If ExistBlock("OA620CPO") // Ponto de Entrada para Incluir Campos na Enchoice SB1

cCposAux := ExecBlock("OA620CPO",.F.,.F.)

EndIf

//

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³ Cria variaveis M->????? da Enchoice ³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

RegToMemory("SB1",.t.)

aCpoEnchoice :={}

DbSelectArea("SX3")

DbSetOrder(1)

DbSeek("SB1")

While !Eof().and.(x3_arquivo=="SB1")

If X3USO(x3_usado).and.cNivel>=x3_nivel .and. ( Alltrim(x3_campo) $ "B1_FAMAPL/B1_GRUAPL/B1_SUBAPL/B1_DESC/B1_COD/B1_CODITE/B1_CODGEN/"+cCposAux )

AADD(aCpoEnchoice,x3_campo)

&("M->"+x3_campo) := &("SB1->"+x3_campo)

Endif

dbSkip()

EndDo

aadd(aCpoEnchoice,"NOUSER") //ESSE PARAMETRO NAO EXIBE CAMPOS DO USUARIO, SOMENTE OS QUE EXISTIREM NO VETOR.

Função:

OA620