- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de entrada - Borderô
×
Linguagem de Programação ADVPL
Perguntas Ponto de entrada - Borderô
- Ronner
- Autor do Tópico
- Desconectado
- Usuário está bloqueado
Menos
Mais
- Postagens: 56
- Obrigados Recebidos: 0
11 anos 3 meses atrás #16085
por Ronner
Ponto de entrada - Borderô foi criado 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?
Alguém tem alguma coisa assim funcionando?
Por favor Acessar ou Registrar para participar da conversa.
- Ronner
- Autor do Tópico
- Desconectado
- Usuário está bloqueado
Menos
Mais
- Postagens: 56
- Obrigados Recebidos: 0
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #16111
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
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)
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.
- Ronner
- Autor do Tópico
- Desconectado
- Usuário está bloqueado
Menos
Mais
- Postagens: 56
- Obrigados Recebidos: 0
11 anos 3 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
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.
- jaugustoals
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 14
- Obrigados Recebidos: 0
10 anos 3 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 ?
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.
- admin
- Desconectado
- Administrador
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24472
por admin
Respondido por admin no tópico Ponto de entrada - Borderô
Veja se funfa, não testei:
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
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de entrada - Borderô
Tempo para a criação da página:0.170 segundos