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 |
Función utilizada para el mantenimiento del registro intermediador a través de la rutina automática (ExecAuto).
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
No existe.