CE PLUS - Nota 013617
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 23/01/2014 13:53:48
Data/Hora Última Alteração: 23/01/2014 13:53:48
Descrição da Nota: SUFRAMA 5.0 - AJUSTE NA FORMATAÇÃO DO NCM E PRODUTO ZFM
Sintoma
Na tabela /PWS/ZYCFT007 está configurado que o NCM deve ter dois zeros a esquerda, porém quando
geramos o arquivo Suframa o NCM está incorreto na linha 03.
O campo PRODUTO_ZFM deve ser completado com espaços em brancos à direita nas linhas 10 e 03.
Solução
Corrigir a formatação dos campos.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13617 Data: 22/01/2014 Hora: 16:57:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13617
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
13385 - 00001 - 9.0 - 00006 - DUMP AO TRANSMITIR PLI - SUFRAMA 5.0
13400 - 00002 - 9.0 - 00006 - A PLI NÃO PERMITE GERAR O TXT SEM POSSUIR LI VINCULADA
13497 - 00003 - 9.0 - 00006 - CORREÇÃO NA GERAÇÃO DO ARQUIVO TXT DA PLI.
13511 - 00004 - 9.0 - 00006 - AJUSTADO PROGRAMA PARA COMPLETAR OS CAMPOS NUMERICOS COM ZERO
13538 - 00005 - 9.0 - 00006 - TRATAMENTO DE TIPO DE FORNECEDOR E REMOVER ACENTUAÇÃO.
13555 - 00006 - 9.0 - 00007 - UTILIZAR O NUMERO DA PLI PARA GERAR O NUMERO DO DOCUMENTO NO ARQU
13597 - 00007 - 9.0 - 00007 - SUFRAMA 5.0 - AJUSTE NA FORMATAÇÃO DO NCM
----------------------------------------------------------------------------------------------------
SUFRAMA 5.0 - AJUSTE NA FORMATAÇÃO DO NCM E PRODUTO ZFM
----------------------------------------------------------------------------------------------------
Palavras Chave:
PLI - /PWS/ZYCIR041 - SUFRAMA - /PWS/ZYCFT007 - MODNCM
NCM - PRODUTO_ZFM - PRODUTO - ZFM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR041
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR041
...
LOOP AT it_reg03.
ON CHANGE OF it_reg03-nrseqli.
TRANSLATE it_reg03-ncm_merc USING '. '.
CONDENSE it_reg03-ncm_merc NO-GAPS.
IF /pws/zycft007-modncm EQ '2'.
w_ncm = it_reg03-ncm_merc+2.
ELSE.
w_ncm = it_reg03-ncm_merc.
ENDIF.
WRITE it_reg03-produto_zfm TO w_codsufra.
* >> Início da inclusão: FORM MONTA_TXT
w_numli = it_reg03-nrseqli.
* << Fim da inclusão
TRANSLATE it_inicio-nrpli USING '/ - '.
CONDENSE it_inicio-nrpli NO-GAPS.
CONCATENATE it_inicio-nrpli(4) '/' it_inicio-nrpli+4(5)
INTO w_seq.
CLEAR: w_vl_merc_iten.
CLEAR: ww_aliqii.
CLEAR: w_li_refer.
CLEAR: w_ac_aladi.
CLEAR: w_naladi.
CLEAR: w_mat_usado.
...
...
MOVE: it_reg10-tipo_reg TO it_output_30-filler01+0(02),
it_reg10-trat_prev TO it_output_30-filler01+02(10),
it_reg10-cd_inscsuf TO it_output_30-filler01+12(09),
it_reg10-ncm_merc TO it_output_30-filler01+21(08),
it_reg10-produto_zfm TO it_output_30-filler01+29(04),
* >> Início da exclusão: FORM MONTA_10
w_zeros TO it_output_30-filler01+33(07),
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_10
w_branco+0(07) TO it_output_30-filler01+33(07),
* << Fim da inclusão
w_tipo_ac_tar TO it_output_30-filler01+40(01),
w_ac_aladi TO it_output_30-filler01+41(03),
it_reg10-reg_tribut TO it_output_30-filler01+44(01),
it_reg10-fund_leg TO it_output_30-filler01+45(02),
it_reg10-cob_cambial TO it_output_30-filler01+47(01),
it_reg10-modal_pgto TO it_output_30-filler01+48(02),
it_reg10-dia_lim_pgto TO it_output_30-filler01+50(03),
it_reg10-orgao_fin TO it_output_30-filler01+53(02),
it_reg10-mot_sem_cob+0(02) TO it_output_30-filler01+55(02),
w_agencia TO it_output_30-filler01+57(05),
it_reg10-drawback TO it_output_30-filler01+62(13).
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
* >> Início da exclusão: FORM MONTA_10
it_output_30-filler01+29(11),
* << Fim da exclusão
it_output_30-filler01+40(01),
it_output_30-filler01+44(01),
it_output_30-filler01+45(02),
it_output_30-filler01+47(01),
it_output_30-filler01+48(02),
it_output_30-filler01+50(03),
it_output_30-filler01+53(02),
it_output_30-filler01+55(02).
...
...
FORM monta_03.
LOOP AT it_reg03 WHERE nrseqli = w_numli.
MOVE: w_seq TO it_reg03-trat_prev.
PERFORM trata_decimais_01.
* >> Início da exclusão: FORM MONTA_03
TRANSLATE it_reg03-ncm_merc USING '. '.
CONDENSE it_reg03-ncm_merc NO-GAPS.
w_ncm = it_reg03-ncm_merc.
* << Fim da exclusão
MOVE: it_reg03-tipo_reg TO it_output_30-filler01+0(02),
it_reg03-trat_prev TO it_output_30-filler01+02(10),
it_reg03-cd_inscsuf TO it_output_30-filler01+12(09),
w_ncm TO it_output_30-filler01+21(08),
it_reg03-nr_seq_prod TO it_output_30-filler01+29(04),
* >> Início da exclusão: FORM MONTA_03
w_zeros TO it_output_30-filler01+33(07),
it_reg03-produto_zfm TO it_output_30-filler01+40(04),
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_03
it_reg03-produto_zfm TO it_output_30-filler01+33(04),
w_branco+0(07) TO it_output_30-filler01+37(07),
* << Fim da inclusão
w_qtde01 TO it_output_30-filler01+44(14),
it_reg03-un_medid+0(20) TO it_output_30-filler01+58(20),
w_valor01 TO it_output_30-filler01+78(18),
it_reg03-desc_det(254) TO it_output_30-filler01+96(254).
...
...
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
it_output_30-filler01+29(04),
* >> Início da exclusão: FORM MONTA_03
it_output_30-filler01+33(11),
* << Fim da exclusão
it_output_30-filler01+44(14),
it_output_30-filler01+78(18).
MOVE it_output_30-filler01+0(4193) TO it_output_final-filler03.
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDLOOP.
ENDFORM.
...