Ponto-de-Entrada: MNTA5101 - Fechamento de Ordens de Serviço em Lote
Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Descrição:
Ponto de Entrada na rotina de Fechamento de Ordens de Serviço em Lote, permitindo manipular produtos empenhados antes da baixa no estoque.
Eventos
Programa Fonte
MNTA510.PRX
Sintaxe
MNTA5101 - Fechamento de Ordens de Serviço em Lote ( )
Retorno
-
()
Observações
Exemplos
#include "rwmake.ch" User Function MNTA5101()cProduto := TRBL->TL_CODIGOcLocal := TRBL->TL_LOCALcMsg := "Produto: "+AllTrim(cProduto)dbSelectArea("SB1")dbSetOrder(01)If dbSeek(xFilial("SB1")+cProduto) cDescP := Capital(SB1->B1_DESC) cMsg += CHR(13)+"("+AllTrim(cDescP)+")"EndIfcMsg += CHR(13)+"Local: "+cLocaldbSelectArea("SB2")dbSetOrder(01)If dbSeek(xFilial("SB2")+cProduto+cLocal) nQAtu := SB2->B2_QATU nVAtu := SB2->B2_VATU1 cMsg += CHR(13)+"Qtd. Atual: "+AllTrim(STR(nQAtu)) cMsg += CHR(13)+"Valor Atual: "+AllTrim(STR(nVAtu))EndIfAPMSGINFO(cMsg)Return
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
TRBL | Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas