CTB400FIL - Filtro -- 110938

O ponto de entrada CTB400FIL é utilizado para filtrar os lançamentos na hora de visualizar os movimentos.

Local lCLVL            := .T.
Local aArea         := GetArea(), nTamanho       
Local cPictVal      := PesqPict("CT2","CT2_VALOR")
Local nX
Local cArq
Local cFiltro := ""

If ExistBlock("CTB400FIL")                                /// PONTO DE ENTRADA PARA A FILTRAGEM DO BROWSE
    cFiltro := ExecBlock("CTB400FIL", .F., .F.)
Endif


Pergunte( "CTC400" , .F.)                  




aSetOfBook     := CTBSetOf(mv_par05)
nDecimais     := CTbMoeda(mv_par03)[5]    // Recarrego as perguntas
lCusto         := Iif(mv_par06 == 1,.T.,.F.)
lItem        := Iif(mv_par09 == 1,.T.,.F.)
lCLVL        := Iif(mv_par12 == 1,.T.,.F.)


//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Variaveis utilizadas para parametros ( CTC400 )              ³
//³ mv_par01            // da data                               ³
//³ mv_par02            // Ate a data                            ³
//³ mv_par03            // Moeda                                 ³  
//³ mv_par04            // Saldos                                 ³  
//³ mv_par05            // Set Of Books                          ³
//³ mv_par06            // Imprime C.Custo?                      ³
//³ mv_par07            // Do Centro de Custo                    ³
//³ mv_par08            // At‚ o Centro de Custo                 ³
//³ mv_par09            // Imprime Item?                         ³   
//³ mv_par10            // Do Item                               ³
//³ mv_par11            // Ate Item                              ³
//³ mv_par12            // Imprime Classe de Valor?              ³   
//³ mv_par13            // Da Classe de Valor                    ³
//³ mv_par14            // Ate a Classe de Valor                 ³
//³ mv_par15            // Descrição na moeda                    ³
//³ mv_par16            // Seleciona filiais ?                   ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

If ( CT1->CT1_CLASSE == "1" )
   Help ( " ", 1, "CC010SINTE" )
   Return ( .F. )
End                

If Empty( mv_par03 )
    Help(" ",1,"NOMOEDA")
    Return(.F.)
EndIf

dbSelectArea("CTO")
dbSetOrder(1)
If !dbSeek(xFilial("CTO")+mv_par03,.F.)
    Help(" ",1,"NOMOEDA")
    Return(.F.)   
EndIf

nSaldoAnterior := 0
// Soma o saldo anterior da conta de todas as filiais
nSaldoAnterior := SaldoCT7Fil(CT1->CT1_CONTA,mv_par01,mv_par03,mv_par04,,,,aSelFil)[6]     

// Mascara da Conta
If Empty(aSetOfBook[2])
    cMascara1 := GetMv("MV_MASCARA")
Else
    cMascara1    := RetMasCtb(aSetOfBook[2],@cSepara1)
EndIf              

If lCusto .Or. lItem .Or. lCLVL
    // Mascara do Centro de Custo
    If Empty(aSetOfBook[6])
        cMascara2 := GetMv("MV_MASCCUS")
    Else
        cMascara2    := RetMasCtb(aSetOfBook[6],@cSepara2)
    EndIf                                               
    // Mascara do Item Contabil
    If Empty(aSetOfBook[7])
        dbSelectArea("CTD")
        cMascara3 := ALLTRIM(STR(Len(CTD->CTD_ITEM)))
    Else
        cMascara3 := RetMasCtb(aSetOfBook[7],@cSepara3)
    EndIf
    // Mascara da Classe de Valor
    If Empty(aSetOfBook[8])
        dbSelectArea("CTH")
        cMascara4 := ALLTRIM(STR(Len(CTH->CTH_CLVL)))
    Else
        cMascara4 := RetMasCtb(aSetOfBook[8],@cSepara4)
    EndIf
EndIf   

//    Set Filter To SN3->N3_FILIAL = xFilial("SN3")

If !Empty(cFiltro)                                    /// SE A EXPRESSÃO RETORNADA NÃO ESTIVER VAZIA
    Set Filter To &(cFiltro)                        /// ACIONA A EXPRESSÃO DE FILTRO NO CT1
Endif


MsgMeter({|    oMeter, oText, oDlg, lEnd | ;
                CTBGerRaz(oMeter,oText,oDlg,lEnd,@cArqTmp,CT1->CT1_CONTA,CT1->CT1_CONTA,;
                             mv_par07,mv_par08,mv_par10,mv_par11,;
                             mv_par13,mv_par14,mv_par03,mv_par01,mv_par02,;
                             CTBSetOf(""),.F.,mv_par04,.F.,"1",.T.,,,cFiltro,,aSelFil) },;
            STR0006,;        // "Criando Arquivo Tempor rio..."
            STR0005)        // "Emissao do Razao"

RestArea(aArea)
 

CTBC400.prw

CTB400FIL - Filtro ( [ ] ) --> cFiltro

cFiltro(caracter)
• Filtro - em sintaxe SQL

#include "Protheus.ch"User Function CTB400FIL()     Local cFiltro                   Local cLote        cLote= "131313"    	                                                       	     cFiltro:= "CT2_LOTE = '" + cLote +"'"  //Filtro - em sintaxe SQL     msgalert( 'So sera mostrado lançamentos do lote' +  cLote )	Return cFiltro