Histórico da Página

User Function zIncRomP()
	Local lRet := .F.
	Local oModel := Nil
    
	oModel	:= FWLoadModel('OGA250')    
	oModel:SetOperation(MODEL_OPERATION_INSERT) //INCLUSÃO
	oModel:Activate()
	
	//### Modelos de dados: NJJUNICO, NJKUNICO, NK4UNICO, NJMUNICO ###
	//Setando valores nos campos
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_TIPENT', '0') //COM PESAGEM
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_TIPO', '4') //SAIDA POR VENDA
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_CODCTR', '000116') //NUMERO DO CONTRATO
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_TPFORM', '1')
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_LOCAL', '01')
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_TABELA', '000001')
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_PESO1', 1000)
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_PESO2', 2000)
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_PSSUBT', 1000)
 
    //modelo de dados da aba Classificação(Grid)   
    oModel:GetModel('NJKUNICO'):GoLine( 1 ) //posicionando na linha
    oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 1)  
    oModel:GetModel('NJKUNICO'):GoLine( 2 ) //posicionando na linha            
    oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 0.8)  

    //modelo de dados da aba Comercialização(Grid)  
    oModel:GetModel( "NJMUNICO" ):GoLine( 1 ) //posicionando na linha           
    oModel:GetModel('NJMUNICO'):SetValue('NJM_ITEROM', '01')    

    If oModel:VldData()	//valida os dados
        oModel:CommitData() //realiza a gravação do registro
        MsgInfo("Registro incluído com sucesso", "Inclusão")	
        lRet := .T.
	Else	
		VarInfo("",oModel:GetErrorMessage())
		MsgInfo("Erro ao incluir o registro", "Inclusão")
	EndIf  

return lRet

User Function zIncRomP()
	Local lRet := .F.
    Local oModel := Nil
    
    dbSelectArea("NJJ")
    DbSetOrder(1)
    If DbSeek(xFilial("NJJ") + '0000000447')
        
		oModel	:= FWLoadModel('OGA250')
        oModel:SetOperation(MODEL_OPERATION_UPDATE) //Alteração
        oModel:Activate()
		
		//### Modelos de dados: NJJUNICO, NJKUNICO, NK4UNICO, NJMUNICO ###
		//Setando valores nos campos
        oModel:GetModel('NJJUNICO'):SetValue('NJJ_LOCAL', '02')
        oModel:GetModel('NJJUNICO'):SetValue('NJJ_PSSUBT', 1500)
        
        //modelo de dados da aba Classificação(Grid)     
        oModel:GetModel( "NJKUNICO" ):GoLine( 1 )   
        oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 1.1)  
        
        //modelo de dados da aba Comercialização(Grid)   
        oModel:GetModel( "NJMUNICO" ):GoLine( 1 )            
        oModel:GetModel('NJMUNICO'):SetValue('NJM_TES', '501')    

        If oModel:VldData()	
            oModel:CommitData()
            MsgInfo("Registro alterado com sucesso")
            lRet := .T.
        Else	
            VarInfo("",oModel:GetErrorMessage())
            MsgAlert("Erro ao alterar o registro")
        EndIf   
    Else
        MsgAlert("Registro não localizado!")
    EndIf

return lRet