Histórico da Página

User Function ART153Local	ART153

Local	cDesc	:=	""

dbSelectArea("SD1")
dbSetOrder(1)  

	If dbSeek(xFilial("SD1")+SF3->F3_NFISCAL+SF3->F3_SERIE+SF3->F3_CLIEFOR+SF3->F3_LOJA) .And. SF3->F3_TIPO <> "D"	
		If !Empty(SD1->D1_NFORI) .And. !Empty(SD1->D1_SERIORI) 	   	
			cDesc	+=	"Referente NF nº:"+SD1->D1_NFORI+CHR(13) +", registrada em: "+DToC(SD1->D1_DTDIGIT)+CHR(13)+CHR(10)	    
		Else    	
			cDesc	:=	"Compra para recebimento futuro"+CHR(13)+CHR(10) 	
		EndIf              
	EndIf                    	

Return cDesc