Perguntas Ponto de Entrada

Bom dia, Pessoal.

Gostaria de saber se existe um ponto de entrada que após você efetuar a exclusão de documento de saída ou documento de entrada que grave Data e Hora nas tabelas SD1 e SD2.
Se tiver um exemplo para ser trabalhando em cima eu agradeço.


Att,

Ronaldo Gomes

/**********************
Ponto de Entrada executado na exclusao da nota fiscal de saida
User Function MSD2520
*****************************/
DbSelectArea("SD2")
cPed := SD2->D2_PEDIDO
DbSelectArea("SC5")
cOrc := SC5->C5_NUMSUA
DbSelectArea("SUA")
If SUA->( DbSeek(xFilial("SUA")+cOrc) )
DbSelectArea("SUA")
RecLock("SUA",.F.)
SUA->UA_STATUS := "SUP"
SUA->UA_DOC := ""
SUA->UA_SERIE := ""
SUA->UA_EMISNF := CTOD(" / / ")
MsUnLock()
SL4->( DbSetOrder(1) )
If SL4->( DbSeek(xFilial("SL4") + cOrc + "SIGATMK " ) ) //Procurando as parcelas
Do While ! SL4->( Eof() ) .AND. cOrc == SL4->L4_NUM
RecLock("SL4",.F.)
SL4->L4_DOC := ""
SL4->L4_SERIE := ""
MsUnlock()
SL4->( DbSkip() )
EndDo
EndIf
EndIf
Return

Vai mexendo ai, vou ver o ponto de entrada na exclusão do documento de entrada ok.

ok

Obrigado Luiz

Att,

Ronaldo Gomes

Aqui Brother, esse é executado na exclusão do documento de entrada.

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³A100DEL ºAutor ³Luiz Alberto º Data ³ 12/08/11 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³Ponto de Entrada na Exclusao da NF de Entrada º±±
±±º ³se for nota de devolucao entao restaura estado da NF Saida º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP5 º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function A100DEL
Local _aAreas
_aAreas := GetArea()
_lRet := .T.

If SF1->F1_TIPO == "D" // Nota Fiscal de Devolucao
cQueryCad := "SELECT R_E_C_N_O_ REG FROM "+RetSqlName("SF2")+" WHERE "
cQueryCad += "D_E_L_E_T_ <> '*' AND "
cQueryCad += "F2_RECSF1 = "+Str(SF1->(Recno()))

TCQUERY cQueryCad NEW ALIAS "CAD"

While CAD->(!Eof())
If !Empty(CAD->REG)
SF2->(dbGoTo(CAD->REG))

If RecLock("SF2",.f.)
SF2->F2_RECSF1 := 0
SF2->F2_NFDEVOL := "N"
SF2->(MsUnlock())
Endif
Endif

CAD->(dbSkip(1))
Enddo
CAD->(dbCloseArea())
Endif
RestArea(_aAreas)
Return(_lRet)

Boa tarde, Luiz.

No caso do ponto de entrada para NF's de saída que são cancelas, como faço para gravar o ID ou Nome do Usuario que realizou o cancelamento da NF neste ponto de entrada:

User Function M521DNFS()
Local aArea := GetArea()
//Local nReg:= SD2->(Recno()) // Guarda o Registro SD2 Atual
Local cPedido:= SD2->D2_DOC
Local cData:= DTOC(DATE())
Local cTime:= TIME()
//Local cGrupo := SD2->D2_COD

DbSelectArea("SD2")
//dbSetOrder() // Ordem do Novo Indice Criado
dbOrderNickName("EXCLUI") // Ordem do Novo Indice Criado

If dbSeek(xFilial("SD2")+cGrupo)

While SD2->(!Eof()) .And. D2_FILIAL == xFilial("SD2") .And. D2_DOC == cPedido

If RecLock("SD2",.F.)

SD2->D2_DATA:= dData
SD2->D2_HORA:= cTime
MsUnlock()

EndIf

SD2->(dbSkip(1))

EndDo

EndIf

SA1->(dbGoTo(nReg))
RestArea(aArea)

Return


att,

Ronaldo Gomes

User Function M521DNFS()
Local aArea := GetArea()
//Local nReg:= SD2->(Recno()) // Guarda o Registro SD2 Atual
Local cPedido:= SD2->D2_DOC
Local cData:= DTOC(DATE())
Local cTime:= TIME()
//Local cGrupo := SD2->D2_COD

DbSelectArea("SD2")
//dbSetOrder() // Ordem do Novo Indice Criado
dbOrderNickName("EXCLUI") // Ordem do Novo Indice Criado

If dbSeek(xFilial("SD2")+cGrupo)

While SD2->(!Eof()) .And. D2_FILIAL == xFilial("SD2") .And. D2_DOC == cPedido

If RecLock("SD2",.F.)

SD2->D2_DATA:= dData
SD2->D2_HORA:= cTime
[color=#800000:zw83q17v]SD2->D2_USUARIO := SubStr(cUsuario,7,15) // Nome do Usuario
SD2->D2_IDUSER := __cUserID
// Lembrando que estes campos deverão ser criados na tabela de itens de notas de saida.
// SD2
// D2_USUARIO C 15
// D2_IDUSER C 6

[/color:zw83q17v]


MsUnlock()

EndIf

SD2->(dbSkip(1))

EndDo

EndIf

SA1->(dbGoTo(nReg))
RestArea(aArea)

Return