Histórico da Página

...

Totvs custom tabs box

tabs	Inclusão, Alteração, Exclusão
ids	passo1,passo2,passo3

Totvs custom tabs box items

default	yes
referencia	passo1

Bloco de código

language	java

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

    oModel	:= FWLoadModel('OGA280')   
    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 VendaCompra 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', '501001')
    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('3020/1112/2021'))           
    oModel:GetModel('NNYUNICO'):SetValue('NNY_DATFIM', cTod('1020/1201/20212022'))           
    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('1020/1201/20212022'))  

    

//modelo de dados da If oModel:VldData() //valida os dadosGrid "Despesas - Corretores"
        //oModel:CommitData(GetModel('NNFUNICO'):GoLine( 1 ) //realizaposicionando ana gravaçãolinha do registro

    //modelo de dados da Grid conout("Registro incluído com sucesso!")"Cessao de Credito do Contrato 	"
        MsgInfo("Registro incluído com sucesso!")   
        lRet := .T.
    Else   //oModel:GetModel('NNGUNICO'):GoLine( 1 ) //posicionando na linha 

    If oModel:VldData() //valida os dados
        oModel:CommitData() //realiza a gravação do registro
        VarInfoMsgInfo("Erro 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

Totvs custom tabs box items

default	no
referencia	passo2

Bloco de código

language	java

User Function zAltReg()
    Local lRet := .F.
    Local oModel := Nil
 
    dbSelectArea("NJR")
    NJR->(DbSetOrder(1))
    If NJR->(DbSeek(xFilial("NJR") + '000201'"000413"))
        oModel  := FWLoadModel('OGA290OGA280')   
        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 VendaCompra Teste 2alterar') 
    
        //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('2125/1201/20212022'))           

        //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('2125/1201/20212022'))      

        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

Totvs custom tabs box items

default	no
referencia	passo3

Bloco de código

language	java

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

    dbSelectArea("NJR")
    NJR->(DbSetOrder(1))
    If NJR->(DbSeek(xFilial("NJR") + '000201'"000413"))
        oModel  := FWLoadModel('OGA290OGA280')   
        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

...

Totvs custom tabs box

tabs	Inclusão, Alteração, Exclusão
ids	passo4,passo5,passo6

Totvs custom tabs box items

default	yes
referencia	passo4

Bloco de código

language	java

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

    oModel	:= FWLoadModel('OGA290OGA280')   
    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 Compra 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_TIPFIX', '1')
  
    //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('3020/1112/2021'))           
    oModel:GetModel('NNYUNICO'):SetValue('NNY_DATFIM', cTod('1530/1201/20212022'))           
    oModel:GetModel('NNYUNICO'):SetValue('NNY_QTDINT', 10000) 
    oModel:GetModel('NNYUNICO'):SetValue('NNY_FILORG', 'D MG 01') 

    //modelo de dados da Grid "Dados das Previsões Financeiras"
    oModel:GetModel('N9AUNICO'):GoLine( 1 ) //posicionando na linha
    oModel:GetModel('N9AUNICO'):SetValue('N9A_SEQPRI', '001')   
    oModel:GetModel('N9AUNICO'):SetValue('N9A_CODFIN', '000004')
    oModel:GetModel('N9AUNICO'):SetValue('N9A_TES', '501001')
    oModel:GetModel('N9AUNICO'):SetValue('N9A_QUANT', 10000) 
    
    //modelo de dados da Grid "Dados das Previsões Financeiras"
    oModel:GetModel('N84UNICO'):GoLine( 1 ) //posicionando na linha
    oModel:GetModel('N84UNICO'):SetValue('N84_SEQUEN', '01')   
    oModel:GetModel('N84UNICO'):SetValue('N84_REFCTR', '7')
    oModel:GetModel('N84UNICO'):SetValue('N84_TIPVAL', '2')
    oModel:GetModel('N84UNICO'):SetValue('N84_PCT', 100)   , 100)   
    oModel:GetModel('N84UNICO'):SetValue('N84_DTFIXA', cTod('24/01/2022')) 

    //modelo de dados da Grid "Despesas - Corretores"
    //oModel:GetModel('NNFUNICO'):GoLine( 1 ) //posicionando na linha 

    //modelo de dados da Grid "Cessao de Credito do Contrato 	"
    //oModel:GetModel('N84UNICONNGUNICO'):SetValue('N84_DTFIXA', cTod('15/12/2021'))  GoLine( 1 ) //posicionando na linha 


    If oModel:VldData() //valida os dados
        oModel:CommitData() //realiza a gravação do registro
        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

Totvs custom tabs box items

default	no
referencia	passo5

Bloco de código

language	java

User Function zAltReg()
    Local lRet := .F.
    Local oModel := Nil
 
    dbSelectArea("NJR")
    NJR->(DbSetOrder(1))
    If NJR->(DbSeek(xFilial("NJR") + '000217'"000416"))
        oModel  := FWLoadModel('OGA290OGA280')   
        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 vendaCompra testeTeste alterarAlterar') 
    
        //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('2110/1202/20212022'))           

        //modelo de dados da Grid "Dados das Previsões Financeiras"
        oModel:GetModel('N9AUNICO'):GoLine( 1 ) //posicionando na linha
        oModel:GetModel('N9AUNICO'):SetValue('N9A_TES', '506')
        
        //modelo de dados da Grid "Dados das Previsões Financeiras"
        oModel:GetModel('N84UNICO'):GoLine( 1 ) //posicionando na linha
        oModel:GetModel('N84UNICO'):SetValue('N84_DTFIXA', cTod('2107/1202/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

Totvs custom tabs box items

default	no
referencia	passo6

Bloco de código

language	java

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

    dbSelectArea("NJR")
    NJR->(DbSetOrder(1))
    If NJR->(DbSeek(xFilial("NJR") + '000218'"000416"))
        oModel  := FWLoadModel('OGA290OGA280')   
        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

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave