MNTA1701 - Cadastro de Bens Padrão

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

MNTA1701.PRW

MNTA1701 - Cadastro de Bens Padrão ( )

()

#INCLUDE "MNTA170.CH"#INCLUDE "FOLDER.CH"#INCLUDE "PROTHEUS.CH"/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡…o    ³  MNTA1701 ³Autor ³ Vitor Emanuel Batista ³ Data ³ 04/09/08 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³ Retorna aCols e aHeader quando se foca a GETDADOS          ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³ Uso      ³ MNTA170                                                    ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MNTA1701()Local nCONTROL  := 0Local nOK       := 0Local aPAGES    := {}Local aTITLES   := {}Local aVAR      := {}Local cPRIMEIRO := ""Local NI,oFONT,oGET,cGET,lGETD := .F.,mxLocal aNoFields := {}AADD(aTITLES,OEMTOANSI(STR0012)) AADD(aPAGES,"HEADER 1")nCONTROL++AADD(aTITLES,OEMTOANSI(STR0016)) AADD(aPAGES,"HEADER 2")nCONTROL++If nOPCAO # 2 .OR. nOPCAO # 5 // Visual   lGETD := .T.EndIf		DEFINE MSDIALOG oDLG TITLE cCADASTRO FROM 6.5,0 TO 26.5,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   	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³ Enchoice 01							                 ³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  	aTELA    := {}	aGETS    := {}	dbSelectArea("TP9")                 	RegToMemory("TP9",(nOPCAO == 3))	oENC01:= MsMGet():New("TP9",_nREG,nOPCAO,,,,,{0,0,125,315},,,,,,oFOLDER:aDIALOGS[1],,,.F.,"aSVATELA")	oENC01:oBOX:bGOTFOCUS := {||  NGENTRAENC("TP9")}	oFOLDER:bSETOPTION    := {|x| M170SAIFOLD("TP9",x)}	aSVATELA := aCLONE(aTELA)	aSVAGETS := aCLONE(aGETS)	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³ GetDados 01							                 ³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  		aAdd(aNoFields, 'TPB_CODFAM')	#IFDEF TOP 		cQuery := "SELECT * FROM "+RetSqlName("TPB")+" TPB WHERE TPB.TPB_FILIAL = '"+xFilial("TPB")+"' AND TPB.TPB_CODFAM = '"+TP9->TP9_CODFAM+"'"		cQuery += " AND TPB.D_E_L_E_T_ = ' '"		FillGetDados( _nOpcx, "TPB", 4, xFilial("TPB")+TP9->TP9_CODFAM, {|| "TPB->TPB_FILIAL + TPB->TPB_CODFAM"}, {|| .T.},aNoFields,,,cQuery)	#ELSE   		cKEYTPB  := "TP9->TP9_CODFAM"		cGETALTPB := "TPB"		cGETWHTPB := "TPB->TPB_FILIAL == xFILIAL('TPB') .AND. TPB->TPB_CODFAM == TP9->TP9_CODFAM"	    FillGetDados( _nOpcx, cGETALTPB, 4, cKEYTPB, {|| }, {|| .T.},aNoFields,,,,{|| NGMontaAcols(cGETALTPB,&cKEYTPB,cGETWHTPB)}) 	#ENDIF          DbSelectArea("TPB")    DbSetOrder(1)    Dbgobottom()    Dbskip()	 IF EMPTY(aCOLS) .OR. nOPCAO == 3       aCOLS := BLANKGETD(aHEADER)    ELSE          aTPBACOL := aCLONE(aCOLS)    ENDIF    aSVHEADER[1] := aCLONE(aHEADER)    aSVCOLS[1]	 := aCLONE(aCOLS)    n            := LEN(aCOLS)    oGET01 := MSGETDADOS():New(0,0,125,315,nOPCAO,"NG170LINOK()","AllWaysTrue()",,lGETD,,1,,500,,,,,oFOLDER:aDIALOGS[2])    oGET01:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT    oGET01:oBROWSE:bGOTFOCUS  :={|| ENTRAGET(1)} 		oGET01:oBROWSE:bLOSTFOCUS :={|| NGSAIGET(1)} 		    oGET01:oBROWSE:DEFAULT()		oGET01:oBROWSE:REFRESH()	    ACTIVATE DIALOG oDLG ON INIT (ENCHOICEBAR(oDLG,{|| lOK:=.T.,IF(oGET01:TUDOOK(),IF(MNT170CHK(),oDLG:END(),lOK := .F.),lOK := .F.)},{|| nOK:= 0,oDLG:END()}),,;								AlignObject(oDlg,{oFolder},1))	dbSelectArea("SX1")    dbSetOrder(1)    If dbSeek("MNT170    "+"01")		RecLock("SX1",.F.)		SX1->X1_PRESEL := 2		SX1->(MsUnlock())    EndIf                                If dbSeek("MNT170    "+"02")		RecLock("SX1",.F.)		SX1->X1_PRESEL := 2		SX1->X1_VALID  := "If(MV_PAR02 == 2,.T.,.F.) .And. naovazio()"		SX1->(MsUnlock())    EndIf	If lOK .AND. STR(nOPCAO,1) $ "345"       NG170GRAVA(nOPCAO)    EndIf    dbSelectArea("TP9")dbSetOrder(1)dbGoTo(RECNO()) Return .T./*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡…o    ³  ENTRAGET ³Autor ³ Vitor Emanuel Batista ³ Data ³ 04/09/08 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³ Retorna aCols e aHeader quando se foca a GETDADOS          ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³ Uso      ³ MNTA170                                                    ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/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       /*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡…o    ³M170SAIFOLD³Autor ³ Vitor Emanuel Batista ³ Data ³ 04/09/08 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Guarda aTela e aGets na saida do foco na enchoice para a    ³±±±±³          ³tabela ST9                                                  ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³ Uso      ³GENERICO                                                    ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/Static Function M170SAIFOLD(cALIAS,x)Local lRETURN := .T.If nOPCAO == 3 .OR. nOPCAO == 4   If !EXISTCPO('ST6',M->TP9_CODFAM)      Return .F.   EndIf	NGSAIENC("TP9",x)EndIfReturn lReturn