Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Totvs custom tabs box
tabsInclusão, Alteração, Exclusão
idspasso1,passo2,passo3
Totvs custom tabs box items
defaultyes
referenciapasso1
Bloco de código
languagejava
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('10/12/2021'))     '20/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('NNGUNICO'):GoLine( 1 ) //posicionando na linha 

    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
Totvs custom tabs box items
defaultno
referenciapasso2
Bloco de código
languagejava
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
defaultno
referenciapasso3
Bloco de código
languagejava
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

...