Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

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

02. VISIÓN GENERAL

Punto de Entrada que permite manejar la query principal de la rutina de compensación de cuentas por cobrar (FINA330).

03. PARÁMETROS

Tipo

Descripción

Carácter

Query actual

04. DEVOLUCIÓN

TipoDescripción

Carácter

Query con los cambios personalizados


05. EJEMPLO


Ejemplo de ejecución
#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