Duplicando registro tabela NAST após chamada J_1BNFE_CALL_RSNAST00

Question

Boa tarde pessoal,
estava conversando com o Fernando nesta [Thread|; e resolvi abrir uma nova thread.
Estava implementando a badi de impressão do danfe e notei um comportamento estranho.
Após gerar uma NFe, é gerado um registro na NAST.
Na sequencia, executo o FM J_1B_NFE_XML_IN para simular o aceite desta NFe, o que acarreta na chamada da badi de impressão e na minha badi tenho a chamada p/ o FM J_1BNFE_CALL_RSNAST00.
Dentro deste FM, ele move alguns parâmetros de entrada para a NAST e chama o form einzelnachricht, que chama tnaprlesen_, optischearchivierung_, programmaufrufen_, protocolstore_ e finalmente o nastupdate_.
Neste ponto do programa, a chave que tenho no header da tabela NAST é diferente da que já consta na tabela do bd.
No BD tenho este registro na NAST:
MANDT     321
KAPPL     NF
OBJKY     0003347752
KSCHL     ZNFE
SPRAS     E
PARNR                                                                               
PARVW                                                                               
ERDAT     06/24/2009
ERUHR     14:38:41
e no programa, no form nastupdate_, tenho o header da NAST assim:
MANDT
KAPPL     NF
OBJKY     0003347752
KSCHL     ZNFE
SPRAS     
PARNR     
PARVW     
ERDAT     00000000
ERUHR     000000
Sendo assim, quando ele dá o update nast. ele dá sy-subrc = 4, e na sequencia, o código trata if sy-subrc ne 0, insert nast. Com isso tenho 2 registros na NAST pra mesma NF, um com o status VSTAT = 1, mas com o SPRAS/ERDAT/ERUHR não preenchidos e o outro, o "original", com tudo preenchido porém com o status VSTAT = 0.
Olhando o Spool na SP01 eu vejo a NFe "impressa" apenas uma vez, o que está correto. Mas o que me incomoda é que ele acaba gerando registros duplicados.
Segue meu código da BADI:
  IF  i_active-code EQ '100'         "NF-e autorizada
  AND i_active-printd IS INITIAL     "só imprimir automaticamente se ainda não foi impressa
  AND i_active-cancel IS INITIAL     "não faz sentido imprimir autom. se ela foi cancelada
  AND i_active-conting_s IS INITIAL. "não faz sentido imprimir autom. se ela foi alternada
                                     "p/conting. pois deverá ser cancelada
    CALL FUNCTION 'J_1BNFE_CALL_RSNAST00'
    EXPORTING
      I_ACTIVE = i_active
      I_DIMME  = 'X'
      I_PRINTER = vl_printer
    EXCEPTIONS
      no_printer = 1
      others = 2.
    COMMIT WORK.
    IF sy-subrc = 0.
      CALL FUNCTION 'J_1B_NFE_ERROR_PROTOKOLL'
      EXPORTING
        i_docnum = i_active-docnum.
    ENDIF.
  ENDIF.
Para "resolver" esse pequeno problema (ao meu ver, não sei se está correto ou não este comportamento), criei um FM Z com o seguinte código:
FUNCTION ZBR_J_1BNFE_CALL_RSNAST00.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_ACTIVE) TYPE  J_1BNFE_ACTIVE
*"     VALUE(I_KAPPL) TYPE  NAST-KAPPL DEFAULT 'NF'
*"     VALUE(I_NACHA) TYPE  NAST-NACHA DEFAULT '1'
*"     VALUE(I_DIMME) TYPE  NAST-DIMME DEFAULT 'X'
*"     VALUE(I_PRINTER) TYPE  RSPONAME OPTIONAL
*"  EXCEPTIONS
*"      PRINT_ERROR
TABLES: nast.
SELECT SINGLE *
    FROM nast
   WHERE kappl = i_kappl AND
         objky = i_active-docnum AND
         kschl = i_active-form AND
         nacha = i_nacha AND
         vstat = '0'.
start printing
  nast-kappl = i_kappl.
  nast-objky = i_active-docnum.
  nast-kschl = i_active-form.
  nast-nacha = i_nacha.          "1 = print output
  "nast-ldest = i_printer.
  "nast-dimme = i_dimme.          "X = print immidiately
  PERFORM einzelnachricht IN PROGRAM rsnast00 USING sy-subrc.
  IF NOT sy-subrc IS INITIAL.
    MESSAGE i230(8b) with i_active-docnum RAISING print_error. "#EC *
  ENDIF.
ENDFUNCTION.
e na BADI, o chamei desta forma:
CALL FUNCTION 'ZBR_J_1BNFE_CALL_RSNAST00'
    IN BACKGROUND TASK
    EXPORTING
      i_active = i_active
    EXCEPTIONS
      no_printer = 1
      others = 2.
Desta maneira, não ocorreu a duplicação dos registros da NAST e a nota também foi impressa OK.
A minha dúvida é se realmente o comportamento esperado utilizando o primeiro procedimento é duplicar o registro na NAST ou se pode ser que tenha algo errado no meu sistema(SAP_APPL 602 SP01) na hora da chamada da RSNAST00.

Answer 1

parte 1
Boa tarde pessoal,
estava conversando com o Fernando nesta [Thread|; e resolvi abrir uma nova thread.
Estava implementando a badi de impressão do danfe e notei um comportamento estranho.
Após gerar uma NFe, é gerado um registro na NAST.
Na sequencia, executo o FM J_1B_NFE_XML_IN para simular o aceite desta NFe, o que acarreta na chamada da badi de impressão e na minha badi tenho a chamada p/ o FM J_1BNFE_CALL_RSNAST00.
Dentro deste FM, ele move alguns parâmetros de entrada para a NAST e chama o form einzelnachricht, que chama tnapr_lesen, optische_archivierung, programm_aufrufen, protocol_store e finalmente o nast_update.
Neste ponto do programa, a chave que tenho no header da tabela NAST é diferente da que já consta na tabela do bd.
No BD tenho este registro na NAST:
MANDT     321
KAPPL     NF
OBJKY     0003347752
KSCHL     ZNFE
SPRAS     E
PARNR                                                                               
PARVW                                                                               
ERDAT     06/24/2009
ERUHR     14:38:41
e no programa, no form nastupdate_, tenho o header da NAST assim:
MANDT
KAPPL     NF
OBJKY     0003347752
KSCHL     ZNFE
SPRAS     
PARNR     
PARVW     
ERDAT     00000000
ERUHR     000000
Sendo assim, quando ele dá o update nast. ele dá sy-subrc = 4, e na sequencia, o código trata if sy-subrc ne 0, insert nast. Com isso tenho 2 registros na NAST pra mesma NF, um com o status VSTAT = 1, mas com o SPRAS/ERDAT/ERUHR não preenchidos e o outro, o "original", com tudo preenchido porém com o status VSTAT = 0.
Olhando o Spool na SP01 eu vejo a NFe "impressa" apenas uma vez, o que está correto. Mas o que me incomoda é que ele acaba gerando registros duplicados.
continua
Edited by: Jose Nunes on Jun 24, 2009 5:00 PM
Edited by: Jose Nunes on Jun 24, 2009 5:01 PM