Histórico da Página

Este ponto de entrada permite incrementar a regra (Query), para geração das visitas dos reprsentantes aos clientes de forma automática.

FATA320.PRX

FT320QRY - Incrementar regra para programar visita ( [ cQuery ] ) --> cQuery

cQuery(caracter)
• query que contem os dados para filtrar quais clientes deverão ser agendada visita automática, adicionada a condição do especifica.

User Function FT320QRY()                      Local cQuery := Paramixb[1]		cQuery  := "SELECT DISTINCT A1_COD,A1_LOJA,SA1.R_E_C_N_O_ RECNOSA1 FROM "+RetSqlName("SA1")+" SA1,"		cQuery  += RetSqlName("SA3")+" SA3 "		cQuery  += "WHERE A1_FILIAL='"+xFilial("SA1")+"' AND "		cQuery  += "A1_COD>='" +MV_PAR01+"' AND "		cQuery  += "A1_COD<='" +MV_PAR02+"' AND "		cQuery  += "A1_VEND>='"+MV_PAR03+"' AND "		cQuery  += "A1_VEND<='"+MV_PAR04+"' AND "		cQuery  += "A1_VEND<>'"+Space(Len(SA1->A1_VEND))+"' AND "		cQuery  += "(SA1.A1_TEMVIS<>0 OR SA1.A1_FORMVIS<>'"+Space(Len(SA1->A1_FORMVIS))+"') AND "		cQuery  += "A1_EST = 'SP' AND " // *** condicao adicionada por usuario ***		cQuery  += "SA1.D_E_L_E_T_<>'*' AND "		cQuery  += "A3_FILIAL='"+xFilial("SA3")+"' AND "		cQuery  += "A3_COD = SA1.A1_VEND AND "		cQuery  += "SA3.D_E_L_E_T_<>'*' "		cQuery  += "ORDER BY 1,2"      alert("Passou pelo ponto de entrada - FT320QRY()") Return cQuery