Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNTA7001 - Validação do campo TQQ_CODMOT
Descrição: Ponto de Entrada chamada na validação do campo TQQ_CODMOT. Criado, pois cliente não utilizava o CPF do condutor como condicional para abastecimento. Eventos
Programa Fonte MNTA7001.PRX Sintaxe MNTA7001 - Validação do campo TQQ_CODMOT ( ) --> lRETVH Retorno
Observações
Exemplos #INCLUDE "MNTA700.CH"//Programa que utilizará o codigo do motorista ao invés do CPFUser Function MNTA7001()Local lRETVH := .T.Local aAreaM := GetArea()Local dDEMISSAO := Ctod(" / / " )DbSelectArea("DA4")DbSetOrder(1)If DbSeek(xFilial("DA4")+M->TQQ_CODMOT) If DA4->DA4_TIPMOT == "1" DbSelectArea("SRA") DbSetOrder(13) DbSeek(DA4->DA4_COD) While !Eof() .and. SRA->RA_MAT == DA4->DA4_COD If Empty(SRA->RA_DEMISSA) dDEMISSAO := Ctod(" / / ") Exit EndIf If SRA->RA_DEMISSA > dDemissao dDEMISSAO := SRA->RA_DEMISSA EndIf DbSelectArea("SRA") DbSkip() End IF !Empty(dDEMISSAO) .And. dDEMISSAO < M->TQQ_DTABAS HELP(" ",1,STR0042,,STR0045+Chr(13)+STR0044,3,1) lRETVH := .F. EndIf If DA4->DA4_TIPMOT == "2" HELP(" ",1,STR0042,,STR0046,3,1) lRETVH := .F. EndIf If DA4->DA4_TIPMOT == "3" HELP(" ",1,STR0042,,STR0046,3,1) lRETVH := .F. EndIf DbSelectArea("SR8") DbSetOrder(1) DbSeek(xFilial("SR8")+DA4->DA4_COD) If SR8->R8_TIPO = 'F' If M->TQQ_DTABAS > SR8->R8_DATAINI .And. M->TQQ_DTABAS < SR8->R8_DATAFIM HELP(" ",1,STR0042,,STR0047,3,1) lRETVH := .F. EndIf EndIf EndIf Else MsgInfo(STR0048,STR0036) lRETVH := .F.EndifRestArea(aAreaM) Return lRETVH |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas