sexta-feira, 16 de março de 2018

Ini Informix

[AMBIENTE]
SourcePath=C:\TOTVS\INFORM\apo
RootPath=C:\TOTVS\INFORM\
StartPath=\SYSTEM\
RpoDb=top
RpoLanguage=portuguese
RpoVersion=120
LocalFiles=ads
localdbextension=.dbf
Logprofiler=0
TOPMEMOMEGA=1
x2_path=\data\

[Drivers]
Active=TCP

[TopConnect]
Database=INFORMIX
Server=AA.BBB.CC.DDD
Alias=BDINFORM
Port=7890

[TCP]
TYPE=TCPIP
Port=9999

[General]
InstallPath=C:\
BUILDKILLUSERS=1
consolelog=1
Segmento=YddTQHWW=VZF=yhu
Serie===AV
MaxStringSize=10

[LICENSECLIENT]
SERVER=AAA.BB.CC.DDD
PORT=5555

[SERVICE]
NAME=AppServer
DISPLAYNAME=.AppServer

quinta-feira, 1 de março de 2018

Debugar Direto Função

//Main Function Teste(cPerApu, aFil, cIdApReinf)

User Function Teste(cPerApu, aFil, cIdApReinf)

Local aLog as array
Local cStatReg as Character
Local lExecApr as Logical
Local nX as Numeric

aLog  := {}
cStatReg := "Z"
lExecApr := .F.
nX := 0

Default cPerApu := ""

//Default aFil  := {{'D MG 01'},{'D MG 02'}}

Default aFil  := {{'01'}}

//PREPARE ENVIRONMENT EMPRESA 'T1' FILIAL 'D MG 01' USER 'Administrador' PASSWORD '' TABLES 'CMN' MODULO "TAF"

//RpcSetEnv('T1','D MG 01','Admin', '','CMN', 'TAF'   )

RpcSetEnv('99','01','Admin', '','CMN', 'TAF'   )

Return