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_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('20/12/2021'))
oModel:GetModel('NNYUNICO'):SetValue('NNY_DATFIM', cTod('30/01/2022'))
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', '001')
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)
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('NNGUNICO'):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 |