Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNTA6001 - Movimentação de Estoque
Descrição: Na Análise Técnica, habilitará a tela para informação do novo código do estoque para os motivos não informados no parâmetro MV_NG1ANAT. Eventos Programa Fonte MNTA600.PRX Sintaxe MNTA6001 - Movimentação de Estoque ( [ ] ) --> cTipDes Parâmetros:
Retorno
Observações Exemplos #include "Protheus.ch"User Function MNTA6001()Local oFontB, oFontN, oDlgPLocal nOpca := 0Local lFim := PARAMIXB[1]If lFim MsgStop("Será necessário informar o novo código do produto para o 'Destino' selecionado!","ATENÇÃO")EndifdbSelectArea("ST9")dbSetOrder(01)If dbSeek(xFilial("ST9")+M->TR4_CODBEM) If !Empty(ST9->T9_CODESTO) .AND. cUsaIntEs == 'S' Define Font oFontB Name "Arial" Size 07,17 Bold Define Font oFontN Name "Arial" Size 07,17 Define msDialog oDlgP Title "Informe o novo código de produto" From 000,000 To 150,650 Pixel oPnlPai := TPanel():New(00,00,,oDlgP,,,,,,465,195,.F.,.F.) oPnlPai:Align := CONTROL_ALIGN_ALLCLIENT @ 7,008 Say OemToAnsi("Informe o novo código de produto para o pneu ") Font oFontN Size 400,10 Of oPnlPai Pixel @ 7,141 Say OemToAnsi(AllTrim(M->TR4_CODBEM)+", ") Font oFontB Size 400,10 Of oPnlPai Pixel @ 7,141+(4.5*(Len(AllTrim(M->TR4_CODBEM)))) Say OemToAnsi("cujo status foi alterado para ") Font oFontN Size 400,10 Of oPnlPai Pixel @ 18,008 Say OemToAnsi(NGRETSX3BOX("TR4_DESTIN",M->TR4_DESTIN)+".") Font oFontB Size 400,10 Of oPnlPai Pixel @ 35,008 Say OemToAnsi("Produto") Size 47,07 Of oPnlPai Pixel @ 33,045 MsGet cCodProd OF oPnlPai Pixel Picture "@!" F3 "SB1" Valid MNT600PROD(cCodProd) HASBUTTON @ 33,140 MsGet cNomCodP OF oPnlPai Pixel Picture '@!' When .f. @ 50,008 Say OemToAnsi("Almoxarifado") Size 47,07 Of oPnlPai Pixel @ 48,045 MsGet cCodAlmo OF oPnlPai Pixel Picture "@!" Valid NaoVazio() Activate MsDialog oDlgP On Init EnchoiceBar(oDlgP,{|| (nOpca:=1,oDlgP:End())},{||oDlgP:End()}) Center If nOpca == 1 cCodST9Est := cCodProd cCodST9Alm := cCodAlmo Else cCodST9Est := ' ' cCodST9Alm := ' ' EndIf EndIfEndIfReturn .T. Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas