cancel
Showing results for 
Search instead for 
Did you mean: 

Ligação entre ordem de produção e nota fiscal de saída

0 Kudos
446

Boa tarde,

Preciso documentar a rastreabilidade dos itens vendidos, de preferência agrupando por notas fiscais e retornando até o nível mais baixo das ordens de produção e capturando os lotes envolvidos no caminho.

Após a geração da entrada de produto acabado do item que irá compor a nota fiscal de saída, é deixado algum rastro que me permita interligar as tabelas?

Tenho olhado exaustivamente as tabelas OWOR,OIGN,OILM,OJDT e OPKL em busca de alguma referência e nada encontrei.

É possível fazer o que estou procurando, desta forma ou de outra?

View Entire Topic
0 Kudos

Bom dia, eu uso a consulta abaixo para rastrear o lote em toda a sua movimentação

verifique se dá para adaptar a suas necessidades

SELECT DISTINCT
    T0.ItemCode ,
    T0.ItemName , 
    T0.BatchNum AS Lote,
    T0.WhsCode AS Depósito,
    CASE T1.Status
        WHEN 0 THEN 'Liberado'
        WHEN 1 THEN 'Acceso Denegado'
        WHEN 2 THEN 'Bloqueado'
    END AS Estado,
    T2.Quantity AS Quantidade,
    CASE T3.BaseType
        WHEN 13 THEN 'Fatura Clientes'
        WHEN 14 THEN 'Notas de credito Clientes'
        WHEN 15 THEN 'Doc. Entrega'
        WHEN 16 THEN 'Devolucção'
        WHEN 18 THEN 'Fatura Fornecedores'
		WHEN 17	then 'Pedido Vendas'
        WHEN 19 THEN 'Notas de credito Fornecedores'
        WHEN 20 THEN 'Entrada Mercadoria OP'
        WHEN 21 THEN 'Devolução Mercadoria'
        WHEN 59 THEN 'Entrada Mercadorias'
        WHEN 60 THEN 'Saída de mercadorias'
        WHEN 67 THEN 'Transferencia de Estoque'
        ELSE CONVERT(NVARCHAR(20),T3.BaseType)
    END AS Documento,
    T3.BaseNum AS 'Nr. Docto',
    T4.TransId AS 'Nr. LC',
    T3.BaseLinNum AS 'Linha',
    T3.DocDate AS 'Data',
    T3.WhsCode AS 'Depósito',
    T3.CardName ,
    CASE T3.Direction
        WHEN 1 THEN T3.Quantity*-1
        ELSE T3.Quantity
    END AS Qtde,
    CASE T3.Direction
        WHEN 1 THEN 'Saída'
        ELSE 'Entrada'
    END AS Sentido   
 
FROM OIBT T0
INNER JOIN OBTN T1 ON T1.ItemCode=T0.ItemCode AND T1.DistNumber=T0.BatchNum
INNER JOIN OBTQ T2 ON T2.ItemCode=T1.ItemCode AND T2.SysNumber=T1.SysNumber
LEFT JOIN IBT1 T3 ON T3.ItemCode=T0.ItemCode AND T3.BatchNum=T0.BatchNum
LEFT JOIN JDT1 T4 ON T4.TransType=T3.BaseType AND T4.BaseRef=T3.BaseNum AND T4.CreatedBy=T3.BaseEntry


where  T0.BatchNum = [%0]