Histórico da Página

User Function DEPRECQRY()

Local cFiltro := ParamIxb[1]

//Mostra Chave de Busca Original
Alert(cFiltro)

//Altera Query
cFiltro := "SELECT N4_DATA, "
cFiltro += " N4_CBASE, "
cFiltro += " N4_ITEM, "
cFiltro += " N1_CBASE, "
cFiltro += " N1_DESCRIC, "
cFiltro += " N1_CALCPIS, "
cFiltro += " Sum(SN4.N4_VLROC1) SOMA, "
cFiltro += " N3_AQUISIC, "
cFiltro += " N3_DINDEPR, "
cFiltro += " N1_MESCPIS, "
cFiltro += " N4_TXDEPR, "
cFiltro += " N1_ORIGCRD, "
cFiltro += " N1_CSTPIS, "
cFiltro += " N1_ALIQPIS, "
cFiltro += " N1_CSTCOFI, "
cFiltro += " N1_ALIQCOF, "
cFiltro += " N1_DETPATR, "
cFiltro += " N1_UTIPATR, "
cFiltro += " N1_NFITEM, "
cFiltro += " N1_CODBCC, "
cFiltro += " N1_NUMPRO, "
cFiltro += " N1_INDPRO, "
cFiltro += " N1_CBCPIS, "
cFiltro += " N4_CALCPIS, "
cFiltro += " N1_NFISCAL, "
cFiltro += " N1_NSERIE, "
cFiltro += " N1_FORNEC, "
cFiltro += " N1_LOJA, "
cFiltro += " N3_CDEPREC, "
cFiltro += " N3_CCUSTO "
cFiltro += "FROM SN1100 SN1, "
cFiltro += " SN3100  SN3, "
cFiltro += " SN4100  SN4 "
cFiltro += "WHERE N1_FILIAL = '0101' "
cFiltro += " AND N1_CALCPIS IN ( '1', 'S', '3' ) "
cFiltro += " AND N1_CBASE >= '' "
cFiltro += " AND N1_CBASE <= 'zz' "   

//Verifica tipo de saldo que nao sera considerado
cFiltro += " AND N3_TIPO NOT IN('02', '42', '04', '05', '06', '07', '08', '09' ) "

cFiltro += " AND SN3.D_E_L_E_T_ = ' ' "
cFiltro += " AND N4_FILIAL = '0101' "
cFiltro += " AND N4_CBASE = N1_CBASE "
cFiltro += " AND N4_ITEM = N1_ITEM "
cFiltro += " AND N4_TIPO = N3_TIPO "
cFiltro += " AND N4_SEQ = N3_SEQ "
cFiltro += " AND N4_DATA >= '20240101' "
cFiltro += " AND N4_DATA <= '20240531' "

//Verifica tipo de movimentos que ser o considerados.
//http://tdn.totvs.com/display/public/mp/Tipos+de+movimentos+N4_OCORR+--+11410
cFiltro += " AND N4_OCORR IN ( '06', '10', '20' ) "

cFiltro += " AND N4_TIPOCNT = '3' "
cFiltro += " AND SN4.D_E_L_E_T_ = ' ' "
cFiltro += "GROUP BY N4_DATA, "
cFiltro += " N4_CBASE, "
cFiltro += " N4_ITEM, "
cFiltro += " N1_CBASE, "
cFiltro += " N1_DESCRIC, "
cFiltro += " N1_CALCPIS, "
cFiltro += " N3_AQUISIC, "
cFiltro += " N3_DINDEPR, "
cFiltro += " N1_MESCPIS, "
cFiltro += " N4_TXDEPR, "
cFiltro += " N1_ORIGCRD, "
cFiltro += " N1_CSTPIS, "
cFiltro += " N1_ALIQPIS, "
cFiltro += " N1_CSTCOFI, "
cFiltro += " N1_ALIQCOF, "
cFiltro += " N1_DETPATR, "
cFiltro += " N1_UTIPATR, "
cFiltro += " N1_NFITEM, "
cFiltro += " N1_CODBCC, "
cFiltro += " N1_NUMPRO, "
cFiltro += " N1_INDPRO, "
cFiltro += " N1_CBCPIS, "
cFiltro += " N4_CALCPIS, "
cFiltro += " N1_NFISCAL, "
cFiltro += " N1_NSERIE, "
cFiltro += " N1_FORNEC, "
cFiltro += " N1_LOJA, "
cFiltro += " N3_CDEPREC, "
cFiltro += " N3_CCUSTO "

Alert("Chave de Busca registro F120 alterada!!")

Return cFiltro