Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (sueli.gomides), última alteração por admin em 24 jun, 2012

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.