Histórico da Página

01.

...

VISIÓN GENERAL

Línea de producto

...

Linha de ProdutoServiços FaturamentoFunção Manutenção das Regras de DescontoCompatível Países OperacionaisCompatível com as Bases de DadosNível AcessoNível Acesso

:	Microsiga Protheus^®
Segmento:	Servicios
Módulo:	SIGAFAT -	Facturación
Función:	FATA080 -
Abrangências:	Microsiga Protheus 12
Versões:	Microsiga Protheus 12
Mantenimiento de reglas de descuento
Alcances:	Microsiga Protheus 12
Versiones:	Microsiga Protheus 12
Compatible países	:	Todos
Sistemas	operativos:	Todos
Compatible con las bases de datos:	Todos
Nivel de	acceso:	Nivel 1 (	Acceso Clientes)
Idiomas:	Todos

02.

...

DESCRIPCIÓN

Função Función utilizada para inclusão, alteração e exclusão das Regras de Desconto via rotina incluir, modificar o eliminar reglas de descuento a través de la rutina automática (ExecAuto).

03.

...

SINTAXIS

MSExecAuto({|a, b, c| FATA080(a, b, c)}, aCabec, aItens, nOpcX)

04.

...

PARÁMETROS

NomeDescriçãoDefaultObrigatórioArray SimArray Simopção execuçãoSim

Nombre	Tipo	Descripción	Estándar	Obligatorio
aCabec	Array de registros	Array contendo os campos do cabeçalho que contiene campos de encabezado (ACO)		Sí
aItens	Array de registros	Array contendo os campos dos itens que contiene los campos de los ítems (ACP)		Sí
nOpcX	Numérico (	opción de	ejecución)	3 = Inclusão Inclusión; 4 = Alteração Modificación; 5 = Exclusão Borrado	Sí

05.

...

DEVOLUCIÓN

Não há.

06.

...

EJEMPLOS

Seleccione la siguiente operación deseada según su necesidad de ejecución

...

Escolha a operação desejada abaixo de acordo com a sua necessidade de execução:

Totvs custom tabs box

tabs	InclusãoInclusión, AlteraçãoModificación, ExclusãoBorrado
ids	InclusaoInclusión,AlteracaoModificación,ExclusaoBorrado

Totvs custom tabs box items

default	yes
referencia	InclusaoInclusión

Este é o exemplo básico para a execução da Inclusão da Regra de Desconto via Rotina es el ejemplo básico para ejecutar la Inclusión de la Regla de Descuento mediante la Rutina Automática:

Bloco de código

linenumbers	true

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MyFata080()

Local cCodReg    := ""              // Código de dala Regraregla
Local cB1Cod     := "PRODUTO001"    // Código dodel Produtoproducto
Local cMsgLog    := ""
Local cFilSB1    := ""
Local nOpcX      := 3               // InclusãoInclusión
Local aCabec     := {}
Local aItens     := {}
Local aLinha     := {}
Local lOk        := .T.
 
Private lMsErroAuto    := .F. // Indica sesi houvehubo erroerror naal execuçãoejecutar dala rotinarutina automática
Private lMsHelpAuto	   := .T. // Genera Geraun mensagemmensaje de erroerror como aquivoarchivo .LOG en nala system
 
//****************************************************************
//* AberturaApertura dodel ambienteentorno
//****************************************************************
ConOut("Inicio: " + Time())
 
ConOut(Repl("-",80))
ConOut(PadC("ProcessoProceso de inclusaoinclusión de Regrareglas de Descontodescuento", 80))
 
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT" TABLES "ACO","ACP","SA1","SBM"
 
//****************************************************************
//* Verifica sesi oel produtoproducto existe
 //****************************************************************
SB1->(dbSetOrder(1))
cFilSB1 := xFilial("SB1")
If SB1->(! MsSeek(cFilSB1 + cB1Cod))
   cMsgLog += "CadastrarRegistrar oel Produtoproducto: " + cB1Cod + CRLF
   lOk     := .F.
EndIf
 
If lOk

   //|------------------------------------|
   //| GeraGenera código dade Regraregla de Descontodescuento|
   //|------------------------------------|
   cCodReg := GetSxeNum("ACO", "ACO_CODREG") 
 
   //|---------------------------------|
   //| PREENCHEINFORMA CABECALHOENCABEZADO                      |
   //|---------------------------------|
   aCabec   := {}
   aadd(aCabec, {"ACO_CODREG",   cCodReg,                         Nil})
   aadd(aCabec, {"ACO_DESCRI",   "INCLUSAO DE REGRA DE DESCONTO", Nil})
   aadd(aCabec, {"ACO_MOEDA",    1,                               Nil})
   aadd(aCabec, {"ACO_TPHORA",   '1',                             Nil})
   aadd(aCabec, {"ACO_HORADE",  '00:00',                          Nil})
   aadd(aCabec, {"ACO_HORATE",  '23:59',                          Nil})
   aadd(aCabec, {"ACO_DATDE",    Date(),                          Nil})

   //|---------------------------------|
   //| PREENCHEINFORMA ITENSÍTEMS                                  |
   //|---------------------------------|
   aLinha := {}
   aadd(aLinha,{"ACP_ITEM",      '001',   Nil})
   aadd(aLinha,{"ACP_CODPRO",    cB1Cod,  Nil})
   aadd(aLinha,{"ACP_PERDES",    10,      Nil})
   aadd(aItens, aLinha)
 
   MSExecAuto({|a, b, c| FATA080(a, b, c)}, aCabec, aItens, nOpcX, .F.)
   
   If !lMsErroAuto
      ConOut("Incluido¡Incluido comcon sucessoéxito! " + cCodReg)
   Else
      ConOut("Erro¡Error en nala inclusaoinclusión!")
   EndIf
 
Else
 
   ConOut(cMsgLog)
 
EndIf
 
ConOut("FimFin: " + Time())
 
RESET ENVIRONMENT
Return

Totvs custom tabs box items

default	no
referencia	AlteracaoModificación

Este é o exemplo básico para a execução da Alteração da Regra de Desconto via Rotina es el ejemplo básico para ejecutar la Modificación de la Regla de Descuento mediante la Rutina Automática:

Bloco de código

linenumbers	true

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MyFata080()

Local cCodReg    := "000001"              // Código de dala Regraregla
Local cB1Cod     := "PRODUTO002"          // Código dodel Produtoproducto
Local cMsgLog    := ""
Local cFilSB1    := ""
Local nOpcX      := 4                     // AlteraçãoModificación
Local aCabec     := {}
Local aItens     := {}
Local aLinha     := {}
Local lOk        := .T.
 
Private lMsErroAuto    := .F. // Indica sesi houvehubo erroerror naal execuçãoejecutar dala rotinarutina automática
Private lMsHelpAuto	  := .T. // GeraIndica mensagemsi dehubo erroerror comoal aquivoejecutar .LOGla narutina systemautomática
 
//****************************************************************
//* AberturaApertura dodel ambienteentorno
//****************************************************************
ConOut("Inicio: " + Time())
 
ConOut(Repl("-",80))
ConOut(PadC("ProcessoProceso de alteraçãocambio de Regrareglas de Descontodescuento", 80))
 
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT" TABLES "ACO","ACP","SA1","SBM"
 
//****************************************************************
//* Verifica sesi oel produtoproducto existe
//****************************************************************
SB1->(dbSetOrder(1))
cFilSB1 := xFilial("SB1")
If SB1->(! MsSeek(cFilSB1 + cB1Cod))
   cMsgLog += "CadastrarRegistrar oel Produtoproducto: " + cB1Cod + CRLF
   lOk     := .F.
EndIf
 
If lOk

   //|---------------------------------|
   //| CABECALHO |
   //| ENCABEZADO                |
   //|---------------------------------|
   aCabec   := {}
   aadd(aCabec, {"ACO_CODREG",   cCodReg,                         Nil})
   aadd(aCabec, {"ACO_DESCRI",   "ALTERACAOMODIFICACIÓN DE REGRAREGLA DE DESCONTODESCUENTO", Nil})

   //|---------------------------------|
   //| ITENSÍTEMS                  |
   //|---------------------------------|
   aLinha := {}
   aadd(aLinha,{"LINPOS",     "ACP_ITEM",     '001'})
   aadd(aLinha,{"AUTDELETA",  "N",            Nil})
   aadd(aLinha,{"ACP_CODPRO", cB1Cod,         Nil})
   aadd(aLinha,{"ACP_PERDES",  15,            Nil})
   aadd(aItens, aLinha)
 
   MSExecAuto({|a, b, c| FATA080(a, b, c)}, aCabec, aItens, nOpcX, .F.)
   
   If !lMsErroAuto
      ConOut("Alterada¡Modificada comcon sucessoéxito! " + cCodReg)
   Else
      ConOut("Erro¡Error naal alteraçãomodificar!")
   EndIf
 
Else
 
   ConOut(cMsgLog)
 
EndIf
 
ConOut("FimFin: " + Time())
 
RESET ENVIRONMENT
Return

Totvs custom tabs box items

default	no
referencia	ExclusaoBorrado

Este é o exemplo básico para a execução da Exclusão da Regra de Desconto via Rotina es el ejemplo básico para ejecutar la Eliminación de Reglas de Descuento mediante la Rutina Automática:

Bloco de código

linenumbers	true

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MyFata080()

Local cCodReg    := "000001"        // Código de dala Regraregla
Local nOpcX      := 5               // ExclusãoBorrado
Local aCabec     := {}
 
Private lMsErroAuto    := .F. // Indica sesi houvehubo erroerror naal execuçãoejecutar dala rotinarutina automática
Private lMsHelpAuto	  := .T. // Genera Geraun mensagemmensaje de erroerror como aquivoarchivo .LOG en nala system   
 
//****************************************************************
//* AberturaApertura dodel ambienteentorno
//****************************************************************
ConOut("Inicio: " + Time())
 
ConOut(Repl("-",80))
ConOut(PadC("ProcessoProceso de exclusãoeliminación de Regrareglas de Descontodescuento", 80))
 
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT" TABLES "ACO","ACP","SA1","SBM"
 
aCabec   := {}
aadd(aCabec, {"ACO_CODREG",   cCodReg,                 Nil})

MSExecAuto({|a, b, c| FATA080(a, b, c)}, aCabec, {}, nOpcX, .F.)
   
If !lMsErroAuto
   ConOut("Excluida¡Eliminado comcon sucessoéxito! " + cCodReg)
Else
   ConOut("Erro¡Error naal exclusãoeliminar!")
EndIf

ConOut("FimFin: " + Time())
 
RESET ENVIRONMENT
Return

...

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

01.

VISIÓN GENERAL

02.

DESCRIPCIÓN

03.

SINTAXIS

04.

PARÁMETROS

05.

DEVOLUCIÓN

06.

EJEMPLOS