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

...

05. RETORNO

{}

...

03.

...

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

04. PARÂMETROS

...

Nome

...

Tipo

...

Descrição

...

Default

...

Obrigatório

...

Referência

...

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 inclusao!")
  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 inclusao!")
  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

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

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 3

Nova versão Atual

Chave

01. DADOS GERAIS

02. DESCRIÇÃO

05. RETORNO

03.

04. PARÂMETROS

EXEMPLOS

04. DEMAIS INFORMAÇÕES

05. ASSUNTOS RELACIONADOS