- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de Entrada Exclusão NF de Saida
×
Linguagem de Programação ADVPL
Perguntas Ponto de Entrada Exclusão NF de Saida
- Rstrozi
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 123
- Obrigados Recebidos: 0
11 anos 5 meses atrás #14987
por Rstrozi
Ponto de Entrada Exclusão NF de Saida foi criado por Rstrozi
Boa noite pessoal,
Alguém sabe de algum ponto de entrada após a exclusão do documento de saida?
Minha intenção é pesquisar se existe titulo no SE1 para a NF que foi excluida e em caso afirmativo enviar um email para o depto financeiro avisando da exclusão.
Alguém sabe de algum ponto de entrada após a exclusão do documento de saida?
Minha intenção é pesquisar se existe titulo no SE1 para a NF que foi excluida e em caso afirmativo enviar um email para o depto financeiro avisando da exclusão.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14988
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 Exclusão NF de Saida
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MSD2520 ºAutor ³Luiz Alberto º Data ³ 28/03/13 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Ponto de Entrada na exclusao apos nota fiscal º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MSD2520
Local _aAreas := GetArea()
If SC5->(dbSetOrder(1), dbSeek(xFilial("SC5")+SD2->D2_PEDIDO)) .And. SC5->C5_PRIORI == "B" .And. xFilial("SC5") == '01' // Se Estiver na MM e For Pedido Prioridade B, Exclui Titulo na Comercial
xFilAnt := cFilAnt
cFilAnt := '02'
If SE1->(dbSetOrder(1), dbSeek(xFilial("SE1")+Iif(SC5->C5_FILIAL=='01','M.M','C.M')+SD2->D2_DOC))
While SE1->(!Eof()) .And. SE1->E1_NUM == SD2->D2_DOC .And. SE1->E1_PREFIXO == Iif(SC5->C5_FILIAL=='01','M.M','C.M') .And. ;
SE1->E1_CLIENTE == SD2->D2_CLIENTE .And. SE1->E1_LOJA == SD2->D2_LOJA
If RecLock("SE1",.f.)
SE1->(dbDelete())
SE1->(MsUnlock())
Endif
SE1->(dbSkip(1))
Enddo
Endif
cFilAnt := xFilAnt
Endif
RestArea(_aAreas)
return(.T.)
#INCLUDE "TOPCONN.CH"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MSD2520 ºAutor ³Luiz Alberto º Data ³ 28/03/13 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Ponto de Entrada na exclusao apos nota fiscal º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MSD2520
Local _aAreas := GetArea()
If SC5->(dbSetOrder(1), dbSeek(xFilial("SC5")+SD2->D2_PEDIDO)) .And. SC5->C5_PRIORI == "B" .And. xFilial("SC5") == '01' // Se Estiver na MM e For Pedido Prioridade B, Exclui Titulo na Comercial
xFilAnt := cFilAnt
cFilAnt := '02'
If SE1->(dbSetOrder(1), dbSeek(xFilial("SE1")+Iif(SC5->C5_FILIAL=='01','M.M','C.M')+SD2->D2_DOC))
While SE1->(!Eof()) .And. SE1->E1_NUM == SD2->D2_DOC .And. SE1->E1_PREFIXO == Iif(SC5->C5_FILIAL=='01','M.M','C.M') .And. ;
SE1->E1_CLIENTE == SD2->D2_CLIENTE .And. SE1->E1_LOJA == SD2->D2_LOJA
If RecLock("SE1",.f.)
SE1->(dbDelete())
SE1->(MsUnlock())
Endif
SE1->(dbSkip(1))
Enddo
Endif
cFilAnt := xFilAnt
Endif
RestArea(_aAreas)
return(.T.)
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.
- Rstrozi
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 123
- Obrigados Recebidos: 0
- rgomes
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 136
- Obrigados Recebidos: 0
- Rstrozi
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 123
- Obrigados Recebidos: 0
11 anos 5 meses atrás #15044
por Rstrozi
Respondido por Rstrozi no tópico Ponto de Entrada Exclusão NF de Saida
Boa noite, ainda não consegui acertar o envio do email. Assim que conseguir posto aqui.
Basicamente seria isto aqui:
dbSelectArea("SE1")
dbSetOrder(2) //Filial+Cliente+Loja+Prefixo+Numero+Parcela+Tipo+RECNO+DELET
dbSeek(xFilial("SE1")+SF2->F2_CLIENTE+SF2->F2_LOJA+SF2->F2_SERIE+SF2->F2_DOC)
If Found()
NWSENDMAIL() //Static function que envia email
EndIf
Monitoro as variaveis, ele encontra o registro no SE1, entra na rotina de envio de email, mas nao está enviando.
Basicamente seria isto aqui:
dbSelectArea("SE1")
dbSetOrder(2) //Filial+Cliente+Loja+Prefixo+Numero+Parcela+Tipo+RECNO+DELET
dbSeek(xFilial("SE1")+SF2->F2_CLIENTE+SF2->F2_LOJA+SF2->F2_SERIE+SF2->F2_DOC)
If Found()
NWSENDMAIL() //Static function que envia email
EndIf
Monitoro as variaveis, ele encontra o registro no SE1, entra na rotina de envio de email, mas nao está enviando.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de Entrada Exclusão NF de Saida
Tempo para a criação da página:0.131 segundos