Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

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