Histórico da Página

If ExistBlock ("CT012INTEG")
	//OLa retornorespuesta dodel array devedebe contercontener todas aslas posicoesposiciones preenchidasinformadas, mesmoaunque queno naose alteradasmodifiquen.
	aInteg := ExecBlock("CT012Integ",.F.,.F.,{dDataIni,dDataFim,cContaDe,cContaAte,cCCDe,cCCAte,cMoeda,cSaldo})

	If ValType(aInteg) == "A" .and. Len(aInteg) == 8
		dDataIni	:= aInteg[1]
		dDataFim	:= aInteg[2]
		cContaDe	:= aInteg[3]
		cContaAte	:= aInteg[4]
		cCCDe		:= aInteg[5]
		cCCAte		:= aInteg[6]
		cMoeda		:= aInteg[7]
		cSaldo		:= aInteg[8]
	EndIf
EndIf

#Include 'Protheus.ch'

User function CT012Integ()

	Local dDataIni   := PARAMIXB[1] // DataFecha Inicialinicial
	Local dDataFim := PARAMIXB[2] // DataFecha Finalfinal
	Local cContaDe := PARAMIXB[3] // ContaCuenta Contábilcontable inicial
	Local cContaTe  := PARAMIXB[4] // ContaCuenta Contábilcontable Finalfinal
	Local cCCDe     := PARAMIXB[5] // Centro de Custocosto Inicialinicial
	Local cCCAte    := PARAMIXB[6] // Centro de Custocosto Finalfinal
	Local cMoeda    := PARAMIXB[7] // MoedaMoneda dodel lançamentoregistro
	Local cSaldo     := PARAMIXB[8] // Tipo de Saldosaldo
	Local aRet        := {}

	MsgInfo( 'Tipo de Saldosaldo Originaloriginal: ' + cSaldo )
			  cSaldo := '3'
	MsgInfo( 'Tipo de Saldosaldo Alteradomodificado: ' + cSaldo )

	aRet:={dDataIni,dDataFim,cContaDe,cContaTe,cCCDe,cCCAte,cMoeda,cSaldo}

return aRet

• Se observa que la utilización del PE y sus impactos en el sistema son de responsabilidad del cliente.
• Los ejemplos utilizados en esta documentación solamente son para fines de demostración, cada cliente debe verificar el comportamiento que desea realizar de acuerdo con el objetivo del punto
• Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
• Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.