Consite Iten ja em Cotacao

[Antonio Lins]

Pessoal,

Formula de consistencia para nao incluir item no movimento de solicitacao de compras onde ja existe cotacao em andamento.

SQL - COTACAO

/* CRIADO - ANTONIO LINS

DATA - 08/08/2007

CLIENTE - ***

CONSISTENCIA NA SOLICITACAO DE COMPRAS PARA NAO SEREM INCLUIDOS ITENS QUE ESTAO EM PROCESSO DE

COTACAO DIFERENTE DOS STATUS 1 E 6 */

SELECT '0' AS PRODUTO FROM TCITMORCAMENTO WHERE NOT EXISTS (

SELECT DISTINCT IDPRD FROM TCITMORCAMENTO WHERE CODCOTACAO in (SELECT CODCOTACAO FROM TCCOTACAO

WHERE DATLIMRESPTA<=:FRM_000204 AND STSCOTACAO NOT IN('1','6')) AND IDPRD=:FRM_000200

AND IDMOV IN(SELECT IDMOV FROM TMOV WHERE CODFILIAL=:FRM_000202))

UNION

SELECT DISTINCT IDPRD FROM TCITMORCAMENTO WHERE CODCOTACAO in (SELECT CODCOTACAO FROM TCCOTACAO

WHERE DATLIMRESPTA<=:FRM_000204 AND STSCOTACAO NOT IN('1','6')) AND IDPRD=:FRM_000200

AND IDMOV IN(SELECT IDMOV FROM TMOV WHERE CODFILIAL=:FRM_000202)

1. 000200

TABITM ('IDPRD' , 'I')

2. 000201

SE EXECSQL ('COTACAO')=1

ENTAO SE RESULTSQL ('COTACAO' , 'PRODUTO')= FOR ('000200')

ENTAO 0

SENAO 1

FIMSE

FIMSE

3. 000202

TABMOV ('CODFILIAL' , 'i')

4. 000204

DAT