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 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
MNTA5101 - Fechamento de Ordens de Serviço em Lote
MNTA5101 - Fechamento de Ordens de Serviço em Lote

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
NomeTipoEscopoPode Alterardescrição
TRBLRecordGlobalNão