Histórico da Página

Parâmetros que são passados para o ponto Parámetros que se pasan al punto de entrada

PARAMIXB - variável variable pública do del tipo ARRAY, e na posição 1 contém a condição do WHERE padrão gerada na rotinay en la posición 1 contiene la condición del WHERE estándar generada en la rutina. Modo de uso: PARAMIXB[1]

O retorno esperado pela rotina padrão do PE são as condições a serem tratadas como filtro para a tabela La devolución esperada por la rutina estándar del PE son las condiciones que se tratarán como filtro para la tabla SE2.

#INCLUDE "PROTHEUS.CH"  

user function FA260QBRW as character
Local   cWhere          :=  PARAMIXB[ 1 ]       as  character
Local   nTamCodBar	    := 0                    as  numeric
Local   nTamIdCnab	    := 0                    as  numeric
Local   dDtIni          := CToD( '  /  /  ' )   as  date
Local   dDtFin          := CToD( '  /  /  ' )   as  date

If cFilAnt == 'D MG 01 '
    nTamCodBar	:= TAMSX3("FIG_CODBAR")[1]
    nTamIdCnab	:= TAMSX3("E2_IDCNAB")[1]

    //Verifico si seel oparámetro parametroDe/A Vencto de/Ateno naoestá esta vaziovacío
    dDtIni	    := Max(dDtIni,Iif(Empty(mv_par09),dDtIni,mv_par09))
    dDtFin	    := Max(dDtFin,Iif(Empty(mv_par10),dDtFin,mv_par10))

    // AcrescentoAumento/diminuodisminuyo de daslas variaveisvariables para abrir periodoperíodo
    dDtIni	    := dDtIni - mv_par14
    dDtFin	    := dDtFin + mv_par13

	cWhere      := "E2_FILIAL IN('D MG 01 ','D MG 02 ','D MG 03 ') AND "
	cWhere      += "E2_FORNECE  >= '"+ mv_par04 + "' AND "
	cWhere      += "E2_FORNECE  <= '"+ mv_par05 + "' AND "
	cWhere      += "E2_LOJA >= '"	+ mv_par06 + "' AND "
	cWhere      += "E2_LOJA <= '"	+ mv_par07 + "' AND "
	
	//Considera Vencto dodel titulotítulo
	If mv_par08 == 1
		cWhere +=	"E2_VENCTO >= '"	+ DTOS(dDtIni) + "' AND "
		cWhere +=	"E2_VENCTO <= '"	+ DTOS(dDtFin) + "' AND "

	Else//Considera Vencto real dodel titulotítulo
		cWhere +=	"E2_VENCREA >= '"	+ DTOS(dDtIni) + "' AND "
		cWhere +=	"E2_VENCREA <= '"	+ DTOS(dDtFin) + "' AND "

	Endif
	
	cWhere += "E2_SALDO > 0 AND "
	cWhere += "E2_TIPO NOT IN " + FORMATIN(MV_CPNEG+MVPAGANT,,3) + " AND "
	cWhere += "E2_TIPO NOT IN " + FORMATIN(MVABATIM,'|') + " AND "
	cWhere += "E2_TIPO NOT IN " + FORMATIN(MVTXA+"INA",,3) + " AND "
	cWhere += "E2_TIPO NOT IN " + FORMATIN(MVTAXA,,3) + " AND "
	cWhere += "E2_TIPO NOT IN " + FORMATIN(MVPROVIS,,3) + " AND "
	cWhere += "E2_CODBAR = '"	+ Space(nTamCodbar) + "' AND "
	cWhere += "E2_IDCNAB = '"	+ Space(nTamIdCnab) + "' AND "
	cWhere += "D_E_L_E_T_ = ' ' "

EndIf

return cWhere