MNTA0809 - Cadastro de Bens -- 18149

Ponto de Entrada chamado ao clicar no botão Incluir, Alterar ou Excluir no cadastro de Bens.Ao invés de chamar o cadastro padrão, ele irá chamar a tela de cadastro personalizado do cliente.

MNTA0809.PRW

MNTA0809 - Cadastro de Bens ( ) --> Nil

Nil(nulo)
• Retorna Nulo

#INCLUDE "MNTA080.CH"#INCLUDE "FOLDER.CH"#INCLUDE "FONT.CH"#INCLUDE "COLORS.CH"#INCLUDE "PROTHEUS.CH"/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡…o    ³MNTA0809  ³ Autor ³ Vitor Emanuel Batista ³ Data ³04/09/2008³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³ Funcao para montatgem de folder                            ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³ Uso      ³ MNTA080                                                    ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MNTA0809Local nCONTROL  := 0 Local nOK       := 0Local aPAGES    := {}Local aTITLES   := {}Local aVAR      := {}Local bCAMPO    := {|nCPO| Field(nCPO)}Local iy,xz,yyLocal aNoFields := {} Local aALTSTBPrivate NI,cGET,lGETD := .F.            dbSelectArea("ST9")AADD(aTITLES,Oemtoansi(STR0030)) AADD(aPAGES,"HEADER 1")nCONTROL++AADD(aTITLES,Oemtoansi(STR0031)) AADD(aPAGES,"HEADER 2")nCONTROL++   cDvBem  := ST9->T9_CODBEMcTudoOk := "NG_080TUDOK()"        //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿    //³Cria Arquivo de Trabalho                                           ³    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   DbSelectArea("TPE")   aDBF := DbStruct()   cArq := CriaTrab(aDBF)   cTRB1080 := GetNextAlias()      Use (cArq) NEW Exclusive Alias &(cTRB1080)    	If nOPCAO = 4		cTIPOCON := st9->t9_temcont		nVALCONT := st9->t9_poscont		DbSelectArea("TPE")		DbSetOrder(1)		If DbSeek(xFilial("TPE")+ST9->T9_CODBEM)      				DbSelectArea(cTRB1080)			DbAppend()			For iy := 1 To TPE->(FCount())				x1 := "TPE->"+FieldName(iy)				y  := "(cTRB1080)->"+FieldName(iy)				Replace &y. with &x1.			Next iy		EndIf   	EndIf	cTipMPad := Space(10)	cCodfami := Space(Len(st9->t9_codfami))	lAltMPad := .f.	Define MsDialog oDLG Title cCADASTRO From 8,0 To 29,80 Of oMAINWND		oFOLDER := TFOLDER():New(1,0,aTITLES,aPAGES,oDLG,,,,.F.,.F.,320,200,)	oFOLDER:aDIALOGS[1]:oFONT := oDLG:oFONT	oFOLDER:aDIALOGS[2]:oFONT := oDLG:oFONT   	//oFOLDER:aDIALOGS[3]:oFONT := oDLG:oFONT       	NGPOPUP(aSMenu,@oMenu)	oDlg:bRClicked:= { |o,x,y| oMenu:Activate(x,y,oDlg)}		//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿        //³ Enchoice 01                                          ³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  	aTELA := {}	aGETS := {}              	//Aadd(aNAOST9,"T9_CODBEM")				Aadd(aNAOST9,"T9_CODTMS")	Aadd(aNAOST9,"T9_PLACA")	Aadd(aNAOST9,"T9_CAPMAX")	Aadd(aNAOST9,"T9_MEDIA")	Aadd(aNAOST9,"T9_TIPVEI")                         	Aadd(aNAOST9,"T9_CHASSI")	Aadd(aNAOST9,"T9_VALANO")	Aadd(aNAOST9,"T9_CORVEI")	Aadd(aNAOST9,"T9_DESCOR")	Aadd(aNAOST9,"T9_CIDEMPL")	Aadd(aNAOST9,"T9_UFEMPLA")	Aadd(aNAOST9,"T9_RENAVAM")	Aadd(aNAOST9,"T9_NRMOTOR")			Aadd(aNAOST9,"T9_CEREVEI") 		aCHOICE  := NGCAMPNSX3("ST9",aNAOST9)	dbSelectArea("ST9")                 	RegtoMemory("ST9",(nOPCAO == 3))	oENC01:= MsMGet():New("ST9",_nreg,nOPCAO,,,,aChoice,{0,0,135,315},,,,,,oFOLDER:aDIALOGS[1],,,.F.,"aSVATELA1")	oENC01:oBOX:bGOTFOCUS := {|| NGENTRA80("ST9")}	oFOLDER:bSETOPTION    := {|x| M80SAIFOLD("ST9",x)}	oEnc01:oBox:bRClicked:= { |o,x,y| oMenu:Activate(x,y,	oEnc01)}	aSVATELA1 := aCLONE(aTELA)	aSVAGETS1 := aCLONE(aGETS)    	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³ GetDados 01							                 ³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  	aAdd(aNoFields, 'TB_CODBEM')	#IFDEF TOP		cQuery := "SELECT * FROM "+RetSqlName("STB")+" STB WHERE STB.TB_FILIAL = '"+xFilial("STB")+"' AND STB.TB_CODBEM = '"+ST9->T9_CODBEM+"' AND STB.D_E_L_E_T_ = ' '"		FillGetDados( _nOpcx, "STB", 1, xFilial("STB")+ST9->T9_CODBEM, {|| "STB->TB_FILIAL + STB->TB_CODBEM"}, {|| .T.},aNoFields,,,cQuery)	#ELSE		cKeySTB  := "ST9->T9_CODBEM" 		cGETALIASSTB := "STB"		cGETWHILESTB := "STB->TB_FILIAL == xFILIAL('STB') .And. STB->TB_CODBEM == ST9->T9_CODBEM"		FillGetDados( _nOpcx, cGETALIASSTB, 1, &cKEYSTB, {|| }, {|| .T.},aNoFields,,,,{|| NGMontaAcols(cGETALIASSTB,&cKeySTB,cGETWHILESTB)}) 	#ENDIF 	      	If nOPCAO <> 2 .And. nOPCAO <> 5 // Visual		//Verificar se pode excluir as caracteristicas do bem 		If M->T9_PADRAO == 'S'			lGETD := .F.		Else			lGETD := .T.		EndIf	EndIf         	dbSelectArea("STB")	dbGobottom()	dbSkip()	If Empty(aCOLS) .OR. nOPCAO == 3		aCOLS := BLANKGETD(aHEADER)	EndIf                     	//Campos que podem ser alterados  	aALTSTB		 := {"TB_DETALHE"}		nCARACT      := aSCAN(aHEADER,{|x| Trim(Upper(x[2])) == "TB_CARACTE"})	nDETALH      := aSCAN(aHEADER,{|x| Trim(Upper(x[2])) == "TB_DETALHE"})	aSVHEADER[1] := aCLONE(aHEADER)	//aSVHEADER[2] := aCLONE(aHEADER)	aSVCOLS[1]	 := aCLONE(aCOLS)	n            := Len(aCOLS)	lLinOk		 := "NG080LINOK(1)"		oGET01 := MSGETDADOS():New(0,0,135,315,nOPCAO,lLinOk,cTudoOk,"",lGETD,aALTSTB,,.T.,n,,,,,oFOLDER:aDIALOGS[2])			oGET01:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT	oGET01:oBROWSE:bGOTFOCUS	:=	{|| ENTRAGET(1)}	oGet01:oBrowse:bLostFocus	:=	{|| NG080LINOK()}	oGET01:oBROWSE:Default()	oGET01:oBROWSE:REFRESH()          	Activate Dialog oDLG On Init (ENCHOICEBAR(oDLG,{|| lOK:=.T.,If(MNTCHK080(),oDLG:End(),lOK := .F.)},{|| nOK:= 0,NG080CANC(nOPCAO)}),,;									AlignObject(oDlg,{oFolder},1))	If lOK .And. STR(nOPCAO ,1) $ "345"		NG080GRAVA(nOPCAO)		If ALTERA .And. lTEMEST .And. st9->t9_temcont <> cTPCONT			MNTA080CON(st9->t9_codbem,st9->t9_temcont)		Endif		If ALTERA			If st9->t9_sitbem = "I"				MNTA080IMAN(st9->t9_codbem)			Endif		Endif      	Else		dbSelectArea(cTRB1080)		dbGotop()		If Reccount() > 0			dbSelectArea("TPE")			dbSetOrder(1)			If dbSeek(xFilial("TPE")+M->T9_CODBEM)				dbSelectArea(cTRB1080)				RecLock("TPE",.F.)				For yy := 1 To FCount()					x1 := "(cTRB1080)->"+FieldName(yy)					y := "TPE->"+FieldName(yy)					Replace &y. with &x1.				Next yy				MsUnlock("TPE")			EndIf		Else			If nOPCAO = 4 .OR. nOPCAO = 3				If lSEGUNDO					dbSelectArea("TPE")					RecLock("TPE",.F.)					dbDelete()					MsUnlock("TPE")				EndIf			EndIf		EndIf	EndIf	dbSelectArea(cTRB1080)	Use	FErase(cArq + GetDbExtension())    dbSelectArea("ST9")	dbSetOrder(1)	dbGoto(Recno()) Return/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡…o    ³  ENTRAGET ³Autor ³ Vitor Emanuel Batista ³ Data ³ 04/09/08 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³ Retorna aCols e aHeader quando se foca a GETDADOS          ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³ Uso      ³ MNTA0809                                                   ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/Static Function ENTRAGET(nG)Local cVAR := "oGET"+Strzero(nG,2)aHEADER    := aCLONE(aSVHEADER[nG])aCOLS	   := aCLONE(aSVCOLS[nG])n          := Len(aCOLS)oFOLDER:REFRESH()lRefresh := .t.If Type(cVAR) == "O"	&cVAR:oBROWSE:REFRESH()	If cVar = "oGET01"		oGet01:oBrowse:Refresh()	ElseIf Type(cVAR) == "O"		oGet02:oBrowse:Refresh()	EndIfEndIfnCONTROGD := nG              Return