Histórico da Página
Ponto de entrada que realiza a validação de campos não vazios da tabela TQB no Fechamento da Solicitação de Serviço (MNTA290)
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 Fechamento de Solicitação de Serviço (MNTA290) utiliza dados da SS para gravação em outras tabelas |
Programa Fonte: | MNTA290.prx |
| Localização: | SIGAMNT: Atualizações/Controle de Oficina/Solicitação de Serviço/Fechamento |
Função: | MNTA2909() |
Retorno: | .T. |
| Bloco de código | ||
|---|---|---|
| ||
#Include 'Protheus.ch'
User Function MNTA2909()
Local aArea := GetArea()
Local lTemPai := .F.
If TQB->TQB_INDISP == '1'
cSolici := TQB->TQB_SOLICI
cCodBem := TQB->TQB_CODBEM
dbSelectArea("STC")
dbSetOrder(3)
If dbSeek(xFilial("STC")+cCodBem)
lTemPai := .T.
cCdBemPai := STC->TC_CODBEM
EndIf
DbselectArea("ZA0")
DbsetOrder(01)
If Dbseek(xFilial("ZA0")+cSolici+cCodBem)
If IsInCallStack("MNTA290") .Or. IsInCallStack("MNTA400")
dDtFim := TQB->TQB_DTFECH
cHrFim := TQB->TQB_HOFECH
RecLock("ZA0",.F.)
ZA0->ZA0_DTFIM := dDtFim
ZA0->ZA0_HRFIM := cHrFim
MsUnlock("ZA0")
If lTemPai
DbselectArea("ZA0")
DbsetOrder(01)
If Dbseek(xFilial("ZA0")+cSolici+cCdBemPai)
RecLock("ZA0",.F.)
ZA0->ZA0_DTFIM := dDtFim
ZA0->ZA0_HRFIM := cHrFim
MsUnlock("ZA0")
EndIf
EndIf
EndIf
EndIf
EndIf
RestArea(aArea)
Return .T.
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas