Bom dia Pessoal,
Não sei se seria uma limitação da microsiga ou algum erro meu. Seguinte estou tentando gerar um relatorio pra JPEG via JOB utilizando configuração apenas no INI:
[ONSTART]
Jobs=U_TESTETMS
;RefreshRate=60
[U_TESTETMS]
Main=U_TESTETMS
Environment=QUEFREN
So que se eu usar o DEV o relatorio é gerado sem problema, mas se eu usar o JOB o relatorio não gera, segue o fonte:
#include "protheus.ch"
#INCLUDE "TBICONN.CH"
User Function TesteTms()
RESET ENVIRONMENT
RpcSetType ( 3 )
PREPARE ENVIRONMENT EMPRESA "03" FILIAL "01" MODULO "FIN"
Private oPrint := TMSPrinter():New(OemToAnsi('Grande Total Fisico'))
private cIniFile := GetADV97()
private cPathRel := GetPvProfString(GetEnvServer(),"StartPath","ERROR", cIniFile )
CONOUT("Inmiciando JOB")
oPrint:SetLandScape()
oPrint:Say(100,0120,"Grupo de Produtos: ")
oPrint:saveallasjpeg(cPathRel + "\impgraf",2500,1200,180)
CONOUT("Fechando JOB")
return()
Isso ja aconteceu com alguem?
Obrigado!
--