Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: Implementando Funções de Criptografia com "Nós" e "Trançados"

_Créditos da imagem: Gerada com auxílio do ChatGPT_ # Implementando Funções de Criptografia com "Nós" e "Trançados" A criptografia é um dos campos mais fascinantes da ciência da computação. Recentemente, no projeto experimental [Braided Encryption Message](https://github.com/naldodj/naldodj-braided_encryption_message), explorei como conceitos de "nós" e "trançados" podem ser aplicados na criação de algoritmos de criptografia. Este projeto, embora básico, é uma experiência rica para aprender mais sobre a implementação de funções criptográficas e algumas curiosidades relacionadas ao tema. ## Visão Geral do Projeto O repositório contém duas peças fundamentais: 1. [Arquivo C - `c_braided_encryption_message.c`](https://raw.githubusercontent.com/naldodj/naldodj-braided_encryption_message/refs/heads/main/src/c_braided_encryption_message.c): Implementa funções de criptografia em baixo nível, manipulando diretamente a estrutura dos dados para "...

BlackTDN :: Miscelânea (GPER040 e PDFCreator)

Folha de Pagamento em PDF Um pedido inusitado, uma solução mais inusitada ainda:

“Desejo a impressão da Folha de Pagamento em PDF”

Oras, isso é simples: basta selecionar uma “impressora de PDF”.

“Não, quero a impressão por funcionário! Hoje a usuária já faz isso. Imprime toda a Folha em PDF e depois “recorta” funcionário a funcionário para envio por e-mail. A idéia é automatizar esse processo.”

 

Entendi. À solução:

  1. [x] Verificar se existem “Pontos de Entrada” que permitam a Captura, o Controle e a Verificação da Impressão em GPER040: GPCHKPER, GP040DET e GPROXIMO;
  2. [x] Instalar, no “Client”, uma “Impressora virtual” que permita redirecionar a impressão para arquivo PDF e que mantenha o nome do arquivo a ser impresso: PDFCreator; e
  3. [x] Desenvolver um programa que “encapsule” GPER040 através do “PE” GPCHKPER, filtre os dados de acordo com os parâmetros definidos pelo usuário e chame a rotina de impressão da Folha de Pagamento para fazer o trabalho. Os arquivos serão salvos em uma pasta “PDFSpool” (Configurada no Server do PDFCreator) e posteriormente encaminhados por e-mail.

Pronto. Ei-las.

#INCLUDE "PROTHEUS.CH"     
/*
    Programa    : U_GPCHKPER.PRW
    Funcao      : U_GPCHKPER()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : Ponto de Entrada GPCHKPER executado no  GPER040
                  Chamada a Rotina Customizada de Impressão.
*/ 
USER FUNCTION GPCHKPER()
    
    Local lRet  := .T.
    Local cFun
    
    IF IsInCallStack("u_btdnGR07")
        cFun := "U_GPER040X"
        IF ( FindFunction(cFun) )
            lRet := &cFun.(,)
        EndIF
    EndIF
    
Return( lRet )


 



#INCLUDE "PROTHEUS.CH"     
/*
    Programa    : U_GPROXIMO.PRW
    Funcao      : U_GPROXIMO()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : Ponto de Entrada GPROXIMO executado no  GPER040
                  Será utilizado para verificar se as informações
                  foram impressas
*/                          
USER FUNCTION GPROXIMO()
    
    Local lRet  := .F.
    
    IF IsInCallStack("u_btdnGR07")
        IF ( Type("__lGPROXIMO")=="L" )
            __lGPROXIMO    := .T.
        Else
            _SetNamedPrvt( "__lGPROXIMO" , .T. , "u_btdnGR07" )
        EndIF    
    EndIF
 
Return( lRet )


 



#INCLUDE "PROTHEUS.CH"     
/*
    Programa    : U_GP040DET.PRW
    Funcao      : U_GP040DET()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : Ponto de Entrada GP040DET executado no  GPER040
                  Será utilizado para verificar se as informações
                  foram impressas
*/                          
USER FUNCTION GP040DET()
    
    Local lRet    := .F.
    
    IF IsInCallStack("u_btdnGR07")
        IF ( Type("__lGP040DET")=="L" )
            __lGP040DET    := .T.
        Else
            _SetNamedPrvt( "__lGP040DET" , .T. , "u_btdnGR07" )
        EndIF    
    EndIF
 
Return( lRet )


 



#INCLUDE "PROTHEUS.CH"
 
#IFNDEF F_NAME
    #DEFINE F_NAME 1
#ENDIF
#IFNDEF F_SIZE
    #DEFINE F_SIZE 2
#ENDIF
#IFNDEF F_DATE
    #DEFINE F_DATE 3
#ENDIF
#IFNDEF F_TIME
    #DEFINE F_TIME 4
#ENDIF
#IFNDEF F_ATTR
    #DEFINE F_ATTR 5
#ENDIF
  
#DEFINE AMB_SERVER 1
#DEFINE AMB_CLIENT 2
 
#DEFINE PRT_SERVER 1
#DEFINE PRT_CLIENT 2
 
#DEFINE PRN_ID          1
#DEFINE PRN_NAME        2
#DEFINE PRN_FNAME       3
#DEFINE PRN_CONTINUE    4
#DEFINE PRN_MAIL        5
#DEFINE PRN_SENTMAIL    6
#DEFINE PRN_LOCKBYNAME  7
 
#DEFINE ELEM_PRN        7
 
#DEFINE N_SLEEP       500
 
/*
    Programa    : u_btdnGR07.PRW
    Funcao      : u_btdnGR07()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : Gerar informações da Folha em PDF por funcionário
*/                          
User Function btdnGR07()
 
    MsAguarde({||__ChkAlias()},"Preparando Ambiente.","Aguarde...")
        GPER040()
    MsAguarde({||__ChkAlias()},"Restaurando Ambiente.","Aguarde...")
 
Return(__FechaRel())
 
/*
    Programa    : u_btdnGR07.PRW
    Funcao      : __ChkAlias()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : Resetar Alias em Memoria
*/                          
Static Function __ChkAlias()
 
    Local aAlias    := Array(0)
    Local cAlias
    
    Local nAlias
    Local nAliases
 
    cAlias := "SR0"
    While ( cAlias <= "SRZ" )
        aAdd(aAlias,cAlias)
        cAlias := __Soma1(cAlias)
    End While
 
    aAdd(aAlias,"RHH")
    aAdd(aAlias,"CTT")
    aAdd(aAlias,"SI3")
    
    nAliases := Len( aAlias )
    For nAlias := 1 To nAliases
        cAlias := aAlias[nAlias]
        IF ( Select(cAlias) > 0 )
            (cAlias)->( dbCloseArea() )
            ChkFile(cAlias)
        EndIF
    Next nAlias
 
Return( NIL )
 
/*
    Programa    : u_btdnGR07.PRW
    Funcao      : U_GPER040X()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : Processa a Geração e envio dos arquivos
*/ 
User Function GPER040X()
    
    Local bProcessa
 
    Local lRet     := .T.
    Local lServer
    
    Local cTitulo
    Local cLInternet
 
    Local lGPER040
    Local lu_btdnGR0
    Local lbtdnGR07
    Local lGPCHKPER
    
    Local lProcessa    
    
    BEGIN SEQUENCE
 
        lGPER040 := IsInCallStack("GPER040")
        IF .NOT.( lGPER040 )
            APMsgAlert( OemToAnsi("Chamada Inválida"),OemToAnsi( "ATENÇÃO" ) )
            BREAK
        EndIF
 
        lu_btdnGR07 := IsInCallStack("u_btdnGR07")
        IF .NOT.( lu_btdnGR07 )
            APMsgAlert( OemToAnsi("Chamada Inválida"),OemToAnsi( "ATENÇÃO" ) )
            BREAK
        EndIF
 
        lGPCHKPER    := IsInCallStack("u_btdnGR07")
        IF .NOT.( lGPCHKPER )
            APMsgAlert( OemToAnsi("Chamada Inválida"),OemToAnsi( "ATENÇÃO" ) )
            BREAK
        EndIF
    
        lbtdnGR07 := IsInCallStack("btdnGR07")
 
        IF ( Type("__cINTERNET" ) == "U" )
            _SetNamedPrvt( "__cINTERNET",NIL ,"u_btdnGR07" )
        EndIF
        cLInternet    := __cINTERNET
 
        IF .NOT.( Type( "aPVGper040" ) == "A" )
            PVGper040((__cINTERNET=="AUTOMATICO"))
        EndIF    
 
        IF .NOT.( Type( "aPVGper040" ) == "A" )
            APMsgAlert(OemToAnsi("Ocorreram Problemas durante a Configuração de Impressão. Contate o Administrador do Sistema"),OemToAnsi("ATENÇÃO"))
            lRet := .F.
            BREAK
        EndIF
        
        IF .NOT.( nOR(__nOrdem,1,2,3) == 3 ) //1:RA_FILIAL+RA_CC+RA_MAT;2:RA_FILIAL+RA_MAT;3:RA_FILIAL+RA_NOME
            APMsgAlert(OemToAnsi("Ordem de Impressão Inválida. Selecione por: C.Custo Cadastro;Matrícula;ou Nome"),OemToAnsi("ATENÇÃO"))
            lRet := .F.
            BREAK
        EndIF
 
        IF .NOT.( __aReturn[5] == 2 ) //Via SPOOL
            APMsgAlert( OemToAnsi( "Tipo de Impressão não Permitida. Selecione Tipo Impressão: Via Spool" ),OemToAnsi( "ATENÇÃO" ) )
            lRet := .F.
            BREAK
        EndIF
 
        IF .NOT.( "PDFCREATOR" $ Upper(__cPrtSelected) ) //Verifica a Impressora Selecionada
            APMsgAlert( OemToAnsi( "Impressora INVÁLIDA. Em Opções selecione: PDFCreator" ),OemToAnsi( "ATENÇÃO" ) )
            lRet := .F.
            BREAK
        EndIF
        
        lServer := ( __nAmbiente == AMB_SERVER )
        IF ( lServer ) //Verifica se a impressão será no server
            APMsgAlert( OemToAnsi( "Impressão no servidor não permitida. Selecione a impressão no Cliente" ),OemToAnsi( "ATENÇÃO" ) )
            lRet := .F.
            BREAK
        EndIF
   
        IF .NOT.( lbtdnGR07 )
        
            cTitulo   := Capital(Titulo)
            bProcessa := { |lEnd| btdnGR07(@lEnd,@lProcessa,@cTitulo) }
            lProcessa := IsInCallStack("PROCESSA")
            
            __FechaRel()
    
            IF .NOT.( lProcessa )
                lProcessa := .T.
                Processa(bProcessa,cTitulo)
            Else
                Eval(bProcessa,.F.)
            EndIF    
            
            __cINTERNET    := cLInternet
        
            lRet := .F.
            
            BREAK
                    
        EndIF
 
        lRet := .T.
 
    END SEQUENCE    
 
Return( lRet ) //Saída em GPER040
 
/*
    Programa    : u_btdnGR07.PRW
    Funcao      : btdnGR07()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : Processa a Geração e envio dos arquivos
*/ 
Static Function btdnGR07(lEnd,lProcessa,cTitulo)
    
    Local aArea         := GetArea()
    Local aPDFFile      := Array(1)
    Local aPDFFiles     := Array(0)
    
    Local cLInternet    := __cINTERNET
    
    Local cAlias
    Local cEmail
    
    Local cSRVPath
    Local cCLIPath
    
    Local cPDFFile
    Local cPDFPath
    
    Local cAnoMesRef    := (SubStr(__cMesAnoRef,-4)+SubStr(__cMesAnoRef,1,2))
    
    Local lServer       := ( __nAmbiente == AMB_SERVER )
    Local nPrtIn        := IF(lServer,PRT_SERVER,PRT_CLIENT)
    
    Local lMailOK       := .T.
    Local lContinue     := .F.
    Local lSendMail     := .F.
    Local lRptStatus    := .NOT.( IsInCallStack("RptStatus") )
    
    Local nID
    Local nIDs
    
    Local nPDF
    Local nPDFs
 
    Local nPVar
    Local nPVars
    
    Local cVar
    Local cTipo
    Local xValue
    
    Local cSpace30        := Space(30)
    
    Local cMesArqRef
    
    Local aOrdBag
    
    Local cArqMov
    Local cAliasMov
    Local cMesArqRef
 
    Local dChkDtRef
    
    Local lArqMov
 
    Local bGR040Imp     := {|lEnd|GR040Imp(@lEnd,__wnRel,__cString,__cMesAnoRef,__nTpContr,.F.)}
 
    Local bException    := { |e| oException := e,BREAK(e) }
    Local bErrorBlock
 
    Local oException
    
    bErrorBlock    := ErrorBlock( bException )
    BEGIN SEQUENCE
 
        DEFAULT lEnd    := .F.
        IF .NOT.( Type("lAbortPrint") == "L" )
            Private lAbortPrint    := .F.
        EndIF
        
        cSRVPath        := "\PDFSpool\"
        MakeDir(cSRVPath)
        
        IF ( lServer )
            cPDFPath    := cSRVPath
        Else    
            SplitPath(GetTempPath(),@cCLIPath)
            IF (SubStr(cCLIPath,-1)=="\")
                cCLIPath += SubStr(cSRVPath,2)
            Else
                cCLIPath += cSRVPath
            EndIF
            MakeDir(cCLIPath)
            cPDFPath    := cCLIPath
        EndIF
        
        IF ( __nRelat == 4 )
            cMesArqRef := "13"+SubStr(__cMesAnoRef,-4)
        Else
            cMesArqRef := __cMesAnoRef
        EndIF
    
        IF .NOT.( __nRelat == 5 )
            aOrdBag     := Array(0)
            cArqMov     := ""
            cAliasMov   := ""
            dChkDtRef   := CtoD("01/"+SubStr(__cMesAnoRef,1,2)+"/"+SubStr(__cMesAnoRef,-4),"DDMMYY")
            lArqMov     := OpenSrc(@cMesArqRef,@cAliasMov,@aOrdBag,@cArqMov,@dChkDtRef,.F.)
            IF .NOT.( lArqMov )
                UserException("No Table/View Data")
            EndIF
            IF Empty( cArqMov )
                IF ( __nRelat == 4 )
                    cArqMov := RetSQLName("SRI")
                Else
                    cArqMov := RetSQLName("SRC")
                EndIF
            Else
                fFimArqMov(@cAliasMov,@aOrdBag,@cArqMov)    
            EndIF
        Else
            cArqMov := RetSQLName("RHH")
        EndIF
    
        MsAguarde( {|| cAlias := QueryView(@cArqMov,@cAnoMesRef,@__Semana) },"Obtendo Dados no SGBD","Aguarde..." )
        
        IF ( Empty( cAlias ) .or. ( Select( cAlias ) == 0 ) )
            UserException("No Table/View Data")
        EndIF
 
        IF ( __nTamanho == "P" )
            cTipo := "080"
        ElseIF ( __nTamanho == "G" )
            cTipo := "220"
        Else
            cTipo := "132"
        EndIF
 
        cTipo    += IF(__aReturn[4]==1,"P","L")
 
        lServer  := ( __nAmbiente == AMB_SERVER )
 
        IF ( lProcessa )
            ProcRegua(0)
        EndIF    
   
        While (cAlias)->( .NOT.( Eof() ) )
        
            __cFilDe      := (cAlias)->RA_FILIAL
            __cFilAte     := __cFilDe
            __cCcDe       := (cAlias)->RA_CC
            __cCcAte      := __cCcDe
            __cMatDe      := (cAlias)->RA_MAT
            __cMatAte     := __cMatDe
            __cNomDe      := AllTrim((cAlias)->RA_NOME)
            __cNomAte     := __cNomDe
            __nTpContr    := (cAlias)->( Val( RA_TPCONTR ) )
            
            cEmail        := AllTrim( (cAlias)->RA_EMAIL )
    
            IF ( lProcessa )
                IncProc("["+__cFilDe+"]["+__cMatDe+"]["+Lower(__cNomDe)+"]")
                IF ( ( lEnd ) .or. ( lAbortPrint ) )
                    BREAK
                EndIF
            EndIF    
     
            __cIdPrnRel := __Soma1( __cIdPrnRel )
    
            __cPDFFile  := cEmpAnt
            __cPDFFile  += "-"
            __cPDFFile  += __cFilDe
            __cPDFFile  += "-"
            __cPDFFile  += AllTrim(__cCcDe)
            __cPDFFile  += "-"
            __cPDFFile  += __cMatDe
            __cPDFFile  += "-"
            __cPDFFile  += StrTran(__cNomDe," ","-")
            __cPDFFile  += "-"
            __cPDFFile  += "ccheque"
            __cPDFFile  += "-"            
            __cPDFFile  += cAnoMesRef
            __cPDFFile  += "-"
            __cPDFFile  += __cIdPrnRel
            
            __cPDFFile  := Lower(__cPDFFile)
    
            lLockByName := LockByName( __cPDFFile,.T. )
            
            aAdd( __aIdPrnRel,Array(ELEM_PRN) )
            
            nID := Len( __aIdPrnRel )
            
            __aIdPrnRel[nID][PRN_ID]         := __cIdPrnRel
            __aIdPrnRel[nID][PRN_NAME]       := __cPDFFile
            __aIdPrnRel[nID][PRN_FNAME]      := 0
            __aIdPrnRel[nID][PRN_CONTINUE]   := .F.
            __aIdPrnRel[nID][PRN_MAIL]       := cEmail
            __aIdPrnRel[nID][PRN_SENTMAIL]   := .F.
            __aIdPrnRel[nID][PRN_LOCKBYNAME] := lLockByName
    
            IF ( lLockByName )
                    
                __lGP040DET := .F. 
                __lGPROXIMO := .F.
                    
                __mv_par04 := __cFilDe
                __mv_par05 := __cFilAte
                __mv_par06 := __cCcDe
                __mv_par07 := __cCcAte
                __mv_par08 := __cMatDe
                __mv_par09 := __cMatAte
                __mv_par10 := __cNomDe
                __mv_par11 := __cNomAte
                __mv_par12 := __cSit
                __mv_par13 := __cCat
                
                nPVars := Len( aPVGper040 )
                For nPVar := 1 To nPVars
                    cVar    := "__"+aPVGper040[nPVar][1]
                    xValue  := aPVGper040[nPVar][1]
                    &xValue := &cVar
                Next nPVar
   
                PrinterDisk(.F.)
                PrinterWin(.T.)
                PreparePrint(.T.,__cPrtSelected,.F.,__cPDFFile,.F.,1)
                InitPrint(@nPrtIn,@cSpace30,@cTipo,.F.,@__cPDFFile)
 
                IF ( lRptStatus )
                    RptStatus(bGR040Imp,cTitulo)
                Else
                    Eval(bGR040Imp)
                EndIF
        
                __FechaRel()
        
                lContinue                      := ( __lGP040DET .or. __lGPROXIMO )
                __aIdPrnRel[nID][PRN_CONTINUE] := lContinue
                
                IF .NOT.( lContinue )
                    cPDFFile    := ( cPDFPath+__cPDFFile+".pdf" )
                    IF File( cPDFFile )
                        fErase( cPDFFile )
                    EndIF
                EndIF
                    
            EndIF
            
            (cAlias)->( dbSkip() )
    
        End While
        
        (cAlias)->( dbCloseArea() ) 
        
        Sleep( N_SLEEP )
 
        IF .NOT.( __lIsBlind )
            lSendMail := MsgYesNo( OemToAnsi( "Geração Finalizada. Deseja enviar os arquivos por e-mail?" ),OemToAnsi( "ATENÇÃO" ) )
            IF .NOT.( lSendMail )
                BREAK
            EndIF
        EndIF
        
        Sleep( N_SLEEP )
 
        aDir(cPDFPath+"*.pdf",@aPDFFiles)
        aPDFFiles := Directory(cPDFPath+"*.pdf")
        nPDFs     := Len( aPDFFiles )
 
        nIDs      := Len( __aIdPrnRel )
 
        IF ( lProcessa )
            ProcRegua(nPDFs)
        EndIF
 
        For nPDF := 1 To nPDFs
            cPDFFile := Lower( aPDFFiles[nPDF][F_NAME] )
            IF ( lProcessa )
                IncProc("Verificando Arquivo : ["+cPDFFile+"]")
                IF ( ( lEnd ) .or. ( lAbortPrint ) )
                    BREAK
                EndIF                
            EndIF    
            aPDFFiles[nPDF][F_NAME] := ( cPDFPath + cPDFFile )
        Next nPDF
 
        IF ( lProcessa )
            ProcRegua(nIDs)
        EndIF
 
        For nID := 1 TO nIDs
            __cPDFFile := __aIdPrnRel[nID][PRN_NAME]
            IF ( lProcessa )
                IncProc("Verificando Arquivo : ["+__cPDFFile+"]")
                IF ( ( lEnd ) .or. ( lAbortPrint ) )
                    BREAK
                EndIF                
            EndIF    
            For nPDF := 1 To nPDFs
                cPDFFile    := aPDFFiles[nPDF][F_NAME]
                IF ( __cPDFFile $ cPDFFile )
                    __aIdPrnRel[nID][PRN_FNAME]           := nPDF
                    IF ( __aIdPrnRel[nID][PRN_CONTINUE] )
                        __aIdPrnRel[nID][PRN_CONTINUE]    := ( aPDFFiles[__aIdPrnRel[nID][PRN_FNAME]][F_SIZE] > 0 )
                    EndIF
                    EXIT
                EndIF
            Next nPDF
        Next nID    
        
        IF ( lProcessa )
            ProcRegua(0)
        EndIF
        
        For nID := 1 TO nIDs
            __cPDFFile := __aIdPrnRel[nID][PRN_NAME]
            IF ( lProcessa )
                IncProc("Processando : ["+__cPDFFile+"]")
                IF ( ( lEnd ) .or. ( lAbortPrint ) )
                    BREAK
                EndIF
            EndIF    
            IF ( __aIdPrnRel[nID][PRN_FNAME] == 0 )
                Loop
            EndIF
            IF .NOT.( __aIdPrnRel[nID][PRN_CONTINUE] )
                Loop
            EndIF
            cEmail := __aIdPrnRel[nID][PRN_MAIL]
            IF Empty( cEmail )
                Loop
            EndIF
            IncProc("Enviando : ["+cEmail+"]")
            cPDFFile := aPDFFiles[__aIdPrnRel[nID][PRN_FNAME]][F_NAME]
            IF File( cPDFFile )
                IF .NOT.( lServer )
                    lMailOK := __CopyFile(cPDFFile,StrTran(cPDFFile,cPDFPath,cSRVPath))
                    IF ( lMailOK )
                        cPDFFile := StrTran(cPDFFile,cPDFPath,cSRVPath)
                    EndIF
                EndIF
                lMailOK := File( cPDFFile )
                IF ( lMailOK )
                    aPDFFile[1] := cPDFFile
                    /*
                        Parâmetros (SX6) Utilizados pela Rotina de envio de e-mail
                        
                        MV_SUBJLE
                        MV_RELFROM    //E-mail utilizado no campo FROM no envio de relatórios por e-mail
                        MV_RELSERV    //Nome do Servidor de Envio de E-mail utilizado nos relatórios
                        MV_RELAUTH    //Servidor de EMAIL necessita de Autenticação? (.T.)
                        MV_RELACNT    //Conta a ser utilizada no envio de E-Mail para os relatórios
                        MV_RELPSW     //Senha para autenticação no servidor de e-mail
                        MV_RELTIME    //Timeout no Envio de EMAIL.
                        MV_MAILADT    //Conta oculta de auditoria utilizada no envio de e-mail para os relatórios
                    */
                    __cINTERNET := "AUTOMATICO"
                        lMailOK := SetMail(@cEmail,@Titulo,@Titulo,@aPDFFile,.F.,.F.,.F.,.F.,"")
                    __cINTERNET := cLInternet
                    Sleep( N_SLEEP )
                EndIF
                __aIdPrnRel[nID][PRN_SENTMAIL] := lMailOK
                IF File( cPDFFile )
                    fErase( cPDFFile )
                EndIF
            EndIF
        Next nID
 
        IF ( lProcessa )
            ProcRegua(nIDs)
        EndIF
        
        For nID := 1 TO nIDs
            __cPDFFile := __aIdPrnRel[nID][PRN_NAME]
            IF ( lProcessa )
                IncProc("Excluindo Arquivo : ["+__cPDFFile+"]")
                IF ( ( lEnd ) .or. ( lAbortPrint ) )
                    BREAK
                EndIF
            EndIF    
            IF ( __aIdPrnRel[nID][PRN_FNAME] == 0 )
                Loop
            EndIF
            IF .NOT.( __aIdPrnRel[nID][PRN_LOCKBYNAME] )
                Loop    
            EndIF
            __cPDFFile := __aIdPrnRel[nID][PRN_NAME]
            cPDFFil    := aPDFFiles[__aIdPrnRel[nID][PRN_FNAME]][F_NAME]
            IF File( cPDFFile )
                fErase( cPDFFile )
            EndIF    
            UnLockByName( __cPDFFile,.T. )
        Next nID
 
        IF ( lProcessa )
            ProcRegua(nIDs)
        EndIF
        
        For nID := 1 TO nIDs
            IF ( lProcessa )
                IncProc("Liberando Registros : ["+__cPDFFile+"]")
                IF ( ( lEnd ) .or. ( lAbortPrint ) )
                    BREAK
                EndIF
            EndIF    
            IF ( __aIdPrnRel[nID][PRN_LOCKBYNAME] )
                __cPDFFile := __aIdPrnRel[nID][PRN_NAME]
                UnLockByName( __cPDFFile,.T. )
            EndIF
        Next nID
 
        IF .NOT.( lServer )
       
            IF ( lProcessa )
                ProcRegua(nPDFs)
            EndIF
            
            For nPDF := 1 To nPDFs
                cPDFFile := aPDFFiles[nPDF][F_NAME]
                IF ( lProcessa )
                    IncProc("Excluindo Arquivo : ["+StrTran(__cPDFFile," ","")+"]")
                    IF ( ( lEnd ) .or. ( lAbortPrint ) )
                        BREAK
                    EndIF
                EndIF    
                IF File( cPDFFile )
                    fErase( cPDFFile )
                EndIF    
            Next nPDF
        
        EndIF
    
    RECOVER
    
        __FechaRel()
        IF ( Select( cAlias ) > 0 )
            (cAlias)->( dbCloseArea() )
        EndIF
        
          IF ( Type("__aIdPrnRel") == "A" )
              nIDs := Len( __aIdPrnRel )
            IF ( lProcessa )
                ProcRegua(nIDs)
            EndIF
            For nID := 1 TO nIDs
                __cPDFFile := __aIdPrnRel[nID][PRN_NAME]
                IF ( lProcessa )
                    IncProc("Liberando Registros : ["+__cPDFFile+"]")
                    IF ( ( lEnd ) .or. ( lAbortPrint ) )
                        BREAK
                    EndIF
                EndIF
                IF ( __aIdPrnRel[nID][PRN_LOCKBYNAME] )
                    __cPDFFile := __aIdPrnRel[nID][PRN_NAME]
                    UnLockByName( __cPDFFile,.T. )
                EndIF
            Next nID
        EndIF    
        
    END SEQUENCE
    ErrorBlock( bErrorBlock )
    
    RestArea( aArea )
 
Return( NIL )
 
/*
    Programa    : u_btdnGR07.PRW
    Funcao      : QueryView()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : Retorna View para o Processo
*/ 
Static Function QueryView(cArqMov,cAnoMesRef,cSemana)
 
    Local aSitFolh      := Array(0)
    Local aCatFunc      := Array(0)
        
    Local cSitFolh      := ""
    Local cCatFunc      := ""
    Local cQExists      := ""
    
    Local cAlias        := GetNextAlias()
 
    Local nBL
    Local nEL
 
    nEL := Len(__cSit)
    For nBL := 1 To nEL
        aAdd(aSitFolh,SubStr(__cSit,nBL,1))
    Next nBL
    
    nEL := Len(aSitFolh)
    For nBL := 1 To nEL 
        cSitFolh += "'"+aSitFolh[nBL]+"'"
        IF ( nBL < nEL ) 
            cSitFolh += ","
        EndIF    
    Next nBL
    IF Empty( cSitFolh )
        cSitFolh := "' '"
    EndIF
    cSitFolh := "%("+cSitFolh+")%"    
 
    nEL := Len(__cCat)
    For nBL := 1 To nEL
        aAdd(aCatFunc,SubStr(__cCat,nBL,1))
    Next nBL
        
    nEL := Len(aCatFunc)
    For nBL := 1 To nEL 
        cCatFunc += "'"+aCatFunc[nBL]+"'"
        IF ( nBL < nEL ) 
            cCatFunc += ","
        EndIF
    Next nBL
    IF Empty( cCatFunc )
        cCatFunc := "' '"
    EndIF
    cCatFunc := "%("+cCatFunc+")%"
    
    DO CASE
        CASE ( "RC"  $ cArqMov )
            cQExists := "AND EXISTS "
            cQExists += "("
            cQExists += " SELECT DISTINCT 1"
            cQExists += "  FROM "+cArqMov+" TMOV"
            cQExists += " WHERE TMOV.D_E_L_E_T_=' '"
            cQExists += "   AND TMOV.RC_FILIAL=SRA.RA_FILIAL"
            cQExists += "   AND TMOV.RC_MAT=SRA.RA_MAT"
            cQExists += "   AND TMOV.RC_SEMANA='"+cSemana+"'"
            cQExists += ")"
        CASE ( "RI"  $ cArqMov )
            cQExists := "AND EXISTS "
            cQExists += "("
            cQExists += " SELECT DISTINCT 1"
            cQExists += "  FROM "+cArqMov+" TMOV"
            cQExists += " WHERE TMOV.D_E_L_E_T_=' '"
            cQExists += "   AND TMOV.RI_FILIAL=SRA.RA_FILIAL"
            cQExists += "   AND TMOV.RI_MAT=SRA.RA_MA"
            cQExists += ")"
        CASE ( "RHH" $ cArqMov )
            cQExists := "AND EXISTS "
            cQExists += "("
            cQExists += " SELECT DISTINCT 1"
            cQExists += "  FROM "+cArqMov+" TMOV"
            cQExists += " WHERE TMOV.D_E_L_E_T_=' '"
            cQExists += "   AND TMOV.RHH_FILIAL=SRA.RA_FILIAL"
            cQExists += "   AND TMOV.RHH_MAT=SRA.RA_MAT"
            cQExists += "   AND TMOV.RHH_MESANO='"+cAnoMesRef+"'"
            cQExists += ")"
    END CASE
    
    cQExists := "%"+cQExists+"%"
    
    BEGINSQL ALIAS cAlias
        %noParser%
        SELECT
             SRA.RA_FILIAL
            ,SRA.RA_MAT
            ,SRA.RA_NOME
            ,SRA.RA_CC
            ,SRA.RA_SITFOLH
            ,SRA.RA_CATFUNC
            ,SRA.RA_TPCONTR
            ,SRA.RA_EMAIL
        FROM 
            %table:SRA% SRA 
        WHERE SRA.%notDel%
          %exp:cQExists%
          AND SRA.RA_FILIAL BETWEEN %exp:__cFilDe% AND %exp:__cFilAte%
          AND SRA.RA_MAT BETWEEN %exp:__cMatDe% AND %exp:__cMatAte%
          AND SRA.RA_NOME BETWEEN %exp:__cNomDe% AND %exp:__cNomAte%
          AND SRA.RA_CC    BETWEEN %exp:__cCCDe% AND %exp:__cCCAte%
          AND SRA.RA_SITFOLH IN %exp:cSitFolh%
          AND SRA.RA_CATFUNC IN %exp:cCatFunc%
    ENDSQL
 
Return(cAlias)
 
/*
    Programa    : u_btdnGR07.PRW
    Funcao      : PVGper040()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : GetSet de Variáveis
*/ 
Static Function PVGper040(lIsBlind)
 
    Local nPVar
    Local nPVars
 
    Local cVar
    Local xValue
    
    Local aStackParameters
 
    BEGIN SEQUENCE
 
        _SetNamedPrvt("__cString",ReadStackParameters("GPER040",Upper("cString"),NIL,NIL,@aStackParameters),"u_btdnGR07")
        _SetNamedPrvt("__cMesAnoRef",ReadStackParameters("GPER040",Upper("cMesAnoRef"),NIL,NIL,@aStackParameters),"u_btdnGR07")
        _SetNamedPrvt("__nTpContr",ReadStackParameters("GPER040",Upper("nTpContr"),NIL,NIL,@aStackParameters),"u_btdnGR07")
 
        aSize( aStackParameters,0 )
        aStackParameters := NIL
 
        _SetNamedPrvt( "aPVGper040"    ,Array(0) ,"u_btdnGR07" )
        
        _SetNamedPrvt( "__cIdPrnRel"   ,"0000"     ,"u_btdnGR07" )
        _SetNamedPrvt( "__aIdPrnRel"   ,Array(0)   ,"u_btdnGR07" )
        _SetNamedPrvt( "__cPrtSelected",GetPrtSelected(),"u_btdnGR07" )
    
        // Pega o ambiente para impressao do usuario (SERVER ou CLIENT)
        _SetNamedPrvt( "__nAmbiente",SetPrintEnv(),"u_btdnGR07" )
                        
        _SetNamedPrvt( "__lGP040DET",.F.,"u_btdnGR07" )
        _SetNamedPrvt( "__lGPROXIMO",.F.,"u_btdnGR07" )
        
        _SetNamedPrvt( "__cPDFFile","","u_btdnGR07" )
        _SetNamedPrvt( "__lIsBlind",lIsBlind,"u_btdnGR07" )
        
        aAdd( aPVGper040,{ "aReturn" ,{"",1,"",2,2,1,"",1} } )
        aAdd( aPVGper040,{ "wnRel"   ,"GPER040" } )
        aAdd( aPVGper040,{ "Titulo"  ,"GPER040" } )
        aAdd( aPVGper040,{ "cPerg"   ,"GPR040" } ) 
        
        aAdd( aPVGper040,{ "nOrdem"  ,1 } )
        aAdd( aPVGper040,{ "dDataRef",IF( ( Type("dDataBase")=="D"),dDataBase,MsDate() ) } )
        aAdd( aPVGper040,{ "dDtaComp",IF( ( Type("dDataBase")=="D"),dDataBase,MsDate() ) } )
        aAdd( aPVGper040,{ "nRelat"  ,2 } )
        aAdd( aPVGper040,{ "Semana"  ,Space(GetSx3Cache("RC_SEMANA","X3_TAMANHO")) } )
        aAdd( aPVGper040,{ "cFilDe"  ,Space(GetSx3Cache("RA_FILIAL","X3_TAMANHO")) } )
        aAdd( aPVGper040,{ "cFilAte" ,Replicate("Z",GetSx3Cache("RA_FILIAL","X3_TAMANHO")) } )
        aAdd( aPVGper040,{ "cCcDe"   ,Space(GetSx3Cache("RA_CC","X3_TAMANHO")) } )
        aAdd( aPVGper040,{ "cCcAte"  ,Replicate("Z",GetSx3Cache("RA_CC","X3_TAMANHO")) } )
        aAdd( aPVGper040,{ "cMatDe"  ,Space(GetSx3Cache("RA_MAT","X3_TAMANHO")) } )
        aAdd( aPVGper040,{ "cMatAte" ,Replicate("Z",GetSx3Cache("RA_MAT","X3_TAMANHO")) } )
        aAdd( aPVGper040,{ "cNomDe"  ,Space(GetSx3Cache("RA_NOME","X3_TAMANHO")) } )
        aAdd( aPVGper040,{ "cNomAte" ,Space(GetSx3Cache("RA_NOME","X3_TAMANHO")) } )
        aAdd( aPVGper040,{ "cSit"    ,"A" } )
        aAdd( aPVGper040,{ "cCat"    ,"M" } )
        aAdd( aPVGper040,{ "lSalta"  ,.F. } )
        aAdd( aPVGper040,{ "cSinAna" ,"A" } )
        aAdd( aPVGper040,{ "lImpFil" ,.F. } )
        aAdd( aPVGper040,{ "lImpEmp" ,.F. } )
        aAdd( aPVGper040,{ "lImpNiv" ,.F. } )
        aAdd( aPVGper040,{ "lUnicNV" ,.F. } )
        aAdd( aPVGper040,{ "lImpTot" ,.F. } )
        aAdd( aPVGper040,{ "cTipCC"  ,1 } )
        aAdd( aPVGper040,{ "cRefOco" ,1 } )
        aAdd( aPVGper040,{ "nTpContr",1 } )
        aAdd( aPVGper040,{ "nTamanho","M" } )
 
        aAdd( aPVGper040,{ "mv_par01"  ,dDataRef } )
        aAdd( aPVGper040,{ "mv_par02"  ,nRelat   } )
        aAdd( aPVGper040,{ "mv_par03"  ,Semana   } )
        aAdd( aPVGper040,{ "mv_par04"  ,cFilDe   } )
        aAdd( aPVGper040,{ "mv_par05"  ,cFilAte  } )
        aAdd( aPVGper040,{ "mv_par06"  ,cCcDe    } )
        aAdd( aPVGper040,{ "mv_par07"  ,cCcAte   } )
        aAdd( aPVGper040,{ "mv_par08"  ,cMatDe   } )
        aAdd( aPVGper040,{ "mv_par09"  ,cMatAte  } )
        aAdd( aPVGper040,{ "mv_par10"  ,cNomDe   } )
        aAdd( aPVGper040,{ "mv_par11"  ,cNomAte  } )
        aAdd( aPVGper040,{ "mv_par12"  ,cSit     } )
        aAdd( aPVGper040,{ "mv_par13"  ,cCat     } )
        aAdd( aPVGper040,{ "mv_par14"  ,lSalta   } )
        aAdd( aPVGper040,{ "mv_par15"  ,cSinAna  } )
        aAdd( aPVGper040,{ "mv_par16"  ,2        } )
        aAdd( aPVGper040,{ "mv_par17"  ,2        } )
        aAdd( aPVGper040,{ "mv_par18"  ,2        } )
        aAdd( aPVGper040,{ "mv_par19"  ,2        } )
        aAdd( aPVGper040,{ "mv_par20"  ,2        } )
        aAdd( aPVGper040,{ "mv_par21"  ,cTipCC   } )
        aAdd( aPVGper040,{ "mv_par22"  ,cRefOco  } )
        aAdd( aPVGper040,{ "mv_par23"  ,nTpContr } )
        
        nPVars := Len( aPVGper040 )
        For nPVar := 1 To nPVars
            cVar := aPVGper040[nPVar][1]
            IF ( Type( cVar ) == "U" )
                xValue    := aPVGper040[nPVar][2]
                _SetNamedPrvt( cVar ,xValue,"u_btdnGR07" )
            Else
                cVar    := aPVGper040[nPVar][1]
                xValue  := &cVar
                aPVGper040[nPVar][2] := xValue
            EndIF
            _SetNamedPrvt( "__"+cVar,xValue,"u_btdnGR07" )
        Next nPVar
        
        IF ( cSinAna == "S" )
            __cSinAna  := ( cSinAna := "A" )
            __mv_par15 := ( mv_par15 := cSinAna )
        EndIF
        IF ( lImpFil )
            __lImpFil  := ( lImpFil := .F. )
            __mv_par16 := ( mv_par16 := 2 )
        EndIF
        IF ( lImpEmp )
            __lImpEmp  := ( lImpEmp := .F. )
            __mv_par17 := ( mv_par17 := 2 )    
        EndIF
        IF ( lImpNiv )
            __lImpNiv  := ( lImpNiv := .F. )
            __mv_par18 := ( mv_par18 := 2 )
        EndIF
        IF ( lUnicNV )
            __lUnicNV  := ( lUnicNV := .F. )
            __mv_par20 := ( mv_par20 := 2 )
        EndIF
        IF ( lImpTot )
            __lImpTot  := ( lImpTot := .F. )
            __mv_par20 := ( mv_par20 := 2 )
        EndIF
        
        IF Empty( __cMesAnoRef )
            __cMesAnoRef := Month2Str(dDataRef)+Year2Str(dDataRef)
        EndIF    
        
        __wnRel := ( wnRel := "btdnGR07" )
        
    END SEQUENCE
 
Return( NIL )
 
/*
    Programa    : u_btdnGR07.PRW
    Funcao      : __FechaRel()
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 23/06/2013
    Descrição   : Libera o Spool de Impressão
*/ 
Static Function __FechaRel()
    Local cFn    := "FechaRel"
    Local lFn    := FindFunction(cFn)
    IF ( lFn )
        &cFn.(,)
    EndIF    
    MS_Flush()
Return( Sleep( N_SLEEP ) )
 
#DEFINESTACK_INDEX_PARAMETER    1
#DEFINESTACK_INDEX_SCOPE        2
#DEFINE STACK_INDEX_TYPE        3
#DEFINE STACK_INDEX_VALUE       4
 
#DEFINE STACK_INDEX_ELEMENTS    4 
 
/*/
    Funcao      : ReadStackParameters
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 19/01/2011
    Uso         : Retornar informações de Variáveis da Pilha de Chamadas
    Sintaxe     : ReadStackParameters( cStack,cParameter,cScope,cModule,aStackParameters )
/*/
Static Function ReadStackParameters( cStack,cParameter,cScope,cModule,aStackParameters )
 
    Local bAscan
 
    Local lScope
    Local lModule
 
    Local nStack
    Local nParameter
    
    Local uValue
 
    BEGIN SEQUENCE
 
        DEFAULT aStackParameters := GetStackParameters()
        
        IF Empty( aStackParameters )
            BREAK
        EndIF
        
        lModule := !Empty( cModule )
 
        IF ( lModule )
            bAscan := { |x| ( x[ 1 ] == cStack ) .and. ( cModule $ x[ 2 ] ) }
        Else
            bAscan := { |x| ( x[ 1 ] == cStack ) }
        EndIF    
        
        nStack := aScan( aStackParameters,bAscan )
        IF ( nStack == 0 )
            BREAK
        EndIF
 
        lScope := !Empty( cScope )
 
        IF ( lScope )
            bAscan := { |x| ( x[STACK_INDEX_PARAMETER] == cParameter ) .and. ( x[STACK_INDEX_SCOPE] == cScope ) }
        Else
            bAscan := { |x| ( x[STACK_INDEX_PARAMETER] == cParameter ) }
        EndIF
 
        nParameter := aScan( aStackParameters[ nStack ][ 3 ],bAscan )
        IF ( nParameter == 0 )
            BREAK
        EndIF
 
        uValue := aStackParameters[ nStack ][ 3 ][ nParameter ][ STACK_INDEX_VALUE ]
 
    END SEQUENCE
 
Return( uValue )
 
/*/
    Funcao      : GetStackParameters
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 19/01/2011
    Uso         : Obtém Array com a Pilha de Chamadas que será usado pela ReadStackParameters
    Sintaxe     : GetStackParameters()
/*/
Static Function GetStackParameters()
 
    Local aStackEnv
    Local aStackParameters    := {}
    
    Local cStack
    Local cModule
    Local cStackEnv
    
    Local lIscBlock
    
    Local nStack
    Local nIndexEnv
    Local nStackEnv
 
    Local bException    := { |e| oException := e,BREAK(e) }
    Local bErrorBlock
 
    Local oException
    
    bErrorBlock    := ErrorBlock( bException )
    BEGIN SEQUENCE
 
        UserException( "IGetStackParameters" )
 
    RECOVER
 
        cStackEnv := oException:ErrorEnv
        IF !(;
                ( Chr( 10 ) $ cStackEnv );
                .and.;
                ( Chr( 13 ) $ cStackEnv );
            )    
            cStackEnv := StrTran( cStackEnv,"  ",CRLF )
            cStackEnv := StrTran( cStackEnv,"STACK ",CRLF + "STACK " )
        EndIF
        aStackEnv := StrTokArr( cStackEnv,CRLF )
 
        cStackEnv := NIL
 
        nIndexEnv := 0
        nStackEnv := Len( aStackEnv )
 
        While ( ( ++nIndexEnv ) <= nStackEnv )
 
            IF ( "Public" $ aStackEnv[ nIndexEnv ] )
 
                IF ( "Publicas" $ aStackEnv[ nIndexEnv ] )
                    Loop
                EndIF
 
                nStack := aScan( aStackParameters,{ |x| ( x[1] == "PUBLIC" ) } ) 
            
                IF ( nStack == 0 )
                    aAdd( aStackParameters,{ "PUBLIC","",Array(0) } )
                    nStack := Len( aStackParameters )
                EndIF
 
                cStackEnv := aStackEnv[ nIndexEnv ] 
                AddStackParameters( @aStackParameters,@nStack, @cStackEnv  )
 
            ElseIF ( "STACK" == SubStr( aStackEnv[ nIndexEnv ],1,5 ) )
                
                cStackEnv := AllTrim( StrTran( aStackEnv[ nIndexEnv ],"STACK","" ) )
                lIscBlock := ( ( "{" $ cStackEnv ) .and. ( "}" $ cStackEnv ) .and. ( "|" $ cStackEnv ) )
                IF ( lIscBlock )
                    cStack := SubStr( cStackEnv,AT( "{",cStackEnv ),RAT( "}",cStackEnv ) )
                Else
                    cStack := SubStr( cStackEnv,1,AT( "(",cStackEnv ) - 1 )
                EndIF    
                cModule := StrTran( cStackEnv,cStack,"" )
 
                nStack := aScan( aStackParameters,{ |x| ( x[1] == cStack ) } ) 
 
                IF ( nStack == 0 )
                    aAdd( aStackParameters,{ cStack,cModule,Array(0) } )
                    nStack := Len( aStackParameters )
                EndIF
 
                While (;
                            ( ( ++nIndexEnv ) <= nStackEnv );
                            .and.;
                            !( "STACK" == SubStr( aStackEnv[ nIndexEnv ],1,5 ) );
                            .and.;
                            !( "FILES" == Upper( SubStr( aStackEnv[ nIndexEnv ],1,5 ) ) );
                        ) 
 
                    cStackEnv    := aStackEnv[ nIndexEnv ] 
                    AddStackParameters( @aStackParameters,@nStack, @cStackEnv  )
 
                End While
 
                --nIndexEnv
 
            ElseIF ( "FILES" == Upper( SubStr( aStackEnv[ nIndexEnv ],1,5 ) ) )
            
                Exit
 
            EndIF
                
        End While
 
    END SEQUENCE
    ErrorBlock( bErrorBlock )
 
Return( aStackParameters )
 
/*/
    Funcao      : AddStackParameters
    Autor       : Marinaldo de Jesus [http://www.blacktdn.com.br]
    Data        : 19/01/2011
    Uso         : Carregar os Valores da Pilha de Chamadas
    Sintaxe     : AddStackParameters( aStackParameters,nStack, cStackEnv  )
/*/
Static Function AddStackParameters( aStackParameters,nStack, cStackEnv  )
 
    Local aScope
    Local aTokens        := StrTokArr( cStackEnv,":" )
    Local aDateFormat
    
    Local cType
    Local cScope
    Local cParameter
    Local cDateFormat    := Set( 4 )
 
    Local dDate
 
    Local nToken
    Local nTokens        := Len( aTokens )
    Local nParameter
    Local nDateFormat
 
    Local uValue
 
    Local bException    := { |e| oException := e,BREAK(e) }
    Local bErrorBlock
 
    IF ( nTokens >= 1 )
        aScope    := StrTokArr( aTokens[ 1 ]," " )
        IF ( Len( aScope ) >= 1 )
            cScope := Upper( AllTrim( aScope[ 1 ] ) )
        Else
            cScope := "UNDEFINED"
        EndIF
    Else
        cScope := "UNDEFINED"
    EndIF    
 
    IF ( nTokens >= 2 )
        cStackEnv := aTokens[ 2 ]
           cParameter := AllTrim( SubStr( cStackEnv,1,AT( "(",cStackEnv ) - 1 ) )
           cType      := SubStr( cStackEnv,AT( "(",cStackEnv ) + 1,1 )
       Else
           cParameter := "NULL"
           cType      := "U"
       EndIF    
 
    IF ( nTokens >= 3 )
        uValue        := aTokens[ 3 ]
        IF ( nTokens > 3 )
            nToken := 3
            While ( ( ++nToken ) <= nTokens )
                uValue += aTokens[ nToken ]
            End While
        EndIF
    Else
        uValue := NIL
    EndIF    
 
    bErrorBlock := ErrorBlock( bException )
    BEGIN SEQUENCE
 
        IF ( cScope $ "PUBLIC/PRIVATE" )
 
            uValue := &( cParameter )
 
        Else
 
            Do Case
                Case ( cType == "C"  )
                    //...
                Case ( cType == "N"  )
                    uValue := Val( uValue )
                Case ( cType == "D"  )
                    dDate := CtoD( uValue )
                    IF Empty( dDate )
                        aDateFormat := {"yyyy/mm/dd","yyyy-mm-dd","mm/dd/yyyy","mm-dd-yyyy","dd/mm/yyyy","dd-mm-yyyy"}
                        For nDateFormat := 1 To Len( aDateFormat )
                            Set( 4,aDateFormat[ nDateFormat ] )
                            dDate := CtoD( uValue )
                            IF !Empty( dDate )
                                Exit
                            EndIF
                        Next nDateFormat
                    EndIF    
                    uValue    := dDate
                Case ( cType == "L"  )
                    uValue := &( uValue )
                Case ( cType == "B"  )
                    uValue := &( uValue )
                Case ( cType == "A"  )
                    uValue := {}
                Case ( cType $ "U/O" )
                    uValue := NIL
            OtherWise
                uValue := NIL    
            End Case 
 
        EndIF
            
    RECOVER
 
        Do Case
            Case ( cType == "C"  )
                uValue := ""
            Case ( cType == "N"  )
                uValue := 0
            Case ( cType == "D"  )
                dDate := CtoD( "" )
            Case ( cType == "L"  )
                uValue := .F.
            Case ( cType == "B"  )
                uValue := { || .F. }
            Case ( cType == "A"  )
                uValue := {}
            Case ( cType $ "U/O" )
                uValue := NIL
        OtherWise
            uValue := NIL    
        End Case     
 
    END SEQUENCE
    ErrorBlock( bErrorBlock )
 
    aAdd( aStackParameters[ nStack ][3],Array( STACK_INDEX_ELEMENTS ) )
 
    nParameter := Len( aStackParameters[ nStack ][3] )
 
    aStackParameters[nStack][3][nParameter][STACK_INDEX_PARAMETER] := cParameter
    aStackParameters[nStack][3][nParameter][STACK_INDEX_SCOPE    ] := cScope
    aStackParameters[nStack][3][nParameter][STACK_INDEX_TYPE     ] := cType
    aStackParameters[nStack][3][nParameter][STACK_INDEX_VALUE    ] := uValue
 
    Set( 4,cDateFormat )
 
Return( NIL )

Para testar:



  1. Instale PDFCreator conforme documento: btdn-Evidencia-de-Teste-u_btdnGR07-PDFCreator-Instalacao-e-Configuracao.pdf;
  2. Obtenha os códigos dos “Pontos de Entrada” aqui;
  3. O Código para a impressão aqui; e
  4. Compile o projeto, inclua a referência à função u_btdnGR07 no menu do SIGAGPE e execute.

[]s
иαldσ dj

Comentários

  1. Oi Naldo,

    Parabéns pelo artigo, foi sensacional a ideia. Lendo o programa
    percebo que de maneira simples o problema foi resolvido, ou seja,
    verificar se o PDFCreator está instalado, depois estabelecer o
    necessário para imprimir, então substituir as ações das funções
    SetPrint e SetDefault padrão do Protheus por estas instruções
    informadas no BlackTDN.


    Gostei muito da dica e gostaria de complementar algumas informações.


    InitPrint - Prepara o ambiente para impressão - fonte:
    http://tdn.totvs.com.br/display/tec/InitPrint


    PrinterDisk - Estabelece se a impresão será em disco - fonte: não divulgada.


    PrinterWin - Setar a impressão pela API do Windows - fonte não divulgada.


    PreparePint - Inicializar a impressão - fonte não divulgada.


    Legal, programação em outro nível.

    Por favor, veja se consegue me ajudar neste caso.

    Tenho uma rotina que gera documentos de propostas em formato WORD,
    esse modelo (.DOT) possui diversas macros e DocVariable. Preciso fazer
    este documento ser gerado no formato PDF tudo via AdvPL e sem a
    intervenção do usuário. Vi seu post "Script em Windows PowerShell para
    converter DOC em PDF", porém ao testar percebi que ainda há
    aintervenção humana, e não posso depender disto. Teria como fazer essa
    conversão WORD para PDF via AdvPL utilizando o PDFCreator no modo
    backstage, assim irei disponibilizar o arquivo fisicamente no banco de
    conhecimento relacionado com a proposta em questão e não foi preciso
    do dedo do usuário. consegue me ajudar?

    Muito obrigado

    Leandro Marques de Sousa

    ResponderExcluir
    Respostas
    1. Leandro,

      Esse é o próximo "post" da série "Miscelânea". Aguarde...

      []s
      иαldσ dj

      Excluir

Postar um comentário

Postagens mais visitadas