Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNTA5101 - Fechamento de Ordens de Serviço em Lote
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas