-
Fórum
-
Protheus/Microsiga/Totvs
-
AdvPL (Advanced Protheus Language)
-
Dúvidas Gerais
-
Ponto de Entrada FA60FIL Bordero Contas a Receber
Perguntas
Ponto de Entrada FA60FIL Bordero Contas a Receber
Menos
Mais
-
Postagens: 3676
-
Obrigados Recebidos: 6
-
-
-
-
9 anos 11 meses atrás #26412
por lalberto
#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"
User Function FA60FIL()
Local _aArea := GetArea()
Local cFil060 :=".T."
If SA1->(dbSetOrder(1), dbSeek(xFilial("SA1")+SE1->E1_CLIENTE+SE1->E1_LOJA)) .And. SA1->A1_BCO1 <> '999'
cFil060=".F."
Endif
RestArea(_aArea)
Return(cFil060)
Por favor Acessar ou Registrar para participar da conversa.
Menos
Mais
-
Postagens: 79
-
Obrigados Recebidos: 0
-
-
9 anos 11 meses atrás #26413
por brunogfx4
Luiz primeiramente obrigado pela ajuda, na realidade eu queria que ele apareca todos s titulos do qual foi colocado no Filtro, mas que nesse filtro na apareca os clientes cujo o banco e 999 tentei fazer uma modificacao em cima do que voce me enviou, porem nao obtive sucesso.
Por favor Acessar ou Registrar para participar da conversa.
Menos
Mais
-
Postagens: 3676
-
Obrigados Recebidos: 6
-
-
-
-
9 anos 11 meses atrás #26416
por lalberto
Ah Tá, então esta invertido
#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"
User Function FA60FIL()
Local _aArea := GetArea()
Local cFil060 :=".T."
If SA1->(dbSetOrder(1), dbSeek(xFilial("SA1")+SE1->E1_CLIENTE+SE1->E1_LOJA)) .And. SA1->A1_BCO1 == '999'
cFil060=".F."
Endif
RestArea(_aArea)
Return(cFil060)
Por favor Acessar ou Registrar para participar da conversa.
Menos
Mais
-
Postagens: 79
-
Obrigados Recebidos: 0
-
-
9 anos 11 meses atrás #26420
por brunogfx4
Fiz Dessa forma, porem ele ainda esta trazendo o titulo cujo o cliente esta preenchido A1_BCO1='999'.
To ate ficando com raiva, nao consigo ver uma forma para nao trazer esse CLIENTE.
Por favor Acessar ou Registrar para participar da conversa.
Menos
Mais
-
Postagens: 1576
-
Obrigados Recebidos: 4
-
-
9 anos 11 meses atrás #26422
por kanaamlrr
Crie um campo na tabela SE1 e jogue no inicializador padrão dele Posicione('SA1',1,xFilial('SA1')+M->(E1_CLIENTE+E1_LOJA),'A1_BCO1')
Depois crie o filtro por esse campo.
Faça o teste.
Não sei se vai rolar...
Por favor Acessar ou Registrar para participar da conversa.
Menos
Mais
-
Postagens: 80
-
Obrigados Recebidos: 0
-
-
9 anos 11 meses atrás - 9 anos 11 meses atrás #26475
por CaioTostes
Bom dia, recentemente eu fiz algo parecido. Fiz um filtro na marcacao dos titulos (na geração do bordero). Eu utilizei o Ponto de Entrada FA060Qry(). Tenta assim:
#include "rwmake.ch"
User Function FA060Qry()
Local cRet := ""
cRet := " not exists( select A1_FILIAL from "+RetSqlName("SA1")+" SA1 where A1_COD=E1_CLIENTE and A1_LOJA=E1_LOJA and A1_BCO1 <> '999' AND SA1.D_E_L_E_T_= '' ) "
Return cRet
Ultima edição: 9 anos 11 meses atrás por
CaioTostes.
Por favor Acessar ou Registrar para participar da conversa.
-
Fórum
-
Protheus/Microsiga/Totvs
-
AdvPL (Advanced Protheus Language)
-
Dúvidas Gerais
-
Ponto de Entrada FA60FIL Bordero Contas a Receber
Tempo para a criação da página:0.113 segundos
