| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | FISXATF.PRW |
| País: | Brasil |
| Ticket: | 19714440 |
| Requisito/Story/Issue) : | DSERCTR1-45022 |
O ponto de entrada DEPRECQRY é utilizado para alteração da query de busca na geração do registro F120 do SPED PIS/COFINS.
O Ponto de Entrada possui um parâmetro com a seguinte especificação:
| Parâmetro | Utilização |
|---|---|
| cFiltro | String contendo a query padrão que poderá ser alterada. |
Manipulação do PE no sistema:
If ExistBlock( 'DEPRECQRY' )
cFiltro := Execblock( 'DEPRECQRY' , .F. , .F. , {cFiltro} )
Endif |
Abaixo temos exemplo de utilização do Ponto de Entrada DEPRECQRY:
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' "
cFiltro += " AND N1_AQUISIC >= '20240101 ' "
cFiltro += " AND N1_AQUISIC <= '20240531' "
cFiltro += " AND N1_CODBCC IN( '09', '11' ) "
cFiltro += " AND SN1.D_E_L_E_T_ = ' ' "
cFiltro += " AND N3_FILIAL = '' "
//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 |
Não se aplica.
Não se aplica.