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.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas