| Totvs custom tabs box items |
|---|
| default | yes |
|---|
| referencia | InclusaoInclusión |
|---|
| Exemplo Ejemplo básico para a execução de Inclusão ejecutar la Inclusión de Metas de Venda via Rotina Venta mediante la Rutina Automática: | Bloco de código |
|---|
| #INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function MyFATA050
Local cDescri := "META DE VENDAVENTA"
Local cVend1 := "Vend01"
Local nQtd1 := 1
Local nValor1 := 100
Local cVend2 := "Vend02"
Local nQtd2 := 2
Local nValor2 := 200
Local nOpcX := 3
Local nCount := 0
Local aErroAuto := {}
Private lMsErroAuto := .F.
Private lAutoErrNoFile := .F.
//* Abertura do ambiente
ConOut("Inicio: " + Time())
ConOut(Repl("-",80))
ConOut(PadC("InclusaoInclusión de Meta de VendaVenta", 80))
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT" TABLES "SCT","SA3"
//* InclusaoInclusión - INÍCIOINICIO
aCabec := {}
aGrid := {}
aLinha := {}
//--- Informando los osdatos dadosdel doencabezado Cabeçalho
//****************************************************************
//* Por estándar defaultde dala rotinarutina oel código de dala meta de vendaventa ése geradogenera de formamanera automática
//* CasoSi queiradesea informar umun código específico, especificoagregue adicione oel campo CT_DOC a nala array aCabec
//* ExemploEjemplo: aadd(aCabec, {"CT_DOC", "Meta00001", Nil})
//****************************************************************
aadd(aCabec, {"CT_DESCRI", cDescri, Nil})
//--- Informando los osdatos dadosde dala Grid
aLinha := {}
aadd(aLinha,{"CT_SEQUEN", '001', Nil})
aadd(aLinha,{"CT_VEND", cVend1, Nil})
aadd(aLinha,{"CT_QUANT", nQtd1, Nil})
aadd(aLinha,{"CT_VALOR", nValor1, Nil})
aadd(aGrid, aLinha)
aLinha := {}
aadd(aLinha,{"CT_SEQUEN", '002', Nil})
aadd(aLinha,{"CT_VEND", cVend2, Nil})
aadd(aLinha,{"CT_QUANT", nQtd2, Nil})
aadd(aLinha,{"CT_VALOR", nValor2, Nil})
aadd(aGrid, aLinha)
//--- Commit de dala rotinarutina
MSExecAuto({|a, b, c| FATA050(a, b, c)}, aCabec, aGrid, nOpcX)
If !lMsErroAuto
ConOut("Incluida¡Incluida comcon sucessoéxito!)
Else
ConOut("Erro¡Error naal inclusaoincluir!")
aErroAuto := GetAutoGRLog()
For nCount := 1 To Len(aErroAuto)
cLogErro += StrTran(StrTran(aErroAuto[nCount], "<", ""), "-", "") + " "
ConOut(cLogErro)
Next nCount
EndIf
RESET ENVIRONMENT
Return(.T.) |
|
| Totvs custom tabs box items |
|---|
| default | no |
|---|
| referencia | AlteracaoModificación |
|---|
| Exemplo básico para a execução de Alteração de Metas de Venda via Rotina Automática: | Bloco de código |
|---|
| #INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function MyFATA050
Local cMeta := "Meta00001" //Meta aque serse alteradamodificará
Local cDescri := "META DE VENDAVENTA ALTMODIF"
Local nOpcX := 4
Local nCount := 0
Local cSequen := "002"
Local aErroAuto := {}
Private lMsErroAuto := .F.
Private lAutoErrNoFile := .F.
//* AberturaApertura dodel ambienteentorno
ConOut("Inicio: " + Time())
ConOut(Repl("-",80))
ConOut(PadC("AlteracaoCambio de Meta de VendaVenta", 80))
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT" TABLES "SCT","SA3"
// Verifica si seexiste oel registro que serase alterado existecambiará
SCT->(DBSetOrder(1))
If SCT->(! MsSeek(xFilial("SCT") + cMeta + cSequen))
cMsgLog += "NãoNo foise localizadaencontró ala Metameta de Vendaventa: " + cB1Cod + ",Sequencia: " + cSequen + CRLF
lOk := .F.
EndIf
//* Alteracao - INÍCIO
aCabec := {}
aGrid := {}
aLinha := {}
//************************************************************************************************
//*** NesteEn este exemploejemplo estamos cambiando alterandola adescripción descriçãoen noel cabeçalhoencabezado ey ala quantidadecantidad dade sequenciasecuencia 002 ***
//************************************************************************************************
//--- Informando oslos dadosdatos dodel Cabeçalhoencabezado
aadd(aCabec, {"CT_DOC", cMeta, Nil})
aadd(aCabec, {"CT_DESCRI", cDescri, Nil})
//--- Informando los osdatos dadosde dala Grid
aLinha := {}
aadd(aLinha,{"LINPOS", "CT_SEQUEN", '002'}) // Para cambiar alterarun umítem itemde dala grid ées necessarionecesario informar suasu sequenciasecuencia comcon "LIMPOSLIMPIOS"
aadd(aLinha,{"AUTDELETA", "N", Nil})
aadd(aLinha,{"CT_QUANT", 5, Nil})
aadd(aGrid, aLinha)
//--- Commit dade la rotinarutina
MSExecAuto({|a, b, c| FATA050(a, b, c)}, aCabec, aGrid, nOpcX)
If !lMsErroAuto
ConOut("Alterada¡Modificada comcon sucessoéxito! " + cMeta)
Else
ConOut("Erro¡Error en nala alteraçãomodificación!")
aErroAuto := GetAutoGRLog()
For nCount := 1 To Len(aErroAuto)
cLogErro += StrTran(StrTran(aErroAuto[nCount], "<", ""), "-", "") + " "
ConOut(cLogErro)
Next nCount
EndIf
RESET ENVIRONMENT
Return(.T.) |
|
| Totvs custom tabs box items |
|---|
| default | no |
|---|
| referencia | ExclusaoEliminación |
|---|
|
Exemplo Ejemplo básico para a execução de Exclusão de Metas de Venda via Rotina ejecutar la Eliminación de Metas de Venta mediante la Rutina Automática: | Bloco de código |
|---|
| #INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function MyFATA050
Local cMeta := "Meta00001"
Local nOpcX := 5
Local nCount := 0
Local aErroAuto := {}
Private lMsErroAuto := .F.
Private lAutoErrNoFile := .F.
//* Abertura do ambiente
ConOut("Inicio: " + Time())
ConOut(Repl("-",80))
ConOut(PadC("ExclusãoEliminación de Meta de VendaVenta", 80))
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT" TABLES "SCT","SA3"
// Verifica si seexiste oel registro que serase alterado existecambiará
SCT->(DBSetOrder(1))
If SCT->(! MsSeek(xFilial("SCT") + cMeta))
cMsgLog += "NãoNo foise localizadaencontró ala Metameta de Vendaventa: " + CRLF
lOk := .F.
EndIf
//* Exclusão - INÍCIO
aCabec := {}
//--- Informando oslos dadosdatos dodel Cabeçalhoencabezado
aadd(aCabec, {"CT_DOC", cMeta, Nil})
//--- Commit de dala rotinarutina
MSExecAuto({|a, b, c| FATA050(a, b, c)}, aCabec, , nOpcX)
If !lMsErroAuto
ConOut("Excluida¡Borrado comcon sucessoéxito! ")
Else
ConOut("Erro¡Error en nael exclusãoborrado!")
aErroAuto := GetAutoGRLog()
For nCount := 1 To Len(aErroAuto)
cLogErro += StrTran(StrTran(aErroAuto[nCount], "<", ""), "-", "") + " "
ConOut(cLogErro)
Next nCount
EndIf
RESET ENVIRONMENT
Return(.T.) |
|
|
