| 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 |
|---|
| #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 |
|---|
| #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 inclusaoalteraçã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.) |
|
| 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 |
|---|
| #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!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.) |
|
|
