MNTA0809 - Cadastro de Bens

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

MNTA0809.PRW

MNTA0809 - Cadastro de Bens ( )

()

#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