CE PLUS - Nota 007972
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 27/01/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:16:10
Descrição da Nota: CODE INSPECTOR
Sintoma
CODE INSPECTOR
Solução
CODE INSPECTOR
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07972 Data: 27/01/2009 Hora: 14:04:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07972
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00083
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
CLEAR itab_zycit042-docnum.
MOVE itab_zycit042 TO itab_zycit042_aux2.
APPEND itab_zycit042_aux2.
ENDLOOP.
SELECT * FROM /pws/zycit045
INTO TABLE itab_zycit045
WHERE nrseqnf EQ /pws/zycie043-nrseq
AND nfglobal EQ /pws/zycie043-nfglobal.
READ TABLE itab_zycit042_aux2 INDEX 1.
SELECT * FROM /pws/zycit044 INTO TABLE itab_zycit044sd
* >> Início da exclusão: FORM SELECIONA_ITENS_NFR
WHERE nrseq EQ itab_zycit042_aux2-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFR
WHERE nrseq EQ itab_zycit042_aux2-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycit042_aux2.
READ TABLE itab_zycit044 WITH KEY nrseq = itab_zycit042_aux2-nrseq
ebeln = itab_zycit042_aux2-ebeln
ebelp = itab_zycit042_aux2-ebelp.
IF sy-subrc NE 0.
MOVE-CORRESPONDING itab_zycit042_aux2 TO itab_zycit044.
CLEAR: itab_zycit044-nfnum, itab_zycit044-series,
itab_zycit044-subser.
itab_zycit044-docnumnfg = /pws/zycie043-docnumnfg.
itab_zycit044-menge = itab_zycit042_aux2-qtd_iten.
...
...
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
IF wa_zycit001-meioemba EQ 'PS'.
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094
WHERE nrseq = wa_zycit001-nrseq. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
CONCATENATE 'Nr.BL / Nº Seq.:' /pws/zycit093-identify '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
ENDIF.
ELSE.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE 'DI / Nº Seq.:' itab_zycit085-nrdi '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Nr.BL / Nº Seq.:' itab_zycit085-nrdi '/'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
ENDIF.
APPEND it_zycee006.
IF NOT itab_zycit003[] IS INITIAL.
SELECT nrseq embarca FROM /pws/zycit001 INTO TABLE itab_zycit001_msg
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq.
ENDIF.
v_cont = 1.
LOOP AT itab_zycit001_msg.
IF itab_zycit001_msg-nrseq EQ itab_zycit042-nrseq.
v_cont = v_cont + 1.
CONCATENATE 'Embarque nº' itab_zycit001_msg-nrseq '/'
itab_zycit001_msg-embarca INTO it_zycee006-msg
* >> Início da exclusão: FORM MENSAGENS_NF
SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
ENDLOOP.
IF NOT itab_zycit085-urfdesp IS INITIAL.
SELECT SINGLE descdesp FROM /pws/zycet132
INTO /pws/zycet132-descdesp
WHERE codesp = itab_zycit085-urfdesp.
v_cont = v_cont + 1.
CONCATENATE 'Local de Desembaraço:' /pws/zycet132-descdesp
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
CLEAR v_dtreg.
IF itab_zycit001[] IS INITIAL AND NOT itab_zycit042[] IS INITIAL.
SELECT nrseq padest bukrs FROM /pws/zycit001 INTO TABLE
itab_zycit001
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq = itab_zycit042-nrseq.
ENDIF.
...
...
APPEND itab_zycit003_mark.
ENDLOOP.
v_tamanho = '................'.
CLEAR v_vldp_x.
IF NOT v_valor_r IS INITIAL.
MOVE : v_valor_r TO itab_zycit049_aux_r-vldp,
itab_zycit049_aux_r-vldp TO v_vldp_x.
v_cont = v_cont + 1.
it_zycee006-indice = v_cont.
CONCATENATE 'Imp. Importacao R$' v_tamanho v_vldp_x
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
APPEND it_zycee006.
ENDIF.
v_tamanho = '.............................................'.
v_ind = v_cont + 1.
CLEAR: itab_zycit019, itab_zycit020, itab_zycit039.
REFRESH: itab_zycit019, itab_zycit020, itab_zycit039.
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycie041-bukrs.
SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020
WHERE regio = adrc-region AND ( baseicms = 'X' OR
...
...
IF sy-subrc EQ 0.
v_icms_dif = v_icms_dif + itab_zycit480-vl_icms.
ENDIF.
ENDIF.
ENDLOOP.
IF v_icms_dif NE 0.
v_ind = v_ind + 1.
WRITE v_icms_dif TO v_dificms CURRENCY itab_zycit049-waers.
v_tamanho = '....................'.
CONCATENATE 'Valor do ICMS:' v_tamanho v_dificms
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
IF v_dif = 'X'.
v_ind = v_ind + 1.
* >> Início da exclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Valor ICMS: Diferido'.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Valor ICMS: Diferido'. "#EC NOTEXT
* << Fim da inclusão
CLEAR v_dif.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
IF v_base_dif NE 0.
v_ind = v_ind + 1.
WRITE v_base_dif TO v_basedif CURRENCY itab_zycit049-waers.
CONCATENATE 'Base de Cálculo do ICMS:' v_basedif
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
CLEAR wa_zyglt369.
SELECT SINGLE *
FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
AND branch EQ /pws/zycit085-j_1bbranch
AND urfdesp EQ /pws/zycit085-urfdesp.
...
...
/pws/zycie001-tpdecl EQ 'DI'.
LOOP AT itab_zycit042_mark.
MOVE itab_zycit042_mark-ebeln TO itab_pedido-ebeln.
COLLECT itab_pedido.
ENDLOOP.
SORT itab_pedido BY ebeln.
CLEAR v_cont .
DESCRIBE TABLE itab_pedido LINES v_line.
LOOP AT itab_pedido.
IF sy-tabix EQ '1' .
* >> Início da exclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Pedidos nº'.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Pedidos nº'. "#EC NOTEXT
* << Fim da inclusão
ENDIF.
CONCATENATE it_zycee006-msg itab_pedido-ebeln INTO it_zycee006-msg
SEPARATED BY '-' .
v_cont = v_cont + 1.
IF v_cont EQ '5' .
v_ind = v_ind + 1.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
CONCATENATE it_zycee006-msg itab_pedido-ebeln INTO it_zycee006-msg
SEPARATED BY ',' .
...
...
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
CONCATENATE 'Nr.BL / Nº Seq.:' /pws/zycit093-identify '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space.
ENDIF.
ELSE.
CONCATENATE 'DI / Nº Seq.:' itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
* >> Início da exclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
ENDIF.
APPEND it_zycee006.
IF NOT itab_zycit044[] IS INITIAL.
SELECT nrseq embarca FROM /pws/zycit001 INTO TABLE itab_zycit001_msg
FOR ALL ENTRIES IN itab_zycit044
WHERE nrseq = itab_zycit044-nrseq.
ENDIF.
v_cont = 1.
LOOP AT itab_zycit001_msg.
v_cont = v_cont + 1.
CONCATENATE 'Embarque nº' itab_zycit001_msg-nrseq '/'
itab_zycit001_msg-embarca INTO it_zycee006-msg
* >> Início da exclusão: FORM MENSAGENS_NF_R
SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDLOOP.
IF NOT itab_zycit085-urfdesp IS INITIAL.
SELECT SINGLE descdesp FROM /pws/zycet132
INTO /pws/zycet132-descdesp
WHERE codesp = itab_zycit085-urfdesp.
v_cont = v_cont + 1.
CONCATENATE 'Local de Desembaraço:' /pws/zycet132-descdesp
* >> Início da exclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
CLEAR v_dtreg.
SELECT * FROM /pws/zycit100
INTO TABLE itab_zycit100_aux
WHERE nrseqdi = itab_zycit085-nrseqdi.
IF itab_zycit003[] IS INITIAL.
SELECT *
FROM /pws/zycit003
...
...
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_zycit042_auxre-docnum
IMPORTING
nfnum = v_nfnum2
series = v_series.
it_zycee006-indice = v_idm .
CONCATENATE v_nfnum2 '-' v_series INTO v_nf.
CONCATENATE 'Nota Fiscal Global Nº' v_nf '-'
'Data de emissão' v_data2
* >> Início da exclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
APPEND it_zycee006.
v_idm = v_idm + 1.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT /pws/zycie043-observ1 IS INITIAL.
it_zycee006-indice = '3'.
it_zycee006-msg = /pws/zycie043-observ1.
APPEND it_zycee006.
...
...
ELSE.
CLEAR v_icms_dif.
ENDIF.
ENDLOOP.
IF NOT v_icms_nfr_1 IS INITIAL.
v_cont = v_cont + 1.
it_zycee006-indice = v_cont.
WRITE v_icms_nfr_1 CURRENCY itab_zycit100-waersbem
TO v_icms_nfr.
CONCATENATE 'Valor Total do ICMS da Operação: R$' v_icms_nfr
* >> Início da exclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
APPEND it_zycee006.
ENDIF.
IF v_dif = 'X'.
* >> Início da exclusão: FORM MENSAGENS_NF_R
it_zycee006-msg = 'Valor ICMS: Diferido'.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
it_zycee006-msg = 'Valor ICMS: Diferido'. "#EC NOTEXT
* << Fim da inclusão
CLEAR v_dif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
DATA: END OF itab_pedido.
DATA: v_line TYPE i.
v_cont = v_cont + 1.
it_zycee006-nrseq = /pws/zycie264-nrseqc.
it_zycee006-branch = /pws/zycie264-j_1bbranch.
it_zycee006-indice = v_cont.
WRITE /pws/zycit085-dtreg TO v_dtreg.
CONCATENATE 'DI / Nº Seq.:'
/pws/zycit085-nrdi '/' /pws/zycit085-nrseqdi
' Data:' v_dtreg INTO it_zycee006-msg
* >> Início da exclusão: FORM MENSAGENS_NFC
SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
APPEND it_zycee006.
v_cont = 1.
LOOP AT itab_zycit001.
v_cont = v_cont + 1.
CONCATENATE 'Embarque nº' itab_zycit001-nrseq '/'
itab_zycit001-embarca INTO it_zycee006-msg
* >> Início da exclusão: FORM MENSAGENS_NFC
SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDLOOP.
IF NOT /pws/zycit085-urfdesp IS INITIAL.
SELECT SINGLE descdesp FROM /pws/zycet132 INTO
/pws/zycet132-descdesp
WHERE codesp = /pws/zycit085-urfdesp.
v_cont = v_cont + 1.
CONCATENATE 'Local de Desembaraço:' /pws/zycet132-descdesp
* >> Início da exclusão: FORM MENSAGENS_NFC
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
CLEAR v_dtreg.
LOOP AT itab_zycit001.
READ TABLE itab_zycit042 WITH KEY
nrseq = itab_zycit001-nrseq.
IF sy-subrc = 0.
READ TABLE itab_j1bnfdoc WITH KEY docnum = itab_zycit042-docnum.
IF sy-subrc = 0.
...
...
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_zycit042-docnum
IMPORTING
nfnum = v_nfnum2
series = v_series.
it_zycee006-indice = v_cont .
CONCATENATE v_nfnum2 '-' v_series INTO v_nf.
CONCATENATE 'NF Complementar à' 'Nº' v_nf '-'
'Data de emissão' v_data2
* >> Início da exclusão: FORM MENSAGENS_NFC
INTO it_zycee006-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
APPEND it_zycee006.
v_cont = v_cont + 1.
ENDIF.
ENDIF.
ENDLOOP.
DATA: v_tam TYPE i,
v_tam2 TYPE i,
v_tam3 TYPE i,
v_times TYPE i.
v_tam3 = strlen( it_zycee006-msg ).
...
...
itab_zycit001-tpdecl EQ 'DI'.
LOOP AT itab_zycit265_c2 .
MOVE itab_zycit265_c2-ebeln TO itab_pedido-ebeln.
COLLECT itab_pedido.
ENDLOOP.
SORT itab_pedido BY ebeln.
CLEAR v_cont .
DESCRIBE TABLE itab_pedido LINES v_line.
LOOP AT itab_pedido.
IF sy-tabix EQ '1' .
* >> Início da exclusão: FORM MENSAGENS_NFC
it_zycee006-msg = 'Pedidos nº'.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
it_zycee006-msg = 'Pedidos nº'. "#EC NOTEXT
* << Fim da inclusão
ENDIF.
CONCATENATE it_zycee006-msg itab_pedido-ebeln
INTO it_zycee006-msg SEPARATED BY '-'.
v_cont = v_cont + 1.
IF v_cont EQ '5' .
v_ind = v_ind + 1.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
CONCATENATE it_zycee006-msg itab_pedido-ebeln
INTO it_zycee006-msg SEPARATED BY ','.
...