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
MNT40014 - Exclusão de Insumo
MNT40014 - Exclusão de Insumo

Ponto-de-Entrada: MNT40014 - 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: 
É chamado na exclusão de um insumo para fazer, por exemplo, a exclusão de um registro de alguma tabela específica.
Programa Fonte 
MNTA400.PRX
Sintaxe

MNT40014 - Exclusão de Insumo ( ) --> .T.

Retorno
    .T.(logico)
  • Verdadeiro
Exemplos 
User Function MNT40014()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_PROD == STL->TL_CODIGO	 RecLock("SZA", .F.)	 DbDelete()	 MsUnlock("SZA")       EndIf	       DbSelectArea("SZA")       DbSkip()    EndEndIf   Return .t.