- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- ALTERAR UMA COLUNA NA TABELA SF3, APÓS A GRAVAÇÃO DO DOC DE ENTRADA
Perguntas ALTERAR UMA COLUNA NA TABELA SF3, APÓS A GRAVAÇÃO DO DOC DE ENTRADA
- pedrobarreto
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 14
- Obrigados Recebidos: 0
4 anos 3 meses atrás - 4 anos 3 meses atrás #32914
por pedrobarreto
Bom dia.
Preciso de um ponto de entrada, que grave um dado em um coluna criada na SF3, alguém conhece um ponto de entrada?
Fiz assim, mas não estar gravando.:
#Include 'Protheus.ch'
User Function MT103FIM()
Local nOpcao := PARAMIXB[1] // Opção Escolhida pelo usuario no aRotina
Local nConfirma := PARAMIXB[2] // Se o usuario confirmou a operação de gravação da NFECODIGO DE APLICAÇÃO DO USUARIO
// Local vFornece := ""
Local vCNPJ := ""
Local aAreaAnt := GetArea()
// vFornece := SF1->F1_FORNECE
// vLoja := SF1->F1_LOJA
vCNPJ := POSICIONE("SA2",1, xFilial("SA2")+SF1->F1_FORNECE+SF1->F1_LOJA,"A2_CGC")
dbSelectArea("SF3")
dbSetOrder(4)
dbGoTop()
//SETORDER(4) - F3_FILIAL+F3_CLIEFOR+F3_LOJA+F3_NFISCAL+F3_SERIE
If dbSeek(xFilial("SF3")+SF1->F1_FILIAL+SF1->F1_FORNECE+SF1->F1_LOJA+SF1->F1_DOC+SF1->F1_SERIE) //"01"+"NF "
RecLock("SF3",.F.)
SF3->F3_YCGC := vCNPJ
MsUnlock()
Endif
DbCloseArea()
RestArea(aAreaAnt)
Return (NIL)
Preciso de um ponto de entrada, que grave um dado em um coluna criada na SF3, alguém conhece um ponto de entrada?
Fiz assim, mas não estar gravando.:
#Include 'Protheus.ch'
User Function MT103FIM()
Local nOpcao := PARAMIXB[1] // Opção Escolhida pelo usuario no aRotina
Local nConfirma := PARAMIXB[2] // Se o usuario confirmou a operação de gravação da NFECODIGO DE APLICAÇÃO DO USUARIO
// Local vFornece := ""
Local vCNPJ := ""
Local aAreaAnt := GetArea()
// vFornece := SF1->F1_FORNECE
// vLoja := SF1->F1_LOJA
vCNPJ := POSICIONE("SA2",1, xFilial("SA2")+SF1->F1_FORNECE+SF1->F1_LOJA,"A2_CGC")
dbSelectArea("SF3")
dbSetOrder(4)
dbGoTop()
//SETORDER(4) - F3_FILIAL+F3_CLIEFOR+F3_LOJA+F3_NFISCAL+F3_SERIE
If dbSeek(xFilial("SF3")+SF1->F1_FILIAL+SF1->F1_FORNECE+SF1->F1_LOJA+SF1->F1_DOC+SF1->F1_SERIE) //"01"+"NF "
RecLock("SF3",.F.)
SF3->F3_YCGC := vCNPJ
MsUnlock()
Endif
DbCloseArea()
RestArea(aAreaAnt)
Return (NIL)
Ultima edição: 4 anos 3 meses atrás por pedrobarreto.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- ALTERAR UMA COLUNA NA TABELA SF3, APÓS A GRAVAÇÃO DO DOC DE ENTRADA
Tempo para a criação da página:0.090 segundos