Perguntas [RESOLVIDO] EnchoiceBar versão 10/11

	User Function LOJ25Inclui(cAlias, nRecNo, nOpc )
	Local nX
	Local nOpcA     := 0
	Local oMainWnd  := Nil
	Local aAlter    := Nil
	Local aAltera   := {}
	
	Private aTela   := {}
	Private aGets   := {}
	Private bCampo  := { |nField| Field(nField) }
	Private Inclui  := (nOpc == 3)
	Private Altera  := (nOpc == 4)
	Private cFilPC4 := (cAlias)->(XFILIAL(cAlias))
	Private aAcho   := { "PC4_GRUPO", "PC4_DESCRI", "PC4_VERBA", "NOUSER"}
	
	Private oDlg    := Nil
	Private oGet    := Nil
	Private aHeader := {}
	Private aCols   := {}
	Private nPD     := 1
	
	// Ajusta o tamanho dos campos
	For nX:=1 To Len(aAcho)
		aAcho[nX] := PADR(aAcho[nX],Len(SX3->X3_CAMPO))
	Next
	
	//+----------------
	//| Monta os aCols
	//+----------------
	MontaaCols(@aAltera,Inclui,nOpc)
	
	//+----------------------------------
	//| Inicia as variaveis para Enchoice
	//+----------------------------------
	dbSelectArea(cAlias1)
	dbSetOrder(1)
	dbGoTo(nRecNo)
	For nX:= 1 To FCount()
		M->&(Eval(bCampo,nX)) := If( Inclui , CriaVar(FieldName(nX),.T.), FieldGet(nX))
	Next nX
	
	DEFINE MSDIALOG oDlg TITLE cCadastro From 9,0 TO 40,95 OF oMainWnd
	
	EnChoice(cAlias, nRecNo, nOpc,,,,aAcho,aPos,, 3,,,,oDlg)
	
	oGet := MSGetDados():New(aPos[3]+3,aPos[2],aPos[3]+165,aPos[4],nOpc,"u_LOJ25LinOk()",,,.T.,aAlter,,,1000,,,,"u_LOJ25DelIt()",oDlg)
	
	ACTIVATE MSDIALOG oDlg CENTERED ON INIT EnchoiceBar(oDlg, {|| nOpcA := If( nOpc == 2 .Or. nOpc == 5 .Or. Obrigatorio(aGets,aTela).And.;
                                                              u_LOJ25TudOk(),1,0),;
                                                              If(nOpcA==1,oDlg:End(),) }, {||nOpcA:=0,oDlg:End()} )
 	
	If nOpc > 2
		If nOpcA == 1
			Begin Transaction
			LOJ25Grava(nOpc,nRecNo,aAltera)
			End Transaction
			
			If Inclui  // Se for Inclusão
				ConfirmSX8()
			Endif
		ElseIf Inclui  // Se for Inclusão
			RollBackSX8()
		Endif
	Endif
	
Return