CE PLUS - Nota 007037
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 28/07/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:56:13
Descrição da Nota: DESENVOLVIMENTO FUNÇÕES PARA ESTORNO DE NF NO PWCE POR FORA DO SISTEMA
Sintoma
Desenvolvimento de funções para serem utilizadas em exits no programa de nota fiscal standard para
ao realizar o estorno verifique se existe recebimento ou remessas para a nota e caso não exista
elimine os registros do PWCE.
Ajuste para não permitir o recebimento de nota fiscal eletrônica que não possua o status autorizado.
Solução
Desenvolvimento de funções para serem utilizadas em exits no programa de nota fiscal standard para
ao realizar o estorno verifique se existe recebimento ou remessas para a nota e caso não exista
elimine os registros do PWCE.
Ajuste para não permitir o recebimento de nota fiscal eletrônica que não possua o status autorizado.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07037 Data: 28/07/2008 Hora: 15:42:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07037
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00058
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04319 - 00001 - 7.0 - 00002 - QUANDO FAZEMOS RECEBIMENTO DE NF REMESSA, LEVA DATA DA NF GLOBAL.
06294 - 00002 - 7.0 - 00005 - NECESSÁRIA EXIT ANTES DA SELEÇÃO DE DADOS DO RECEBIMENTO
06807 - 00003 - 7.0 - 00006 - NOTA FISCAL ELETRONICA.
----------------------------------------------------------------------------------------------------
DESENVOLVIMENTO FUNÇÕES PARA ESTORNO DE NF NO PWCE POR FORA DO SISTEMA
----------------------------------------------------------------------------------------------------
Palavras Chave:
FUNÇÃO - ESTORNO - NOTA - FISCAL - PWCE - FORA - SISTEMA
VERIFICAÇÃO - ELETRONICA - RECEBIMENTO - NFE
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUGR /PWS/ZYCIGF8
FUNC /PWS/ZYCI_ESTORNO_NF_IMP
FUNC /PWS/ZYCI_VERIF_RECEB_NF
REPS /PWS/LZYCIGF8UXX
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017X01
REPT /PWS/SAPLZYCIGF8
REPT /PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUGR /PWS/ZYCIGF8
Criar grupo de função /PWS/ZYCIGF8
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_ESTORNO_NF_IMP
*criar função: /PWS/ZYCI_ESTORNO_NF_IMP
FUNCTION /pws/zyci_estorno_nf_imp.
*"----------------------------------------------------------------------
*"*"Interface local:
*" IMPORTING
*" REFERENCE(DOCNUM) TYPE J_1BNFDOC-DOCNUM
*" REFERENCE(CANCEL) TYPE J_1BNFDOC-CANCEL
*" EXCEPTIONS
*" NF_RECEBIDA
*" REMESSA
*" COMPLEMENTAR
*"----------------------------------------------------------------------
DATA: wa_zycit041 TYPE /pws/zycit041,
wa_zycit042 TYPE /pws/zycit042,
wa_zycit043 TYPE /pws/zycit043,
wa_zycit265 TYPE /pws/zycit265,
v_erro TYPE c.
IF docnum IS INITIAL OR cancel NE 'X'.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycit043 INTO wa_zycit043
WHERE docnum EQ docnum. "#EC CI_NOFIRST
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit041 INTO wa_zycit041
WHERE docnum EQ docnum. "#EC CI_NOFIRST
ENDIF.
IF NOT wa_zycit041-belnr_mr1m IS INITIAL OR
NOT wa_zycit043-belnr_mr1m IS INITIAL .
SELECT SINGLE * FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM'
AND msgnr EQ '139'.
IF NOT /pws/zyglt217-msgtp IS INITIAL.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '015'
WITH text-000 docnum text-001 text-002.
ENDIF.
RAISE nf_recebida.
ENDIF.
IF NOT wa_zycit041 IS INITIAL.
SELECT SINGLE * FROM /pws/zycit043
WHERE nrseq EQ wa_zycit041-nrseq
AND docnumnfg EQ wa_zycit041-docnum
AND cancel EQ space. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
* EXISTE NOTA DE REMESSA
RAISE remessa.
ENDIF.
*Estorno nota fiscal Global
PERFORM estorno_nf_g USING wa_zycit041.
ELSEIF NOT wa_zycit043 IS INITIAL.
*Estorno nota fiscal remessa
PERFORM estorno_nf_r USING wa_zycit043.
ELSE.
*Estorno nota fiscal Complementar
SELECT SINGLE * FROM /pws/zycit265 INTO wa_zycit265
WHERE docnum EQ docnum. "#EC CI_NOFIELD
CHECK sy-subrc EQ 0.
PERFORM estorno_nf_c USING wa_zycit265
CHANGING v_erro.
IF v_erro EQ 'X'.
* Não foi possivel estornar a contabilização da NF complementar
RAISE complementar.
ENDIF.
ENDIF.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_VERIF_RECEB_NF
*criar função: /PWS/ZYCI_VERIF_RECEB_NF
FUNCTION /pws/zyci_verif_receb_nf.
*"----------------------------------------------------------------------
*"*"Interface local:
*" IMPORTING
*" REFERENCE(DOCNUM) TYPE J_1BNFDOC-DOCNUM
*" EXCEPTIONS
*" NF_RECEBIDA
*" REMESSA
*"----------------------------------------------------------------------
DATA: wa_zycit041 TYPE /pws/zycit041,
wa_zycit043 TYPE /pws/zycit043.
IF docnum IS INITIAL.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycit043 INTO wa_zycit043
WHERE docnum EQ docnum. "#EC CI_NOFIRST
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit041 INTO wa_zycit041
WHERE docnum EQ docnum. "#EC CI_NOFIRST
ENDIF.
IF NOT wa_zycit041-belnr_mr1m IS INITIAL OR
NOT wa_zycit043-belnr_mr1m IS INITIAL .
SELECT SINGLE * FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM'
AND msgnr EQ '140'.
IF NOT /pws/zyglt217-msgtp IS INITIAL.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '015'
WITH text-000 docnum text-001 text-002.
ENDIF.
RAISE nf_recebida.
ENDIF.
IF NOT wa_zycit041 IS INITIAL.
SELECT SINGLE * FROM /pws/zycit043 INTO wa_zycit043
WHERE nrseq EQ wa_zycit041-nrseq
AND docnumnfg EQ wa_zycit041-docnum
AND cancel EQ space. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM'
AND msgnr EQ '141'.
IF NOT /pws/zyglt217-msgtp IS INITIAL.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '015'
WITH text-000 docnum text-006.
ENDIF.
RAISE remessa.
ENDIF.
ENDIF.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF8UXX
INCLUDE /PWS/LZYCIGF8U01.
INCLUDE /PWS/LZYCIGF8U02.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
FORM fill_date_mr1m.
* >> Início da inclusão: FORM FILL_DATE_MR1M
DATA: t_fields(20) TYPE c VALUE 'J_1BNFDOC-NFE',
t_fields2(20) TYPE c VALUE 'J_1BNFDOC-DOCSTAT'.
FIELD-SYMBOLS: <docsta> TYPE ANY,
<nfe> TYPE ANY.
* << Fim da inclusão
...
...
itab_zycie033-tabela = 'WA_NF'.
IF v_existe_nfr NE 'S'.
v_chave = wa_nf-nfglobal.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie041-docnum.
ELSE.
v_chave = wa_nf-nfremessa.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie043-docnum.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE_MR1M
SELECT SINGLE * FROM dd03l
WHERE tabname = 'J_1BNFDOC' AND
fieldname = 'NFE'.
IF sy-subrc = 0 AND
NOT j_1bnfdoc-nftype IS INITIAL.
ASSIGN: (t_fields2) TO <docsta>,
(t_fields) TO <nfe>.
IF <docsta> NE 1 AND
NOT <nfe> IS INITIAL.
MESSAGE i015 WITH text-112.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycie033-cpochv = v_chave.
IF /pws/zycie001-modalidade EQ '99'
OR t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.
itab_zycie033-bldat = sy-datlo.
ELSE.
itab_zycie033-bldat = j_1bnfdoc-docdat.
ENDIF.
itab_zycie033-budat = sy-datlo.
itab_zycie033-bukrs = wa_nf-bukrs.
SELECT SINGLE * FROM /pws/zycit048
...
...
SELECT nrseq ebeln ebelp qtd_item INTO TABLE itab_qtd
FROM /pws/zycit044
WHERE nrseq = itab_itens_nf-nrseq AND
ebeln = itab_itens_nf-ebeln AND
* >> Início da exclusão: FORM FILL_DATE_MR1M
ebelp = itab_itens_nf-ebelp. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_MR1M
ebelp = itab_itens_nf-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
itab_zycit031-menge = itab_zycit003-qtd_iten *
( itab_itens_nf-qtd_item / itab_zycit003-qtd_iten ).
ENDIF.
ELSE.
itab_zycit031-menge = itab_zycit003-qtd_iten.
ENDIF.
IF itab_zycit031-menge IS INITIAL.
itab_zycit031-menge = itab_itens_nf-qtd_item.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017X01
...
* >> Início da inclusão:
tables dd03l.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF8F01
*Gerar include /PWS/LZYCIGF8F01
*----------------------------------------------------------------------*
***INCLUDE /PWS/LZYCIGF8F01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form estorno_nf_g
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_WA_ZYCIT041 text
*----------------------------------------------------------------------*
FORM estorno_nf_g USING p_zycit041 TYPE /pws/zycit041.
DATA: itab_zycit042 TYPE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
DELETE FROM /pws/zycit041
WHERE nrseq = p_zycit041-nrseq
AND nfglobal = p_zycit041-nfglobal
AND docnum = p_zycit041-docnum.
SELECT * FROM /pws/zycit042 INTO TABLE itab_zycit042
WHERE nrseqnf EQ p_zycit041-nrseq
AND docnum EQ p_zycit041-docnum.
DELETE FROM /pws/zycit042
WHERE nrseqnf = p_zycit041-nrseq
AND docnum = p_zycit041-docnum.
LOOP AT itab_zycit042.
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND nrseqori = itab_zycit042-docnum
AND origem = 'NF'.
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND origem = 'PED'.
ENDLOOP.
DELETE FROM /pws/zycit053
WHERE nrseqnf = p_zycit041-nrseq
AND nfglobal = p_zycit041-nfglobal.
DELETE FROM /pws/zycit223
WHERE nrseqnf = p_zycit041-nrseq
AND docnum = p_zycit041-docnum.
ENDFORM. " estorno_nf_g
*&---------------------------------------------------------------------*
*& Form estorno_nf_r
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_WA_ZYCIT043 text
*----------------------------------------------------------------------*
FORM estorno_nf_r USING p_zycit043 TYPE /pws/zycit043.
DATA: itab_zycit044 TYPE /pws/zycit044 OCCURS 0 WITH HEADER LINE.
/pws/zycit043-cancel = 'X'.
UPDATE /pws/zycit043 SET cancel = /pws/zycit043-cancel
WHERE nrseq = p_zycit043-nrseq
AND nfglobal = p_zycit043-nfglobal
AND nfremessa = p_zycit043-nfremessa
AND docnum = p_zycit043-docnum.
SELECT * FROM /pws/zycit044 INTO TABLE itab_zycit044
WHERE nrseqnf = p_zycit043-nrseq
AND nfglobal = p_zycit043-nfglobal
AND nfremessa = p_zycit043-nfremessa
AND docnum = p_zycit043-docnum.
LOOP AT itab_zycit044.
CLEAR: /pws/zycit045.
SELECT SINGLE * FROM /pws/zycit045
WHERE nrseq = itab_zycit044-nrseq
AND nrseqnf = p_zycit043-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
/pws/zycit045-saldo = /pws/zycit045-saldo +
itab_zycit044-qtd_item.
MODIFY /pws/zycit045.
ENDLOOP.
DELETE FROM /pws/zycit044
WHERE nrseqnf = p_zycit043-nrseq
AND nfglobal = p_zycit043-nfglobal
AND nfremessa = p_zycit043-nfremessa
AND docnum = p_zycit043-docnum.
ENDFORM. " estorno_nf_r
*&---------------------------------------------------------------------*
*& Form bi_fb08
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM bi_fb08 CHANGING p_zycit264 TYPE /pws/zycit264
erro TYPE c.
DATA: v_doccont TYPE /pws/zycie264-belnr_f_02_c,
v_modo TYPE c VALUE 'N'.
CHECK NOT p_zycit264-belnr_f_02_c IS INITIAL.
CLEAR v_doccont.
v_doccont = p_zycit264-belnr_f_02_c.
REFRESH: itab_zycbe033,
itab_zycbt034,
itab_zycbt032.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = text-003.
itab_zycbe033-cpochv = p_zycit264-nrseqc.
itab_zycbe033-belnr = p_zycit264-belnr_f_02_c.
itab_zycbe033-bukrs = p_zycit264-bukrs.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-budat = sy-datum.
itab_zycbe033-gjahs = p_zycit264-dt_f_02_c(4).
itab_zycbe033-stgrd = '02'.
APPEND itab_zycbe033.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_FB08'
EXPORTING
v_modo = v_modo
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = text-003
cpochv = /pws/zycit264-nrseqc
tpmsg = 'S'.
IF sy-subrc EQ 0.
CLEAR: p_zycit264-belnr_f_02_c,
p_zycit264-dt_f_02_c.
UPDATE /pws/zycit264
SET belnr_f_02_c = p_zycit264-belnr_f_02_c
dt_f_02_c = p_zycit264-dt_f_02_c
WHERE nrseqc = p_zycit264-nrseqc.
ELSE.
erro = 'X'.
ENDIF.
ENDIF.
ENDFORM. " bi_fb08
*&---------------------------------------------------------------------*
*& Form estorno_nf_c
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_WA_ZYCIT265 text
*----------------------------------------------------------------------*
FORM estorno_nf_c USING p_zycit265 TYPE /pws/zycit265
CHANGING v_erro TYPE c.
DATA: itab_zycit265 TYPE /pws/zycit265 OCCURS 0 WITH HEADER LINE,
itab_zycit053 TYPE /pws/zycit053 OCCURS 0 WITH HEADER LINE,
itab_zycit267 TYPE /pws/zycit267 OCCURS 0 WITH HEADER LINE.
SELECT SINGLE * FROM /pws/zycit264
WHERE nrseqc EQ p_zycit265-nrseqc.
*preenche histórico
CLEAR /pws/zycit270.
IF NOT /pws/zycit264-belnr_f_02_c IS INITIAL.
/pws/zycit270-mandt = sy-mandt.
/pws/zycit270-belnr = /pws/zycit264-belnr_f_02_c.
/pws/zycit270-bukrs = /pws/zycit264-bukrs.
/pws/zycit270-gjahr = /pws/zycit264-dt_f_02_c(4).
/pws/zycit270-programa = text-004.
/pws/zycit270-nrseq = /pws/zycit264-nrseqc.
/pws/zycit270-compl = text-005.
/pws/zycit270-nrseqemb = p_zycit265-nrseq.
/pws/zycit270-tcode = sy-tcode.
/pws/zycit270-dtestorno = sy-datum.
SELECT SINGLE embarca FROM /pws/zycit001
INTO /pws/zycit270-embarca
WHERE nrseq = p_zycit265-nrseq.
ENDIF.
PERFORM bi_fb08 CHANGING /pws/zycit264
v_erro .
IF NOT /pws/zycit270 IS INITIAL.
*Salva histórico
MODIFY /pws/zycit270.
ENDIF.
CHECK v_erro EQ space.
SELECT * FROM /pws/zycit053 INTO TABLE itab_zycit053
WHERE nrseq = p_zycit265-nrseq
AND nrseqnf = p_zycit265-nrseqnf.
SELECT * FROM /pws/zycit265 INTO TABLE itab_zycit265
WHERE nrseqc EQ p_zycit265-nrseqc. "#EC CI_NOFIRST
SELECT * FROM /pws/zycit267 INTO TABLE itab_zycit267
WHERE nrseqc = p_zycit265-nrseqc.
LOOP AT itab_zycit265 WHERE docnum EQ p_zycit265-docnum.
CLEAR: itab_zycit265-docnum.
MODIFY itab_zycit265 TRANSPORTING docnum.
LOOP AT itab_zycit053
WHERE nrseq = itab_zycit265-nrseq
AND nrseqnf = itab_zycit265-nrseqnf
AND ebeln = itab_zycit265-ebeln
AND ebelp = itab_zycit265-ebelp.
READ TABLE itab_zycit267 WITH KEY
nrseq = itab_zycit053-nrseq
ebeln = itab_zycit053-ebeln
ebelp = itab_zycit053-ebelp
codigo = itab_zycit053-codigo.
itab_zycit053-vlreal =
itab_zycit053-vlreal - itab_zycit267-vlcompl.
MODIFY itab_zycit053.
DELETE FROM /pws/zycit267
WHERE nrseqc = itab_zycit265-nrseqc AND
nrseq = itab_zycit053-nrseq AND
ebeln = itab_zycit053-ebeln AND
ebelp = itab_zycit053-ebelp AND
codigo = itab_zycit053-codigo.
* Remove registro do Custo
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit053-nrseq AND
nrseqori = itab_zycit265-nrseqc AND
ebeln = itab_zycit053-ebeln AND
ebelp = itab_zycit053-ebelp AND
codigo = itab_zycit053-codigo AND
origem = 'NFC' .
ENDLOOP.
ENDLOOP.
MODIFY /pws/zycit053 FROM TABLE itab_zycit053.
CLEAR: itab_zycit265.
LOOP AT itab_zycit265 WHERE docnum NE space.
ENDLOOP.
IF sy-subrc EQ 0.
MODIFY /pws/zycit265 FROM TABLE itab_zycit265.
ELSE.
DELETE FROM /pws/zycit266
WHERE nrseqc = p_zycit265-nrseqc. "#EC CI_NOFIRST
DELETE FROM /pws/zycit265
WHERE nrseqc = p_zycit265-nrseqc. "#EC CI_NOFIRST
DELETE FROM /pws/zycit264 WHERE nrseqc = p_zycit265-nrseqc.
ENDIF.
COMMIT WORK.
ENDFORM. " estorno_nf_c
.
----------------------------------------------------------------------------------------------------
* CRIAR INCLUDE REPS /PWS/LZYCIGF8TOP
FUNCTION-POOL /pws/zycigf8 MESSAGE-ID /pws/zycim.
TABLES: /pws/zyglt217,
/pws/zycit041,
/pws/zycit042,
/pws/zycit043,
/pws/zycit044,
/pws/zycit045,
/pws/zycit036,
/pws/zycit053,
/pws/zycit223,
/pws/zycit264,
/pws/zycit265,
/pws/zycit267,
/pws/zycit270.
*tabelas internas
DATA: itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCIGF8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 000
Texto: (13 caracteres)
"A nota fiscal"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (44 caracteres)
"possui recebimento no PW.CE, será necessário"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 002
Texto: (33 caracteres)
"realizar o cancelamento no PW.CE."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (13 caracteres)
"/PWS/ZYCIT265"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 004
Texto: (16 caracteres)
"/PWS/SAPMZYCI029"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (15 caracteres)
"NF Complementar"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (17 caracteres)
"possui remessa(s)"
Comprimento máximo: 20
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI017
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 107
Texto: (37 caracteres)
"Lot has filled in order of purchases."
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 111
Texto: (29 caracteres)
"Document can not be reversed."
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 112
Texto: (19 caracteres)
"NFE not authorized!"
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 112
Texto: (19 caracteres)
"NFE não autorizada!"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 262
Texto: (25 caracteres)
"Exist invoice not posted."
Comprimento máximo: 41