Perguntas Condicao de pagamento

#Include "RWMAKE.CH"
#Include "TOPCONN.CH"
#Include "Protheus.Ch"
#include "TbiConn.ch" 
#include "rwmake.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±ÃÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡ao   ³ Tratamento de Prioridade            ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³ Uso        ³ Metalacre                                                  ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function M460FIM()
Local _aArea := _aAreaSF2 := _aAreaSD2 := _aAreaSA1 := _aAreaSA2 := _aAreaSC5 := _aAreaSB1 := {}

_aArea    := GetArea()
_aAreaSB1 := SB1->(GetArea())
_aAreaSF2 := SF2->(GetArea())
_aAreaSD2 := SD2->(GetArea())
_aAreaSA1 := SA1->(GetArea())
_aAreaSA2 := SA2->(GetArea())
_aAreaSC5 := SC5->(GetArea())
_aAreaSC6 := SC6->(GetArea())
_aAreaSF4 := SF4->(GetArea())

// Particularidade Cliente 725 Vncimentos 
If SF2->F2_CLIENTE+SF2->F2_LOJA == '00072501'
	If SE1->(dbSetOrder(2), dbSeek(xFilial("SE1")+SF2->F2_CLIENTE+SF2->F2_LOJA+SF2->F2_SERIE+SF2->F2_DOC)) 
		If Day(SE1->E1_EMISSAO) >= 1 .And. Day(SE1->E1_EMISSAO) <= 15
			dVencTo := MonthSum(SE1->E1_EMISSAO,1)
			dVencto := CtoD('13/'+StrZero(Month(dVencto),2)+'/'+Str(Year(dVencto),4))
		ElseIf Day(SE1->E1_EMISSAO) >= 16 .And. Day(SE1->E1_EMISSAO) <= 31
			dVencTo := MonthSum(SE1->E1_EMISSAO,1)
			dVencto := CtoD('28/'+StrZero(Month(dVencto),2)+'/'+Str(Year(dVencto),4))
		Endif  		
					
		If RecLock("SE1",.F.)      
			SE1->E1_VENCTO  := dVencto
			SE1->E1_VENCREA := dVencto
			SE1->(MsUnLock())
		Endif
	Endif
Endif

RestArea(_aAreaSF2)
RestArea(_aAreaSD2)
RestArea(_aAreaSA1)
RestArea(_aAreaSA2)
RestArea(_aAreaSC6)
RestArea(_aAreaSC5)
RestArea(_aAreaSB1)
RestArea(_aAreaSF4)
RestArea(_aArea)
Return

//User Function M460FIM()

//Comentada, pois o ponto de entrada nao estava no projeto. William Palma 27/03

/*
Local cPed  := SD2->D2_PEDIDO // PEGA O NUMERO DO PEDIDO DA NF QUE ACABOU DE SER GERADA
Local cNota := "" 

ALERT("PASSOU NO PONTO DE ENTRADA")

DBSELECTAREA("SC5")
DBSETORDER(1)
IF DBSEEK(XFILIAL("SC5") + cPed)  // PROCURA O PEDIDO REFERENTE A ESTA NF
	cNota := SC5->C5_NOTA
ENDIF

DBSELECTAREA("SUA")
DBSETORDER(8)
IF DBSEEK(XFILIAL("SUA") + cPed)      // VAI NA TABELA SUA E GRAVA O NUMERO DA NF NO CAMPO PARA ATUALIZAR A LEGENDA
	RecLock("SUA",.F.)
	SUA->UA_NOTAFIS := cNota 
	MsUnlock()
ENDIF
/*/
Return