User Function AutIncRomzIncRomP( )
Local lRet := .F.
Local oModel := Nil
oModel := FWLoadModel('OGA250')
oModel:SetOperation(MODEL_OPERATION_INSERT) //INCLUSÃO
oModel:Activate()
//NJJUNICO
//NJKUNICO
//NK4UNICO
//NJMUNICO
//N9EUNICO
//N9DUNICO
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
oModel:GetModel('NJKUNICO'):GoLine( 1 )
oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 1)
oModel:GetModel('NJKUNICO'):GoLine( 2 )
oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 0.8)
//modelo de dados da aba comercialização
oModel:GetModel( "NJMUNICO" ):GoLine( 1 )
oModel:GetModel('NJMUNICO'):SetValue('NJM_ITEROM', '01')
If oModel:VldData()
oModel:CommitData()
ConOut("Registro incluido com sucesso. Time Commit:"+Time())
lRet := .T.
Else
VarInfo("",oModel:GetErrorMessage())
EndIf
return lRet |