Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function fExecInc()
Local cFilialog := "D MG 01 "
Local cMatric := "000002"
Local aCabAuto := {}
Local aItemAuto := {}
Local aLinha := {}
Local lAutom := .T. //execucao sem interface
Local nOpc := 4
Private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL cFilialog
ConOut("Inicio: " + Time())
dbSelectArea("SRA")
dbSetOrder(1)
If SRA->(MsSeek(xFilial() + cMatric))
aadd(aCabAuto, { "RG1_FILIAL", cFilialog, Nil }) // Código da Filial
aadd(aCabAuto, { "RG1_MAT", cMatric, Nil }) // Matrícula do funcionário
//Campos RG1 a serem informados
aadd(aLinha, { "RG1_ORDEM", "001", Nil }) // Ordem do lançamento do funcionário
aadd(aLinha, { "RG1_TPCALC", "1", Nil })
aadd(aLinha, { "RG1_PD", "001", Nil })
aadd(aLinha, { "RG1_VALOR", 1000.00, Nil })
aadd(aLinha, { "RG1_DINIPG", Ctod("02/02/2024"), Nil })
aadd(aLinha, { "RG1_ROT", "FOL", Nil })
aadd(aItemAuto,aLinha)
//Chama a rotina
MsExecAuto({|a, b, c, d| GPEA550(a,b,c,d)}, nOpc, lAutom, aCabAuto, aItemAuto)
//Faz a validacao
If !lMsErroAuto
ConOut("Inclusao efetuada!")
Else
MostraErro()
EndIf
EndIf
ConOut("Fim : " + Time())
RESET ENVIRONMENT
Return Nil
|
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" User Function fExecAlt() Local cFilialog := "D MG 01 " Local cMatric := "000002" Local aCabAuto := {} Local aItemAuto := {} Local aLinha := {} Local nOpcAuto := 4 Private lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "T1" FILIAL cFilialog MODULO "GPE" ConOut("Inicio: " + Time()) dbSelectArea("SRA") dbSetOrder(1) If SRA->(MsSeek(xFilial() + cMatric)) aAdd(aCabAuto, { "RG1_FILIAL", cFilialog, Nil }) // Código da Filial aAdd(aCabAuto, { "RG1_MAT", cMatric, Nil }) // Matrícula do funcionário aadd(aLinha, { "LINPOS", "RG1_ORDEM", "002" }) // Identificando a linha da grid pela Ordem do lançamento // Informação a ser alterada aAddaadd(aLinha, { "RG1_VALORAUTDELETA", 500.00"S", Nil }) // Uso //aaddem caso de exclusão de linha aAdd(aLinha, { "AUTDELETARG1_VALOR", "S"500.00, Nil }) //Caso aadd(aItemAuto,aLinha) //Chamada do ExecAuto MsExecAuto({|a, b, c, d| GPEA550(a,b,c,d)}, nOpcAuto, .T., aCabAuto, aItemAuto) If !lMsErroAuto ConOut("Manutencao concluida!") Else MostraErro() EndIf EndIf ConOut("Fim : " + Time()) RESET ENVIRONMENT Return NIL |
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas