MATA461-M460FIM - Gravação dos dados após gerar NF de Saída

Salve salve....

Ponto de entrada M460FIM - ( Faturamento - Documento de Saída)

MATA460 / MATA461

#INCLUDE "PROTHEUS.CH"


User Function M460FIM()
	Local aArea    		:= GetArea() as array
	Private cCRLF := CRLF as character

	fGrava()



	RestArea(aArea)
Return( Nil )


/*/{Protheus.doc} fGrava
Gravação

@type          function
@author        Eurai Rapelli
@since         2023.01.01
/*/
Static Function fGrava()
	Local cQuery			:= '' as character


	If Select('QryUDSD2') > 0
		QryUDSD2->( dbCloseArea() )
	Endif
	cQuery := "	SELECT "									+ cCRLF
	cQuery += "		SD2.R_E_C_N_O_ SD2RECNO " + cCRLF
	cQuery += "	FROM " +RetSqlName("SD2") + " SD2 (NOLOCK) "+ cCRLF
	cQuery += "	WHERE "										+ cCRLF
	cQuery += "		D2_FILIAL = '"+xFilial('SD2')+"'"		+ cCRLF
	cQuery += "		AND D2_DOC = '" +SF2->F2_DOC+ "'"		+ cCRLF
	cQuery += "		AND D2_SERIE = '"+SF2->F2_SERIE+" '"	+ cCRLF
	cQuery += "		AND D2_CLIENTE = '"+SF2->F2_CLIENTE+" '"+ cCRLF
	cQuery += "		AND D2_LOJA = '"+SF2->F2_LOJA+" '"		+ cCRLF
	cQuery += "		AND D_E_L_E_T_ = ''"					+ cCRLF
	cQuery += "	ORDER BY D2_ITEM"
	
	MPSysOpenQuery(cQuery,'QryUDSD2')
	Do While QryUDSD2->( !EOF() )

		QryUDSD2->(dbSkip())
	EndDo
	QryUDSD2->(dBCloseArea())
	
	
	If !RecLock("SF2",.F.)
		//Mensagem Erro.
		Return( Nil )
	Endif
	SF2->F2_XNOME := 'EURAI'
	SF2->( MsUnlock() )
	

Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima