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: 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