As validate cost items that have no import

Question

I have a problem which I hope can help me, the case is as follows:
I have already paid and the merchandise has already been paid by the paper import costs, for example
ARTICLE A LOT 1 100 kg (which was already made their entrance to the store and already paid)
Then enter the same Article 50 kg of lot 2 which has not yet been paid and which should not even go out and apply the remaining cost of the supplier of office expenses, freight maritono terrestrial, etc., which can not be costed at that time for lack of documentation,
Valid only as allowing the goods leave the charge, but not lacking pay, currently handling this validacion I left which affects all the goods means that in the absence of cover 50 kg and 100 kg have already paid will not let me do pq lack sale afford.
Here are my validacion there if I can not say how to do it if the majority is wrong or this step:
--select
/*16/10/2007- VALIDAR QUE NO GRABE UNA GUIA DE REMISION SI NO TIENE SUS COSTOS DE IMPORTACION PARA EL P/I*/
DECLARE @TABLATEMPORAL TABLE(MAXPIS NVARCHAR(7))
DECLARE @MAXPI NVARCHAR(7)
DECLARE @CONTPI NVARCHAR(7)
DECLARE @CONTNOPI NVARCHAR(7)
/*RECUPERA EL VALOR DEL P/I O P/I'S CON O/C DE IMPORTACION, PARA LOS ITEMS SELECCIONADOS*/
INSERT INTO @TABLATEMPORAL (MAXPIS)
SELECT DISTINCT(T1.DOCENTRY)
FROM DLN1 T0, PDN1 T1, OPOR T2 WHERE T0.DOCENTRY = @LIST_OF_COLS_VAL_TAB_DEL
AND T0.ITEMCODE = T1.ITEMCODE
AND T1.DOCENTRY = (SELECT MAX(DOCENTRY) FROM PDN1 WHERE PDN1.ITEMCODE = T0.ITEMCODE)
AND T2.DOCENTRY = (SELECT DISTINCT(BASEENTRY) FROM PDN1 WHERE BASETYPE = '22' AND DOCENTRY = T1.DOCENTRY)
AND (T2.U_QA_TOC = '1' OR T2.U_QA_TOC = '2')
BEGIN
/*MUESTRA SI HAY REGISTROS DE P/I EN LA TABLA TEMPORAL, QUE NO SE ENCUENTREN EN LOS COSTOS DE IMPORTACION PARA LOS ITEMS SELECCIONADOS*/
          SET @MAXPI = (SELECT MAX(MAXPIS) FROM @TABLATEMPORAL)
          SET @CONTPI = (SELECT COUNT(*) FROM @TABLATEMPORAL)
        SET @CONTNOPI = (SELECT COUNT(*) FROM @TABLATEMPORAL WHERE  MAXPIS NOT IN (SELECT D.BASEENTRY FROM OIPF C, IPF1 D WHERE C.DOCENTRY = D.DOCENTRY AND C.DOCSTATUS = 'C'))
   IF @MAXPI IS NOT NULL AND @MAXPI <> ''
       BEGIN
               IF @CONTNOPI > 0
               BEGIN
                    SET @ERROR = 1 -- IMPORTANTE: INDICA QUE LA VALIDACIÓN NO HA SIDO SUPERADA
                    SET @ERROR_MESSAGE ='EXISTE(N)PRODUCTO(S) QUE DEBE(N) COSTEARSE PARA ESTA O/P'
               END
    END
END
END
END

Answer 1

?