Descrição

O ponto de entrada DEPRECQRY será utilizado para alteração da query de busca na geração do registro F120 do SPED PIS/COFINS

Exemplos

User Function DEPRECQRY()

Local cFiltro := ParamIxb1

//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 += " 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 SN1010 SN1, "
cFiltro += " SN3010 SN3, "
cFiltro += " SN4010 SN4 "
cFiltro += "WHERE N1_FILIAL = '0101001' "
cFiltro += " AND N1_CALCPIS IN ( '1', 'S', '3' ) "
cFiltro += " AND N1_CBASE >= '' "
cFiltro += " AND N1_CBASE <= 'zz' "
cFiltro += " AND N1_AQUISIC >= ' ' "
cFiltro += " AND N1_AQUISIC <= '20131231' "
cFiltro += " AND N1_CODBCC IN( '09', '11' ) "
cFiltro += " AND SN1.D_E_L_E_T_ = ' ' "
cFiltro += " AND N3_FILIAL = '0101001' "
cFiltro += " AND N3_CBASE = N1_CBASE "
cFiltro += " AND N3_ITEM = N1_ITEM "

//Verifica tipo de saldo que não será considerado
cFiltro += " AND N3_TIPO NOT IN( '01', '02', '42', '04', '05', '06', '07', '08', '09' ) "

cFiltro += " AND SN3.D_E_L_E_T_ = ' ' "
cFiltro += " AND N4_FILIAL = '0101001' "
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 >= '20130101' "
cFiltro += " AND N4_DATA <= '20131231' "

//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 += " 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

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

cFiltro(caracter) - String contendo a query manipulada.

Programa Fonte

FISXATF.PRX