Á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:

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/"

Localização:

Atualizações\Cad Peças\Aplicação de Peças (OFIOA620)

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.

 

Programa Fonte:

OFIOA620.PRW

Função:

OA620     

Retorno:

cCposAux - O retorno deve ser do tipo string contendo os nomes dos campos adicionais (SB1) que serão apresentados na tela. Exemplo: "B1_TEST1/B1_TEST2/"

 

Exemplo:

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ OA620CPO º Autor ³ MIL º Data ³ 12/08/2016 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±º Descricao³ Ponto de Entrada para Incluir Campos na Enchoice. º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±º Retorno ³ O retorno deve ser do tipo string contendo os nomes dos º±±

±±º ³ campos adicionais (SB1) que serão apresentados na tela. º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function OA620CPO()

Local cCposAux := "B1_TEST1/B1_TEST2/"

MsgAlert("Ponto de Entrada OA620CPO executado com sucesso!")

Return(cCposAux)