User Function zIncRomP()
Local lRet := .F.
Local oModel := Nil
oModel := FWLoadModel('OGA250')
oModel:SetOperation(MODEL_OPERATION_INSERT) //INCLUSÃO
oModel:Activate()
//### Modelos de dados: NJJUNICO, NJKUNICO, NK4UNICO, NJMUNICO ###
//Setando valores nos campos
oModel:GetModel('NJJUNICO'):SetValue('NJJ_TIPENT', '0') //COM PESAGEM
oModel:GetModel('NJJUNICO'):SetValue('NJJ_TIPO', '4') //SAIDA POR VENDA
oModel:GetModel('NJJUNICO'):SetValue('NJJ_CODCTR', '000116') //NUMERO DO CONTRATO
oModel:GetModel('NJJUNICO'):SetValue('NJJ_TPFORM', '1')
oModel:GetModel('NJJUNICO'):SetValue('NJJ_LOCAL', '01')
oModel:GetModel('NJJUNICO'):SetValue('NJJ_TABELA', '000001')
oModel:GetModel('NJJUNICO'):SetValue('NJJ_PESO1', 1000)
oModel:GetModel('NJJUNICO'):SetValue('NJJ_PESO2', 2000)
oModel:GetModel('NJJUNICO'):SetValue('NJJ_PSSUBT', 1000)
//modelo de dados da aba Classificação(Grid)
oModel:GetModel('NJKUNICO'):GoLine( 1 ) //posicionando na linha
oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 1)
oModel:GetModel('NJKUNICO'):GoLine( 2 ) //posicionando na linha
oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 0.8)
//modelo de dados da aba Comercialização(Grid)
oModel:GetModel( "NJMUNICO" ):GoLine( 1 ) //posicionando na linha
oModel:GetModel('NJMUNICO'):SetValue('NJM_ITEROM', '01')
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 |