Configurar uma pasta de impressoras automaticamente | Ti Responde 028

No vídeo de hoje, vamos ver como criar uma pasta de impressora automaticamente no Protheus.

Hoje, a dúvida foi feita pelo grande Renato, onde ele possuía uma dúvida em como configurar o Protheus para sempre criar uma pasta de Spool.

Com isso em mente, fiz um vídeo explicando como sobre usar um ponto de entrada para que se a pasta não existir, criá-la automaticamente.

E abaixo o código fonte desenvolvido para exemplificar:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zVid0028
Função para criar uma pasta padrão de impressora
@type  Function
@author Atilio
@since 19/04/2022
@obs Acionar essa função dentro do P.E. AfterLogin ou ChkExec
@example
User Function AfterLogin()
	Local aArea := FWGetArea()

	u_zVid0028()
	
	FWRestArea(aArea)
Return
/*/

User Function zVid0028()
    Local aArea  := FWGetArea()
    Local cPasta := "C:\spool\"

    //Se a pasta não existir, irá criar
    If ! ExistDir(cPasta)
        MakeDir(cPasta)
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Dan (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

Deixe uma resposta

Terminal de Informação