CE PLUS - Nota 003588
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 03/05/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:14:08
Descrição da Nota: LEI FISCAL REFERENTE PIS/COFINS NA NOTA FISCAL
Sintoma
Com a aplicação das notas 980214 e 981123 da SAP foram acrescidos os campos referentes a lei de
tributação de PIS e COFINS na nota fiscal, que ocasionou a necessidade do ajuste dos nossos
programas para tratar os campos durante o batch input na nota fiscal.
Solução
Novo tratamento no programa da Nota Fiscal para que o sistema envie os dados referente a lei de
tributação de Pis e Cofins parametrizados na tabela de "Crédito de Impostos na Classificação NF"
(/PWS/ZYCIT398)para os novos campos da Nota Fiscal.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03588 Data: 03/05/2007 Hora: 09:02:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03588
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00164
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02863 - 00001 - 6.0 - 00026 - NA NF REMESSA A LINHA DO IPI NÃO ESTÁ PREENCHIDA COM A BASE DE CÁ
02915 - 00002 - 6.0 - 00026 - ADICIONADO PARAMETRO LEI 102 PARA PIS E COFINS
----------------------------------------------------------------------------------------------------
LEI FISCAL REFERENTE PIS/COFINS NA NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL - NOVOS CAMPOS - LEI PIS / COFINS
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI029F01
TABD /PWS/ZYCEE007
TABD /PWS/ZYCIT398
TOBJ /PWS/ZYCIT398S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
FUNCTION /pws/zyci_transacao_j1b1n.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
TABLES: dd02l.
* << Fim da inclusão
DATA:
v_data_doc(10) TYPE c,
v_data_pst(10) TYPE c,
v_refer LIKE j_1bam-sconrf VALUE '0005',
v_string LIKE j_1bam-scrcon,
v_netfre(15) TYPE c,
v_netins(15) TYPE c,
v_netoth(15) TYPE c,
v_ntgew(16) TYPE c,
v_brgew(16) TYPE c,
...
...
v_base2(15) TYPE c,
v_taxval2(15) TYPE c,
v_pexcbas(15) TYPE c,
v_aliqicms(8) TYPE c,
v_aliqipi(8) TYPE c,
v_othbas_pis(17),
v_base_pis(15),
v_taxval_pis(15),
v_pisexcbas(20),
v_aliqpis(8),
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
v_msgpis TYPE c,
v_msgcof TYPE c,
c_pis_t(15) TYPE c VALUE 'J_1BATL5T',
c_cof_t(15) TYPE c VALUE 'J_1BATL4T',
wa_text_law TYPE j_1batl2t,
* << Fim da inclusão
v_othbas_cof(17),
v_base_cof(15),
v_taxval_cof(15),
v_cofexcbas(20),
v_aliqcof(8).
LOOP AT t_dados.
CHECK t_dados-tcode = 'J1B1N'.
CLEAR v_cont.
IF ( t_dados-docdat = space ).
t_campos-mandt = t_dados-mandt.
...
...
'J_1BDYLIN-NETPR' v_netpr,
'J_1BDYLIN-NETINS' v_netins,
'J_1BDYLIN-NETFRE' v_netfre,
'J_1BDYLIN-NETOTH' v_netoth,
'J_1BDYLIN-BWTAR' t_itens-bwtar,
'J_1BDYLIN-CFOP' t_itens-cfop,
'J_1BDYLIN-TAXLW1' t_itens-taxlw1,
'J_1BDYLIN-TAXLW2' t_itens-taxlw2,
'J_1BDYLIN-NBM' t_itens-nbm,
'J_1BDYLIN-MATORG' t_itens-matorg.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF NOT t_itens-leicofins IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYLIN-TAXLW4' t_itens-leicofins.
ENDIF.
IF NOT t_itens-leipis IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYLIN-TAXLW5' t_itens-leipis.
ENDIF.
* << Fim da inclusão
ELSE.
PERFORM bdc_campo USING:
'J_1BDYLIN-ITMTYP' t_itens-itmtyp,
'J_1BDYLIN-MATNR' t_itens-matnr,
'J_1BDYLIN-MAKTX' t_itens-maktx,
'J_1BDYLIN-MATKL' t_itens-matkl,
'J_1BDYLIN-WERKS' t_itens-werks,
'J_1BDYLIN-MENGE' v_menge,
'J_1BDYLIN-MEINS' t_itens-meins,
'J_1BDYLIN-NETPR' v_netpr,
'J_1BDYLIN-NETINS' v_netins,
'J_1BDYLIN-NETFRE' v_netfre,
'J_1BDYLIN-NETOTH' v_netoth,
'J_1BDYLIN-BWTAR' t_itens-bwtar,
'J_1BDYLIN-CFOP' t_itens-cfop,
'J_1BDYLIN-TAXLW1' t_itens-taxlw1,
'J_1BDYLIN-TAXLW2' t_itens-taxlw2,
'J_1BDYLIN-NBM' t_itens-nbm,
'J_1BDYLIN-MATORG' t_itens-matorg.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF NOT t_itens-leicofins IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYLIN-TAXLW4' t_itens-leicofins.
ENDIF.
IF NOT t_itens-leipis IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYLIN-TAXLW5' t_itens-leipis.
ENDIF.
* << Fim da inclusão
ENDIF.
IF NOT t_itens-matuse0 IS INITIAL.
PERFORM bdc_campo USING 'J_1BDYLIN-MATUSE' '0'.
ELSEIF NOT t_itens-matuse1 IS INITIAL.
PERFORM bdc_campo USING 'J_1BDYLIN-MATUSE' '1'.
ELSEIF NOT t_itens-matuse2 IS INITIAL.
PERFORM bdc_campo USING 'J_1BDYLIN-MATUSE' '2'.
ELSEIF NOT t_itens-matuse3 IS INITIAL.
PERFORM bdc_campo USING 'J_1BDYLIN-MATUSE' '3'.
ENDIF.
...
...
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING:
'BDC_OKCODE' '=TAB4'.
FREE t_msg_aux.
LOOP AT t_message WHERE nrseq = t_dados-nrseq
AND branch = t_dados-branch.
t_msg_aux = t_message.
APPEND t_msg_aux.
ENDLOOP.
CLEAR: v_msgicms, v_msgipi.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
CLEAR: v_indice.
SELECT SINGLE * FROM dd02l
WHERE tabname = c_pis_t.
IF sy-subrc NE 0.
v_msgpis = 'X'.
ENDIF.
SELECT SINGLE * FROM dd02l
WHERE tabname = c_cof_t.
IF sy-subrc NE 0.
v_msgcof = 'X'.
ENDIF.
* << Fim da inclusão
LOOP AT t_itens.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF NOT t_itens-leipis IS INITIAL AND
v_msgpis IS INITIAL.
CLEAR: wa_text_law.
SELECT SINGLE * FROM (c_pis_t)
INTO wa_text_law
WHERE langu EQ sy-langu
AND taxlaw EQ t_itens-leipis.
IF NOT wa_text_law-line1 IS INITIAL
OR NOT wa_text_law-line2 IS INITIAL
OR NOT wa_text_law-line3 IS INITIAL
OR NOT wa_text_law-line4 IS INITIAL.
v_msgpis = 'X'.
ADD 1 TO v_indice.
ENDIF.
ENDIF.
IF NOT t_itens-leicofins IS INITIAL AND
v_msgcof IS INITIAL.
CLEAR: wa_text_law.
SELECT SINGLE * FROM (c_cof_t)
INTO wa_text_law
WHERE langu EQ sy-langu
AND taxlaw EQ t_itens-leicofins.
IF NOT wa_text_law-line1 IS INITIAL
OR NOT wa_text_law-line2 IS INITIAL
OR NOT wa_text_law-line3 IS INITIAL
OR NOT wa_text_law-line4 IS INITIAL.
v_msgcof = 'X'.
ADD 1 TO v_indice.
ENDIF.
ENDIF.
IF v_msgicms IS INITIAL.
* << Fim da inclusão
SELECT SINGLE * FROM j_1batl1t
WHERE langu EQ sy-langu
AND taxlaw EQ t_itens-taxlw1.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF NOT j_1batl1t-line1 IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF NOT j_1batl1t-line1 IS INITIAL
OR NOT j_1batl1t-line2 IS INITIAL
OR NOT j_1batl1t-line3 IS INITIAL
OR NOT j_1batl1t-line4 IS INITIAL.
* << Fim da inclusão
v_msgicms = '01'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ELSEIF NOT j_1batl1t-line2 IS INITIAL.
v_msgicms = '01'.
ELSEIF NOT j_1batl1t-line3 IS INITIAL.
v_msgicms = '01'.
ELSEIF NOT j_1batl1t-line4 IS INITIAL.
v_msgicms = '01'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ADD 1 TO v_indice.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF v_msgipi IS INITIAL.
* << Fim da inclusão
SELECT SINGLE * FROM j_1batl2t
WHERE langu EQ sy-langu
AND taxlaw EQ t_itens-taxlw2.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF NOT j_1batl2t-line1 IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF NOT j_1batl2t-line1 IS INITIAL
OR NOT j_1batl2t-line2 IS INITIAL
OR NOT j_1batl2t-line3 IS INITIAL
OR NOT j_1batl2t-line4 IS INITIAL.
* << Fim da inclusão
v_msgipi = '02'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ELSEIF NOT j_1batl2t-line2 IS INITIAL.
v_msgipi = '02'.
ELSEIF NOT j_1batl2t-line3 IS INITIAL.
v_msgipi = '02'.
ELSEIF NOT j_1batl2t-line4 IS INITIAL.
v_msgipi = '02'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ADD 1 TO v_indice.
ENDIF.
ENDIF.
IF v_indice EQ 4.
EXIT.
* << Fim da inclusão
ENDIF.
ENDLOOP.
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING:
'BDC_OKCODE' '=ENTE'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF v_msgicms = '01' AND v_msgipi = '02'.
v_indice = 3.
* << Fim da exclusão
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
CASE v_indice.
WHEN 1.
PERFORM bdc_campo USING:
'BDC_CURSOR' 'LINESEL(02)',
'LINESEL(02)' 'X',
'J_1BDYFTX-MESSAGE(02)' '*',
'BDC_OKCODE' '=ENTE'.
WHEN 2.
* << Fim da inclusão
PERFORM bdc_campo USING:
'BDC_CURSOR' 'LINESEL(03)',
'LINESEL(03)' 'X',
'J_1BDYFTX-MESSAGE(03)' '*',
'BDC_OKCODE' '=ENTE'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING:
'BDC_OKCODE' '=LONG'.
ELSEIF v_msgicms = space AND v_msgipi = '02'.
v_indice = 2.
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
WHEN 3.
* << Fim da inclusão
PERFORM bdc_campo USING:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'BDC_CURSOR' 'LINESEL(02)',
'LINESEL(02)' 'X',
'J_1BDYFTX-MESSAGE(02)' '*',
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'BDC_CURSOR' 'LINESEL(04)',
'LINESEL(04)' 'X',
'J_1BDYFTX-MESSAGE(04)' '*',
* << Fim da inclusão
'BDC_OKCODE' '=ENTE'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
WHEN 4.
* << Fim da inclusão
PERFORM bdc_campo USING:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'BDC_OKCODE' '=LONG'.
ELSEIF v_msgicms = '01' AND v_msgipi = space.
v_indice = 1.
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING:
'BDC_CURSOR' 'LINESEL(02)',
'LINESEL(02)' 'X',
'J_1BDYFTX-MESSAGE(02)' '*',
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'BDC_CURSOR' 'LINESEL(05)',
'LINESEL(05)' 'X',
'J_1BDYFTX-MESSAGE(05)' '*',
* << Fim da inclusão
'BDC_OKCODE' '=ENTE'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
WHEN OTHERS.
* << Fim da inclusão
PERFORM bdc_campo USING:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'BDC_OKCODE' '=LONG'.
ELSEIF v_msgicms = space AND v_msgipi = space.
v_indice = 1.
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING:
* << Fim da exclusão
'BDC_CURSOR' 'LINESEL(01)',
'LINESEL(01)' 'X',
'J_1BDYFTX-MESSAGE(01)' '*',
'BDC_OKCODE' '=ENTE'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ENDCASE.
* << Fim da inclusão
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING:
'BDC_OKCODE' '=LONG'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ENDIF.
* << Fim da exclusão
DESCRIBE TABLE t_msg_aux LINES v_lines.
CLEAR v_cont.
LOOP AT t_msg_aux.
v_cont = v_cont + 1.
IF sy-saprl = '46B'.
PERFORM bdc_tela USING 'SAPLEDITOR_START' '2110'.
ELSE.
PERFORM bdc_tela USING 'SAPLS38E' '0600'.
ENDIF.
IF v_cont EQ 1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
tributos EQ 'COFINS' ).
IF NOT itab_zycit100-vlpis IS INITIAL.
CLEAR itab_zycit036.
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp
codigo = 'PIS'.
it_zycee007-taxval_pis = itab_zycit036-vlreal.
READ TABLE itab_zycit398 WITH KEY tributos = 'PIS'.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM ITENS_NFNEW
it_zycee007-leipis = itab_zycit398-leipis.
* << Fim da inclusão
it_zycee007-taxtyp_pis = itab_zycit398-taxtyp.
ELSE.
CLEAR it_zycee007-taxtyp_pis.
ENDIF.
IF NOT it_zycee007-taxval_pis IS INITIAL.
it_zycee007-rate_pis = itab_zycit100-advalpis.
ENDIF.
CASE itab_zycit398-tribpiscof.
WHEN 1.
PERFORM verifica_montante.
...
...
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp
codigo = 'COFINS'.
it_zycee007-taxval_cof = itab_zycit036-vlreal.
READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM ITENS_NFNEW
it_zycee007-leicofins = itab_zycit398-leicofins.
* << Fim da inclusão
it_zycee007-taxtyp_cof = itab_zycit398-taxtyp.
ELSE.
CLEAR it_zycee007-taxtyp_cof.
ENDIF.
IF NOT it_zycee007-taxval_cof IS INITIAL.
it_zycee007-rate_cof = itab_zycit100-advalcofins.
ENDIF.
...
...
FORM itens_nfrnew.
DATA v_val_icms_r LIKE /pws/zycee007-netpr.
* >> Início da inclusão: FORM ITENS_NFRNEW
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
it_zycee007-tcode = text-009.
it_zycee007-tabela = text-025.
it_zycee007-cpochv = /pws/zycie043-nfremessa.
CLEAR: v_impostos.
it_zycee007-itmtyp = itab_zycit033-tpmat.
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
...
...
ENDIF.
v_icms_dif = v_icms_dif + v_icms.
v_base_dif = v_base_dif + v_total.
ELSE.
it_zycee007-taxval = v_icms.
ENDIF.
v_base = it_zycee007-othbas.
ENDCASE.
it_zycee007-taxtyp = itab_zycit033-taxtyp.
it_zycee007-taxtyp2 = itab_zycit033-taxtyp2.
* >> Início da inclusão: FORM ITENS_NFRNEW
SELECT * FROM /pws/zycit398
INTO TABLE itab_zycit398
WHERE bukrs EQ /pws/zycie041-bukrs
AND clnf EQ itab_zycit033-clnf
AND tpnf EQ itab_zycit033-tpnf
AND ( tributos EQ 'PIS' OR
tributos EQ 'COFINS' ).
READ TABLE itab_zycit398 WITH KEY tributos = 'PIS'.
IF sy-subrc EQ 0.
it_zycee007-leipis = itab_zycit398-leipis.
ENDIF.
READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
it_zycee007-leicofins = itab_zycit398-leicofins.
ENDIF.
* << Fim da inclusão
CASE itab_zycit033-tribipi.
WHEN 1.
it_zycee007-base2 = ( v_total - v_icms - v_ipi - v_outras_ic ).
it_zycee007-p_excbas = v_base -
( v_total - v_icms - v_ipi - v_outras_ic ).
CLEAR it_zycee007-taxval2.
WHEN 2.
it_zycee007-p_excbas = v_base.
CLEAR it_zycee007-taxval2.
WHEN 3.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
FORM itens_nfc.
* >> Início da inclusão: FORM ITENS_NFC
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
IF /pws/zycbt007-waersb IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie264-bukrs.
ENDIF.
* >> Início da inclusão: FORM ITENS_NFC
SELECT * FROM /pws/zycit398
INTO TABLE itab_zycit398
WHERE bukrs EQ /pws/zycie264-bukrs
AND clnf EQ itab_zycit033-clnf
AND tpnf EQ itab_zycit033-tpnf
AND ( tributos EQ 'PIS' OR
tributos EQ 'COFINS' ).
READ TABLE itab_zycit398 WITH KEY tributos = 'PIS'.
IF sy-subrc EQ 0.
it_zycee007-leipis = itab_zycit398-leipis.
ENDIF.
READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
it_zycee007-leicofins = itab_zycit398-leicofins.
ENDIF.
* << Fim da inclusão
it_zycee007-tcode = text-003.
it_zycee007-tabela = text-004.
it_zycee007-cpochv = /pws/zycie264-nrseqc.
it_zycee007-itmtyp = itab_zycit033-tpmat.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE007
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
MSG1 /PWS/ZYCIL213 CHAR 60
MFRPN MFRPN CHAR 40
* >> Início da inclusão:
LEIPIS CHAR3 CHAR 3
LEICOFINS CHAR3 CHAR 3
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT398
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
...
TAXTYP J_1BTAXTYP J_1BAJ CHAR 4
LEI102 /PWS/ZYCIL039 CHAR 1
* >> Início da inclusão:
LEIPIS CHAR3 CHAR 3
LEICOFINS CHAR3 CHAR 3
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT398S
*Gerar novamente a tela de atualização de tabela.