Histórico da Página

01. DADOS GERAIS

Produto:

Solucoes_totvs_cross

SolucaoCross	TOTVS Backoffice

Linha de Produto:

Linhas_totvs

Linha	Linha Protheus

Segmento:

Segmentos_totvs

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

MSExecAuto({|a, b| MATA410(a, b)}, nOpcX, aCabec)

04. PARÂMETROS

...

Nome

...

Tipo

...

Descrição

...

Default

...

Obrigatório

...

Referência

...

{}

...

05.

...

EXEMPLOS

Totvs custom tabs box

tabs	Inclusão, Alteração, Exclusão
ids	Inclusao,Alteracao,Exclusao

Totvs custom tabs box items

default	yes
referencia	Inclusao

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

Bloco de código

linenumbers	true

#INCLUDE#Include "PROTHEUSProtheus.CHch"
#INCLUDE#Include "TBICONNRwMake.CHch"
#Include "TbiConn.ch"

User Function MyFata760()
 
Local cCod       := ""                                                                 // Código de Intermediador
Local cMsgLog    := ""
Local cLogErro   := ""
Local nOpcX      := 0
Local nCount     := 0
Local aCabec     := {}
Local aErroAuto  := {}
 
Private lMsErroAuto    := .F.
Private lAutoErrNoFile := .F.
 oModel := Nil

//****************************************************************
//* Abertura do ambiente
//****************************************************************
ConOut("Inicio: " + Time())
 
ConOut(Repl("-",80))
ConOut(PadC("Teste de inclusão de intermediador", 80))
 
PREPARE ENVIRONMENT EMPRESA "99T1" FILIAL "D MG 01" MODULO "FAT" TABLES "A1U"
 
cCodoModel := GetSxeNum("A1U", "A1U_CODIGO")

//****************************************************************
//* Inclusão - INÍCIO
//****************************************************************
aCabec   := {}
aadd(aCabec, {"A1U_CODIGO",	cCod,							Nil})
aadd(aCabec, {"A1U_NOME",	"Inclusão de Intermediador,		Nil})
aadd(aCabec, {"A1U_CGC",	"27142643000126",				Nil})

nOpcX := 3
MSExecAuto({|a, b| FATA760(a, b)}, nOpcX, aCabec)
If !lMsErroAuto
  ConOut("Incluido com sucesso! " + cCod)
Else
  ConOut("Erro na inclusao!")
  aErroAuto := GetAutoGRLog()
  For nCount := 1 To Len(aErroAuto)
	 cLogErro += StrTran(StrTran(aErroAuto[nCount], "<", ""), "-", "") + " "
	 ConOut(cLogErro)
  Next nCount
EndIf
//****************************************************************
//* Inclusao - FIM
//****************************************************************

ConOut("Fim: " + Time())
 
RESET ENVIRONMENT
Return(.T.)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

Totvs custom tabs box items

default	no
referencia	Alteracao

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

Bloco de código

linenumbers	true

#INCLUDE#Include "PROTHEUSProtheus.CHch"
#INCLUDE#Include "TBICONNRwMake.CHch"
#Include "TbiConn.ch"

User Function MyFata760()
 
Local cCod       := ""                                                                 // Código de Intermediador
Local cMsgLog    := ""
Local cLogErro   := ""
Local nOpcX      := 0
Local nCount     := 0
Local aCabec     := {}
Local aErroAuto  := {}
 
Private lMsErroAuto    := .F.
Private lAutoErrNoFile := .F.
 
oModel := Nil

//****************************************************************
//* Abertura do ambiente
//****************************************************************
ConOut("Inicio: " + Time())
 
ConOut(Repl("-",80))
ConOut(PadC("Teste de alteração de intermediador", 80))
 
PREPARE ENVIRONMENT EMPRESA "99T1" FILIAL "D MG 01" MODULO "FAT" TABLES "A1U"
 
cCodoModel := "INTER1"  //Código do registro que deverá ser alterado
 
//****************************************************************
//* Alteração - INÍCIO
//****************************************************************
aCabec   := {}
aadd(aCabec, {"A1U_CODIGO",	cCod,										Nil})
aadd(aCabec, {"A1U_NOME",	"Alteração de Intermediador - ALTERADO,		Nil}) //Dado que esta sendo aterado
aadd(aCabec, {"A1U_CGC",	"27142643000126",							Nil})

nOpcX := 4
MSExecAuto({|a, b| FATA760(a, b)}, nOpcX, aCabec)
If !lMsErroAuto
  ConOut("Alteração com sucesso! " + cCod)
Else
  ConOut("Erro na alteração!")
  aErroAuto := GetAutoGRLog()
  For nCount := 1 To Len(aErroAuto)
	 cLogErro += StrTran(StrTran(aErroAuto[nCount], "<", ""), "-", "") + " "
	 ConOut(cLogErro)
  Next nCount
EndIf
   
ConOut("Fim: " + Time())
 
RESET ENVIRONMENT
Return(.T.)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

Totvs custom tabs box items

default	no
referencia	Exclusao

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

Bloco de código

linenumbers	true

#INCLUDE#Include "PROTHEUSProtheus.CHch"
#INCLUDE#Include "TBICONNRwMake.CHch"
#Include "TbiConn.ch"

User Function MyFata760()
 
Local cCod       := ""                                                                 // Código de Intermediador
Local cMsgLog    := ""
Local cLogErro   := ""
Local nOpcX      := 0
Local nCount     := 0
Local aCabec     := {}
Local aErroAuto  := {}
 
Private lMsErroAuto    := .F.
Private lAutoErrNoFile := .F.
 
oModel := Nil

//****************************************************************
//* Abertura do ambiente
//****************************************************************
ConOut("Inicio: " + Time())
 
ConOut(Repl("-",80))
ConOut(PadC("Teste de exclusão de intermediador", 80))
 
PREPARE ENVIRONMENT EMPRESA "99T1" FILIAL "D MG 01" MODULO "FAT" TABLES "A1U"
 
cCodoModel := "INTER1"  //Código do registro que deverá ser excluído
 
//****************************************************************
//* Exclusão - INÍCIO
//****************************************************************
aCabec   := {}
aadd(aCabec, {"A1U_CODIGO",	cCod,	Nil})

nOpcX := 5
MSExecAuto({|a, b| FATA760(a, b)}, nOpcX, aCabec)
If !lMsErroAuto
  ConOut("Exclusão com sucesso! " + cCod)
Else
  ConOut("Erro na exclusão")
  aErroAuto := GetAutoGRLog()
  For nCount := 1 To Len(aErroAuto)
	 cLogErro += StrTran(StrTran(aErroAuto[nCount], "<", ""), "-", "") + " "
	 ConOut(cLogErro)
  Next nCount
EndIf
   
ConOut("Fim: " + Time())
 
RESET ENVIRONMENT
Return(.T.)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

Templatedocumentos

HTML

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

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão 5

Chave

01. DADOS GERAIS

02. DESCRIÇÃO

03. SINTAXE

04. PARÂMETROS

05.

EXEMPLOS