//-------------------------------------------------------------------
/*/{Protheus.doc} ModelDef
Definição do modelo de Dados
Data Model definition
@author alvaro.camillo
@since 05/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Static Function ModelDef()
Local oModel
Local oStr1		:= FWFormStruct(1,'ZC3')
Local oStr2		:= FWFormStruct(1,'ZC4')
//Bloco a ser executado no Commit
Local bCommit	:= {|oModel| MLOC003Com(oModel) }
oModel := MPFormModel():New('MLOC003Old', /*bPre*/, /*bPost*/, bCommit, /*bCancel*/)
oModel:SetDescription('Pedidos')
oModel:addFields('ZC3MASTER',,oStr1)
oModel:addGrid('ZC4DETAIL','ZC3MASTER',oStr2)
oModel:SetRelation('ZC4DETAIL', { { 'ZC4_FILIAL', 'xFilial("ZC4")' }, { 'ZC4_COD', 'ZC3_COD' } }, ZC4->(IndexKey(1)) )
Return oModel
 
//--oModel:getModel('ZC3MASTER'):SetDescription('Pedido')
oModel:getModel('ZC4DETAIL'):SetDescription('Item do pedido')
oModel:AddCalc( 'Totalizador', 'ZC3MASTER', 'ZC4DETAIL', 'ZC4_TOTAL', 'ZC__TOTALPED', 'SUM', /*bCondition*/, /*bInitValue*/,'Total do Pedido' /*cTitle*/, /*bFormula*/)
Return oModel
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MLOC003Com
Função de Commit
Commit Function
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Static Function MLOC003Com(oModel)
Local cPadrao 		:= "005" 						// Lançamento padrão a ser configurado no CT5 //Standard entries to be configured on CT5
Local nTotal 		:= 0 							//  Variável totalizadora da contabilizacao //Variable with accounting total
Local aFlagCTB		:= {} 							// Array com as informações para a gravação do flag de contabilização do registro//Array with informations for accounting flag record
Local nHdlPrv		:= 0 							// Handle (numero do arquivo de trabalho) utilizado na contabilizacao//Handler (working file number) used on accounting
Local cLote	  		:= LoteCont("FIN")				// Lote Contábil do lançamento, cada módulo tem o seu e está configurado na tabela 09 do SX5
//Temporary file used on accounting
Local cArquivo		:= "" 							// Arquivo temporario usado para contabilizacao
Local lMostra		:= .T. 							// Verifica se mostra ou nao tela de contabilização
Local lAglutina 	:= .F. 							// Verifica se aglutina lançamentos com as mesmas entidades contábeis
Begin Transaction
FWFormCommit( oModel )
// Função que verifica se o lançamento padrão foi configurado pelo cliente 
// Function which verify if the accounting entry was configured by customer
If VerPadrao(cPadrao)
	// Rotina que abre o capa do lote contábil ( Inicio da Contabilização)
	// Accounting beginning
	nHdlPrv := HeadProva(cLote,FunName(),Substr(cUsername,1,6),@cArquivo)
EndIf
ZC4->(dbSetOrder(1))//ZC4_FILIAL+ZC4_COD+ZC4_ITEM
ZC0->(dbSetOrder(1))//ZC0_FILIAL+ZC0_COD+ZC0_LOJA
ZC1->(dbSetOrder(1))//ZC1_FILIAL+ZC1_COD
ZC0->(MsSeek(xFilial("ZC0") + ZC3->(ZC3_CLIENT + ZC3_LOJA) ))
If ZC4->(dbSeek( xFilial("ZC4") + ZC3->ZC3_COD ))
	While ZC4->(!EOF()) .And. ZC4->(ZC4_FILIAL+ZC4_COD) == xFilial("ZC4") + ZC3->ZC3_COD 
		ZC1->(MsSeek(xFilial("ZC4") + ZC4->ZC4_PROD ))
		
		If nHdlPrv > 0  
			aAdd(aFlagCTB,{"ZC4_LA","S","ZC4",ZC4->(Recno()),0,0,0})	
			// Função que interpreta todas as sequencias de lançamento configurada pelo usuário e cria as linhas de lançamento contábil
			// Executada uma vez para cada registro que quer ser contabilizado
			nTotal += DetProva(nHdlPrv,cPadrao,FunName// Function which interpret all sequences of the standard entries and creates the accounting entries.
			// Executed once for each record which will be accounted for.
			
			nTotal += DetProva(nHdlPrv,cPadrao,FunName(),cLote,,,,,,,,@aFlagCTB)
		Endif
				
		ZC4->(dbSkip())
	EndDo
	If nHdlPrv > 0 .And. ( nTotal > 0 )
		// Função que fecha o lote contábil
		// Function that closes the accounting lot
		RodaProva(nHdlPrv, nTotal)         
		// Função que apresenta a tela de contabilização, realiza aglutinação caso necessária e grava o documento contábil ( CT2 )
		cA100Incl(cArquivo,nHdlPrv,// Function that shows the account dialog, performs the grouping if needed and records the accounting document ( CT2 )	
		cA100Incl(cArquivo,nHdlPrv,3,cLote,lMostra,lAglutina)
	Endif	
EndIf
End Transaction

Return .T.






 

Sintaxe

FWModelEvent ():New()-> Objeto FWModelEvent 

Descrição

Construtor da classe. Método Obrigatório para ser implementado

Sintaxe

FWModelEvent ():After(oSubModel, cModelId, cAlias, lNewRecord)

Descrição

Método que é chamado pelo MVC quando ocorrer as ações do commit
depois da gravação de cada submodelo (field ou cada linha de uma grid)

Parâmetros

Sintaxe

FWModelEvent ():Before(oSubModel, cModelId, cAlias, lNewRecord)

Descrição

Método que é chamado pelo MVC quando ocorrer as ações do commit
antes da gravação de cada submodelo (field ou cada linha de uma grid)

Parâmetros

Sintaxe

FWModelEvent ():AfterTTS(oModel, cModelId)

Descrição

Método que é chamado pelo MVC quando ocorrer as ações do  após a transação.

Parâmetros

Sintaxe

FWModelEvent ():BeforeTTS(oModel, cModelId)

Descrição

Método que é chamado pelo MVC quando ocorrer as ações do commit antes da transação.

Parâmetros

Sintaxe

FWModelEvent ():InTTS(oModel, cModelId)

Descrição

Método que é chamado pelo MVC quando ocorrer as ações do commit Após as gravações porém
antes do final da transação

Parâmetros

Sintaxe

FWModelEvent ():ModelPreVld(oModel, cModelId) -> lOK

Descrição

Método que é chamado pelo MVC quando ocorrer as ações de pre validação do Model

Parâmetros

Sintaxe

FWModelEvent ():ModelPosVld(oModel, cModelId) -> lOK

Descrição

Método que é chamado pelo MVC quando ocorrer as ações de pos validação do Model

Parâmetros

Sintaxe

FWModelEvent ():GridPreVld(oSubModel, cModelID, nLine, cAction, cId, xValue, xCurrentValue) -> lOK

Descrição

Método que é chamado pelo MVC quando ocorrer as ações de pre validação do Grid

Parâmetros

Sintaxe

FWModelEvent ():GridPosVld(oSubModel, cModelID) -> lOK

Descrição

Método que é chamado pelo MVC quando ocorrer as ações de pós validação do Grid

Parâmetros

Sintaxe

FWModelEvent ():GridLinePreVld(oSubModel, cModelID, nLine, cAction, cId, xValue, xCurrentValue) -> lOK

Descrição

Método que é chamado pelo MVC quando ocorrer as ações de pre validação da linha do Grid

Parâmetros

Sintaxe

FWModelEvent ():GridLinePosVld(oSubModel, cModelID, nLine) -> lOK

Descrição

Método que é chamado pelo MVC quando ocorrer as ações de pos validação da linha do Grid

Parâmetros

Sintaxe

FWModelEvent ():FieldPreVld(oSubModel, cModelID, cAction, cId, xValue) -> lOK

Descrição

Método que é chamado pelo MVC quando ocorrer a ação de pos validação do Field

Parâmetros

Sintaxe

FWModelEvent ():FieldPosVld(oSubModel, cModelID) -> lOK

Descrição

Método que é chamado pelo MVC quando ocorrer a ação de pre validação do Field

Parâmetros

Sintaxe

FWModelEvent ():GetEvent(cIdEvent) -> oEvent

Descrição

Método que retorna um evento superior da cadeia de eventos.
Através do método InstallEvent, é possível encadear dois eventos que estão relacionados, como por exemplo um
evento de negócio padrão e um evento localizado que complementa essa regra de negócio.
Caso o evento localizado, necessite de atributos da classe superior, ele irá utilizar esse método para recuperá-lo.

Parâmetros

#Include 'Protheus.ch'
#Include 'FWMVCDef.ch'
//-------------------------------------------------------------------
/*/{Protheus.doc} ML003PRORUS
Classe interna implementando o ObserverFWModelEvent
Intern doclass Commitinherited para atualização de saldo no produtofrom FWModelEvent.
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Class ML003PRORUS FROM FWModelEvent
	Method After()
	Method New()
End Class
Method New() Class ML003PRORUS
Return
Method After(oModel, cModelId, cAlias, lNewRecord) Class ML003PRORUS
If cAlias == "ZC4" .And. lNewRecord
	ZL1->(dbSetOrder(1))//ZL1_FILIAL+ZL1_COD
	If ZL1->(MsSeek(xFilial("ZL1") + ZC4->ZC4_PROD ))
		RecLock("ZL1",.F.)
			ZL1->ZL1_QTVEND += ZC4->ZC4_QUANT  
		MsUnLock()
	EndIf
EndIf
		
Return



 

#Include #Include 'Protheus.ch'
#Include 'FWMVCDef.ch'
//-------------------------------------------------------------------
/*/{Protheus.doc} ML003CTB
Classe interna implementando o Observer do Commit FWModelEvent
Intern class inherited from FWModelEvent.
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Class ML003CTB FROM FWModelEvent
	DATA cPadrao 							// Lançamento padrão a ser configurado no CT5
	DATA nTotal 							//Standard entries Variável to be configured on CT5
	DATA cPadrao
	//Variável totalizadora da contabilizacao 
	//Variable with accounting total
	DATA aFlagCTB						nTotal
	// Array com as informações para a gravação do flag de contabilização do registro 
	DATA nHdlPrv						//Array with informations for accounting flag record
	DATA aFlagCTB
	// Handle (numero do arquivo de trabalho) utilizado na contabilizacao 
	DATA cLote			//Handler (working file number) used on accounting
	DATA cArquivo							nHdlPrv
	// Arquivo temporario usado para contabilizacao  
	//Temporary file used on accounting
	DATA cArquivo
	DATA cLote
	
	Method new()
	Method After()
	Method AfterTTS()
	Method BeforeTTS()
	
	Method ModelPosVld()
	Method GridLinePreVld()
	Method openCTB()
	Method closeCTB()
	Method writeLineCTB()
End Class
Method new ()  Class ML003CTB
	self:cPadrao 		:= "005" 						
	self:nTotal 		:= 0 							
	self:aFlagCTB		:= {} 							
	self:nHdlPrv		:= 0 							
	self:cLote			:= ""
	self:cArquivo		:= ""
Return
//-------------------------------------------------------------------
/*/{Protheus.doc} BeforeTTS
Inicio da transação com a abertura do lote contabil
Transaction beginning and the oppening of lot accounting
@author Rodrigo Antonio
@version P12
/*/
//-------------------------------------------------------------------
Method BeforeTTS(oModel, cModelId) Class ML003CTB
	self:openCTB(oModel)	
Return
//-------------------------------------------------------------------
/*/{Protheus.doc} After
ApósExecutado após a gravaçao de cada linha para realizar detprovalançamento contábil
Runs after every line recording to execute the accounting entries
@author Rodrigo Antonio
@version P12
/*/
//-------------------------------------------------------------------
Method After(oModel, cModelId, cAlias, lNewRecord)  Class ML003CTB
	self:writeLineCTB(oModel,cModelId,cAlias,lNewRecord) 
Return
//-------------------------------------------------------------------
/*/{Protheus.doc} AfterTTS
Fechamento da contabilização.
Accounting closing.
@author Rodrigo Antonio
@version P12
/*/
//-------------------------------------------------------------------
Method AfterTTS(oModel, cModelId)  Class ML003CTB
	self:closeCTB(oModel)
Return

//-------------------------------------------------------------------
/*/{Protheus.doc} openCTB
BlocoMetodo para ser executado antes da transação para abrir o header de contabilização
Method to be executed before the accounting header openning transaction
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Method openCTB(oModel) Class ML003CTB
Local lRet	:= .T. 							
self:cPadrao 		:= "005" 						// Lançamento padrão a ser configurado no CT5
self:nTotal//Lançamento padrão a ser configurado no CT5
//Standard entries to be configured on CT5
self:cPadrao 		:= 0 							"005"
//  Variável totalizadora da contabilizacao 
//Variable with accounting total
self:aFlagCTBnTotal 		:= {} 							0
// Array com as informações para a gravação do flag de contabilização do registro 
//Array with informations for accounting flag record
self:nHdlPrvaFlagCTB		:= 0 							{}
// Handle (numero do arquivo de trabalho) utilizado na contabilizacao 
//Handler (working file number) used on accounting
self:cLotenHdlPrv	  		:= LoteCont("FIN")				0
// Lote Contábil do lançamento, cada módulo tem o seu e está configurado na tabela 09 do SX5
//accounting lot. Each model has a corresponding lot configured on the table 09 of SX5 
self:cArquivocLote	  		:= LoteCont("" 							FIN")
// Arquivo temporario usado para contabilizacao  
//Temporary file used on accounting
self:cArquivo		:= ""
// Função que verifica se o lançamento padrão foi configurado pelo cliente  padrão foi configurado pelo cliente 
// Function which verify if the accounting entry was configured by customer
If VerPadrao(self:cPadrao)
	// Rotina que abre o capa do lote contábil ( Inicio da Contabilização)
	// Accounting beginning
	self:nHdlPrv := HeadProva(self:cLote,FunName(),Substr(cUsername,1,6),@self:cArquivo)
EndIf
Return lRet
//-------------------------------------------------------------------
/*/{Protheus.doc} writeLineCTB
BlocoMetodo para ser executado depois da gravação.
Method to be executed after the data recording
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Method writeLineCTB(oModel,cModelId,cAlias,lNewRecord) Class ML003CTB
	Local aArea:= GetArea()
	If cAlias == "ZC4"
		ZC0->(dbSetOrder(1))//ZC0_FILIAL+ZC0_COD+ZC0_LOJA
		ZC1->(dbSetOrder(1))//ZC1_FILIAL+ZC1_COD
		
		ZC0->(MsSeek(xFilial("ZC0") + ZC3->(ZC3_CLIENT + ZC3_LOJA) ))
		ZC1->(MsSeek(xFilial("ZC4") + ZC4->ZC4_PROD ))
		
		If self:nHdlPrv > 0  
			aAdd(self:aFlagCTB,{"ZC4_LA","S","ZC4",ZC4->(Recno()),0,0,0})	
			// Função que interpreta todas as sequencias de lançamento configurada pelo usuário e cria as linhas de lançamento contábillançamento contábil
			// Executada uma vez para cada registro que quer ser contabilizado
			// Function which interpret all sequences of the standard entries and creates the accounting entries.
			// ExecutadaExecuted umaonce vezfor paraeach cadarecord registrowhich quewill querbe seraccounted contabilizadofor.
			self:nTotal += DetProva(self:nHdlPrv,self:cPadrao,FunName(),self:cLote,,,,,,,,@self:aFlagCTB)
		Endif
	Endif
	RestArea(aArea)
Return
//-------------------------------------------------------------------
/*/{Protheus.doc} closeCTB
BlocoMetodo para ser executado depois da transação.
Method to be executed after the transaction.
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Method closeCTB(oModel) Class ML003CTB
Local lRet := .T.
Local lMostra	:= .T. 							// Verifica se mostra ou nao tela de contabilização
Local lAglutina // Verify if accounting dialog will to be shown
Local lMostra	:= .F. 							T.
// Verifica se aglutina lançamentos com as mesmas entidades contábeis
// Verify if it's needed to group entries with the same accounting entities'
Local lAglutina := .F.
If self:nHdlPrv > 0 .And. ( self:nTotal > 0 )
	// Função que fecha o lote contábil
	// Function that closes the accounting lot
	RodaProva(self:nHdlPrv, self:nTotal)
	// Função que apresenta a tela de contabilização, realiza aglutinação caso necessária e grava o documento contábil ( CT2 )
	// FunçãoFunction quethat apresentashows a telathe deaccount contabilizaçãodialog, realizaperforms the aglutinaçãogrouping casoif necessárianeeded eand gravarecords othe documentoaccounting contábildocument ( CT2 )
	cA100Incl(self:cArquivo,self:nHdlPrv,3,self:cLote,lMostra,lAglutina)
Endif

Return lRet

//-------------------------------------------------------------------
/*/{Protheus.doc} ModelPos
BlocoMetodo de pos validação do modelo.
Model post validation method.
@author Guilherme Spadaccia
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Method ModelPosVld(oModel, cModelId) Class ML003CTB
Local lRet := .T.
//Defino o model que irei validar
//Define which model will be validated
If cModelId == 'MLOC003'
	If oModel:GetValue('ZC3MASTER','ZC3_COD') == "000000"
		lRet := .F.
		Help("",1,"VALID",,"Ops,Code código000000 000000is reservado!reserved",1,0)
	EndIf
EndIf
Return lRet

//-------------------------------------------------------------------
/*/{Protheus.doc} GridLinePre
BlocoMetodo de pré validação da linha da Grid.
Grid line pre validation method.
@author Guilherme Spadaccia
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Method GridLinePreVld(oSubModel, cModelID, nLine, cAction, cId, xValue, xCurrentValue) Class ML003CTB
Local lRet := .T.
If cModelID == "ZC4DETAIL"
	If cAction == "SETVALUE" .And. cId == "ZC4_QUANT"
		If xValue%2 > 0
			lRet := .F.
			Help("",1,"VALID",,"Ops,Only sópair podemosquantities vender quantidades pares!are accepted",1,0)
		EndIf
	EndIf
EndIf
Return lRet
 

#Include 'Protheus.ch'
#Include 'FWMVCDef.ch'
//-------------------------------------------------------------------
/*/{Protheus.doc} ML003CTBRUS
Classe interna implementando o Observer do Commit de contabilizacao no padrão RussoClasse interna implementando o FWModelEvent localizando para  padrão Russo
Intern class inherited from FWModelEvent for russian Standard.
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Class ML003CTBRUS FROM FWModelEvent
	
	Method New()
	Method After()
	Method ModelPosVld()
	Method GridLinePreVld()
End Class

Method New() Class ML003CTBRUS
Return
//-------------------------------------------------------------------
/*/{Protheus.doc} writeLineCTBAfter
BlocoMétodo para ser executado depois da gravação. sobrescrito de ML003CTB
Method to be executed after the data recording
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Method After(oModel,cModelId,cAlias,lNewRecord) Class ML003CTBRUS
Local aArea:= GetArea()
Local oEventCtb := self:GetEvent("ML003CTB")
If cAlias == "ZL4"
	If oEventCtb:nHdlPrv > 0  
		aAdd(oEventCtb:aFlagCTB,{"ZL4_LA","S","ZL4",ZL4->(Recno()),0,0,0})	
		// Função que interpreta todas as sequencias de lançamento configurada pelo usuário e cria as linhas de lançamento contábil lançamento configurada pelo usuário e cria as linhas de lançamento contábil
		// Executada uma vez para cada registro que quer ser contabilizado
		// Function which interpret all sequences of the standard entries and creates the accounting entries.
		// ExecutadaExecuted umaonce vezfor paraeach cadarecord registrowhich quewill querbe seraccounted contabilizadofor.
		oEventCtb:nTotal += DetProva(oEventCtb:nHdlPrv,"006",FunName(),oEventCtb:cLote,,,,,,,,@oEventCtb:aFlagCTB)
	Endif
Endif
RestArea(aArea)
Return 
//-------------------------------------------------------------------
/*/{Protheus.doc} ModelPosVldModelPos
BlocoMetodo de pos validação do modelo.
Model Essepost metódo sobrescreve o método da classe ML003CTBvalidation method.
@author Guilherme Spadaccia
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Method ModelPosVld(oModel, cModelId) Class ML003CTBRUS
Local lRet := .T.
//Defino o model que irei validar
If cModelId == 'MLOC003'
	If oModel:GetValue('ZC3MASTER','ZC3_COD') == "000001"
		lRet := .F.
		Help("",1,"VALID",,"Ops, código 000001 reservado para a Russia!",1,0)
		//oModel:SetErrorMessage( , , ,  ,, "Ops, código 000001 reservado para a Russia!" .F.
		Help("",1,"VALID",,"Code 000001 is reserved in Russia.",1,0)
	EndIf
EndIf
Return lRet
//-------------------------------------------------------------------
/*/{Protheus.doc} GridLinePreVldGridLinePre
BlocoMetodo de pré validação da linha da Grid.
Grid Esseline metódopre sobrescreve o método da classe ML003CTBvalidation method.
@author Guilherme Spadaccia
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Method GridLinePreVld(oSubModel, cModelID, nLine, cAction, cId, xValue, xCurrentValue) Class ML003CTBRUS
Local lRet := .T.
If cModelID == "ZC4DETAIL"
	If cAction == "SETVALUE" .And. cId == "ZC4_QUANT"
		If xValue > 10
			lRet := .F.
			Help("",1,"VALID",,"Ops, na Russia só podemos vender até 10 unidades!",1,0) := .F.
			//oSubModel:Getmodel():SetErrorMessage( , , ,  ,, "Ops, na Russia só podemos vender até 10 unidades!" ) Help("",1,"VALID",,"Only quantities under 10 are accepted",1,0)
		EndIf
	EndIf
EndIf
Return lRet

Sintaxe

MPFormModel():InstallEvent(cIdEvent, cOwner, oEvent)

Descrição

Método de inscrição de objeto FwModelEvent

Através do método InstallEvent, é possível encadear dois eventos que estão relacionados, como por exemplo um
evento de negócio padrão e um evento localizado que complementa essa regra de negócio.

Parâmetros

• É possível inscrever mais de um Evento ao formulário, permitindo a separação de comportamentos em classe diferentes ( classe para a contabilização, classe para a integração fiscal e etc)
• Não é possível executar o bloco de commit e o padrão FwModelEvent ao mesmo tempo, caso aconteça o sistema irá gerar um erro de execução.

//-------------------------------------------------------------------
/*/{Protheus.doc} ModelDef
Definição do modelo de Dados
Data Model definition
@author alvaro.camillo
@since 05/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Static Function ModelDef()
Local oModel
Local oStr1		:= FWFormStruct(1,'ZC3')
Local oStr2		:= FWFormStruct(1,'ZC4')
Local oEvent  := ML003CTB():New()
oModel := MPFormModel():New('MLOC003', /*bPre*/, /*bPost*/, /*bCommit*/, /*bCancel*/)
oModel:SetDescription('Pedidos')
oModel:addFields('ZC3MASTER',,oStr1)
oModel:addGrid('ZC4DETAIL','ZC3MASTER',oStr2)
oModel:SetRelation('ZC4DETAIL', { { 'ZC4_FILIAL', 'xFilial("ZC4")' }, { 'ZC4_COD', 'ZC3_COD' } }, ZC4->(IndexKey(1)) )
oModel:getModel('ZC3MASTER'):SetDescription('Pedido')
oModel:getModel('ZC4DETAIL'):SetDescription('Item do pedido')
oModel:getModel('ZC4DETAIL'):SetUseOldGrid( .T. )
oModel:AddCalc( 'Totalizador', 'ZC3MASTER', 'ZC4DETAIL', 'ZC4_TOTAL', 'ZC__TOTALPED', 'SUM', /*bCondition*/, /*bInitValue*/,'Total do Pedido' /*cTitle*/, /*bFormula*/)

oModel:InstallEvent("ML003CTB", /*cOwner*/, oEvent)


Return oModel




 

//-------------------------------------------------------------------
/*/{Protheus.doc} ModelDef
Definição do modelo de Dados
Data Model definition
@author alvaro.camillo
@since 05/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Static Function ModelDef()
Local oModel		:= FWLoadModel('MLOC003')
Local oStr2		:= FWFormStruct(1,'ZL4')
Local oObsCTB		:= ML003CTBRUS():New()
Local oObsProduto	:= ML003PRORUS():New()
oModel:addGrid('ZL4DETAIL','ZC4DETAIL',oStr2)
oModel:SetRelation('ZL4DETAIL', { { 'ZL4_FILIAL', 'xFilial("ZL4")' }, { 'ZL4_COD', 'ZC3_COD' }, { 'ZL4_ITEM', 'ZC4_ITEM' } }, ZL4->(IndexKey(1)) )
oModel:getModel('ZL4DETAIL'):SetDescription('Rateio do Item Russo')
oModel:getModel('ZL4DETAIL'):SetOptional(.T.)
//Instala o evento de atualização de saldo
//Install Balance update Event
oModel:InstallEvent("ML00PRORUS", , oObsProduto)
//Instala o evento de contabilizao Russa
//Install Russian Accounting Event
oModel:InstallEvent("ML003CTBRUS", "ML003CTB", oObsCTB)

Return oModel