Histórico da Página

Ponto de Entrada

Descrição:

Ponto de Entrada localizado na rotina de Agrega/Desagrega Multieventos, executado no momento da abertura da tela de Inclusão/Alteração. Pode ser utilizado para manipular o cliente que será realizado o processo.

Localização:

Atualizações \ Mov Atendimento \ Agrega e Desagrega (VEIXA040)

Eventos:

...
aSM0 := FWArrFilAtu(cEmpAnt,cFilAnt)
//
DBSelectArea("SA1")
DBSetOrder(3)
If DbSeek(xFilial("SA1")+aSM0[SM0_CGC])
oCliente := DMS_Cliente():New()
If oCliente:Bloqueado( SA1->A1_COD , SA1->A1_LOJA , .T. ) // Cliente Bloqueado ?
lRet := .f.
Else
::aCli_VEIA := {SA1->A1_COD, SA1->A1_LOJA, SA1->A1_NOME, SA1->A1_TIPO} // Cliente
EndIf
Else
Help("",1,"VLDACTIVATE",,STR0073,1,0) // Não existe cliente relacionado a filial logada.
lRet := .f.
EndIf
If ExistBlock("VA300SA1")
// Parametros: { { SA1->A1_COD, SA1->A1_LOJA, SA1->A1_NOME, SA1->A1_TIPO } , Processo: 1=Agrega (Individual) / 2=Desagrega (Individual) / 3=Transferência / 4=Troca , Tipo: 1=Notas Fiscais / 2=Movimentações Internas , Item: 1=AMS / 2=Peças }
::aCli_VEIA := ExecBlock("VA300SA1", .f., .f., { ::aCli_VEIA , ::cPro_VEIA , ::cTip_VEIA , ::cIte_VEIA })
EndIf
...

Programa Fonte:

VEIA300EVDEF.PRW

Função:

VLDACTIVATE()

Parâmetros:

Nome	Tipo	Descrição
ParamIXB	Array	Array com as informações da chamada do Ponto de Entrada.

Dados da variável aArray

Nome	Tipo	Descrição
ParamIXB[1]	Array	Vetor contendo os dados do cliente a ser utilizado. { SA1->A1_COD, SA1->A1_LOJA, SA1->A1_NOME, SA1->A1_TIPO }
ParamIXB[2]	Caractere	Processo: 1=Agrega (Individual) / 2=Desagrega (Individual) / 3=Transferência / 4=Troca
ParamIXB[3]	Caractere	Tipo: 1=Notas Fiscais / 2=Movimentações Internas
ParamIXB[4]	Caractere	Item: 1=AMS / 2=Peças

Retorno:

Nome	Tipo	Descrição
aCli_VEIA	Array	Vetor contendo os dados do cliente a ser utilizado.

Dados da variável

Nome	Tipo	Descrição
aCli_VEIA[1]	Caracter	Código do Cliente. Exemplo: SA1->A1_COD
aCli_VEIA[2]	Caracter	Loja do Cliente. Exemplo: SA1->A1_LOJA
aCli_VEIA[3]	Caracter	Nome do Cliente. Exemplo: SA1->A1_NOME
aCli_VEIA[4]	Caracter	Tipo do Cliente. Exemplo: SA1->A1_TIPO

Exemplo:

///////////////////////////////////////////////////////////////////////////////////
// Ponto de Entrada localizado na rotina de Agrega/Desagrega Multieventos, //
// executado no momento da abertura da tela de Inclusão/Alteração. //
// Pode ser utilizado para manipular o cliente que será realizado o processo. //
///////////////////////////////////////////////////////////////////////////////////
User Function VA300SA1()
Local aRSA1 := ParamIXB[1] // Vetor contendo os dados do cliente a ser utilizado. { SA1->A1_COD, SA1->A1_LOJA, SA1->A1_NOME, SA1->A1_TIPO }
Local cProc := ParamIXB[2] // Processo: 1=Agrega (Individual) / 2=Desagrega (Individual) / 3=Transferência / 4=Troca
Local cTipo := ParamIXB[3] // Tipo: 1=Notas Fiscais / 2=Movimentações Internas
Local cItem := ParamIXB[4] // Item: 1=AMS / 2=Peças
//
MsgAlert("Ponto de Entrada VA300SA1 executado com sucesso!","Atencao")
//
// Caso necessário, manipular os dados do vetor aRSA1 e todas as validações referente ao cliente devem ser realizadas neste ponto de entrada
//
Return aClone(aRSA1)

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão Atual

Chave

Ponto de Entrada