...
Totvs custom tabs box |
---|
tabs | Inclusão, Alteração, Exclusão |
---|
ids | exemplo1,exemplo2,exemplo3 |
---|
|
Totvs custom tabs box items |
---|
default | yes |
---|
referencia | passo1 |
---|
| Bloco de código |
---|
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 |
|
Totvs custom tabs box items |
---|
default | no |
---|
referencia | exemplo2 |
---|
| Bloco de código |
---|
User Function zAltReg()
Local lRet := .F.
Local oModel := Nil
dbSelectArea("NJ0")
NJ0->(DbSetOrder(1))
If NJ0->(DbSeek(xFilial("NJ0") + '990001'))
oModel := FWLoadModel('OGA010')
oModel:SetOperation(MODEL_OPERATION_UPDATE) //ALTERAÇÃO
oModel:Activate()
//### Modelos de dados: NJ0UNICO, NN0UNICO ###
//Setando valores nos campos
oModel:GetModel('NJ0UNICO'):SetValue('NJ0_ATIVO', '2')
If oModel:VldData() //valida os dados
oModel:CommitData() //realiza a gravação do registro
MsgInfo("Registro alterado com sucesso")
lRet := .T.
Else
VarInfo("",oModel:GetErrorMessage())
MsgInfo("Erro ao alterar o registro")
EndIf
Else
MsgInfo("Registro não localizado!")
EndIf
return lRet |
|
|
03. TELA XXXXX
Outras Ações / Ações relacionadas
...