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

Ao configurar este ponto de entrada, a tela de digitação / liberação de medicamentos controlados deverá trazer na ordem escolhida pelo cliente, informando os campos da tabela LK9, em ordem, no primeiro parâmetro do ponto de entrada em Array.
Esta tela aparecerá sempre quando o produto estiver configurado como Medicamento Controlado, desde que o campo B1_PSICOTR (Psicotropico) estiver configurado como "1" ou se o campo B1_CLASSTE (Classe Terapeutica) estiver preenchido

Esse ponto de entrada permite alterar a ordenação dos campos da tela do SNGPC que é apresentada durante uma venda.
Além disso, ele também permite que campos de usuário (somente da tabela LK9) também sejam adicionados a essa tela.

Eventos:

DROPELK9

Programa Fonte:

DroAXCadastro

Parâmetros:
_aRet (Array):

Retorno:

_aRet (Array):

 
TipoDescrição
ExpA1

Array com os campos da tabela LK9 (Aprovação de Medicamentos Controlados).

Os campos de usuário não estão inclusos nessa lista.

Retorno:

Array com duas posições, onde:

[ 1 ] Vetor com os campos da tabela LK9 (aqueles que foram passados como parâmetro) ordenados conforme a necessidade do usuário.

[ 2 ] Vetor com os campos de usuário que serão adicionados a tela do SNGPC.


Exemplo:

User Function DROPELK9()

Local aRet := Array(2)

// A primeira posição indica os campos que são apresentados na tela do SNGPC. É possível alterar a sua ordem.

aRet[1] Local _aRet   := PARAMIXB[1]

Begin Sequence              // Neste exemplo, está mantendo os campos da LK9, e está adicionando outros quatro abaixo para estar visíveis para edição.

    AAdd( _aRet,"LK9_XDOSAG" )

    AAdd( _aRet,"LK9_XDDDCO" )

    AAdd( _aRet,"LK9_XTELCO" )

    AAdd( _aRet,"LK9_XCGCCP" )

End Sequence

Return _aRet

 

A segunda posição indica os campos de usuário que serão apresentados na tela do SNGPC.

aRet[2] := { "LK9_TESTE" }

Return aRet