...
Totvs custom tabs box |
---|
tabs | Inclusão Com Pesagem, Inclusão Sem Pesagem, Alteração, Exclusão, Atualização, Confirmação |
---|
ids | passo1,passo2,passo3,passo4,passo5,passo6 |
---|
|
Totvs custom tabs box items |
---|
default | yes |
---|
referencia | passo1 |
---|
| Bloco de código |
---|
title | Exemplo de código - Inclusão Romaneio com Pesagem |
---|
linenumbers | true |
---|
| 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 |
|
Totvs custom tabs box items |
---|
default | no |
---|
referencia | passo2 |
---|
| Bloco de código |
---|
title | Alteração Romaneio com PesagemExemplo de código - Inclusão Romaneio sem Pesagem(simbólico) |
---|
linenumbers | true |
---|
| User Function zAltRomPzIncRomS()
Local lRet := .F.
Local oModel := Nil
dbSelectAreaSetFunName("NJJOGA251")
DbSetOrder(1)
If DbSeek(xFilial("NJJ") + '0000000447')
//para definir que deve ser considerado a chamada pelo OGA251(Romaneio sem pesagem)
//chamada da função acima necessário para algumas validações, importante seu uso somente nos romaneio com o campo NJJ_TIPENT='2'
oModel := FWLoadModel('OGA250')
oModel:SetOperation(MODEL_OPERATION_UPDATEINSERT) //Alteração
oModel:Activate()
oModel:Activate()
//### Modelos de dados: NJJUNICO, NJKUNICO, NK4UNICO, NJMUNICO ###
//Setando valores nos campos
:GetModel('NJJUNICO'):SetValue('NJJ_TIPENT', '2') //SEM 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_LOCALTPFORM', '021')
oModel:GetModel('NJJUNICO'):SetValue('NJJ_LOCAL', '01')
oModel:GetModel('NJJUNICO'):SetValue('NJJ_PSSUBTTABELA', 1500'000001')
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.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_TESITEROM', '50101')
If oModel:VldData()
//valida os dados
oModel:CommitData()
//realiza a gravação do registro
MsgInfo("Registro alteradoincluído com sucesso")
lRet := .T.
Else
VarInfo("",oModel:GetErrorMessage())
MsgAlert("Erro ao alterarincluir o registro")
EndIf EndIf
Else
MsgAlert("Registro não localizado!")
EndIf
return lRet |
Totvs custom tabs box items |
---|
|
| no | passo2 | | title | Exemplo de código - Inclusão Romaneio sem Pesagem(simbólico)zIncRomSzAltRomP()
Local lRet := .F.
Local oModel := Nil
| SetFunNameOGA251//paradefinirque deve ser considerado a chamada pelo OGA251(Romaneio sem pesagem)
//chamada da função acima necessário para algumas validações, importante seu uso somente nos romaneio DbSetOrder(1)
If DbSeek(xFilial("NJJ") + '0000000447')
SetFunName("OGA251") //importante definir para o romaneio sem pesagem com o campo NJJ_TIPENT='2'
| oModel := FWLoadModel('OGA250')
oModel:SetOperation(MODEL_OPERATION_ | INSERT oModel:Activate()
GetModel'NJJUNICO'):SetValue('NJJ_TIPENT', '2') //SEM 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')
)
//### Modelos de dados: NJJUNICO, NJKUNICO, NK4UNICO, NJMUNICO ###
//Setando valores nos campos
oModel:GetModel('NJJUNICO'):SetValue('NJJ_LOCAL', ' | 01 oModel:GetModel('NJJUNICO'):SetValue('NJJ_TABELA', '000001')
oModel:GetModel('NJJUNICO'):SetValue('NJJ_PSSUBT',1000)
//modelo de dados da aba Classificação(Grid)
oModel:GetModel( | ''//posicionandonalinha
oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 1.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 ) | //posicionandonalinha
oModel:GetModel('NJMUNICO'):SetValue('NJM_ | ITEROM01501')
If oModel:VldData() | //valida os dados
//realizaagravaçãodoregistro
incluído VarInfo("",oModel:GetErrorMessage())
| incluir EndIf EndIf
Else
MsgAlert("Registro não localizado!")
EndIf
return lRet |
|
---|
|
|
03. TELA XXXXX
Outras Ações / Ações relacionadas
...