Histórico da Página

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado em algumas rotinas de Movimentações de Veículos e permite criar validações dos veículos selecionados.

Localização:

Atualizações \ Mov Entrada \ Entr. Devol. Venda (VEIXA002)

Atualizações \ Mov Entrada \ Entrada Por Transf (VEIXA004)

Atualizações \ Mov Entrada \ Entr. Por Remessa (VEIXA006)

Atualizações \ Mov Entrada \ Entr. Ret. Consig. (VEIXA007)

Atualizações \ Mov Saida \ Saída Devol Compra (VEIXA012)

Atualizações \ Mov Saida \ Saída Ret. Remessa (VEIXA016)

Atualizações \ Mov Saida \ Saída Ret. Consig. (VEIXA017)

Eventos:

// Verificar campos obrigatorios

For nCntFor := 1 to Len(aObrig)

If Empty(&(aObrig[nCntFor]))

lRet := .f.

MsgStop(STR0091,STR0014) // Campos obrigatorios nao estao Preenchidos! / Atencao

Exit

EndIf

// verificar veiculos selecionados

For nCntFor := 1 to Len(aIteVei)

If aIteVei[nCntFor,1]

lSelec := .t.

If _lFuncVld

// Chassi Bloqueado

If oVeiculos:Bloqueado(aIteVei[nCntFor,7], aIteVei[nCntFor,4])

lRet := .f. // A mensagem já é exibida dentro da função Bloqueado()

EndIf

If lRet

If ExistBlock("PESELVEI") // Ponto de Entrada no TUDOOK da tela de Selecao de Veiculos

lRet := ExecBlock("PESELVEI",.f.,.f.,{ aClone(aIteVei) }) // Ponto de Entrada no TUDOOK da tela de Selecao de Veiculos

EndIf

Else

MsgStop(STR0092,STR0014) // Nenhum veiculo selecionado! / Atencao

lRet := .f.

EndIf

Programa Fonte:

VEIXFUNA.PRW

Função:

FS_SELVEI()

Parâmetros:

Nome	Tipo	Descrição
aIteVei	Vetor	Vetor com os Veículos da Tela

aIteVei[n,1]	Vetor	Veículo selecionado? (.t . ou .f.)
aIteVei[n,2]	Vetor	RecNo VVA (Se movimentação anterior é uma Saída) ou VVG (Se movimentação anterior é uma Entrada)
aIteVei[n,3]	Vetor	TES da Movimentação atual
aIteVei[n,4]	Vetor	Chassi
aIteVei[n,5]	Vetor	Cod.Marca
aIteVei[n,6]	Vetor	Desc.Modelo
aIteVei[n,7]	Vetor	VV1_CHAINT
aIteVei[n,8]	Vetor	Centro de Custo Movimentação atual
aIteVei[n,9]	Vetor	Conta Contábil Movimentação atual
aIteVei[n,10]	Vetor	Item Conta Movimentação atual
aIteVei[n,11]	Vetor	Classe Valor Movimentação atual

Retorno:

Nome	Tipo	Descrição
lRet	Vetor	Vetor que retorna se é possível continuar com a Movimentação.

Exemplo:

Include totvs.ch

/*

Ponto de Entrada no TudoOk da tela de Seleção dos Veiculos das Rotinas de Movimentações de Veiculos

Entrada por Devolução de Venda (VEIXA002)

Entrada por Transferencia (VEIXA004)

Entrada por Retorno de Remessa (VEIXA006)

Entrada por Retorno de Consignação (VEIXA007)

Saida por Devolução de Compra (VEIXA012)

Saida por Retorno de Remessa (VEIXA016)

Saida por Retorno de Consignação (VEIXA017)

*/

User Function PESELVEI()

Local lRet := .t.

Local nCntFor := 0

Local cE_PODER3 := ""

Local cS_PODER3 := ""

Local aVetVeics := ParamIXB[1] // Vetor dos Veiculos - selecao

MsgAlert("PESELVEI executado com sucesso!","Ponto de Entrada")

/*

If FM_PILHA("VEIXA004") // Entrada por Transferencia

For nCntFor := 1 to len(aVetVeics)

If aVetVeics[nCntFor,1] // Veiculo selecionado

//

SF4->(MsSeek(xFilial("SF4")+aVetVeics[nCntFor,3])) // TES da ENTRADA

cE_PODER3 := SF4->F4_PODER3

//

VVA->(DbGoTo(aVetVeics[nCntFor,2]))

SF4->(MsSeek(xFilial("SF4")+VVA->VVA_CODTES)) // TES da SAIDA

cS_PODER3 := SF4->F4_PODER3

//

If cE_PODER3 == "N" .and. cS_PODER3 == "R"

MsgStop("PODER DE TERCEIROS - TES utilizado na Entrada não corresponde ao TES utilizado na Saida.","PODER DE TERCEIROS")

lRet := .f.

Exit

EndIf

//

EndIf

*/

Return lRet

Árvore de páginas

Versões comparadas

Versão antiga 55

Nova versão Atual

Chave

Ponto de Entrada