API tools faq
paste
Advertisement
Guest User

daniellinsmaciel

a guest
Jul 16th, 2019
208
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 15.04 KB | None | 0 0
raw download clone embed print report
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <nugget name="ZCIEC07">
  3.  <PROG NAME="ZFIR001_07" VARCL="X" SUBC="1" APPL="*" RSTAT="K" RMAND="800" RLOAD="E" FIXPT="X" UCCHECK="X">
  4.   <textPool>
  5.    <language SPRAS="E">
  6.     <textElement ID="R" ENTRY="Report ZFIR001_07" LENGTH="17 "/>
  7.     <textElement ID="S" KEY="VALOR1" ENTRY="        Empresa" LENGTH="15 "/>
  8.     <textElement ID="S" KEY="VALOR2" ENTRY="        Ano" LENGTH="13 "/>
  9.     <textElement ID="S" KEY="VALOR3" ENTRY="        Id" LENGTH="13 "/>
  10.    </language>
  11.   </textPool>
  12.   <dynpros>
  13.    <dynpro PROG="ZFIR001_07" DNUM="0100" FNUM="0100" BZMX="23 " BZBR="119 " MILI="192 " MICO="37 " MALI="0 " MACO="0 " NOLI="27 " NOCO="120 " VALP="0 " CUAN="G" SPRA="E" DTEXT="Selecione o Documento">
  14.     <dynprofield FNAM="CONTAINER" DIDX="000D" FLG1="00" FLG2="00" FLG3="00" FILL="U" FMB1="30" FMB2="00" LENG="77" LINE="01" COLN="02" LANF="00" LBLK="00" LREP="00" AUTH="101" AGLT="01" ADEZ="01"/>
  15.     <dynprofield FNAM="CONTAINER_1" DIDX="0009" FLG1="00" FLG2="00" FLG3="00" FILL="U" FMB1="30" FMB2="00" LENG="77" LINE="0F" COLN="02" LANF="00" LBLK="00" LREP="00" AUTH="102" AGLT="01" ADEZ="01"/>
  16.     <dynprofield FNAM="OK_CODE" DIDX="0000" FLG1="80" FLG2="10" FLG3="00" FMB1="00" FMB2="00" LENG="14" LINE="FF" COLN="01" LTYP="O" LANF="00" LBLK="00" LREP="00" TYPE="CHAR" AGLT="00" ADEZ="00" STXT="____________________"/>
  17.     <dynproflowsource>PROCESS BEFORE OUTPUT.
  18.   MODULE CRIA_MENUS.
  19.   MODULE CRIA_GRID.
  20.  
  21.  
  22. PROCESS AFTER INPUT.
  23.   MODULE LER_BOTAO_CLICADO.</dynproflowsource>
  24.    </dynpro>
  25.   </dynpros>
  26.   <pfstatus>
  27.    <pfstatus_sta CODE="DYNPROSTATUS" MODAL="D" ACTCODE="000001" PFKCODE="000001" BUTCODE="0001" INT_NOTE="Menu"/>
  28.    <pfstatus_fun CODE="BACK" TEXTNO="001" TEXT_TYPE="S" FUN_TEXT="Back"/>
  29.    <pfstatus_fun CODE="EXIT" TEXTNO="001" TEXT_TYPE="S" FUN_TEXT="Exit"/>
  30.    <pfstatus_pfk CODE="000001" PFNO="03" FUNCODE="BACK" FUNNO="001"/>
  31.    <pfstatus_pfk CODE="000001" PFNO="15" FUNCODE="EXIT" FUNNO="001"/>
  32.    <pfstatus_set STATUS="DYNPROSTATUS" FUNCTION="BACK"/>
  33.    <pfstatus_set STATUS="DYNPROSTATUS" FUNCTION="EXIT"/>
  34.    <pfstatus_doc OBJ_TYPE="A" OBJ_CODE="000001" MODAL="D" INT_NOTE="Menu"/>
  35.    <pfstatus_doc OBJ_TYPE="P" OBJ_CODE="000001" MODAL="D" INT_NOTE="Menu"/>
  36.    <pfstatus_doc OBJ_TYPE="B" OBJ_CODE="000001" SUB_CODE="0001" MODAL="D" INT_NOTE="Menu"/>
  37.    <pfstatus_tit CODE="TITLE1" TEXT="Relatório de Documentos Contábeis"/>
  38.   </pfstatus>
  39.   <source>*&amp;---------------------------------------------------------------------*
  40. *&amp; Report  ZFIR001_07
  41. *&amp;
  42. *&amp;---------------------------------------------------------------------*
  43. *&amp;
  44. *&amp;
  45. *&amp;---------------------------------------------------------------------*
  46.  
  47. REPORT ZFIR001_07.
  48. TYPES: BKPF_TAB  TYPE STANDARD TABLE OF BKPF
  49.                    WITH NON-UNIQUE KEY BUKRS BELNR GJAHR.
  50.  
  51. DATA BKPF_DATA TYPE BKPF_TAB.
  52. INCLUDE ZFIR001_07_CLASSES.
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59. DATA: OK_CODE TYPE SY-UCOMM.
  60. DATA: GO_HANDLER   TYPE REF TO LCL_EVENT_HANDLER,
  61.       GO_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
  62.       GO_ALV_GRID  TYPE REF TO CL_GUI_ALV_GRID.
  63. DATA: SELECAO  TYPE BKPF.
  64.  
  65. INCLUDE ZFIR001_07_TOP.
  66.  
  67.  
  68. *opções pro cara escolher
  69. SELECT-OPTIONS:
  70.             VALOR1 FOR SELECAO-BUKRS OBLIGATORY,
  71.             VALOR2 FOR SELECAO-GJAHR OBLIGATORY,
  72.             VALOR3 FOR SELECAO-BELNR.
  73.  
  74.  
  75. START-OF-SELECTION.
  76.  
  77.  
  78.   SELECT * FROM BKPF INTO TABLE BKPF_DATA
  79.                            WHERE BUKRS IN VALOR1
  80.                            AND GJAHR IN VALOR2
  81.                            AND BELNR IN VALOR3.
  82.  
  83.   CALL SCREEN &apos;0100&apos;.</source>
  84.  </PROG>
  85.  <PROG NAME="ZFIR001_07_TOP" VARCL="X" SUBC="I" APPL="*" RSTAT="K" RMAND="800" RLOAD="E" UCCHECK="X">
  86.   <textPool>
  87.    <language SPRAS="E">
  88.     <textElement ID="R" ENTRY="Include ZFIR001_07_TOP" LENGTH="22 "/>
  89.    </language>
  90.   </textPool>
  91.   <source>MODULE CRIA_GRID OUTPUT.
  92.   IF GO_CONTAINER IS NOT BOUND.
  93.     CREATE OBJECT GO_CONTAINER
  94.       EXPORTING
  95.         CONTAINER_NAME = &apos;CONTAINER&apos;
  96.       EXCEPTIONS
  97.         OTHERS         = 6.
  98.     IF SY-SUBRC &lt;&gt; 0.
  99.       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  100.                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  101.     ENDIF.
  102.  
  103.     CREATE OBJECT GO_ALV_GRID
  104.       EXPORTING
  105.         I_PARENT = GO_CONTAINER
  106.       EXCEPTIONS
  107.         OTHERS   = 5.
  108.     IF SY-SUBRC &lt;&gt; 0.
  109.       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  110.               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  111.     ENDIF.
  112.     CREATE OBJECT GO_HANDLER.
  113.     IF SY-SUBRC &lt;&gt; 0.
  114.       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  115.               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  116.     ENDIF.
  117.  
  118.   ENDIF.
  119.  
  120.   CREATE OBJECT GO_HANDLER.
  121.   SET HANDLER   GO_HANDLER-&gt;ON_DOUBLE_CLICK FOR GO_ALV_GRID.
  122.  
  123.   CALL METHOD GO_ALV_GRID-&gt;SET_TABLE_FOR_FIRST_DISPLAY
  124.     EXPORTING
  125.       I_STRUCTURE_NAME = &apos;BKPF&apos;
  126.     CHANGING
  127.       IT_OUTTAB        = BKPF_DATA
  128.     EXCEPTIONS
  129.       OTHERS           = 4.
  130.   IF SY-SUBRC &lt;&gt; 0.
  131.     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  132.             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  133.   ENDIF.
  134.  
  135.  
  136.  
  137. ENDMODULE.
  138. *&amp;---------------------------------------------------------------------*
  139. *&amp;      Module  cria_menus  OUTPUT
  140. *&amp;---------------------------------------------------------------------*
  141. *       text
  142. *----------------------------------------------------------------------*
  143. MODULE CRIA_MENUS OUTPUT.
  144.   SET PF-STATUS &apos;DYNPROSTATUS&apos;.
  145.   SET TITLEBAR  &apos;TITLE1&apos;.
  146. ENDMODULE.
  147. *&amp;---------------------------------------------------------------------*
  148. *&amp;      Module  LER_BOTAO_CLICADO  INPUT
  149. *&amp;---------------------------------------------------------------------*
  150. *       text
  151. *----------------------------------------------------------------------*
  152. MODULE LER_BOTAO_CLICADO INPUT.
  153.   CASE OK_CODE.
  154.     WHEN &apos;BACK&apos;.
  155.       SET SCREEN 0.
  156.     WHEN &apos;EXIT&apos;.
  157.       LEAVE PROGRAM.
  158.   ENDCASE.
  159. ENDMODULE.</source>
  160.  </PROG>
  161.  <PROG NAME="ZFIR001_07_CLASSES" VARCL="X" SUBC="I" APPL="*" RSTAT="K" RMAND="800" RLOAD="E" UCCHECK="X">
  162.   <textPool>
  163.    <language SPRAS="E">
  164.     <textElement ID="R" ENTRY="Include ZFIR001_07_CLASSES" LENGTH="26 "/>
  165.    </language>
  166.   </textPool>
  167.   <source>*----------------------------------------------------------------------*
  168. ***INCLUDE ZFIR001_07_CLASSES.
  169. *----------------------------------------------------------------------*
  170. *---------------------------------------------------------------------*
  171. *       CLASS lcl_event_handler DEFINITION
  172. *---------------------------------------------------------------------*
  173. *
  174. *---------------------------------------------------------------------*
  175. CLASS LCL_EVENT_HANDLER DEFINITION.
  176.   PUBLIC SECTION.
  177.  
  178.     METHODS ON_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID   IMPORTING ES_ROW_NO E_COLUMN.
  179.     TYPES: BSEG_TAB  TYPE STANDARD TABLE OF BSEG.
  180.     DATA: GO_HANDLER_1   TYPE REF TO LCL_EVENT_HANDLER,
  181.           GO_CONTAINER_1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
  182.           GO_ALV_GRID_1  TYPE REF TO CL_GUI_ALV_GRID.
  183.     DATA: GT_SPFLI_1 TYPE BSEG_TAB.
  184.  
  185.   PRIVATE SECTION.
  186.  
  187.  
  188.  
  189. ENDCLASS.                    &quot;lcl_event_handler DEFINITION
  190.  
  191. *---------------------------------------------------------------------*
  192. *       CLASS lcl_event_handler IMPLEMENTATION
  193. *---------------------------------------------------------------------*
  194. *
  195. *---------------------------------------------------------------------*
  196. CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
  197.  
  198.   METHOD ON_DOUBLE_CLICK.
  199.     DATA SELECAO TYPE BKPF.
  200.  
  201.  
  202.     READ TABLE BKPF_DATA INTO SELECAO
  203.                            INDEX ES_ROW_NO-ROW_ID.
  204.  
  205.     SELECT * FROM BSEG INTO TABLE GT_SPFLI_1
  206.                           WHERE BUKRS = SELECAO-BUKRS
  207.                             AND BELNR = SELECAO-BELNR
  208.                             AND GJAHR = SELECAO-GJAHR.
  209.  
  210.  
  211.     IF GO_CONTAINER_1 IS NOT BOUND.
  212.       CREATE OBJECT GO_CONTAINER_1
  213.         EXPORTING
  214.           CONTAINER_NAME = &apos;CONTAINER_1&apos;
  215.         EXCEPTIONS
  216.           OTHERS         = 6.
  217.       IF SY-SUBRC &lt;&gt; 0.
  218.         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  219.                  WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  220.       ENDIF.
  221.  
  222.       CREATE OBJECT GO_ALV_GRID_1
  223.         EXPORTING
  224.           I_PARENT = GO_CONTAINER_1
  225.         EXCEPTIONS
  226.           OTHERS   = 5.
  227.       IF SY-SUBRC &lt;&gt; 0.
  228.         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  229.                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  230.       ENDIF.
  231.  
  232.       CALL METHOD GO_ALV_GRID_1-&gt;SET_TABLE_FOR_FIRST_DISPLAY
  233.         EXPORTING
  234.           I_STRUCTURE_NAME = &apos;BSEG&apos;
  235.         CHANGING
  236.           IT_OUTTAB        = GT_SPFLI_1
  237.         EXCEPTIONS
  238.           OTHERS           = 4.
  239.       IF SY-SUBRC &lt;&gt; 0.
  240.         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  241.                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  242.       ENDIF.
  243.     ELSE.
  244.       CALL METHOD GO_ALV_GRID_1-&gt;SET_TABLE_FOR_FIRST_DISPLAY
  245.         EXPORTING
  246.           I_STRUCTURE_NAME = &apos;BSEG&apos;
  247.         CHANGING
  248.           IT_OUTTAB        = GT_SPFLI_1
  249.         EXCEPTIONS
  250.           OTHERS           = 4.
  251.       CALL METHOD GO_ALV_GRID_1-&gt;REFRESH_TABLE_DISPLAY.
  252.       IF SY-SUBRC &lt;&gt; 0.
  253.         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  254.                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  255.       ENDIF.
  256.     ENDIF.
  257.   ENDMETHOD.
  258. ENDCLASS.</source>
  259.  </PROG>
  260.  <PROG NAME="ZFII001_07" VARCL="X" SUBC="1" APPL="*" RSTAT="K" RMAND="800" RLOAD="E" FIXPT="X" UCCHECK="X">
  261.   <textPool>
  262.    <language SPRAS="E">
  263.     <textElement ID="R" ENTRY="Program ZFII001_07" LENGTH="18 "/>
  264.     <textElement ID="S" KEY="P_FILE" ENTRY="        Destino" LENGTH="15 "/>
  265.     <textElement ID="S" KEY="VALOR1" ENTRY="        Empresa" LENGTH="15 "/>
  266.     <textElement ID="S" KEY="VALOR2" ENTRY="        Ano" LENGTH="11 "/>
  267.     <textElement ID="S" KEY="VALOR3" ENTRY="        ID" LENGTH="10 "/>
  268.    </language>
  269.   </textPool>
  270.   <pfstatus>
  271.    <pfstatus_tit CODE="TITLE" TEXT="Dados de lançamento contábil para legado"/>
  272.   </pfstatus>
  273.   <source>*&amp;---------------------------------------------------------------------*
  274. *&amp; Report ZFII001_07
  275. *&amp;---------------------------------------------------------------------*
  276. *&amp;
  277. *&amp;---------------------------------------------------------------------*
  278. REPORT ZFII001_07.
  279. TYPES: BKPF_TAB  TYPE STANDARD TABLE OF BKPF
  280.                    WITH NON-UNIQUE KEY BUKRS BELNR GJAHR.
  281.  
  282. TYPES: BEGIN OF COLUNAS_BKPF,
  283.          BUKRS TYPE BKPF-BUKRS,
  284.          BELNR TYPE BKPF-BELNR,
  285.          NDOC  TYPE BKPF-BELNR,
  286.          BUDAT TYPE BKPF-BUDAT,
  287.          WAERS TYPE BKPF-WAERS,
  288.          GJAHR TYPE BKPF-GJAHR,
  289.          BLDAT TYPE BKPF-BLDAT,
  290.        END OF COLUNAS_BKPF.
  291. TYPES:
  292.   BEGIN OF COLUNAS_BSEG,
  293.     BUZEI TYPE BSEG-BUZEI,
  294.     SAKNR TYPE BSEG-SAKNR,
  295.     BSCHL TYPE BSEG-BSCHL,
  296.     SHKZG TYPE BSEG-SHKZG,
  297.     DMBTR TYPE BSEG-DMBTR,
  298.     WRBTR TYPE BSEG-WRBTR,
  299.     AUGBL TYPE BSEG-AUGBL,
  300.     UMSKZ TYPE BSEG-UMSKZ,
  301.   END OF COLUNAS_BSEG.
  302.  
  303. DATA: SELECAO     TYPE BKPF,
  304.       ARQUIVO     TYPE STRING,
  305.       LD_PATH     TYPE STRING,
  306.       ENDERECO    TYPE STRING VALUE &apos;\\wdflbmt5078\CommonTraining_Fence\train-07\My Documents\SAP\relatorio.txt&apos;,
  307.       LD_RESULT   TYPE I,
  308.       GD_FILE     TYPE C,
  309.       BKPF_DATA   TYPE BKPF_TAB,
  310.       LINHA_BKPF  TYPE COLUNAS_BKPF,
  311.       LD_VAR      TYPE STRING,
  312.       LD_DC       TYPE STRING,
  313.       LINHA_BSEG  TYPE COLUNAS_BSEG,
  314.       DADOS_SAIDA TYPE TABLE_OF_STRINGS,
  315.       IT_BKPF     TYPE STANDARD TABLE OF COLUNAS_BKPF,
  316.       IT_BSEG     TYPE STANDARD TABLE OF COLUNAS_BSEG,
  317.       TOT_ITENS   TYPE I VALUE 0,
  318.       VALOR       TYPE DMBTR.
  319.  
  320. SET TITLEBAR &apos;TITLE&apos; .
  321. SELECT-OPTIONS:
  322.             VALOR1 FOR SELECAO-BUKRS OBLIGATORY,
  323.             VALOR2 FOR SELECAO-GJAHR OBLIGATORY,
  324.             VALOR3 FOR SELECAO-BELNR.
  325.  
  326.  
  327.  
  328.  
  329. SELECTION-SCREEN BEGIN OF BLOCK M WITH FRAME.
  330. PARAMETERS: P_FILE TYPE  RLGRAP-FILENAME.
  331. SELECTION-SCREEN END OF BLOCK M.
  332.  
  333.  
  334. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  335.  
  336.   CALL METHOD CL_GUI_FRONTEND_SERVICES=&gt;FILE_SAVE_DIALOG
  337.     EXPORTING
  338.       DEFAULT_EXTENSION = &apos;TXT&apos;
  339.       DEFAULT_FILE_NAME = &apos;relatorio&apos;
  340.       INITIAL_DIRECTORY = &apos;\\wdflbmt5078\CommonTraining_Fence\train-07\My Documents\SAP\&apos;
  341.     CHANGING
  342.       FILENAME          = ARQUIVO
  343.       PATH              = LD_PATH
  344.       FULLPATH          = ENDERECO
  345.       USER_ACTION       = LD_RESULT.
  346.   P_FILE  = ENDERECO.
  347.  
  348.  
  349. START-OF-SELECTION.
  350.  
  351.  
  352.   SELECT * FROM BKPF INTO TABLE BKPF_DATA
  353.                            WHERE BUKRS IN VALOR1
  354.                            AND GJAHR IN VALOR2
  355.                            AND BELNR IN VALOR3.
  356.  
  357.  
  358.   IF SY-SUBRC &lt;&gt; 0.
  359.     MESSAGE &apos;Nenhuma informação encontrada.&apos;(003) TYPE &apos;E&apos;.
  360.   ELSE.
  361.  
  362.     LOOP AT BKPF_DATA INTO LINHA_BKPF.
  363.  
  364.       APPEND &apos;Header&apos; TO DADOS_SAIDA.
  365.       CONCATENATE LINHA_BKPF-BUKRS
  366.                   LINHA_BKPF-GJAHR
  367.                   LINHA_BKPF-BELNR
  368.                   LINHA_BKPF-BLDAT
  369.                   LINHA_BKPF-WAERS
  370.                   INTO LD_VAR SEPARATED BY &apos;;&apos;.
  371.       APPEND LD_VAR TO DADOS_SAIDA.
  372.       APPEND &apos;Item&apos; TO DADOS_SAIDA.
  373.  
  374.       SELECT BUZEI
  375.              UMSKZ
  376.              BSCHL
  377.              SHKZG
  378.              DMBTR
  379.         FROM BSEG
  380.         INTO CORRESPONDING FIELDS OF TABLE IT_BSEG
  381.         WHERE
  382.           BUKRS EQ LINHA_BKPF-BUKRS AND
  383.           GJAHR EQ LINHA_BKPF-GJAHR AND
  384.           BELNR EQ LINHA_BKPF-BELNR.
  385.  
  386.       &quot;começa a criar as linhas
  387.  
  388.       LOOP AT IT_BSEG INTO LINHA_BSEG.
  389.         TOT_ITENS = TOT_ITENS + 1.
  390.         IF LINHA_BSEG-SHKZG = &apos;H&apos;.
  391.           VALOR = VALOR + LINHA_BSEG-DMBTR.
  392.         ENDIF.
  393.         LD_DC = LINHA_BSEG-DMBTR.
  394.         CONCATENATE LINHA_BSEG-BUZEI
  395.                     LINHA_BSEG-AUGBL
  396.                     LINHA_BSEG-BSCHL
  397.                     LINHA_BSEG-SHKZG
  398.                     LD_DC
  399.                     INTO LD_VAR SEPARATED BY &apos;;&apos;.
  400.         APPEND LD_VAR TO DADOS_SAIDA.
  401.       ENDLOOP.
  402.  
  403.     ENDLOOP.
  404.     APPEND &apos;Trailer&apos; TO DADOS_SAIDA.
  405.  
  406.     DATA:
  407.       QUANTIDADE_STR TYPE STRING,
  408.       TOTAL          TYPE STRING.
  409.  
  410.     QUANTIDADE_STR = TOT_ITENS.
  411.     TOTAL = VALOR.
  412.     CONCATENATE QUANTIDADE_STR
  413.                 TOTAL
  414.     INTO LD_VAR SEPARATED BY &apos;;&apos;.
  415.     APPEND LD_VAR TO DADOS_SAIDA.
  416.  
  417.     CALL METHOD CL_GUI_FRONTEND_SERVICES=&gt;GUI_DOWNLOAD
  418.       EXPORTING
  419.         FILENAME = ENDERECO
  420.       CHANGING
  421.         DATA_TAB = DADOS_SAIDA
  422.       EXCEPTIONS
  423.         OTHERS   = 1.
  424.  
  425.  
  426.     IF SY-SUBRC = 1.
  427.       MESSAGE &apos;Erro na gracação do arquivo.&apos;(004) TYPE &apos;E&apos;.
  428.     ELSE.
  429.       MESSAGE &apos;Arquivo gerado com sucesso.&apos;(005) TYPE &apos;I&apos;.
  430.     ENDIF.
  431.   ENDIF.</source>
  432.  </PROG>
  433.  <TRAN TCODE="ZFII001_07" PGMNA="ZFII001_07" DYPNO="1000" CINFO="00">
  434.   <tstct SPRSL="E" TCODE="ZFII001_07" TTEXT="Dados de lançamento contábil para"/>
  435.   <tstcc TCODE="ZFII001_07" S_WIN32="X"/>
  436.   <tstcp/>
  437.   <rsstcd ST_PROG="X" DEVCLASS="$TMP"/>
  438.  </TRAN>
  439. </nugget>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!