Histórico da Página

Descrição

MNTA340F

Observações

Relatório Disponibilizada chamada do ponto de entrada MNTA340F na rotina de Plano (MNTA330) na impressão do relatório de problemas da geração do plano de manutenção com filtro, e no menu da rotina de Confirmação (MNTA340) por meio da opção Imp. Problema.

Exemplos

#include "protheus.ch"

User Function MNTA340F()If

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

                               Return .F.

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

                EndIf               

   Alert(“Executado Ponto de entrada MNTA340F!”)

Return