Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

SIGAFAT - Facturación

Función:

FATA760 - Intermediadores

País:

Brasil

Alcances:

Microsiga Protheus 12

Versiones:

Microsiga Protheus 12

Compatible países:

Brasil

Sistemas operativos:

Todos

Compatible con las bases de datos:

Todos

Nivel de acceso:

Nivel 1 (Acceso Clientes)

Idiomas:

Todos

02. DESCRIPCIÓN

Función utilizada para el mantenimiento del registro intermediador a través de la rutina automática (ExecAuto).

03. EJEMPLOS

Este es el ejemplo básico para ejecutar la Rutina Automática del Pedido de Venta en el proceso de Inclusión:

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User Function MyFata760()

Local oModel := Nil

//****************************************************************
//* Apertura del entorno
//****************************************************************
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 es el ejemplo básico para ejecutar la Rutina Automática del Pedido de Venta en el proceso de Modificación:

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User Function MyFata760()

Local oModel := Nil

//****************************************************************
//* Apertura del entorno
//****************************************************************
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"))

	//Dato del intermediador que se modificará
	oModel:SetValue("A1UMASTER",	"A1U_NOME" 		,"INTERMEDIADOR 01 - ALTERADO")

	If oModel:VldData()
    	oModel:CommitData()
	EndIf
Else
	Conout("Intermediador no encontrado")
EndIf

oModel:DeActivate()

oModel:Destroy()

RESET ENVIRONMENT

Return

Este es el ejemplo básico para ejecutar la Rutina Automática del Pedido de Venta en el proceso de Eliminación:

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User Function MyFata760()

Local oModel := Nil

//****************************************************************
//* Apertura del entorno
//****************************************************************
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 no encontrado")
EndIf

oModel:DeActivate()

oModel:Destroy()

RESET ENVIRONMENT

Return

04. OTRAS INFORMACIONES

No existe.

05. ASUNTOS RELACIONADOS