User Function zIncReg()
Local lRet := .F.
Local oModel := Nil
oModel := FWLoadModel('OGA010')
oModel:SetOperation(MODEL_OPERATION_INSERT) //INCLUSÃO
oModel:Activate()
//### Modelos de dados: NJ0UNICO, NN0UNICO ###
//Setando valores nos campos
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_CGC', '71407447000128' )
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_CODENT', '990001')
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_LOJENT', '01')
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_NOME ', 'ENTIDADE AGRO ')
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_NOMLOJ', 'ENTIDADE AGRO')
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_CLASSE', '3')
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_CODFOR', '000005')
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_LOJFOR', '01')
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_CODCLI', '024024')
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_LOJCLI', '01')
//modelo de dados da Grid "Dados Bancarios"
oModel:GetModel('NN0UNICO'):GoLine( 1 ) //posicionando na linha
oModel:GetModel('NN0UNICO'):SetValue('NN0_ITEM', '01')
oModel:GetModel('NN0UNICO'):SetValue('NN0_CODBCO', '001')
oModel:GetModel('NN0UNICO'):SetValue('NN0_CODAGE', '2370')
oModel:GetModel('NN0UNICO'):SetValue('NN0_CODCTA', '1213967')
If oModel:VldData() //valida os dados
oModel:CommitData() //realiza a gravação do registro
MsgInfo("Registro incluído com sucesso")
lRet := .T.
Else
VarInfo("",oModel:GetErrorMessage())
MsgAlert("Erro ao incluir o registro")
EndIf
return lRet |