fdgdg

bvcbccbv

fxbcbvbvcb

La reunion.

Ayer fue la reunión de egresados de la UVM mi alma mater y pues vi a los amigos de siempre los que nos reunimos en el VIPS de la playa (aunque yo no asista muy a menudo) Hablamos de muchas cosas entre ellas un nuevo proyecto, un multiblog donde escribiremos Emi pecari, Koffy, Lafit, Zeuz y un servidor en donde pondremos y debatiremos sobre varios temas como política, deportes, chismes y demás cosas que se nos ocurran la dirección no la tengo todavía pero no tardare en postearla. Saludos a todos y que se la pasen bien.

Las 13:00 hrs y sereno

PRUEBA DE TAMAÑO

Public Function Query_Ant_Clientes(ByVal Cia As String, ByVal PERIODO As String) As Recordset

''''' gs_SQL = ""
''''' gs_SQL = gs_SQL & "SELECT DISTINCT DECODE(gjh.CURRENCY_CODE,'MXP',DECODE(gjh.CURRENCY_CODE,'MXP',(NVL(gb.PERIOD_NET_DR,0)-NVL(gb.PERIOD_NET_CR,0)) "
''''' gs_SQL = gs_SQL & " ,(NVL(gb.PERIOD_NET_DR_BEQ,0)-NVL(gb.PERIOD_NET_CR_BEQ,0))) "
''''' gs_SQL = gs_SQL & " ,xxfm_cedulas_fiscales.saldo_periodo(gcc.SEGMENT1, "
''''' gs_SQL = gs_SQL & " gcc.SEGMENT2, "
''''' gs_SQL = gs_SQL & " gcc.SEGMENT3, "
''''' gs_SQL = gs_SQL & " gcc.SEGMENT4, "
''''' gs_SQL = gs_SQL & " gcc.SEGMENT5, "
''''' gs_SQL = gs_SQL & " gcc.SEGMENT6,gjh.PERIOD_NAME,'MXP')) Saldo_Funcional"
''''' gs_SQL = gs_SQL & " ,(NVL(aag.ACCOUNTED_DR,0) - NVL(aag.ACCOUNTED_CR,0)) monto_periodo_funcional "
''''' gs_SQL = gs_SQL & " ,(NVL(aag.ENTERED_DR,0) -NVL(aag.ENTERED_CR,0)) monto_periodo_origen "
''''' gs_SQL = gs_SQL & " ,NVL(aag.ACCOUNTED_DR,0) monto_clien_per__fun_dr"
''''' gs_SQL = gs_SQL & " ,NVL(aag.ENTERED_DR,0) monto_clien_per_orig_dr"
''''' gs_SQL = gs_SQL & " ,NVL(aag.ACCOUNTED_CR,0) monto_clien_per_fun_cr"
''''' gs_SQL = gs_SQL & " ,NVL(aag.ENTERED_CR,0) monto_clien_per_orig_cr"
'''''' gs_SQL = gs_SQL & "-- ,aag.TRX_NUMBER_C Num_Fact "
''''' gs_SQL = gs_SQL & " ,gcc.SEGMENT1 Cia "
''''' gs_SQL = gs_SQL & " ,gcc.SEGMENT2 Neg "
''''' gs_SQL = gs_SQL & " ,gcc.SEGMENT3 Cta "
'''''' gs_SQL = gs_SQL & "-- ,gcc.SEGMENT4 Sbct "
''''' gs_SQL = gs_SQL & " ,gcc.SEGMENT5 Ica "
''''' gs_SQL = gs_SQL & " ,gcc.SEGMENT6 Tax "
''''' gs_SQL = gs_SQL & " ,gjh.CURRENCY_CODE "
''''' gs_SQL = gs_SQL & " ,hca.ATTRIBUTE4 Calf_F_R_Ext "
''''' gs_SQL = gs_SQL & " ,ala.LOOKUP_CODE Cod_Tipo_Cliente "
''''' gs_SQL = gs_SQL & " ,ala.DESCRIPTION Des_Tipo_Cliente "
''''' gs_SQL = gs_SQL & " ,gb.PERIOD_NAME Periodo_Contable "
'''''' gs_SQL = gs_SQL & "-- ,aag.TRX_DATE Fecha_Factura "
'''''' gs_SQL = gs_SQL & "-- ,aag.JE_HEADER_ID "
'''''' gs_SQL = gs_SQL & "-- ,aag.TRX_HDR_ID "
''''' gs_SQL = gs_SQL & " ,aag.THIRD_PARTY_NAME cliente"
''''' gs_SQL = gs_SQL & " ,gjl.JE_LINE_NUM "
''''' gs_SQL = gs_SQL & " FROM gl_balances gb "
''''' gs_SQL = gs_SQL & " ,gl_je_headers gjh "
''''' gs_SQL = gs_SQL & " ,gl_je_batches gjb "
''''' gs_SQL = gs_SQL & " ,gl_je_lines gjl "
''''' gs_SQL = gs_SQL & " ,gl_je_categories gjc "
''''' gs_SQL = gs_SQL & " ,gl_je_sources gjs "
''''' gs_SQL = gs_SQL & " ,gl_sets_of_books gsb "
''''' gs_SQL = gs_SQL & " ,gl_code_combinations gcc "
''''' gs_SQL = gs_SQL & " ,fnd_id_flex_structures_tl fif "
''''' gs_SQL = gs_SQL & " ,xxfm_ar_ael_gl_inv_v aag "
''''' gs_SQL = gs_SQL & " ,HZ_CUST_ACCOUNTS hca "
''''' gs_SQL = gs_SQL & " ,ar_lookups ala "
''''' gs_SQL = gs_SQL & " WHERE gsb.set_of_books_id = 3 "
''''' gs_SQL = gs_SQL & " AND gjh.set_of_books_id = gsb.set_of_books_id "
''''' gs_SQL = gs_SQL & " AND gjb.JE_BATCH_ID = gjh.JE_BATCH_ID "
''''' gs_SQL = gs_SQL & " AND gjl.JE_HEADER_ID = gjh.JE_HEADER_ID "
''''' gs_SQL = gs_SQL & " AND gjl.PERIOD_NAME = gjh.PERIOD_NAME "
''''' gs_SQL = gs_SQL & " AND gjl.SET_OF_BOOKS_ID = gjh.SET_OF_BOOKS_ID "
''''' gs_SQL = gs_SQL & " AND gjb.STATUS = 'P' "
''''' gs_SQL = gs_SQL & " AND gjl.CODE_COMBINATION_ID = gcc.CODE_COMBINATION_ID "
''''' gs_SQL = gs_SQL & " AND gb.PERIOD_NAME = gjh.PERIOD_NAME "
''''' gs_SQL = gs_SQL & " AND gb.SET_OF_BOOKS_ID = gjb.SET_OF_BOOKS_ID "
''''' gs_SQL = gs_SQL & " AND gb.CODE_COMBINATION_ID = gjl.CODE_COMBINATION_ID "
''''' gs_SQL = gs_SQL & " AND gb.ACTUAL_FLAG = 'A' "
''''' gs_SQL = gs_SQL & " AND gjh.ACTUAL_FLAG = 'A' "
''''' gs_SQL = gs_SQL & " AND gcc.chart_of_accounts_id = fif.id_flex_num "
''''' gs_SQL = gs_SQL & " AND fif.LANGUAGE = USERENV ('LANG') "
''''' gs_SQL = gs_SQL & " AND fif.application_id = 101 "
''''' gs_SQL = gs_SQL & " AND fif.id_flex_code = 'GL#' "
''''' gs_SQL = gs_SQL & " AND gjh.CURRENCY_CODE = gb.CURRENCY_CODE "
''''' gs_SQL = gs_SQL & " AND gjh.JE_SOURCE IN ('Receivables') "
''''' gs_SQL = gs_SQL & " AND gjh.JE_CATEGORY = gjc.je_category_name "
''''' gs_SQL = gs_SQL & " AND gjh.JE_SOURCE = gjs.je_source_name "
''''' gs_SQL = gs_SQL & " AND aag.JE_HEADER_ID = gjh.JE_HEADER_ID "
''''' gs_SQL = gs_SQL & " AND aag.JE_LINE_NUM = gjl.JE_LINE_NUM"
''''' gs_SQL = gs_SQL & " AND hca.CUST_ACCOUNT_ID = aag.CUSTOMER_ID "
''''' gs_SQL = gs_SQL & " AND hca.customer_type = ala.lookup_code(+) "
''''' gs_SQL = gs_SQL & " AND ala.lookup_type(+) = 'CUSTOMER_TYPE' "
''''' gs_SQL = gs_SQL & " AND gcc.SEGMENT3 = '255'"
''''' gs_SQL = gs_SQL & " AND gcc.SEGMENT6 in ('401','402')"
''''' gs_SQL = gs_SQL & " ORDER BY gcc.SEGMENT1 "
''''' gs_SQL = gs_SQL & " ,gcc.SEGMENT2 "
''''' gs_SQL = gs_SQL & " ,gcc.SEGMENT3 "
''''' gs_SQL = gs_SQL & " ,gcc.SEGMENT5 "
''''' gs_SQL = gs_SQL & " ,gcc.SEGMENT6 "


' * ANTICIPOS DE CLIENTES
gs_SQL = ""
gs_SQL = gs_SQL & " SELECT distinct SALDO_FUNCIONAL, MONTO_PERIODO_FUNCIONAL, MONTO_PERIODO_ORIGEN,"
gs_SQL = gs_SQL & " MONTO_CLIEN_PER_FUN_DR, MONTO_CLIEN_PER_ORIG_DR, MONTO_CLIEN_PER_FUN_CR,"
gs_SQL = gs_SQL & " MONTO_CLIEN_PER_ORIG_CR,"
gs_SQL = gs_SQL & " CIA,SBCT, NEG, CTA,"
gs_SQL = gs_SQL & " ICA, TAX, CURRENCY_CODE,"
gs_SQL = gs_SQL & " CALF_F_R_EXT, COD_TIPO_CLIENTE, DES_TIPO_CLIENTE, CAL_FISCAL, PERIODO_CONTABLE,"
gs_SQL = gs_SQL & " JE_LINE_NUM,"
gs_SQL = gs_SQL & " CLIENTE"
gs_SQL = gs_SQL & " From apps.xxfm_anticipo_clien_prue_v"
gs_SQL = gs_SQL & " WHERE PERIODO_CONTABLE = '" & PERIODO & "'"
gs_SQL = gs_SQL & " AND CIA = '" & Cia & "'"
gs_SQL = gs_SQL & " AND CTA = '255'"
gs_SQL = gs_SQL & " AND TAX in ('401','402')"
'gs_SQL = gs_SQL & " AND CALF_F_R_EXT in ('801','802')"
gs_SQL = gs_SQL & " ORDER BY CIA, CTA, ICA, TAX"

Set Query_Ant_Clientes = ObtenRecordSet(gs_SQL)

End Function


Public Function Query_Ant_Clientes_SI(ByVal Cia As String, _
ByVal PERIODO As String) As Recordset


gs_SQL = ""
gs_SQL = gs_SQL & " select CIA, CTA" ', TAX, CALF_F_R_EXT,COD_TIPO_CLIENTE,DES_TIPO_CLIENTE
gs_SQL = gs_SQL & " ,SUM(MONTO_PERIODO_FUNCIONAL) SAL_INI"
gs_SQL = gs_SQL & " From XXFM_ANTICIPO_CLIENTES_v"
'gs_SQL = gs_SQL & " Where NUM_PERIODO < " & Obtiene_Numero_Mes(PERIODO)
gs_SQL = gs_SQL & " WHERE CIA = '" & Cia & "'"
gs_SQL = gs_SQL & " AND CTA = '255'"
'gs_SQL = gs_SQL & " AND TAX in ('401','402')"
'gs_SQL = gs_SQL & " AND CALF_F_R_EXT in ('801','802')"
'gs_SQL = gs_SQL & " AND SUBSTR(PERIODO_CONTABLE,5,2) = " & Mid(PERIODO, 5, 2)
gs_SQL = gs_SQL & " AND ANIO_PER ||LPAD(NUM_PERIODO,2,0) < " & ANIO_MES_SALDOS_INIC
gs_SQL = gs_SQL & " GROUP BY CIA, CTA" ', TAX, CALF_F_R_EXT,COD_TIPO_CLIENTE,DES_TIPO_CLIENTE"
gs_SQL = gs_SQL & " ORDER BY CIA, CTA" ', TAX"

Set Query_Ant_Clientes_SI = ObtenRecordSet(gs_SQL)

End Function

Public Function Query_Ant_Clientes_SI_402(ByVal Cia As String, _
ByVal PERIODO As String) As Recordset


gs_SQL = ""
gs_SQL = gs_SQL & " select CIA, CTA, TAX, SUM(MONTO_PERIODO_FUNCIONAL) SAL_INI"
gs_SQL = gs_SQL & " From XXFM_ANTICIPO_CLIENTES_v"
'gs_SQL = gs_SQL & " Where NUM_PERIODO < " & Obtiene_Numero_Mes(PERIODO)
gs_SQL = gs_SQL & " WHERE CIA = '" & Cia & "'"
gs_SQL = gs_SQL & " AND CTA = '255'"
'gs_SQL = gs_SQL & " AND TAX in ('402')"
'gs_SQL = gs_SQL & " AND CALF_F_R_EXT in ('801','802')"
'gs_SQL = gs_SQL & " AND SUBSTR(PERIODO_CONTABLE,5,2) = " & Mid(PERIODO, 5, 2)
gs_SQL = gs_SQL & " AND ANIO_PER ||LPAD(NUM_PERIODO,2,0) < " & ANIO_MES_SALDOS_INIC
gs_SQL = gs_SQL & " GROUP BY CIA, CTA, TAX"
gs_SQL = gs_SQL & " ORDER BY CIA, CTA, TAX"

Set Query_Ant_Clientes_SI_402 = ObtenRecordSet(gs_SQL)

Hola

Hoalnklhsajklashd