Histórico da Página
01.
...
DATOS GENERALES
Descripción: | A finalidade deste de ponto de entrada e possibilitar que seja modificada e/ou criada uma query para listar os movimentos de inclusão de notas de entrada, saída, títulos avulso e baixa de títulos contas a pagar. | La finalidad de este de punto de entrada es permitir que se modifique y/o cree una query para listar los movimientos de inclusión de facturas de entrada, salida, títulos sueltos y baja de títulos del cuentas por pagar. | ||||||||
|---|---|---|---|---|---|---|---|---|---|---|
Ubicación Localização: | FinCPag, FinCRec, FinFKYWCP, FixDoc, FIXFATREIN | |||||||||
| Programa Fontes Programas fuente: | FIXFINREIN.PRW, FIXFATREIN, FIXCOMREIN.PRW | |||||||||
| Versões Versiones: | 12 | Retorno|||||||||
Devolución: | Retorna um Devuelve un valor Character, | com a instrução select do con la instrucción select del sql que | será usada se utilizará para buscar | os registro los registros de | inclusão inclusión de | notas facturas de entrada, | saídasalida, títulos | a por pagar / | receber, e baixas a cobrar, y bajas por pagar que | são elegíveis para geração das tabelas FKW e FKY de envio do son elegibles para generación de las tablas FKW y FKY de envío al REINF. |
02.
...
EJEMPLO DE
...
UTILIZACIÓN
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#Include "Protheus.ch"
#include 'tbiconn.ch'
User Function FIXQRYR()
Local aQuery As Array
Local cQuery As Character
//Inicializa variáveisvariables
aQuery := Aclone(PARAMIXB)
cQuery := aQuery[3]
Do Case
Case aDados[1] == "02" //Módulo de compras
cQuery := "seleçãoselección de daslas notasfacturas de entrada elegíveiselegibles para envioenvío aoal reinf"
/* Lista de campos minimomínimo que obrigatoriamenteobligatoriamente devemdeben fazerformar parte de dala instruçãoinstrucción SELECT:
F1.F1_FILIAL, F1.F1_TIPO, F1.F1_DOC, F1.F1_SERIE, F1.F1_FORNECE, F1.F1_LOJA, D1.D1_ITEM, D1.D1_COD,
F2Q.F2Q_NATREN, F1.F1_DTDIGIT
*/
Case aDados[1] == "05" //Módulo de faturamentofacturación
cQuery := "seleçãoselección de daslas notasfacturas de saídasalida elegíveiselegibles para envioenvío aoal reinf"
/* Lista de campos minimomínimo que obrigatoriamenteobligatoriamente devemdeben fazerformar parte dade la instruçãoinstrucción SELECT:
SC6.R_E_C_N_O_ AS RECSC6, F2Q.F2Q_NATREN, SD2.D2_VALIRRF, SD2.D2_BASEIRR, SD2.D2_SERIE, SD2.D2_DOC
*/
//OBS: La Naconstrucción construçãode destaesta consulta nãono devedebe ser informadoinformarse order by"
OtherWise //Módulo financeirofinanciero
If aDados[2] == "P" //QuryQuery para seleçãoselección de doslos títulos contascuentas apor pagar
cQuery := "seleçãoselección de doslos títulos apor pagar elegíveiselegibles para envioenvío aoal reinf"
/* Lista de campos minimomínimo que obrigatoriamenteobligatoriamente devemdeben fazerformar parte dade la instruçãoinstrucción SELECT:
SE2.E2_FILIAL, SE2.E2_PREFIXO, SE2.E2_NUM, SE2.E2_PARCELA, SE2.E2_TIPO, SE2.E2_FORNECE, SE2.E2_LOJA, SE2.E2_FILORIG, "
SE2.E2_PIS, SE2.E2_COFINS, SE2.E2_CSLL, SE2.E2_IRRF, SE2.E2_VALOR, SE2.E2_SALDO, SE2.E2_BASEIRF, SE2.E2_BASEPIS, SE2.E2_BASECOF, "
SE2.E2_BASECSL, SE2.R_E_C_N_O_, SED.ED_NATREN, SED.ED_CALCIRF, SED.ED_CALCPIS, SED.ED_CALCCOF, SED.ED_CALCCSL, SED.ED_PERCIRF, "
SED.ED_PERCPIS, SED.ED_PERCCOF, SED.ED_PERCCSL, SA2.A2_RECPIS, SA2.A2_RECCOFI, SA2.A2_RECCSLL, SA2.A2_CALCIRF "
*/
ElseIf aDados[2] == "R" //QuryQuery para seleçãoselección de doslos títulos contasdel cuentas apor pagar
cQuery := "seleçãoselección de doslos títulos apor recebercobrar, comcon autoautorretención retenção dodel IRRF elegíveiselegibles para envioenvío aoal reinf"
/* Lista de campos minimomínimo que obrigatoriamenteobligatoriamente devemdeben fazerformar parte dade la instruçãoinstrucción SELECT:
SE1.E1_FILIAL, SE1.E1_PREFIXO, SE1.E1_NUM, SE1.E1_PARCELA, SE1.E1_TIPO, SE1.E1_CLIENTE, SE1.E1_LOJA, SE1.E1_FILORIG, SE1.E1_PIS,
SE1.E1_COFINS, SE1.E1_CSLL, SE1.E1_IRRF, SE1.E1_VALOR, SE1.E1_SALDO, SE1.E1_BASEIRF, SE1.E1_BASEPIS, SE1.E1_BASECOF, SE1.E1_BASECSL,
SE1.R_E_C_N_O_, SED.ED_NATREN, SED.ED_CALCIRF, SED.ED_CALCPIS, SED.ED_CALCCOF, SED.ED_CALCCSL, SED.ED_PERCIRF, SED.ED_PERCPIS,
SED.ED_PERCCOF,SED.ED_PERCCSL
*/
Else //QuryQuery para selección seleçãode las dasbajas baixasdel contascuentas apor pagar
cQuery := "seleçãoselección de daslas baixasbajas dodel contascuentas apor pagar elegíveiselegibles para envioenvío aoal reinf"
/* Lista de campos minimomínimo que obrigatoriamenteobligatoriamente devemdeben fazerformar parte de dala instruçãoinstrucción SELECT:
FK2.FK2_FILIAL, FK2.FK2_IDFK2, FK2.FK2_IDDOC, FK2_NATURE, FK2_FILORI, FK2.FK2_ORIGEM, FK2.FK2_VALOR, FKW.FKW_FILIAL,
FKW.FKW_IDDOC, FKW.FKW_NATREN, FK7.FK7_FILTIT, FK7.FK7_PREFIX, FK7.FK7_NUM, FK7.FK7_PARCEL, FK7.FK7_TIPO, FK7.FK7_CLIFOR,
FK7.FK7_LOJA
*/
EndIf
EndCase
Return cQuery |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas