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. | ||||||||||||
Programa Fonte: | LOJA764.PRW | ||||||||||||
Parâmetro : |
| ||||||||||||
| Retorno: |
|
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.
})
| View file | ||||
|---|---|---|---|---|
|
