Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (sueli.gomides), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: MNTA7001 - Validação do campo TQQ_CODMOT
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
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
    lRETVH(logico)
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