Busca Movimentos Origem E Destino (RESOLVIDO)

[funedi]

Prezados,

estou precisando fazer o seguinte:

tenho uma sequencia de 3 movimentos que são faturados sequencialmente:

=> 1.1.09 que é faturado para 1.1.10 e este faturado para 1.1.11

Estou fazendo um controle no 1.1.10 e preciso a partir deste movimento identificar a origem ( ou seja o movimento que veio 1.1.09) e também identificar o movimento de destino ou seja se foi faturado para qual foi faturado (neste caso ele fatura para 1.1.11).

Já relacionei a Tmovrelac porem só consigo pegar ou origem ou destino alguém poderia me ajudar?

Grato e aguardo.

Alex

[araujoronaldo]

Prezado,

Veja se esta consulta te ajuda.

TMOVBASE Refere-se ao movimento base que no seu caso é o 1.1.10

TMOVORIGEM É o movimento que deu origem ao 1.1.10

TMOVDESTINO É o movimento de destino que o 1.1.10 gerou

SELECT TMOVORIGEM.CODTMV, TMOVORIGEM.IDMOV, TMOVORIGEM.NUMEROMOV,

TMOVBASE.CODTMV, TMOVBASE.IDMOV, TMOVBASE.NUMEROMOV,

TMOVDESTINO.CODTMV, TMOVDESTINO.IDMOV, TMOVDESTINO.NUMEROMOV

FROM TMOV AS TMOVBASE

INNER JOIN TMOVRELAC AS MOVORIGEM

ON TMOVBASE.CODCOLIGADA = MOVORIGEM.CODCOLDESTINO AND

TMOVBASE.IDMOV = MOVORIGEM.IDMOVDESTINO

INNER JOIN TMOV AS TMOVORIGEM

ON TMOVORIGEM.CODCOLIGADA = MOVORIGEM.CODCOLORIGEM AND

TMOVORIGEM.IDMOV = MOVORIGEM.IDMOVORIGEM

INNER JOIN TMOVRELAC AS MOVDESTINO

ON TMOVBASE.CODCOLIGADA = MOVDESTINO.CODCOLORIGEM AND

TMOVBASE.IDMOV = MOVDESTINO.IDMOVORIGEM

INNER JOIN TMOV AS TMOVDESTINO

ON TMOVDESTINO.CODCOLIGADA = MOVDESTINO.CODCOLDESTINO AND

TMOVDESTINO.IDMOV = MOVDESTINO.IDMOVDESTINO

WHERE TMOVBASE.CODTMV = '1.1.10'

[funedi]

Prezado,

Veja se esta consulta te ajuda.

TMOVBASE Refere-se ao movimento base que no seu caso é o 1.1.10

TMOVORIGEM É o movimento que deu origem ao 1.1.10

TMOVDESTINO É o movimento de destino que o 1.1.10 gerou

SELECT TMOVORIGEM.CODTMV, TMOVORIGEM.IDMOV, TMOVORIGEM.NUMEROMOV,

TMOVBASE.CODTMV, TMOVBASE.IDMOV, TMOVBASE.NUMEROMOV,

TMOVDESTINO.CODTMV, TMOVDESTINO.IDMOV, TMOVDESTINO.NUMEROMOV

FROM TMOV AS TMOVBASE

INNER JOIN TMOVRELAC AS MOVORIGEM

ON TMOVBASE.CODCOLIGADA = MOVORIGEM.CODCOLDESTINO AND

TMOVBASE.IDMOV = MOVORIGEM.IDMOVDESTINO

INNER JOIN TMOV AS TMOVORIGEM

ON TMOVORIGEM.CODCOLIGADA = MOVORIGEM.CODCOLORIGEM AND

TMOVORIGEM.IDMOV = MOVORIGEM.IDMOVORIGEM

INNER JOIN TMOVRELAC AS MOVDESTINO

ON TMOVBASE.CODCOLIGADA = MOVDESTINO.CODCOLORIGEM AND

TMOVBASE.IDMOV = MOVDESTINO.IDMOVORIGEM

INNER JOIN TMOV AS TMOVDESTINO

ON TMOVDESTINO.CODCOLIGADA = MOVDESTINO.CODCOLDESTINO AND

TMOVDESTINO.IDMOV = MOVDESTINO.IDMOVDESTINO

WHERE TMOVBASE.CODTMV = '1.1.10'

Ronaldo deu certo, só que como muitas vezes o faturamento de um movimento para o outro é feito parcial e por item teria que ser por item tem como fazer o mesmo para item, você sabe se tem algum controle dos movimentos origem e destino por item?

grato.

[araujoronaldo]

Tem sim, isso é feito na tabela TITMMOVRELAC.

Vou ver se consigo mexer nesta consulta adaptando-a para apresentar os itens.

[Nik]

Araujo... estava precisando também... ajustei algumas coisas e me serviu muito bem... obrigado

NIK

[Calebe]

Olá pessoal, passando por aqui.... caso alguem queria segue meu codigo por item:

SELECT '-->' AS SOL, SOL_NOMEPROJETO, SOL_TIPO, SOL_NUMERO, SOL_DATA, SOL_CODPRD, SOL_NOMEPRD,SOL_QTDSOLICITADA, SOL_MOTIVO,
'-->' as REQ, REQ_ID, REQ_DTEMISSAO,REQ_MOV, REQ_IDPRD, /*SOL_CODPRD, SOL_NOMEPRD,*//*CASE WHEN COM_UND = 'SC50' THEN (SOL_QTDSOLICITADA / 50) ELSE SOL_QTDSOLICITADA END SOL_QTD,*/ /*REQ_CODPRD, REQ_PRDNOME, REQ_QTD,*/ /* Requisição */
'-->' as COM, COM_DTEMISSAO, COM_MOV,COM_IDMOV, COM_DTAPROVACAO, COM_APROVADOR, COM_NSEO, COM_NSED, /*SOL_QTDSOLICITADA */ /* Ord. Compra */
'-->' as FIS, FIS_ID, FIS_MOV, FIS_IDPRD, FIS_DTENTRADA, FIS_UND, FIS_QTD, FIS_NSEO, FIS_NSED/* Doc. Fiscal */


FROM

(
/*SOLICITAÇÕES NORMAIS RM SOLUM*/
SELECT SOL_TIPO, SOL_NUMERO, SOL_DATA, SOL_CODPRD, SOL_NOMEPRD, SOL_CODCOL, SOL_ID, SOL_NSE, SOL_QTDSOLICITADA, SOL_NOMEPROJETO, SOL_MOTIVO
FROM(

SELECT 'SOL. NORMAL' AS SOL_TIPO, MP.CODIGO SOL_NUMERO, MP.DATA SOL_DATA, TP.CODIGOPRD SOL_CODPRD, TP.NOMEFANTASIA SOL_NOMEPRD, MI.CODCOLIGADA SOL_CODCOL, MI.IDMOV SOL_ID, MI.NSEQITMMOV SOL_NSE, SUM(MI.QTDEPEDIDA) SOL_QTDSOLICITADA, MPRJ.DESCRICAO SOL_NOMEPROJETO, CONVERT(VARCHAR(200),MI.MOTIVO) SOL_MOTIVO
FROM MPEDIDOMAT MP, MNECESSIDADEMAT MN, MITEMPEDIDOMATERIAL MI, TPRD TP, MPRJ
WHERE MP.CODCOLIGADA = MN.CODCOLIGADA AND MP.IDPRJ = MN.IDPRJ AND MP.IDPEDIDO = MN.IDPEDIDO AND
MN.CODCOLIGADA = MI.CODCOLIGADA AND MN.IDPRJ = MI.IDPRJ AND MN.IDNECESSIDADE = MI.IDNECESSIDADE AND
MI.CODCOLIGADA = TP.CODCOLIGADA AND MI.IDPRD = TP.IDPRD AND
MP.CODCOLIGADA = MPRJ.CODCOLIGADA AND MP.IDPRJ = MPRJ.IDPRJ
AND MPRJ.REVISAO = (SELECT MAX(MJ.REVISAO) AS TESTE FROM MPRJ MJ WHERE MJ.CODCOLIGADA = MPRJ.CODCOLIGADA AND MJ.DESCRICAO = MPRJ.DESCRICAO) /*PEGA ULTIMA REVISÃO*/
AND MI.IDMOV IS NOT NULL

GROUP BY MP.CODIGO, MP.DATA, MI.NSEQITMMOV, TP.CODIGOPRD, TP.NOMEFANTASIA, MI.CODCOLIGADA, MI.IDMOV, MPRJ.DESCRICAO, CONVERT(VARCHAR(200),MI.MOTIVO)

UNION ALL

/*SOLICITAÇÕES EXTRA RM SOLUM*/
SELECT 'SOL. EXTRA' AS SOL_TIPO, MPE.CODIGO SOL_NUMERO, MPE.DATA SOL_DATA, TP.CODIGOPRD SOL_CODPRD, TP.NOMEFANTASIA SOL_NOMEPRD, ME.CODCOLIGADA SOL_CODCOL, ME.IDMOV SOL_ID, ME.NSEQITMMOV SOL_NSE, SUM(ME.QTDEPEDIDO) SOL_QTDSOLICITADA, MPRJ.DESCRICAO SOL_NOMEPROJETO, CONVERT(VARCHAR(200),ME.MOTIVO) SOL_MOTIVO
FROM MPEDIDOMATEXTRA MPE, MITEMPEDIDOMATEXTRA ME, TPRD TP, MPRJ
WHERE MPE.CODCOLIGADA = ME.CODCOLIGADA AND MPE.IDPRJ = ME.IDPRJ AND MPE.IDPEDIDOEXTRA = ME.IDPEDIDOEXTRA AND
ME.CODCOLIGADA = TP.CODCOLIGADA AND ME.IDPRD = TP.IDPRD AND
MPE.CODCOLIGADA = MPRJ.CODCOLIGADA AND MPE.IDPRJ = MPRJ.IDPRJ
AND MPRJ.REVISAO = (SELECT MAX(MJ.REVISAO) AS TESTE FROM MPRJ MJ WHERE MJ.CODCOLIGADA = MPRJ.CODCOLIGADA AND MJ.DESCRICAO = MPRJ.DESCRICAO) /*PEGA ULTIMA REVISÃO*/
AND ME.IDMOV IS NOT NULL

GROUP BY MPE.CODIGO, MPE.DATA, ME.NSEQITMMOV, TP.CODIGOPRD, TP.NOMEFANTASIA, ME.CODCOLIGADA, ME.IDMOV, MPRJ.DESCRICAO, CONVERT(VARCHAR(200),ME.MOTIVO)


)AS SOL_NOR_EXT
/*where SOL_NOMEPRD like 'ACO%' and SOL_CODCOL = 2 AND SOL_NOMEPROJETO LIKE '%MIRANTES%'*/
) SOLICITACAO
LEFT JOIN


/*SOLICITAÇÕES (REQUISIÇÃO) RM NUCLEUS*/
(SELECT TITMMOV.CODCOLIGADA REQ_COL, TITMMOVRELAC.CODCOLDESTINO REC_COL_COM, TITMMOV.IDMOV REQ_ID, TITMMOVRELAC.IDMOVDESTINO REQ_ID_COM, TITMMOV.NSEQITMMOV REQ_NSE, TITMMOVRELAC.NSEQITMMOVDESTINO REQ_NSE_COM, CODTMV REQ_TMV, NUMEROMOV REQ_MOV, TMOV.DATAEMISSAO REQ_DTEMISSAO, CODIGOPRD REQ_CODPRD, TPRD.NOMEFANTASIA REQ_PRDNOME, TITMMOV.QUANTIDADE REQ_QTD, TITMMOVRELAC.IDMOVDESTINO, TITMMOVRELAC.IDMOVORIGEM, TITMMOVRELAC.CODCOLDESTINO, TITMMOVRELAC.CODCOLORIGEM, tprd.IDPRD REQ_IDPRD
FROM TMOV /*LEFT JOIN TMOVRELAC ON TMOV.CODCOLIGADA = TMOVRELAC.CODCOLORIGEM AND TMOV.IDMOV = TMOVRELAC.IDMOVORIGEM*/
INNER JOIN TITMMOV ON TITMMOV.CODCOLIGADA = TMOV.CODCOLIGADA AND TITMMOV.IDMOV = TMOV.IDMOV
LEFT JOIN TITMMOVRELAC ON TITMMOV.CODCOLIGADA = TITMMOVRELAC.CODCOLORIGEM AND TITMMOV.IDMOV = TITMMOVRELAC.IDMOVORIGEM AND TITMMOV.NSEQITMMOV = TITMMOVRELAC.NSEQITMMOVORIGEM
INNER JOIN TPRD ON TITMMOV.CODCOLIGADA = TPRD.CODCOLIGADA AND TITMMOV.IDPRD = TPRD.IDPRD
AND TMOV.CODTMV = '1.1.01'
/*and tmov.CODCOLIGADA = 2
and tprd.NOMEFANTASIA like 'ACO%'
AND TITMMOV.IDMOV = 1966*/
) REQUISICAO ON REQUISICAO.REQ_COL = SOLICITACAO.SOL_CODCOL AND REQUISICAO.REQ_ID = SOLICITACAO.SOL_ID AND REQUISICAO.REQ_NSE = SOLICITACAO.SOL_NSE
LEFT JOIN

/*ORDEM DE COMPRA RM NUCLEUS*/
(SELECT TITMMOVRELAC.CODCOLORIGEM COM_COLO, TITMMOVRELAC.IDMOVORIGEM COM_IDO, TITMMOVRELAC.NSEQITMMOVORIGEM COM_NSEO, TITMMOVRELAC.NSEQITMMOVDESTINO COM_NSED, CODTMV COM_TMV, TITMMOV.QUANTIDADE COM_QTD, NUMEROMOV COM_MOV, TMOV.DATAEMISSAO COM_DTEMISSAO,
(SELECT DATAAPROVACAO FROM TMOVAPROVA WHERE TMOVAPROVA.CODCOLIGADA = TMOV.CODCOLIGADA AND TMOVAPROVA.IDMOV = TMOV.IDMOV) COM_DTAPROVACAO,
(SELECT CODUSUARIO FROM TMOVAPROVA WHERE TMOVAPROVA.CODCOLIGADA = TMOV.CODCOLIGADA AND TMOVAPROVA.IDMOV = TMOV.IDMOV) COM_APROVADOR,
FCFO.CONTATO COM_NOMECONTATO, FCFO.EMAIL COM_EMAIL, FCFO.TELEFONE COM_TEL, FCFO.NOMEFANTASIA COM_NOMECFO, TITMMOVHISTORICO.HISTORICOCURTO COM_HISITEM, (TCPG.CODCPG + ' - '+TCPG.NOME) COM_PGTO, TITMMOV.CODUND COM_UND, TITMMOV.PRECOUNITARIO COM_PRECOUNI, TPRD.CODIGOPRD COM_CODPRD, TPRD.NOMEFANTASIA COM_NOMEPRD, TITMMOVRELAC.IDMOVDESTINO, TITMMOVRELAC.IDMOVORIGEM COM_IDMOVO, TITMMOVRELAC.CODCOLDESTINO COM_IDMOVD, TITMMOV.IDMOV COM_IDMOV, TITMMOV.CODCOLIGADA COM_COL2, TITMMOV.NSEQITMCNT COM_NSE2
FROM TMOV
INNER JOIN TITMMOV ON TITMMOV.CODCOLIGADA = TMOV.CODCOLIGADA AND TITMMOV.IDMOV = TMOV.IDMOV
INNER JOIN TITMMOVRELAC ON TITMMOV.CODCOLIGADA = TITMMOVRELAC.CODCOLDESTINO AND TITMMOV.IDMOV = TITMMOVRELAC.IDMOVDESTINO AND TITMMOV.NSEQITMMOV = TITMMOVRELAC.NSEQITMMOVDESTINO
INNER JOIN TPRD ON TPRD.CODCOLIGADA = TITMMOV.CODCOLIGADA AND TPRD.IDPRD = TITMMOV.IDPRD
INNER JOIN FCFO ON FCFO.CODCFO = TMOV.CODCFO
INNER JOIN TITMMOVHISTORICO ON TITMMOVHISTORICO.CODCOLIGADA = TITMMOV.CODCOLIGADA AND TITMMOVHISTORICO.IDMOV = TITMMOV.IDMOV AND TITMMOVHISTORICO.NSEQITMMOV = TITMMOV.NSEQITMMOV
INNER JOIN TCPG ON TCPG.CODCOLIGADA = TMOV.CODCOLIGADA AND TCPG.CODCPG = TMOV.CODCPG
AND TMOV.CODTMV = '1.1.10'
--AND TITMMOVRELAC.IDMOVORIGEM = 974

) ORDEMCOMPRA ON ORDEMCOMPRA.COM_COLO = REQUISICAO.REQ_COL AND ORDEMCOMPRA.COM_IDO = REQUISICAO.REQ_ID AND ORDEMCOMPRA.COM_NSEO = REQUISICAO.REQ_NSE
LEFT JOIN

/*NOTA FISCAL RM NUCLEUS*/
(SELECT TITMMOV.CODCOLIGADA FIS_COL, TITMMOVRELAC.CODCOLORIGEM FIS_COLO, TITMMOVRELAC.CODCOLDESTINO FIS_COLD,
TITMMOV.IDMOV FIS_ID, TITMMOVRELAC.IDMOVORIGEM FIS_IDO, TITMMOVRELAC.IDMOVDESTINO FIS_IDD,
TITMMOV.NSEQITMCNT FIS_NSE, TITMMOVRELAC.NSEQITMMOVORIGEM FIS_NSEO, TITMMOVRELAC.NSEQITMMOVDESTINO FIS_NSED,
CODTMV FIS_TMV, NUMEROMOV FIS_MOV, TITMMOVRELAC.IDMOVDESTINO, TMOV.DATAEMISSAO FIS_DTEMISSAO, DATASAIDA FIS_DTENTRADA, CODIGOPRD FIS_CODPRD, TPRODUTO.NOMEFANTASIA FIS_PRDNOME, CODUND FIS_UND, TITMMOV.QUANTIDADE FIS_QTD, TITMMOVRELAC.CODCOLDESTINO, TITMMOVRELAC.CODCOLORIGEM FIS_COL2, TITMMOVRELAC.IDMOVORIGEM FIS_ID2, TITMMOVRELAC.NSEQITMMOVORIGEM FIS_NSE2, TPRODUTO.IDPRD FIS_IDPRD
FROM TMOV INNER JOIN TITMMOV ON TITMMOV.CODCOLIGADA = TMOV.CODCOLIGADA AND TITMMOV.IDMOV = TMOV.IDMOV
INNER JOIN TITMMOVRELAC ON TITMMOV.CODCOLIGADA = TITMMOVRELAC.CODCOLDESTINO AND TITMMOV.IDMOV = TITMMOVRELAC.IDMOVDESTINO AND TITMMOV.NSEQITMMOV = TITMMOVRELAC.NSEQITMMOVDESTINO
INNER JOIN TPRODUTO ON TITMMOV.IDPRD = TPRODUTO.IDPRD
AND TMOV.CODTMV IN ('1.2.01', '1.2.03', '1.2.05','1.2.06','1.2.07','1.2.09')
--AND TITMMOVRELAC.IDMOVORIGEM = 1105
) DOCFISCAL ON DOCFISCAL.FIS_COLO = ORDEMCOMPRA.COM_COLO AND DOCFISCAL.FIS_IDO = ORDEMCOMPRA.COM_IDMOV AND DOCFISCAL.FIS_NSEO = ORDEMCOMPRA.COM_NSED
WHERE
/*SOL_CODCOL = 2 and
sol_numero = 000116*/
SOL_CODCOL = 2--:CODCOL
AND SOL_NOMEPROJETO LIKE '%mirantes%'--:NOME_PROJETOcale
AND SOL_NOMEPRD LIKE '%'--:NOME_PRODUTO
AND SOL_CODPRD like '%'--:CODPRD
--AND SOL_NUMERO = '000084'
--AND REQ_MOV = '000367'
--AND FIS_MOV IS NULL
/*AND COM_NOMECFO LIKE '%'--:NOME_FORNEC*/
/*AND REQ_DTEMISSAO >= (CONVERT(DATETIME, :DT_EMISSAO_INI, 103))
AND REQ_DTEMISSAO <= (CONVERT(DATETIME, :DT_EMISSAO_FIM, 103))*/

ORDER BY SOL_CODPRD,FIS_MOV


/* -- PARA CONFERIR
SELECT TMOV.CODCOLIGADA, TMOV.IDMOV, TMOV.CODTMV, TPRD.CODIGOPRD, TPRD.NOMEFANTASIA FROM TITMMOV, TPRD, TMOV
WHERE TITMMOV.CODCOLIGADA = TPRD.CODCOLIGADA AND TITMMOV.IDPRD = TPRD.IDPRD
AND TMOV.CODCOLIGADA = TITMMOV.CODCOLIGADA AND TMOV.IDMOV = TITMMOV.IDMOV
AND TPRD.CODCOLIGADA = 1
--AND CODTMV = '1.1.01'
AND TPRD.nomefantasia LIKE '%elevador%'
*/