Categorias

Obtenção do N° de Nota Fiscal a partir de Documento de Compra

Informação fornecida por Sérgio Natividade.

Por ordem de compra você pode seguir o seguinte caminho conforme o código

* PARA ACESSAR TODAS AS NF'S PARA UM DETERMINADO PEDIDO

DATA:

AUX_REF(35) type c,

AUX_REFI(6) type n.

SELECT *

FROM EKBE

WHERE EBELN = 'NÚMERO DO PEDIDO'

AND VGABE = '2'. " ENTRADA DE FATURAS

MOVE EKBE-BUKRS TO AUX_REF.

WRITE EKBE-BELNR TO AUX_REF+4.

WRITE EKBE-GJAHR AUX_REF+14.

SELECT *

FROM J_1BNFLIN

WHERE REFTYP = 'IV'

AND REFKEY = AUX_REF

AND REFITM = AUX_REFI.

* AQUI VOCÊ TERÁ O NÚMERO DO DOCUMENTO DA NF

EXIT.

ENDSELECT.

CASO QUEIRA ACESSAR O CABEÇALHO

SELECT SINGLE *

FROM J_1BNFDOC

WHERE DOCNUM = J_1BNFLIN-DOCNUM.

* NO CAMPO NFNUM VOCÊ ENCONTRARÁ O NÚMERO DA NF.

ENDSELECT.

* CASO QUEIRA ACESSAR SOMENTE O NÚMERO DA NF E O NÚMERO DA NF ESTIVER NO CAMPOXBLNR (GERALMENTE ESTÁ)

SELECT *

FROM EKBE

WHERE EBELN = 'NÚMERO DO PEDIDO'

AND VGABE = '2'. " ENTRADA DE FATURAS

* NO CAMPO EKBE-XBLNR VOCÊ TERÁ O NÚMERO DA NF PARA CADA ENTRADA DE FATURA DOPEDIDO

ENDSELECT.