Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | MNTA400 |
País: | Brasil |
Descrição: | Ponto de entrada executado na rotina de Retorno (MNTA400) para realizar validação anteriormente a exclusão de um insumo |
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno |
Programa Fonte: | MNTA400.prx |
Função: | MNT40013() |
Retorno: |
#INCLUDE 'PROTHEUS.CH' 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. |