Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagejava
firstline1
titleExemplo de Inclusão
linenumberstrue
collapsetrue
#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
languagejava
firstline1
titleExemplo de Alteração
linenumberstrue
collapsetrue
#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

...