× Linguagem de Programação ADVPL

Perguntas Ponto de entrada - Borderô

Mais
10 anos 9 meses atrás #16085 por Ronner
Alguém conhece ponto de entrada na geração de borderô FINA740.PRW, preciso que no momento da escolha dos títulos o sistema verifique se um título pertence a um determinado banco e se o valor é menor ou maior do que limite pré estabelecido.

Alguém tem alguma coisa assim funcionando?

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #16102 por Ronner
Respondido por Ronner no tópico Ponto de entrada - Borderô
Na verdade o ponto de entrada correto seria FA060Qry , alguém teria exemplo desse ponto de entrada em funcionamento?

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #16111 por lalberto
Respondido por lalberto no tópico Ponto de entrada - Borderô
User Function FA060QRY()
Local _cRet := ""
If MsgYesNo("Deseja filtrar os clientes de Deposito?")
_cRet := " E1_CLIDEP <> 'S' "
Else
_cRet := " E1_CLIDEP IN ('S','N',' ') "
Endif
If MsgYesNo("Deseja filtrar os boletos impressos internamente?")
_cRet += IIf(SE1->(FieldPos("E1_EMIBOL")) > 0," AND E1_EMIBOL NOT IN ('S','E') ","")
// _cRet += " AND E1_NATUREZ <> '"+&(GetMV("MV_NATCART"))+"' "
Endif
_cRet += IIf(SE1->(FieldPos("E1_AUTCCRE")) > 0," AND E1_AUTCCRE = '' ","")
_cRet += " AND E1_NATUREZ <> '"+&(GetMV("MV_NATCART"))+"' "
Return(_cRet)

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #16113 por Ronner
Respondido por Ronner no tópico Ponto de entrada - Borderô
cara muito obrigado mesmo!
No TDN existe uma informação

FA060Qry Inclui condição SQL ( [ cAgen060 ], [ cConta060 ] ) --> cRet

Podemos usar esse parâmetros

cAgen060 Caracter Agência do banco disponível na variável cPort060
cConta060 Caracter Conta do banco disponível na variável cPort060

Na tela de filtro dos boletos no momento da geração do borderô

preciso utilizar por que caso um título seja da caixa por exemplo e seja menor do 5.000 sem problemas, mostre somente os títulos abaixo desse valor, caso os títulos sejam maiores do que 5.000 somente pelo banco do brasil.
como uso esses parâmetros no fonte que você me passou?
agradeceria mais uma vez se pudesse ajudar

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 8 meses atrás #24465 por jaugustoals
Respondido por jaugustoals no tópico Ponto de entrada - Borderô
boa tarde,

Estou o usando o PE com o seguinte código. Tenho no cadastro do cliente o campo A1_YBORDER e sempre que estiver com N, não apresenta na tela de títulos do bordero.

User Function FA060Qry()
Local cRet := ""
Local cCliente := ""




cConsulta := " SELECT A1_COD
cConsulta += " FROM " + RetSqlName("SA1") + " SA1"
cConsulta += " WHERE A1_YBORDER = 'N' "
cConsulta += " AND D_E_L_E_T_ = '' "
TcQuery cConsulta New Alias _cQRY

Do While !_cQRY->(Eof())
cCliente += "'" + _cQRY->A1_COD + "',"
_cQRY->(dbSkip())

EndDo

_cQRY->(dbCloseArea())

If !Empty(cCliente)
cCliente := SubString(cCliente,1,LEN(cCliente) - 1)
cRet := " E1_CLIENTE NOT IN ("+ cCliente+ ")"

EndIf


Return cRet


Porém preciso consultar mais um campo, sempre que o campo E1_YBLOQUE estiver como S, também não entrará na seleção dos títulos em Bordero.

Alguem pode ajudar como colocar o campo na validação ?

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 8 meses atrás #24472 por admin
Respondido por admin no tópico Ponto de entrada - Borderô
Veja se funfa, não testei: :dry: :dry:

User Function FA060Qry()
Local cRet := ""
Local cCliente := ""

cConsulta := " SELECT A1_COD
cConsulta += " FROM " + RetSqlName("SA1") + " SA1"
cConsulta += " WHERE A1_YBORDER = 'N' "
cConsulta += " AND D_E_L_E_T_ = '' "
TcQuery cConsulta New Alias _cQRY

Do While !_cQRY->(Eof())
cCliente += "'" + _cQRY->A1_COD + "',"
_cQRY->(dbSkip())
Do

_cQRY->(dbCloseArea())

If !Empty(cCliente)
cCliente := SubString(cCliente,1,LEN(cCliente) - 1)
cRet := " E1_CLIENTE NOT IN ("+ cCliente+ ") OR E1_YBLOQUE = 'S' "
Else
cRet := " E1_YBLOQUE = 'S' "
EndIf

Return cRet

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.120 segundos
Joomla templates by a4joomla