Producto: | TOTVS Backoffice |
Línea de producto: | Línea Protheus |
Segmento: | Backoffice |
Módulo: | Financiero (SIGAFIN) |
Función: | Compensación de cuentas por cobrar (FINA330). |
País: | Brasil |
Punto de Entrada que permite manejar la query principal de la rutina de compensación de cuentas por cobrar (FINA330).
Tipo | Descripción |
Carácter | Query actual |
| Tipo | Descripción |
|---|---|
Carácter | Query con los cambios personalizados |
05. EJEMPLO
#include "PROTHEUS.CH"
User Function FA330QRY()
Local cQuery := PARAMIXB[1]
Local cOrdemSE1 := SE1->(IndexKey())
Alert("P.E. FA330QRY chamado.")
cQuery := "SELECT DISTINCT E1_FILIAL,E1_PREFIXO,E1_NUM,E1_PARCELA,E1_IRRF,E1_MOEDA,E1_TIPO,E1_SALDO,E1_EMISSAO,E1_CLIENTE,E1_LOJA,E1_NOMCLI,E1_SDACRES,E1_SDDECRE,E1_HIST,E1_PIS,E1_COFINS,E1_CSLL,E1_TXMOEDA,E1_VLCRUZ,E1_FILORIG,E1_VALOR,"
cQuery += "SE1.R_E_C_N_O_ RECSE1, A1_CGC FROM "
cQuery += RetSqlName("SE1") + " SE1 LEFT JOIN "
cQuery += RetSqlName("SA1") + " SA1 ON (SE1.E1_LOJA = SA1.A1_LOJA) AND (SE1.E1_CLIENTE = SA1.A1_COD) "
cQuery += " WHERE "
cQuery += "SE1.E1_SALDO = 100 AND "
cQuery += "SE1.D_E_L_E_T_ = ' ' AND "
cQuery += "SA1.D_E_L_E_T_ = ' ' "
cQuery += "ORDER BY " + SqlOrder(cOrdemSE1)
Return cQuery
|