...
Função utilizada para manutenção do cadastro de Intermediador via rotina automática (ExecAuto).
...
| Totvs custom tabs box |
|---|
| tabs | Inclusão, Alteração, Exclusão |
|---|
| ids | Inclusao,Alteracao,Exclusao |
|---|
|
| Totvs custom tabs box items |
|---|
| default | yes |
|---|
| referencia | Inclusao |
|---|
| Este é o exemplo básico para a execução da Rotina Automática do Pedido de Venda no processo de Inclusão: | Bloco de código |
|---|
| #Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"
User Function MyFata760()
Local oModel := Nil
//****************************************************************
//* Abertura do ambiente
//****************************************************************
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT"
oModel := FWLoadModel('FATA760')
oModel:SetOperation(MODEL_OPERATION_INSERT)
oModel:Activate()
//Dados do Intermediador
oModel:SetValue("A1UMASTER", "A1U_CODIGO" ,"INTER1")
oModel:SetValue("A1UMASTER", "A1U_NOME" ,"INTERMEDIADOR 01")
oModel:SetValue("A1UMASTER", "A1U_CGC" ,"27142643000126")
If oModel:VldData()
oModel:CommitData()
EndIf
oModel:DeActivate()
oModel:Destroy()
RESET ENVIRONMENT
Return |
|
| Totvs custom tabs box items |
|---|
| default | no |
|---|
| referencia | Alteracao |
|---|
| Este é o exemplo básico para a execução da Rotina Automática do Pedido de Venda no processo de Alteração: | Bloco de código |
|---|
| #Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"
User Function MyFata760()
Local oModel := Nil
//****************************************************************
//* Abertura do ambiente
//****************************************************************
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT"
oModel := FWLoadModel('FATA760')
oModel:SetOperation(MODEL_OPERATION_UPDATE)
oModel:Activate()
A1U->(DbSetOrder(1))
If A1U->(DbSeek(xFilial("A1U")+"INTER1"))
//Dado do Intermediador que será alterado
oModel:SetValue("A1UMASTER", "A1U_NOME" ,"INTERMEDIADOR 01 - ALTERADO")
If oModel:VldData()
oModel:CommitData()
EndIf
Else
Conout("Intermediador não localizado")
EndIf
oModel:DeActivate()
oModel:Destroy()
RESET ENVIRONMENT
Return |
|
| Totvs custom tabs box items |
|---|
| default | no |
|---|
| referencia | Exclusao |
|---|
| Este é o exemplo básico para a execução da Rotina Automática do Pedido de Venda no processo de Exclusão: | Bloco de código |
|---|
| #Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"
User Function MyFata760()
Local oModel := Nil
//****************************************************************
//* Abertura do ambiente
//****************************************************************
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT"
oModel := FWLoadModel('FATA760')
oModel:SetOperation(MODEL_OPERATION_DELETE)
oModel:Activate()
A1U->(DbSetOrder(1))
If A1U->(DbSeek(xFilial("A1U")+"INTER1"))
If oModel:VldData()
oModel:CommitData()
EndIf
Else
Conout("Intermediador não localizado")
EndIf
oModel:DeActivate()
oModel:Destroy()
RESET ENVIRONMENT
Return |
|
|
04. DEMAIS INFORMAÇÕES
Não há.
05. ASSUNTOS RELACIONADOS
| HTML |
|---|
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after {
background: #FF9900; !important
}
.menu-item.active-tab {
border-bottom: none !important;
}
</style>
|
