- Fórum
- Protheus/Microsiga/Totvs
- Comunicação Bancária
- CNAB
- Preencher campo na SE1 na baixa automática [RESOLVIDO]
Perguntas Preencher campo na SE1 na baixa automática [RESOLVIDO]
- armando.lima
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
8 anos 5 meses atrás - 8 anos 5 meses atrás #30826
por armando.lima
Bom dia pessoal,
Tenho um campo customizado na tabela SE1 e preciso preenchê-lo no momento da baixa automática (quando importa o arquivo do banco para baixar os títulos).
Alguém pode me dar uma ideia ou até mesmo me informar um ponto de entrada que eu posso usar?
Desde já agradeço!
Atenciosamente,
Armando Lima
Analista de Sistemas
Tenho um campo customizado na tabela SE1 e preciso preenchê-lo no momento da baixa automática (quando importa o arquivo do banco para baixar os títulos).
Alguém pode me dar uma ideia ou até mesmo me informar um ponto de entrada que eu posso usar?
Desde já agradeço!
Atenciosamente,
Armando Lima
Analista de Sistemas
Ultima edição: 8 anos 5 meses atrás por armando.lima. Razão: Encerrar tópico
Por favor Acessar ou Registrar para participar da conversa.
- will
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 81
- Obrigados Recebidos: 0
8 anos 5 meses atrás #30834
por will
Respondido por will no tópico Preencher campo na SE1 na baixa automática
Tente esse vê se ajuda:
#Include "PROTHEUS.CH"
#INCLUDE "TOPCONN.CH"
User Function F430BXA()
Local aArea := GetArea()
Local lRet := .T.
Local nSaldoZF := 0
Local nSaldo := 0
If Alltrim(SE5->E5_TIPO) == "PA"
RecLock("SE5",.F.)
SE5->E5_BENEF := Posicione("SA2",1,xFilial("SA2")+SE5->E5_CLIFOR+SE5->E5_LOJA,"A2_NREDUZ")
SE5->E5_HISTOR := "PAGAMENTO ANTECIPADO"
SE5->(msUnlock())
Endif
RestArea(aArea)
Return(lRet)
#Include "PROTHEUS.CH"
#INCLUDE "TOPCONN.CH"
User Function F430BXA()
Local aArea := GetArea()
Local lRet := .T.
Local nSaldoZF := 0
Local nSaldo := 0
If Alltrim(SE5->E5_TIPO) == "PA"
RecLock("SE5",.F.)
SE5->E5_BENEF := Posicione("SA2",1,xFilial("SA2")+SE5->E5_CLIFOR+SE5->E5_LOJA,"A2_NREDUZ")
SE5->E5_HISTOR := "PAGAMENTO ANTECIPADO"
SE5->(msUnlock())
Endif
RestArea(aArea)
Return(lRet)
Por favor Acessar ou Registrar para participar da conversa.
- armando.lima
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
8 anos 5 meses atrás - 8 anos 5 meses atrás #30888
por armando.lima
Respondido por armando.lima no tópico Preencher campo na SE1 na baixa automática
Bom dia!
Agradeço a ajuda do colega William e informo que encontrei a melhor solução para o meu caso. Segue abaixo para os demais colegas que se encontrarem na mesma situação.
Resolvi o meu problema usando o ponto de entrada F70GRSE1 que é chamado após a baixa do título (seja manual ou automático).
E me facilitou muito pois nesse momento as tabelas SE1 e SE5 já estão posicionadas como eu precisava.
Pra identificar se a baixa foi manual ou automática, eu utilizei o campo SE5->E5_ARQCNAB. Se ele estiver vazio, é baixa manual. Se ele estiver preenchido, é baixa automática.
Segue código:
______________________
Armando Vareiro Lima
Analista de Sistemas
Skype: armandolimma
Agradeço a ajuda do colega William e informo que encontrei a melhor solução para o meu caso. Segue abaixo para os demais colegas que se encontrarem na mesma situação.
Resolvi o meu problema usando o ponto de entrada F70GRSE1 que é chamado após a baixa do título (seja manual ou automático).
E me facilitou muito pois nesse momento as tabelas SE1 e SE5 já estão posicionadas como eu precisava.
Pra identificar se a baixa foi manual ou automática, eu utilizei o campo SE5->E5_ARQCNAB. Se ele estiver vazio, é baixa manual. Se ele estiver preenchido, é baixa automática.
Segue código:
User Function F70GRSE1
If RecLock("SE5",.F.)
If Empty(SE5->E5_ARQCNAB)
SE5->E5_XFRECEB := SE1->E1_XFRECEB
Else
SE5->E5_XFRECEB := '01'
EndIf
MsUnLock()
EndIf
Return
Armando Vareiro Lima
Analista de Sistemas
Skype: armandolimma
Ultima edição: 8 anos 5 meses atrás por armando.lima.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- Comunicação Bancária
- CNAB
- Preencher campo na SE1 na baixa automática [RESOLVIDO]
Tempo para a criação da página:0.097 segundos