Histórico da Página
Ponto de entrada que realiza validação do campo TQQ_CODMOT na rotina de Análise Consistência (MNTA700)
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada executado na rotina de Análise Consistência (MNTA700) chamado na validação do campo TQQ_CODMOT. Criado pois cliente não utilizava o CPF do condutor como condicional para abastecimento. | |||||||
Programa Fonte: | MNTA700.prx | |||||||
Localização: | SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Análise Consistência | |||||||
Função: | MNTA7001() | |||||||
Retorno: |
|
|
Bloco de código | ||
---|---|---|
| ||
#Include 'Protheus.ch' #Include 'MNTA700.ch' //Programa que utilizará o codigo do motorista ao invés do CPF User 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. EndIf RestArea(aAreaM) Return lRetVh |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas