[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
sexta-feira, 16 de março de 2018
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
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
Assinar:
Postagens (Atom)