Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (sueli.gomides)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
MNT40013 - Exclusão de Insumo
MNT40013 - Exclusão de Insumo

Ponto-de-Entrada: MNT40013 - Exclusão de Insumo
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
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
    .T.()
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.