Visualização da Nota 11641

CE PLUS - Nota 011641

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 21/11/2011 00:00:00

Data/Hora Última Alteração: 11/09/2013 11:06:16

Descrição da Nota: FEITO DESENVOLVIMENTO PARA PREENCHIMENTO DA NOVA PASTA NF

Sintoma

Feito desenvolvimento para preenchimento da nova pasta NF

Solução

Fazer tratamento para NF

Versões Tratadas

8.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 8434

ACRESCENTAR INCOTERM NO BATCH INPUT DA NF COMPLEMENTAR

Nota 11632

INCLUSÃO DA LINHA DE II NA NOTA FISCAL COMPLEMENTAR

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 11641 Data: 21/11/2011 Hora: 14:39:23

----------------------------------------------------------------------------------------------------

Nota Número : 11641

Categoria : Erro de Programa

Prioridade : Alta

Versão PW.CE : 8.0

Pacote : 00009

Agrupamento : 00095

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

08434 - 00001 - 7.0 - 00009 - ACRESCENTAR INCOTERM NO BATCH INPUT DA NF COMPLEMENTAR

11632 - 00002 - 8.0 - 00009 - INCLUSÃO DA LINHA DE II NA NOTA FISCAL COMPLEMENTAR

----------------------------------------------------------------------------------------------------

FEITO DESENVOLVIMENTO PARA PREENCHIMENTO DA NOVA PASTA NF

----------------------------------------------------------------------------------------------------

Palavras Chave:

DADOS IMPORTADOR - NF - NFE - NOTA FISCAL ELETRONICA

ADICAO DI -

----------------------------------------------------------------------------------------------------

Objetos da nota:

CLAS /PWS/CL_ZYCI_TRATA_NF

DYNP /PWS/SAPMZYCI023 0300

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI023F05

REPS /PWS/MZYCI029F01

TABD /PWS/ZYCEE005

TABD /PWS/ZYCEE007

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABD /PWS/ZYCEE005

*Ao final da estrutura /PWS/ZYCEE005 criar os seguintes campos:

Nome campo Elem.dados Tab.verif.

NRSEQDI /PWS/ZYCIL230

NRDI /PWS/ZYCIL299

DTREG DATUM

LOCDESEMB /PWS/ZYCEL263

UF_DESEMB REGIO

DTDESEMB DATUM

EXPORTADOR /PWS/ZYCIL205

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABD /PWS/ZYCEE007

*Ao final da estrutura /PWS/ZYCEE007 criar os seguintes campos:

Nome campo Elem.dados Tab.verif.

NADICAO /PWS/ZYCIL267

NSEQADIC /PWS/ZYCIL498

FABRICANTE /PWS/ZYCIL205

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CLAS /PWS/CL_ZYCI_TRATA_NF

*Na SE24 criar a CLASSE /PWS/CL_ZYCI_TRATA_NF

CARACTERÍSTICAS

DESCRIÇÃO CI - Preenchimento NF

GERAÇÃO INSTANCIA Público

(X) FINAL

DADOS GERAIS

(X)Aritmét.ponto fixo

Categoria Categoria de objeto ger

Classe de desenvolvimento /PWS/ZYCI

MÉTODOS

MÉTODOS TIPO VISIBILIDADE SÓ MODEL.TP.MÉTODO DESCRIÇÃO

DADOS_ADICAO Static Method Public Preenche dados da Adição

DADOS_DI Static Method Public Preenche dados de Importador

VERIFICA_PASTA Static Method Public Verifica se existe dados Imp.

BUSCA_FORNECEDOR Static Method Private Busca nome fornecedor

-----------------------------------------------------

MÉTODO

*DADOS_ADICAO

TRANSF.

PARAMETROS TIPO VAL. OPC. TP.ATRIBUTO TIPO REFER.

EBELN Importing Type /PWS/ZYCIE100A-EBELN

EBELP Importing Type /PWS/ZYCIE100A-EBELP

NRSEQ Importing Type /PWS/ZYCIE100A-NRSEQ

T_ZYCEE007 Changing Type /PWS/ZYCEE007

*SEM EXCECOES

*CÓDIGO FONTE

method DADOS_ADICAO.

data v_lifnr type lfa1-lifnr.

DATA: wa_zycie085 TYPE /pws/zycie085,

wa_zycie100 TYPE /pws/zycie100a,

wa_zycie006 type /pws/zycit006,

wa_zycie003 type /pws/zycit003.

data v_nrseq_pgfat type /pws/zycie263-nrseq_PGFAT.

CALL METHOD /PWS/CL_ZYCI_TRATA_NF=>VERIFICA_PASTA

EXPORTING

CFOP = T_ZYCEE007-CFOP

EXCEPTIONS

EXISTE_PASTA = 1

others = 2 .

IF SY-SUBRC = 1 .

SELECT single * FROM /pws/zycit100

INTO wa_zycie100

WHERE ebeln EQ ebeln

AND ebelp EQ ebelp

and nrseq eq nrseq.

if sy-subrc eq 0.

SELECT SINGLE * FROM /pws/zycit085 INTO wa_zycie085

WHERE nrseqdi EQ wa_zycie100-nrseqdi.

select single nrseq_pgfat into v_nrseq_pgfat

from /pws/zycit263

where ebeln eq ebeln

and ebelp eq ebelp

and nrseq eq nrseq

and eliminado eq space .

if sy-subrc eq 0.

SELECT single * FROM /pws/zycit006

INTO wa_zycie006

WHERE NRSEQ_PGFAT EQ v_nrseq_pgfat

AND ELIMINADO NE 'X' .

if sy-subrc eq 0.

clear v_lifnr .

case wa_ZYCIE006-FABRICANTE.

when 0.

v_lifnr = wa_zycie006-lifnrfabr .

when 1.

v_lifnr = wa_zycie006-lifnr .

when 2.

select single lifnrfabr

into v_lifnr

from /pws/zycit003

where nrseq = nrseq

and ebeln = ebeln

and ebelp = ebelp.

when 3.

select single paisfab

into t_zycee007-FABRICANTE

from /pws/zycit003

where nrseq = nrseq

and ebeln = ebeln

and ebelp = ebelp.

endcase.

if not v_lifnr is initial .

SELECT SINGLE name1 FROM lfa1

into t_zycee007-FABRICANTE

WHERE lifnr EQ V_lifnr.

endif.

t_zycee007-NADICAO = wa_zycie100-adicao.

t_zycee007-NSEQADIC = wa_zycie100-item_adi_sisc.

endif.

endmethod.

-----------------------------------------------------

MÉTODO

*DADOS_DI

TRANSF.

PARAMETROS TIPO VAL. OPC. TP.ATRIBUTO TIPO REFER.

EBELN Importing Type /PWS/ZYCIE100A-EBELN

EBELP Importing Type /PWS/ZYCIE100A-EBELP

NRSEQ Importing Type /PWS/ZYCIE100A-NRSEQ

T_ZYCEE005 Changing Type /PWS/ZYCEE005

*SEM EXCECOES

*CÓDIGO FONTE

method DADOS_DI.

DATA: wa_zycie085 TYPE /pws/zycie085,

wa_zycie100 TYPE /pws/zycie100a.

DATA: V_LIFNR TYPE /PWS/ZYCIE006-LIFNR,

V_NRSEQ TYPE /PWS/ZYCIE006-NRSEQ_PGFAT.

CALL METHOD /PWS/CL_ZYCI_TRATA_NF=>VERIFICA_PASTA

EXCEPTIONS

EXISTE_PASTA = 1

others = 2.

IF SY-SUBRC = 1 .

SELECT single * FROM /pws/zycit100

INTO wa_zycie100

WHERE NRSEQ EQ NRSEQ

AND ebeln EQ ebeln

AND ebelp EQ ebelp.

if sy-subrc eq 0.

SELECT SINGLE * FROM /pws/zycit085 INTO wa_zycie085

WHERE nrseqdi EQ wa_zycie100-nrseqdi.

t_zycee005-nrseqdi = wa_zycie085-nrseqdi.

t_zycee005-nrdi = wa_zycie085-nrdi.

t_zycee005-dtreg = wa_zycie085-dtreg.

t_zycee005-dtdesemb = wa_zycie085-dtdesemb.

SELECT single descdesp regio FROM /pws/zycet132

INTO (t_zycee005-locdesemb, t_zycee005-uf_desemb)

WHERE codesp = wa_zycie085-urfdesp.

SELECT SINGLE NRSEQ_PGFAT INTO V_NRSEQ

FROM /PWS/ZYCIT263

WHERE NRSEQ EQ NRSEQ

AND ebeln EQ ebeln

AND ebelp EQ ebelp

AND ELIMINADO NE 'X' .

CALL METHOD /PWS/CL_ZYCI_TRATA_NF=>BUSCA_FORNECEDOR

EXPORTING

NRSEQ = v_nrseq

CHANGING

NAME = t_zycee005-exportador.

endif.

endmethod.

-----------------------------------------------------

MÉTODO

*VERIFICA_PASTA

TRANSF.

PARAMETROS TIPO VAL. OPC. TP.ATRIBUTO TIPO REFER.

CFOP Importing X Type /PWS/ZYCEE007-CFOP

*EXCECOES

EXCEÇÃO DESCRIÇÃO

EXISTE_PASTA Pasta Importação

*CÓDIGO FONTE

method VERIFICA_PASTA.

DATA: wa_tadir TYPE tadir.

datA: v_cfop(1).

SELECT SINGLE * FROM tadir

INTO wa_tadir

WHERE object EQ 'TABL'

AND obj_name EQ 'J_1BNFIMPORT_DI'.

IF sy-subrc = 0.

if cfop is initial.

raise existe_pasta.

else.

v_cfop = cfop .

if v_cfop = '3' .

raise existe_pasta.

endif.

endmethod.

-----------------------------------------------------

MÉTODO

*BUSCA_FORNECEDOR

TRANSF.

PARAMETROS TIPO VAL. OPC. TP.ATRIBUTO TIPO REFER.

NRSEQ Importing Type /PWS/ZYCIE006-NRSEQ_PGFAT

NAME Changing Type /PWS/ZYCIL205

*SEM EXCECOES

*CÓDIGO FONTE

method BUSCA_FORNECEDOR.

daTA: v_lifnr type lfa1-lifnr .

SELECT single lifnr FROM /pws/zycit006

INTO V_LIFNR

WHERE NRSEQ_PGFAT EQ NRSEQ

AND ELIMINADO NE 'X' .

if sy-subrc eq 0.

SELECT SINGLE name1 FROM lfa1

into name

WHERE lifnr EQ V_lifnr.

endif.

endmethod.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

FUNCTION /pws/zyci_transacao_j1b1n.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

data : v_data(10),

v_ddesemb(10),

v_pimp(1).

* << Fim da inclusão

...

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

clear v_pimp.

loop at t_itens.

CALL METHOD /PWS/CL_ZYCI_TRATA_NF=>VERIFICA_PASTA

EXPORTING

CFOP = t_itens-cfop

EXCEPTIONS

EXISTE_PASTA = 1

others = 2.

IF SY-SUBRC = 1 .

v_pimp = 'X' .

exit.

ENDIF.

endloop.

if v_pimp = 'X'.

PERFORM bdc_campo USING:

'BDC_OKCODE' '=TAB9'.

PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

perform bdc_campo using :

'BDC_SUBSCR'

'SAPLJ1BB2 5350J_1BPARAREA',

'BDC_SUBSCR'

'SAPLJ1BB2 2900SUB1',

'BDC_SUBSCR'

'SAPLJ1BB2 2901IMPORT_SUBDI'.

WRITE: t_dados-dtreg TO v_data,

t_dados-dtdesemb to v_ddesemb.

PERFORM bdc_campo USING:

'J_1BDYIMPORT_DI-NDI(01)' t_dados-nrdi,

'J_1BDYIMPORT_DI-DDI(01)' v_data,

'J_1BDYIMPORT_DI-XLOCDESEMB(01)' t_dados-locdesemb,

'J_1BDYIMPORT_DI-UFDESEMB(01)' t_dados-uf_desemb,

'J_1BDYIMPORT_DI-DDESEMB(01)' v_ddesemb,

'J_1BDYIMPORT_DI-CEXPORTADOR(01)' t_dados-exportador.

pERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

perform bdc_campo using :

'BDC_SUBSCR'

'SAPLJ1BB2 2902IMPORT_SUBADI'.

clear v_cont.

loop at t_itens.

v_cont = sy-tabix.

CLEAR v_campo.

CONCATENATE 'J_1BDYIMPORT_ADI-NDI(' v_cont ')' INTO v_campo.

PERFORM bdc_campo USING:

v_campo t_dados-nrdi.

CLEAR v_campo.

CONCATENATE 'J_1BDYIMPORT_ADI-NADICAO(' v_cont ')' INTO v_campo.

PERFORM bdc_campo USING:

v_campo t_itens-nadicao.

CLEAR v_campo.

CONCATENATE 'J_1BDYIMPORT_ADI-NSEQADIC(' v_cont ')' INTO v_campo

PERFORM bdc_campo USING:

v_campo T_ITENS-NSEQADIC.

CLEAR v_campo.

CONCATENATE 'J_1BDYIMPORT_ADI-CFABRICANTE(' v_cont ')'

INTO v_campo.

PERFORM bdc_campo USING:

v_campo T_ITENS-FABRICANTE.

perform bdc_campo using :

'BDC_OKCODE' '=SAVE'.

endloop.

ENDIF.

* << Fim da inclusão

v_transacao = 'J1B1N'.

v_update = 'S'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

* >> Início da inclusão: FORM FILL_DATA_J1B1

CALL METHOD /pws/cl_zyci_trata_nf=>dados_di

EXPORTING

ebeln = itab_zycit042-ebeln

ebelp = itab_zycit042-ebelp

nrseq = itab_zycit042-nrseq

CHANGING

t_zycee005 = it_zycee005.

* << Fim da inclusão

APPEND it_zycee005.

...

* >> Início da inclusão: FORM FILL_DATA_J1B1

CALL METHOD /pws/cl_zyci_trata_nf=>dados_di

EXPORTING

ebeln = itab_zycit042-ebeln

ebelp = itab_zycit042-ebelp

nrseq = itab_zycit042-nrseq

CHANGING

t_zycee005 = it_zycee005 .

* << Fim da inclusão

APPEND it_zycee005.

...

* >> Início da inclusão: FORM FILL_DATA_J1B1_R

CALL METHOD /pws/cl_zyci_trata_nf=>dados_di

EXPORTING

ebeln = itab_zycit044-ebeln

ebelp = itab_zycit044-ebelp

nrseq = itab_zycit044-nrseq

CHANGING

t_zycee005 = it_zycee005.

* << Fim da inclusão

APPEND it_zycee005.

...

* >> Início da inclusão: FORM ITENS_NF

CALL METHOD /pws/cl_zyci_trata_nf=>dados_adicao

EXPORTING

ebeln = itab_zycit042-ebeln

ebelp = itab_zycit042-ebelp

nrseq = itab_zycit042-nrseq

CHANGING

t_zycee007 = it_zycee007.

* << Fim da inclusão

APPEND it_zycee007.

...

* >> Início da inclusão: FORM ITENS_NF_R

CALL METHOD /pws/cl_zyci_trata_nf=>dados_adicao

EXPORTING

ebeln = itab_zycit042-ebeln

ebelp = itab_zycit042-ebelp

nrseq = itab_zycit042-nrseq

CHANGING

t_zycee007 = it_zycee007.

* << Fim da inclusão

APPEND it_zycee007.

...

* >> Início da inclusão: FORM ITENS_NF_R

CALL METHOD /pws/cl_zyci_trata_nf=>dados_adicao

EXPORTING

ebeln = itab_zycit042-ebeln

ebelp = itab_zycit042-ebelp

nrseq = itab_zycit042-nrseq

CHANGING

t_zycee007 = it_zycee007.

* << Fim da inclusão

APPEND it_zycee007.

...

* >> Início da inclusão: FORM ITENS_NFNEW

CALL METHOD /pws/cl_zyci_trata_nf=>dados_adicao

EXPORTING

ebeln = itab_zycit042-ebeln

ebelp = itab_zycit042-ebelp

nrseq = itab_zycit042-nrseq

CHANGING

t_zycee007 = it_zycee007.

* << Fim da inclusão

APPEND it_zycee007.

...

* >> Início da inclusão: FORM ITENS_NFRNEW

CALL METHOD /pws/cl_zyci_trata_nf=>dados_adicao

EXPORTING

ebeln = itab_zycit044-ebeln

ebelp = itab_zycit044-ebelp

nrseq = itab_zycit044-nrseq

CHANGING

t_zycee007 = it_zycee007.

* << Fim da inclusão

APPEND it_zycee007.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F05

...

* >> Início da inclusão: FORM SET_SCREEN_ADICAO

IF sy-tcode EQ '/PWS/ZYCI023_E'.

screen-input = '0'.

ENDIF.

* << Fim da inclusão

MODIFY SCREEN.

ENDLOOP.

ENDFORM.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI029F01

...

PERFORM pega_inco_pedido

USING

itab_zycit265_c2-ebeln

CHANGING

it_zycee005-inco1

it_zycee005-inco2.

* >> Início da inclusão: FORM FILL_DATA_J1B1_C

CALL METHOD /PWS/CL_ZYCI_TRATA_NF=>DADOS_DI

EXPORTING

EBELN = itab_zycit265_c2-ebeln

EBELP = itab_zycit265_c2-ebelp

NRSEQ = itab_zycit265_c2-nrseq

CHANGING

T_ZYCEE005 = it_zycee005.

* << Fim da inclusão

APPEND it_zycee005.

...

PERFORM pega_inco_pedido

USING

itab_zycit265_c2-ebeln

CHANGING

it_zycee005-inco1

it_zycee005-inco2.

* >> Início da inclusão: FORM FILL_DATA_J1B1_C

CALL METHOD /PWS/CL_ZYCI_TRATA_NF=>DADOS_DI

EXPORTING

EBELN = itab_zycit265_c2-ebeln

EBELP = itab_zycit265_c2-ebelp

NRSEQ = itab_zycit265_c2-nrseq

CHANGING

T_ZYCEE005 = it_zycee005.

* << Fim da inclusão

APPEND it_zycee005.

...

ENDIF.

CLEAR: v_tabix_exit.

CONCATENATE itab_zycit265_c2-ebeln '/' itab_zycit265_c2-ebelp

INTO it_zycee007-msg1.

READ TABLE itab_zycit398 WITH KEY tributos = 'II'.

IF sy-subrc EQ 0.

it_zycee007-taxtyp_ii = itab_zycit398-taxtyp.

ELSE.

CLEAR it_zycee007-taxtyp_ii.

ENDIF.

* >> Início da inclusão: FORM ITENS_NFC

CALL METHOD /pws/cl_zyci_trata_nf=>dados_adicao

EXPORTING

ebeln = itab_zycit265_c2-ebeln

ebelp = itab_zycit265_c2-ebelp

nrseq = itab_zycit265_c2-nrseq

changing

t_zycee007 = it_zycee007 .

* << Fim da inclusão

APPEND it_zycee007.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0300

*Aumentar o tamanho da tela para baixo

Tamanho 120 Cl x 28 L (120 colunar x 28 linhas)

*Mover o TS_ADIC uma posição para baixo

LINHA: DE: 5 PARA: 6

Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At

Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop

Outros atributos

*de

+ TS_ADIC

TbStr 5 2 118 118 23

*para

+ TS_ADIC

TbStr 6 2 118 118 23

*Mover /PWS/ZYCIE085-CODREG e S_REGDESCR para a linha 4

LINHA: DE: 2 PARA:

COLUNA: DE: 54 PARA: 4

Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At

Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop

Outros atributos

*de:

/PWS/ZYCIE085-CODREG

Texto 2 54 6 6 1 CHAR X F

Chave externa

*para:

/PWS/ZYCIE085-CODREG

Texto 4 4 6 6 1 CHAR X F

Chave externa

Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At

Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop

Outros atributos

LINHA: DE: 2 PARA: 4

COLUNA: DE: 61 PARA: 11

*de

/PWS/ZYCIE085-CODREG

I/O 2 61 2 2 1 CHAR X Off

AC REQ SPA GPA /PWS/ZYCIP062

Chave externa, Botão EntrsPoss.temp

*para

/PWS/ZYCIE085-CODREG

I/O 4 11 2 2 1 CHAR X Off

AC REQ SPA GPA /PWS/ZYCIP062

Chave externa, Botão EntrsPoss.temp

Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At

Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop

Outros atributos

LINHA: DE: 2 PARA: 4

COLUNA: DE: 64 PARA: 14

*de

S_REGDESCR

I/O 2 64 25 16 1 CHAR Off S.Sd

Bidimens, PossRol

S_REGDESCR

I/O 4 14 25 16 1 CHAR Off S.Sd

Bidimens, PossRol

*Inserir o campo VTXT ao final da linha 2

Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At

Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop

Outros atributos

VTXT

Texto 2 50 15 15 1 CHAR

CAMPO: VTXT

TEXTO: Adição_Siscomex

(_) - DROPDOWN / (_) - COM ÍCONE / (_) - POSS.ROLAG.

LINHA: 2 COLUNA: 50

COMPR.VIS.:15 ALTURA: 01

DICIONÁRIO:

FORMATO: CHAR

(_) - DO DICT.

*Modificar posição de /PWS/ZYCIE116-ADICAO_SISC

Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At

Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop

Outros atributos

COLUNA: DE: 49 PARA: 66

DICIONÁRIO:

MODIFIC.: X

*de

/PWS/ZYCIE116-ADICAO_SISC

I/O 2 49 3 3 1 NUMC X Off

Alinh.à dir., Zeros à esq.

*para

/PWS/ZYCIE116-ADICAO_SISC

I/O 2 66 3 3 1 NUMC X X Ent Off

Alinh.à dir., Zeros à esq.

*Segue download de tela 0300. Pode ser utilizada se ambiente estiver atualizado

***Inicio download de tela

****************************************************************

* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *

* NEVER CHANGE IT MANUALLY, PLEASE ! *

****************************************************************

%_DYNPRO

/PWS/SAPMZYCI023

0300

46C

%_HEADER

/PWS/SAPMZYCI023 0300 0300 28120192 35 0 0 28120 0G P

20111109105149

%_DESCRIPTION

Adição - Cabeçalho de Adição de DI

%_FIELDS

FRM1

CHAR1190000083000 1 3 0 0 0 5R 0 0102

____________________________________________________________________________________________________

__________________

/PWS/ZYCIE085-NRSEQDI

0CHAR 133000003000 2 5 0 0 0 0 0 0

Identificação

/PWS/ZYCIE085-IDENTIFY

CCHAR 15A00C803000 2 19 0 0 0 0 /PWS/ZYGLP089 15 0

_______________

WA_AD-ADICAO

NUMC 38020883000 2 35 0 0 0 00 0 0

___

/PWS/ZYCIE085-NRSEQDI

CCHAR 10A00C843008 2 39 0 0 0 0 /PWS/ZYCIP085 10 0

__________

VTXT

0CHAR 150000003000 2 51 0 0 0 0 0 0

Adição_Siscomex

/PWS/ZYCIE116-ADICAO_SISC

NNUMC 3B020804000 2 67 0 0 0 00 3 0

___

/PWS/ZYCIE085-BUKRS

0CHAR 133000043000 3 5 0 0 0 0 0 0

Empr./Import.

/PWS/ZYCIE085-BUKRS

CCHAR 4A00C843008 3 19 0 0 0 0 BUK 4 0

AC REQ____

/PWS/ZYCIE085-J_1BBRANCH

CCHAR 4A000843008 3 24 0 0 0 0 4 0

AC REQ____

S_CNPJ

NUMC 218100883300 3 29 0 0 0 20 0 0

_____________________

WA_J_1BBRANCH-NAME

CHAR 318100883300 3 51 0 0 0 30 0 0

_______________________________

/PWS/ZYCIE085-CODREG

0CHAR 63000043000 4 5 0 0 0 0 0 0

Regime

/PWS/ZYCIE085-CODREG

CCHAR 2A00C843018 4 12 0 0 0 0 /PWS/ZYCIP062 2 0

AC REQ__

S_REGDESCR

CHAR 258100883300 4 15 0 0 0 16 0 0

_________________________

TS_ADIC

1180800000000 6 3J101 1 1 23I 17 80

TAB_FORN

CHAR 100000083000 1 1I101 1 1 0P 0 0103SS_FORN

Fornecedor

PFC_FORN

TAB_MERC

CHAR 100000083000 1 2I101 1 1 0P 0 0104SS_MERC

Mercadoria

PFC_MERC

TAB_VALO

CHAR 150000083000 1 3I101 1 1 0P 0 0105SS_VALO

Valor_Aduaneiro

PFC_VALO

TAB_TRIB

CHAR 80000083000 1 4I101 1 1 0P 0 0106SS_TRIB

12 Tributos

PFC_TRIB

TAB_CAMB

CHAR 60000083000 1 5I101 1 1 0P 0 0107SS_CAMB

34 Câmbio

PFC_CAMB

SS_CAMB

11600C0000000 8 4I101 0 0 20B 3 3108

SS_TRIB

11600C0000000 8 4I101 0 0 20B 3 3109

SS_VALO

11600C0000000 8 4I101 0 0 20B 3 3110

SS_MERC

11600C0000000 8 4I101 0 0 20B 3 3111

SS_FORN

11600C0000000 8 4I101 0 0 20B 3 3112

CHAR 208010080000255 1O 0 0 0 0 0 0

____________________

%_FLOWLOGIC

process before output.

module: load_adic,

status0300,

init_editor_adi_compl,

set_screen_adicao.

call subscreen: ss_forn including syst-cprog '0310',

ss_merc including syst-cprog '0320',

ss_valo including syst-cprog '0330',

ss_trib including syst-cprog '0340',

ss_camb including syst-cprog '0350'.

process after input.

call subscreen: ss_forn,

ss_merc,

ss_valo,

ss_trib,

ss_camb.

module: atualiza_zycit116,

user_command_0300,

user_command_exit at exit-command.

%_PARAMS

***Fim download de tela