Descrição | MNTA340F |
|---|---|
Observações | relatório de problemas do plano de manutenção com filtro |
Exemplos | #include "protheus.ch" |
User Function MNTA340F()
If !MsgYesNo("Deseja imprimir os problemas encontrados no Planejamento?")
Return .F.
EndIf
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
Preview | |
|---|---|
Veja também | |
Idioma | Português(Brasil) |
Versões | Microsiga_Protheus11 |
Sistemas Operacionais Suportados | Todos |
Compatível com as Bases de Dados | Todas |
Updates | MNTA340F |
Parâmetros | |
Retorno | |
Eventos de chamada do Ponto de Entrada | |
Variáveis | |
Programa Fonte |