Histórico da Página

Descrição

MNTA340F

Observações

Relatório de problemas do plano de manutenção com filtro

Exemplos

#include "protheus.ch"

User Function MNTA340F()If

                 If !MsgYesNo("Deseja imprimir os problemas encontrados no Planejamento?")

                               Return .F.

                EndIf               

   Alert(“Executado Ponto de entrada MNTA340F!”)

DbSelectArea("STA")
DbSetOrder(1)

While STA->TA_FILIAL == xFilial("STA") .And. STA->TA_PLANO == M->TI_PLANO
Alert("Ordem de Serviço: " + STA->TA_ORDEM + " Problema relacionado: " + STA->TA_DESCRIC)
DbSkip()
DbSelectArea("STA")
If !MsgYesNo("Deseja Continuar?")
Exit
EndIf
EndDo

Return