Histórico da Página

User Function zIncReg()
    Local lRet := .F.
    Local oModel := Nil

    oModel	:= FWLoadModel('OGA290')   
    oModel:SetOperation(MODEL_OPERATION_INSERT) //INCLUSÃO
    oModel:Activate()
     
    //### Modelos de dados: NJRUNICO ###
    //modelo de dados do formulario "Contrato"
    oModel:GetModel('NJRUNICO'):SetValue('NJR_DATA', cTod('26/11/2021') ) 
    oModel:GetModel('NJRUNICO'):SetValue('NJR_DESCRI', 'Contrato Venda Teste') 
    oModel:GetModel('NJRUNICO'):SetValue('NJR_CODENT', '000001') 
    oModel:GetModel('NJRUNICO'):SetValue('NJR_LOJENT', '01')
    oModel:GetModel('NJRUNICO'):SetValue('NJR_CODSAF', '2122')
    oModel:GetModel('NJRUNICO'):SetValue('NJR_CODPRO', 'AGR-SOJA GRANEL')
	oModel:GetModel('NJRUNICO'):SetValue('NJR_TABELA', '000001')
	oModel:GetModel('NJRUNICO'):SetValue('NJR_TESEST', '501')
    oModel:GetModel('NJRUNICO'):SetValue('NJR_TIPFIX', '1')
    oModel:GetModel('NJRUNICO'):SetValue('NJR_VLRBAS', 60)
    oModel:GetModel('NJRUNICO'):SetValue('NJR_VLRUNI', 60)
    oModel:GetModel('NJRUNICO'):SetValue('NJR_VLRTOT', 10000)
  
    //modelo de dados da Grid "Previsão de Entregas / Cadências"
    oModel:GetModel('NNYUNICO'):GoLine( 1 ) //posicionando na linha
    oModel:GetModel('NNYUNICO'):SetValue('NNY_ITEM', '001')   
    oModel:GetModel('NNYUNICO'):SetValue('NNY_DATINI', cTod('30/11/2021'))           
    oModel:GetModel('NNYUNICO'):SetValue('NNY_DATFIM', cTod('10/12/2021'))           
    oModel:GetModel('NNYUNICO'):SetValue('NNY_QTDINT', 10000) 

    //modelo de dados da Grid "Dados das Previsões Financeiras"
    oModel:GetModel('NN7UNICO'):GoLine( 1 ) //posicionando na linha
    oModel:GetModel('NN7UNICO'):SetValue('NN7_ITEM', '001')   
    oModel:GetModel('NN7UNICO'):SetValue('NN7_VALOR', 10000)
    oModel:GetModel('NN7UNICO'):SetValue('NN7_PARCEL', '1')
    oModel:GetModel('NN7UNICO'):SetValue('NN7_DTVENC', cTod('10/12/2021'))      

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

User Function zAltReg()
    Local lRet := .F.
    Local oModel := Nil
 
    dbSelectArea("NJR")
    NJR->(DbSetOrder(1))
    If NJR->(DbSeek(xFilial("NJR") + '000201'))
        oModel  := FWLoadModel('OGA290')   
        oModel:SetOperation(MODEL_OPERATION_UPDATE) //ALTERAÇÃO
        oModel:Activate()
        
        //### Modelos de dados: NJRUNICO ###
        //modelo de dados do formulario "Contrato"
        oModel:GetModel('NJRUNICO'):SetValue('NJR_DESCRI', 'Contrato Venda Teste 2') 
    
        //modelo de dados da Grid "Previsão de Entregas / Cadências"
        oModel:GetModel('NNYUNICO'):GoLine( 1 ) //posicionando na linha
        oModel:GetModel('NNYUNICO'):SetValue('NNY_DATFIM', cTod('21/12/2021'))           

        //modelo de dados da Grid "Dados das Previsões Financeiras"
        oModel:GetModel('NN7UNICO'):GoLine( 1 ) //posicionando na linha
        oModel:GetModel('NN7UNICO'):SetValue('NN7_DTVENC', cTod('21/12/2021'))      

        If oModel:VldData() //valida os dados
            oModel:CommitData() //realiza a gravação do registro
            MsgInfo("Registro alterado com sucesso!")   
            lRet := .T.
        Else   
            VarInfo("Erro ao alterar o registro!",oModel:GetErrorMessage())
            MsgAlert("Erro ao alterar o registro!")
        EndIf 
    Else    
        MsgInfo("Registro alterado com sucesso!")
    EndIf
 
return lRet

User Function zDelReg()
    Local lRet := .F.
    Local oModel := Nil

    dbSelectArea("NJR")
    NJR->(DbSetOrder(1))
    If NJR->(DbSeek(xFilial("NJR") + '000201'))
        oModel  := FWLoadModel('OGA290')   
        oModel:SetOperation(MODEL_OPERATION_DELETE) //EXCLUSÃO
        oModel:Activate()

        If oModel:VldData() //valida os dados
            oModel:CommitData() //realiza a gravação do registro
            MsgInfo("Registro excluido com sucesso!")   
            lRet := .T.
        Else   
            VarInfo("Erro ao excluir o registro!",oModel:GetErrorMessage())
            MsgAlert("Erro ao excluir o registro!")
        EndIf 
    Else
        MsgInfo("Registro não localizado!")
    EndIf
 
return lRet