Histórico da Página
Ponto de Entrada
Descrição: | Este Ponto de Entrada será executado na rotina nas rotinas de Movimentações de Veículos e permite criar validações dos veículos selecionados. | ||||||||||||||||||||||||||||||||||||||||||
Localização: | Atualizações \ MovAtendimento \ Faturamento Direto (VEIXA030) | e permite a inclusão de opções no Outras Ações do Browse.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 | )Localização: | Atualizações \ MovAtendimento \ Faturamento Direto (VEIXA030) | |||||||||||||||||||||||||||||||||||||||
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 Next If lRet // 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 EndIf EndIf Next If lSelec 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 EndIf Else MsgStop(STR0092,STR0014) // Nenhum veiculo selecionado! / Atencao lRet := .f. EndIf EndIf | ||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | VEIXFUNA.PRW | ||||||||||||||||||||||||||||||||||||||||||
Função: | FS_SELVEI() | ||||||||||||||||||||||||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||||||||||||||||||||||||
Retorno: |
|
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
Next
EndIf
*/
Return lRet