PC Toledo

Bom Dia Pessoal.

Mais uma vez venho com este problema, q ainda não consegui resolver. É o seguinte tenho um sistema de proposta q roda nas estações, puxando o incone do servidor.
No servidor tenho uma pasta chamada SysNew onde coloco todos os meus arquivos e o exe. Ok
Tenha tb uma sub-pasta chamada Proposta, onde pretendo gravar todas as minhas propostas geradas em .txt para depois serem impressas, ok.

No entanto qdo meu programa procura esta pasta para gravar o arquivo .txt dá o seguinte erro:

Error TERM/2014 Create Error: \SysNew\Proposta\PP010869.TXT (Dos Error 3)

Já verifiquei as permissões do servidor para esta pasta , e estão valendo para gravar qualquer coisa, inclusive consigo copiar arquivos para esta pasta normalmente. Se eu colocar uma pasta no proprio micro grava normalmente e não dá error nenhum.

Minha linha de comando é essa:

wRel:='\SysNew\Proposta\PP'+wNroPro+'.Txt'
Set Device To Print
Set Printer To &wRel

O erro dar nesta linha de comando: Set Printer To &wRel

Gostaria de uma ajuda, ou sujestão para trocar as linhas de comando, porque a pasta existe e tem permissão para gravação, de qualquer estação, independente de usuário, já q o xp abre sem pedir senha.

Desde já agradeço a colaboração.

Ricardo Sales Ribeiro escreveu:No entanto qdo meu programa procura esta pasta para gravar o arquivo .txt dá o seguinte erro:

Error TERM/2014 Create Error: \SysNew\Proposta\PP010869.TXT (Dos Error 3)

Colega Ricardo,

A) DOS error 3, é que simplesmente não está encontrando o caminho. Acho que você primeiro deveria posicionar-se na unidade de rede onde está o aplicativo, pegar o nome da unidade e acrescentar no teu PATH (o caminho completo com a unidade). Sugiro assim:

1. Crie um arquivo .BAT para todas as estações, colocando o NET USE (digamos F:, para garantir o mapeamento na rede) + posicione-se na unidade com F: + posicione-se na pasta onde esta o seu sistema CD\SEU_SISTEMA + e chame o seu programa.EXE

2. No seu programa (onde cria seu .TXT), crie uma variavel onde guardará a unidade onde se encontra seu aplicativo, utilizando uma função do CT.LIB:

VVOL:=SUBSTR(ALLTRIM(EXENAME()),1,2)

3. Adicione ao seu PATH onde criará seu .TXT nesta sequência:

SET PRINTER TO (VVOL+'\SysNew\Proposta\PP'+wNroPro+'.Txt')
SET DEVICE TO PRINT

faça seu relatorio

EJECT
SET DEVICE TO SCREEN
SET PRINTER TO

Com certeza que irá solucionar seu problema. Em sintese, seu sistema não encontra seu caminho para gravar. Boa sorte.

:)Pos