01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:SIGAFAT - Faturamento
Função:FATA760 - Intermediadores
País:Brasil
Abrangências:Microsiga Protheus 12
Versões:Microsiga Protheus 12
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível com as Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Todos

02. DESCRIÇÃO

Função utilizada para manutenção do cadastro de Intermediador via rotina automática (ExecAuto).

03. EXEMPLOS

Este é o exemplo básico para a execução da Rotina Automática do Pedido de Venda no processo de Inclusão:

#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

Este é o exemplo básico para a execução da Rotina Automática do Pedido de Venda no processo de Alteração:

#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

Este é o exemplo básico para a execução da Rotina Automática do Pedido de Venda no processo de Exclusão:

#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




<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>