Linha Microsiga Protheus

Árvore de páginas

LJ764MN1 - Ponto de entrada para que seja possível manipular os Itens da Multi-Negociação. 

Descrição:

Foi Criado um ponto de entrada na Rotina de Multi-Negociação para que seja possível realizar a manipulação dos itens conforme necessidade do Usuário. Este ponto é executado quando se possui Multi-Negociação e ao realizar um orçamento e selecionar a forma de pagamento Multi-Negociação. Em seguida é apresentada a tela da Multi-Negociação.

Localização:

Rotina da Multi-Negociação ( LOJA764.PRW ) 

Eventos:

Ao realizar um orçamento no Venda Assistida selecionando a forma de pagamento Multi-Negociação o ponto de entrada é acionado permitindo que seja possível a manipulação das informações do cadastro da multi-negociação, antes de ser apresentada a Tela da Multi-Negociação.

Fontes do chamado:LOJA764.PRW  10/08/2016 10:50:46

Pacote do chamado:

TVSPCQ.zip

Parâmetro :

ParamIxb[1]Array Contendo os itens da Multi-Negociação que serão apresentado na Tela para realização da condição negociada.
ParamIxb[2]Caracter Variavel que possui o codigo do usuário no Protheus que esta utilizando o sistema.
Nome
Tipo
Modo
Descrição
Retorno:
Tipo
Obrigatório
Descrição
ArraySimArray manipulado com as informações da Multi-Negociação que deverão ser apresentadas na Tela.

Exemplo da Criação do Ponto de Entrada:

#Include 'Protheus.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} LJ764MN1
@description Ponto de Entrada para teste na Multi-negociacao
@author 
@since 00/00/0000
@version 11.80
/*/
//-------------------------------------------------------------------

User Function LJ764MN1()
Local aRet := ParamIxb[1]
Local cCodUser := ParamIxb[2]
Local aRetorno := {}

MsgAlert("Ponto de Entrada LJ764MN1")

If cCodUser == "000003"
      AAdd(aRetorno,aRet[1])
Else
      aRetorno := aRet
EndIf

Return(aRetorno)

Composição do Array e exemplo do Conteúdo:

Os itens devem ser do Tipo Caractere, mesmo o valor apresentado:

aAdd(aRet,{MSB_Codigo,;   // Codigo do cadastro da Multi-negociação

                   MSBcDescricao,;  // Descrição da Multi-Negociação

                  AllTrim(TRANSFORM(:nMSB_Valor, "@E 999,999,999,999.99" )) ,; // Valor Total do Orçamento.

                  })

 aAdd(aRet,{MSB_Codigo1,;   // Codigo do cadastro da Multi-negociação

                   MSBcDescricao1,;  // Descrição da Multi-Negociação

                  AllTrim(TRANSFORM(:nMSB_Valor, "@E 999,999,999,999.99" )) ,; // Valor Total do Orçamento.

                  })