Histórico da Página

...

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 "PROTHEUS.CH"
#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.
 
//****************************************************************
//* Abertura do ambiente
//****************************************************************
ConOut("Inicio: " + Time())
 
ConOut(Repl("-",80))
ConOut(PadC("Teste de inclusão de intermediador", 80))
 
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "A1U"
 
cCod := 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.)

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 "PROTHEUS.CH"
#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.
 
//****************************************************************
//* Abertura do ambiente
//****************************************************************
ConOut("Inicio: " + Time())
 
ConOut(Repl("-",80))
ConOut(PadC("Teste de alteração de intermediador", 80))
 
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "A1U"
 
cCod := "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.)

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 "PROTHEUS.CH"
#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.
 
//****************************************************************
//* Abertura do ambiente
//****************************************************************
ConOut("Inicio: " + Time())
 
ConOut(Repl("-",80))
ConOut(PadC("Teste de exclusão de intermediador", 80))
 
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "A1U"
 
cCod := "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.)

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 2

Nova versão 3

Chave