Abapnoultimo's Weblog by Uderson » Funções – NF

04 – NOTA FISCAL – J_1B_BRANCH_READ

abapnoultimo — Fri, 15 Feb 2008 15:34:31 +0000

Está função trás os dados de uma determinada Planta (BRANCH) de uma EMPRESA. Lembrando que uma EMPRESA pode ter mais de uma PLANATA ( BRANCH).

Template: CALL FUNCTION ‘J_1B_BRANCH_READ’
      EXPORTING
        BRANCH                  =
        COMPANY                 =
     IMPORTING
       ADDRESS                 =
       BRANCH_RECORD           =
       CGC_NUMBER              =
       ADDRESS_VALUE           =
     EXCEPTIONS
       BRANCH_NOT_FOUND        = 1
       ADDRESS_NOT_FOUND       = 2
       COMPANY_NOT_FOUND       = 3
       OTHERS                  = 4. Entrada: BRANCH                                     =          CHAR 04   ( Character 04) BUKRS                                        =          CHAR 04   ( Character 04) Saída: ADDRESS                                 =          SADR ( Tabela de gerenciamento de Endereços de uma companhia)         BRANCH_RECORD                 =          J_1BBRANCH ( Tabela que contém os dados da planta) CGC_NUMBER                         =          J_1BCGC (Elemento de Dados do tipo NUMC 14)  Exemplo: DATA: LS_BRANCH    TYPE J_1BBRANCH,
      LS_SADR      TYPE SADR,
      LV_CGC       TYPE J_1BCGC,
      LS_ADDR1_VAL TYPE ADDR1_VAL.

DATA: BEGIN OF COMPANY OCCURS 1,
               BUKRS   TYPE J_1BNFDOC-BUKRS,
               BRANCH  TYPE J_1BNFDOC-BRANCH,
        END OF COMPANY.

SELECT BUKRS BRANCH
  FROM J_1BNFDOC
  INTO TABLE COMPANY
  UP TO 1 ROWS.

LOOP AT COMPANY.

    CALL FUNCTION ‘J_1B_BRANCH_READ’
      EXPORTING
        BRANCH                  = COMPANY-BRANCH
        COMPANY                 = COMPANY-BUKRS
     IMPORTING
       ADDRESS                 = LS_SADR
       BRANCH_RECORD           = LS_BRANCH
       CGC_NUMBER              = LV_CGC
       ADDRESS_VALUE           = LS_ADDR1_VAL
     EXCEPTIONS
       BRANCH_NOT_FOUND        = 1
       ADDRESS_NOT_FOUND       = 2
       COMPANY_NOT_FOUND       = 3
       OTHERS                  = 4.

    IF SY-SUBRC = 0.
       WRITE: / LS_SADR-ADRNR, LS_SADR-NATIO,                 LS_SADR-ANRED, LS_SADR-NAME1,                 LS_SADR-NAME2, LV_CGC.
    ENDIF.

ENDLOOP.

03 – Nota Fiscal – J_1B_NF_PARTNER_READ

abapnoultimo — Wed, 13 Feb 2008 17:02:20 +0000

Está função retorna os dados de um determinado parceiro da nota fiscal, onde uma nota fiscal pode ter vários parceiros e um parceiro pode estar em varias notas a tabelas que armazenas os dados de parceiros da nota fiscal é:

J_1BNFNAD = Dados do parceiro da nota Fiscal

J_1BINNAD = Dados de endereço do parceiro da nota Fiscal

Template: CALL FUNCTION ‘J_1B_NF_PARTNER_READ’
  EXPORTING
    PARTNER_TYPE                =
    PARTNER_ID                  =
   DOC_NUMBER                   =
   PARTNER_FUNCTION             =
   OBJ_ITEM                     =
IMPORTING
   PARNAD                       =
EXCEPTIONS
   PARTNER_NOT_FOUND            = 1
   PARTNER_TYPE_NOT_FOUND       = 2
   OTHERS                       = 3.

Entrada:

PARTNER_TYPE = Tipo do parceiro

PARTNER_ID = Id (Identificação do Parceiro) Saída: PARNAD = Estrutura contendo os dados de nome e endereços do parceiro.

Exemplo:

DATA: BEGIN OF WK_HEADER OCCURS 0.
INCLUDE STRUCTURE J_1BNFDOC.
DATA: END OF WK_HEADER.

DATA BINNAD TYPE J_1BINNAD.SELECT * FROM J_1BNFDOC INTO TABLE WK_HEADER WHERE DOCNUM = ‘889′.

READ TABLE WK_HEADER INDEX 1.CALL FUNCTION ‘J_1B_NF_PARTNER_READ’
  EXPORTING
    PARTNER_TYPE                 = WK_HEADER-PARTYP
    PARTNER_ID                   = WK_HEADER-PARID
IMPORTING
   PARNAD                       = BINNAD
EXCEPTIONS
   PARTNER_NOT_FOUND            = 1
   PARTNER_TYPE_NOT_FOUND       = 2
   OTHERS                       = 3.

IF SY-SUBRC = 0. WRITE: /  BINNAD-ANRED,
          BINNAD-NAME1,
          BINNAD-NAME2,
          BINNAD-NAME3,
          BINNAD-NAME4,
          BINNAD-STRAS,
          BINNAD-ORT01,
          BINNAD-ORT02,
          BINNAD-REGIO.ENDIF. As demais são opcionais

02 – Nota Fiscal – J_1B_NF_VALUE_DETERMINATION

abapnoultimo — Fri, 08 Feb 2008 10:57:38 +0000

Está função carregas os totais de impostos de uma determinada nota fiscal, os totais sobre os itens e sobre a nota fiscal.   Template: CALL FUNCTION ‘J_1B_NF_VALUE_DETERMINATION’
  EXPORTING
    NF_HEADER          =
IMPORTING
   EXT_HEADER          =
  TABLES
   NF_ITEM            =
   NF_ITEM_TAX        =
   EXT_ITEM            =
   EXT_TOTAL_TAX       =.

Entrada:

NF_HEADER = Estrutura do tipo J_1BNFDOC (contendo dados de uma determinada nota fiscal X).

NF_ITEM = Tabela contendo os itens de uma determinada nota fiscal X

Saída:

EXT_HEADER = Estrutura contendo dados adicionais da notas tais como: valor total da nota fiscal, valores totais de impostos. A estrutura é do tipo J_1BINDOC.

EXT_ITEM = Tabela contendo os dados Totais de impostos de todos os itens da nota fiscal informada. A tabela é do tipo J_1BINLIN.

Exemplos:

DATA: BEGIN OF WK_HEADER.
        INCLUDE STRUCTURE J_1BNFDOC.
DATA: END OF WK_HEADER.
DATA: BEGIN OF WK_HEADER_ADD.
        INCLUDE STRUCTURE J_1BINDOC.
DATA: END OF WK_HEADER_ADD.
DATA: BEGIN OF WK_PARTNER OCCURS 0.
        INCLUDE STRUCTURE J_1BNFNAD.
DATA: END OF WK_PARTNER.
DATA: BEGIN OF WK_ITEM OCCURS 0.
        INCLUDE STRUCTURE J_1BNFLIN.
DATA: END OF WK_ITEM.
DATA: BEGIN OF WK_ITEM_TAX OCCURS 0.
        INCLUDE STRUCTURE J_1BNFSTX.
DATA: END OF WK_ITEM_TAX.
DATA: BEGIN OF WK_ITEM_ADD OCCURS 0.
        INCLUDE STRUCTURE J_1BINLIN.
DATA: END OF WK_ITEM_ADD.
DATA: BEGIN OF WK_HEADER_MSG OCCURS 0.
        INCLUDE STRUCTURE J_1BNFFTX.
DATA: END OF WK_HEADER_MSG.
DATA: BEGIN OF WK_REFER_MSG OCCURS 0.
        INCLUDE STRUCTURE J_1BNFREF.
DATA: END OF WK_REFER_MSG. CALL FUNCTION ‘J_1B_NF_DOCUMENT_READ’
    EXPORTING
      DOC_NUMBER         = ‘890′
    IMPORTING
      DOC_HEADER         = WK_HEADER
    TABLES
      DOC_PARTNER        = WK_PARTNER
      DOC_ITEM           = WK_ITEM
      DOC_ITEM_TAX       = WK_ITEM_TAX
      DOC_HEADER_MSG     = WK_HEADER_MSG
      DOC_REFER_MSG      = WK_REFER_MSG
    EXCEPTIONS
      DOCUMENT_NOT_FOUND = 1
      DOCUM_LOCK         = 2
      OTHERS             = 3.

WRITE: / WK_HEADER-DOCNUM, WK_HEADER-NFTYPE,
WK_HEADER-DOCTYP, WK_HEADER-DIRECT,
WK_HEADER-DOCDAT.SKIP.

LOOP AT WK_ITEM.WRITE: / WK_ITEM-DOCNUM, WK_ITEM-ITMNUM, WK_ITEM-MATNR,
WK_ITEM-BWKEY, WK_ITEM-BWTAR, WK_ITEM-CHARG,
WK_ITEM-MATKL, WK_ITEM-MAKTX.

ENDLOOP.  CALL FUNCTION ‘J_1B_NF_VALUE_DETERMINATION’
    EXPORTING
      NF_HEADER   = WK_HEADER
    IMPORTING
      EXT_HEADER  = WK_HEADER_ADD
    TABLES
      NF_ITEM     = WK_ITEM
      NF_ITEM_TAX = WK_ITEM_TAX
      EXT_ITEM    = WK_ITEM_ADD.

SKIP.LOOP AT WK_ITEM_ADD.

WRITE: /  WK_ITEM_ADD-DOCNUM,
            WK_ITEM_ADD-ITMNUM,
            WK_ITEM_ADD-NFQTY,
            WK_ITEM_ADD-NFUNT,
            WK_ITEM_ADD-NFPRI,
            WK_ITEM_ADD-NFNET,
            WK_ITEM_ADD-NFFRE,
            WK_ITEM_ADD-NFINS.ENDLOOP.

01 – Nota FISCAL – J_1B_NF_DOCUMENT_READ

abapnoultimo — Fri, 01 Feb 2008 19:18:42 +0000

J_1B_NF_DOCUMENT_READ Está função faz a leitura dos dados de uma determinada nota fiscal, onde é informado o numero do documento fiscal “DOCNUM” e é retornado as estruturas:

J_1BNFDOC = Cabeçalhos da nota fiscal

J_1BNFNAD = Parceiros da nota fiscal

J_1BNFLIN = Itens da nota fiscal

J_1BNFSTX = Impostos da nota fiscal por itens

J_1BNFFTX = Mensagens de Header da nota fiscal

J_1BNFREF      =          Notas Fiscais referentes a Header de mensagens Template: CALL FUNCTION ‘J_1B_NF_DOCUMENT_READ’
  EXPORTING
    DOC_NUMBER               =
IMPORTING
   DOC_HEADER               =
  TABLES
    DOC_PARTNER              =
    DOC_ITEM                 =
    DOC_ITEM_TAX             =
    DOC_HEADER_MSG           =
    DOC_REFER_MSG            =
   DOC_OT_PARTNER           =
EXCEPTIONS
   DOCUMENT_NOT_FOUND       = 1
   DOCUM_LOCK               = 2
   OTHERS                   = 3.

Entrada: DOC_NUMBER = J_1BNFDOC-DOCNUM

Saídas:

DOC_HEADER = J_1BNFDOC

DOC_PARTNER = J_1BNFNAD

DOC_ITEM = J_1BNFLIN

DOC_ITEM_TAX = J_1BNFSTX

DOC_HEADER_MSG = J_1BNFFTX

DOC_REFER_MSG = J_1BNFREF

  Exemplo: DATA: BEGIN OF WK_HEADER.
        INCLUDE STRUCTURE J_1BNFDOC.
DATA: END OF WK_HEADER.
DATA: BEGIN OF WK_HEADER_ADD.
        INCLUDE STRUCTURE J_1BINDOC.
DATA: END OF WK_HEADER_ADD.
DATA: BEGIN OF WK_PARTNER OCCURS 0.
        INCLUDE STRUCTURE J_1BNFNAD.
DATA: END OF WK_PARTNER.
DATA: BEGIN OF WK_ITEM OCCURS 0.
        INCLUDE STRUCTURE J_1BNFLIN.
DATA: END OF WK_ITEM.
DATA: BEGIN OF WK_ITEM_TAX OCCURS 0.
        INCLUDE STRUCTURE J_1BNFSTX.
DATA: END OF WK_ITEM_TAX.
DATA: BEGIN OF WK_ITEM_ADD OCCURS 0.
        INCLUDE STRUCTURE J_1BINLIN.
DATA: END OF WK_ITEM_ADD.
DATA: BEGIN OF WK_HEADER_MSG OCCURS 0.
        INCLUDE STRUCTURE J_1BNFFTX.
DATA: END OF WK_HEADER_MSG.
DATA: BEGIN OF WK_REFER_MSG OCCURS 0.
        INCLUDE STRUCTURE J_1BNFREF.
DATA: END OF WK_REFER_MSG.

CALL FUNCTION ‘J_1B_NF_DOCUMENT_READ’
    EXPORTING
      DOC_NUMBER         = ‘890′
    IMPORTING
      DOC_HEADER         = WK_HEADER
    TABLES
      DOC_PARTNER        = WK_PARTNER
      DOC_ITEM           = WK_ITEM
      DOC_ITEM_TAX       = WK_ITEM_TAX
      DOC_HEADER_MSG     = WK_HEADER_MSG
      DOC_REFER_MSG      = WK_REFER_MSG
    EXCEPTIONS
      DOCUMENT_NOT_FOUND = 1
      DOCUM_LOCK         = 2
      OTHERS             = 3.WRITE: / WK_HEADER-DOCNUM, WK_HEADER-NFTYPE,
         WK_HEADER-DOCTYP, WK_HEADER-DIRECT,
         WK_HEADER-DOCDAT.

SKIP.LOOP AT WK_ITEM.

WRITE: / WK_ITEM-DOCNUM, WK_ITEM-ITMNUM, WK_ITEM-MATNR,
WK_ITEM-BWKEY, WK_ITEM-BWTAR, WK_ITEM-CHARG,
WK_ITEM-MATKL, WK_ITEM-MAKTX.ENDLOOP.