Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNT40013 - Exclusão de Insumo
Descrição: Faz checagem antes da exclusão de um insumo, validando, por exemplo, conforme alguma regra se o item pode ou não ser efetivamente excluído. Programa Fonte MNTA400.PRW Sintaxe MNT40013 - Exclusão de Insumo ( ) --> .T. Retorno
Exemplos User Function MNT40013()DbSelectArea("SZA")DbSetOrder(4)If DbSeek(xFilial("SZA")+STJ->TJ_ORDEM+STJ->TJ_PLANO) While !Eof() .And. SZA->ZA_FILIAL == xFilial("SZA") .And. SZA->ZA_OS == STJ->TJ_ORDEM .And. SZA- >ZA_PLANO == STJ->TJ_PLANO If SZA->ZA_STATUS == "L" .And. SZA->ZA_LIBOK == "L" .And. STL->TL_CODIGO == SZA->ZA_PROD MsgStop("Insumo não poderá ser alterado/excluido pois existe RMS liberada.","ATENÇÃO") Return .f. EndIf DbSelectArea("SZA") DbSkip() End EndIf Return .t. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas