- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Alterar registro do contas a pagar pela fina580
×
Linguagem de Programação ADVPL
Perguntas Alterar registro do contas a pagar pela fina580
- henry.charriere
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 492
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25184
por henry.charriere
Alterar registro do contas a pagar pela fina580 foi criado por henry.charriere
Pessoal, bom dia!
Gostaria de pela rotina FINA580, Alterar/Vizualiar alguma NF que
estou analisando para liberação.
Ex. Tenho que liberar a NF 001, mas também gostaria de alterar/vizualizar a mesma antes da liberação.
Alguém conhece alguma forma?
Atenciosamente,
Henry
Gostaria de pela rotina FINA580, Alterar/Vizualiar alguma NF que
estou analisando para liberação.
Ex. Tenho que liberar a NF 001, mas também gostaria de alterar/vizualizar a mesma antes da liberação.
Alguém conhece alguma forma?
Atenciosamente,
Henry
Por favor Acessar ou Registrar para participar da conversa.
- henry.charriere
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 492
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25187
por henry.charriere
Respondido por henry.charriere no tópico Alterar registro do contas a pagar pela fina580
Pessoal, consegui achar o ponto de entrada.
Estou tentando utilizar dessa forma, mas não consigo abrir o registro para alteração.
Alguém tem alguma idéia? Creio que o problema está no regno... tenti mas não deu certo.
#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"
User Function F580ADDB()
Local aParam := {}
Private nRecno := nReg
Begin Sequence
aParam := aClone(PARAMIXB[1])
aAdd(aParam,{"Tracker", "U_MyTrackSE2", 0 , 4})
End Sequence
Return(aParam)
User Function MyTrackSE2()
Local aArea := GetArea()
Local nOpcao := 0
Begin Sequence
nOpcao := AxAltera("SE2",nRecno,1)
If nOpcao == 1
MsgInfo("Ateração concluída com sucesso!")
Endif
RestArea(aArea)
End Sequence
Return(.T.)
Estou tentando utilizar dessa forma, mas não consigo abrir o registro para alteração.
Alguém tem alguma idéia? Creio que o problema está no regno... tenti mas não deu certo.
#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"
User Function F580ADDB()
Local aParam := {}
Private nRecno := nReg
Begin Sequence
aParam := aClone(PARAMIXB[1])
aAdd(aParam,{"Tracker", "U_MyTrackSE2", 0 , 4})
End Sequence
Return(aParam)
User Function MyTrackSE2()
Local aArea := GetArea()
Local nOpcao := 0
Begin Sequence
nOpcao := AxAltera("SE2",nRecno,1)
If nOpcao == 1
MsgInfo("Ateração concluída com sucesso!")
Endif
RestArea(aArea)
End Sequence
Return(.T.)
Por favor Acessar ou Registrar para participar da conversa.
- henry.charriere
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 492
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25188
por henry.charriere
Respondido por henry.charriere no tópico Alterar registro do contas a pagar pela fina580
Consegui....
nOpcao := AxAltera("SE2",SE2->(RECNO()),1)
Valeu!!!
nOpcao := AxAltera("SE2",SE2->(RECNO()),1)
Valeu!!!
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Alterar registro do contas a pagar pela fina580
Tempo para a criação da página:0.071 segundos