MNTA6001 - Movimentação de Estoque

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.

MNTA600.PRX

MNTA6001 - Movimentação de Estoque ( [ ] ) --> cTipDes

cTipDes(caracter)

#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.