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 fornecedor que será realizado o processo.

Localização:

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

Eventos:

...
aSM0 := FWArrFilAtu(cEmpAnt,cFilAnt)
...
DBSelectArea("SA2")
DBSetOrder(3)
If DbSeek(xFilial("SA2")+aSM0[SM0_CGC])
oFornece := OFFornecedor():New()
If oFornece:Bloqueado( SA2->A2_COD , SA2->A2_LOJA , .T. ) // Fornecedor Bloqueado ?
lRet := .f.
Else
::aFor_VEIA := {SA2->A2_COD, SA2->A2_LOJA, SA2->A2_NOME, SA2->A2_TIPO}
EndIf
Else
Help("",1,"VLDACTIVATE",,STR0074,1,0) // Não existe fornecedor relacionado a filial logada.
lRet := .f.
EndIf
If ExistBlock("VA300SA2")
// Parametros: { { SA2->A2_COD, SA2->A2_LOJA, SA2->A2_NOME, SA2->A2_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 }
::aFor_VEIA := ExecBlock("VA300SA2", .f., .f., { ::aFor_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 fornecedor a ser utilizado. { SA2->A2_COD, SA2->A2_LOJA, SA2->A2_NOME, SA2->A2_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
aFor_VEIA	Array	Vetor contendo os dados do fornecedor ser utilizado.

Dados da variável

Nome	Tipo	Descrição
aFor_VEIA[1]	Caracter	Código do Fornecedor. Exemplo: SA2->A2_COD
aFor_VEIA[2]	Caracter	Loja do Fornecedor. Exemplo: SA2->A2_LOJA
aFor_VEIA[3]	Caracter	Nome do Fornecedor. Exemplo: SA2->A2_NOME
aFor_VEIA[4]	Caracter	Tipo do Fornecedor. Exemplo: SA2->A2_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 fornecedor que será realizado o processo. //
///////////////////////////////////////////////////////////////////////////////////
User Function VA300SA2()
Local aRSA2 := ParamIXB[1] // Vetor contendo os dados do fornecedor a ser utilizado. { SA2->A2_COD, SA2->A2_LOJA, SA2->A2_NOME, SA2->A2_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 VA300SA2 executado com sucesso!","Atenção")
//
// Caso necessário, manipular os dados do vetor aRSA2 e todas as validações referente ao fornecedor devem ser realizadas neste ponto de entrada
//
Return aClone(aRSA2)

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave

Ponto de Entrada