MATA926-MATUCOMP - Alterações automáticas nos complementos dos doc. fiscais

Salve salve....

Ponto de entrada MATUCOMP - ( Compras / Documento de Entrada )

#INCLUDE "TOTVS.CH" 

/*/{Protheus.doc} MATUCOMP
Utilizado para alterações automáticas nos complementos dos documentos fiscais após a emissão das Notas Fiscais

@type        	function
@author      	Eurai Rapelli
@since       	2023.01.01
/*/
User Function MATUCOMP()
Local cQuery   	:= ''
Local cCRLF   	:= CRLF

Local cEntSai 	:= ParamIXB[01]
Local cSerie  	:= ParamIXB[02]
Local cDoc    	:= ParamIXB[03]
Local cCliefor	:= ParamIXB[04]
Local cLoja   	:= ParamIXB[05]   
Local lExiste 	:= CDF->( dbSeek( xFilial("CDF") + cEntSai + cDoc + cSerie + cClieFor + cLoja ) )





If Select('QryUDSFT') > 0
	QryUDSFT->( dbCloseArea() )
Endif


cQuery := cCRLF + "	SELECT " 
cQuery += cCRLF + "		F4_CODINFC "
cQuery += cCRLF + "	FROM "
cQuery += cCRLF + RetSqlName('SFT') + " SFT "
cQuery += cCRLF + "	INNER JOIN "
cQuery += cCRLF + RetSqlName('SF4') + " SF4 "
cQuery += cCRLF + "	ON "
cQuery += cCRLF + "		F4_FILIAL = '" + xFilial('SF4') + "' "
cQuery += cCRLF + "		AND F4_CODIGO = FT_TES "
cQuery += cCRLF + "	WHERE "
cQuery += cCRLF + "		FT_FILIAL = '" + xFilial('SFT') + "' "
cQuery += cCRLF + "		AND FT_NFISCAL = '" + cDoc + "' "
cQuery += cCRLF + "		AND FT_SERIE = '" + cSerie + "' "
cQuery += cCRLF + "		AND FT_CLIEFOR = '" + cClieFor + "' "
cQuery += cCRLF + "		AND FT_LOJA = '" + cLoja + "' "
cQuery += cCRLF + "		AND FT_TIPOMOV = '" + cEntSai + "' "
cQuery += cCRLF + "		AND SFT.D_E_L_E_T_ = ' ' "
cQuery += cCRLF + "		AND SF4.D_E_L_E_T_ = ' ' "
cQuery += cCRLF + "	ORDER BY FT_ITEM "


DbUseArea(.T.,'TOPCONN',TcGenQry(,,ChangeQuery(cQuery)),'QryUDSFT',.T.,.T.)

Do While QryUDSFT->( !EOF() )

	If RecLock("CDF",!lExiste)
		CDF->CDF_FILIAL := xFilial("CDF")
		CDF->CDF_TPMOV  := cEntSai
		CDF->CDF_DOC    := cDoc
		CDF->CDF_SERIE  := cSerie
		CDF->CDF_CLIFOR := cClieFor
		CDF->CDF_LOJA   := cLoja
		CDF->CDF_IFCOMP := QryUDSFT->F4_CODINFC
		
		CDF->( MsUnlock() )
	Endif

	Exit

	QryUDSFT->( dbSkip() )
EndDo
QryUDSFT->( dbCloseArea() )



Return( Nil )

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

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