https://sapwiki.cl/wiki/index.php?action=history&feed=atom&title=SAP_SOPORTE_VENTAS_T182A
SAP SOPORTE VENTAS T182A - Revision history
2026-10-26T11:15:23Z
Revision history for this page on the wiki
MediaWiki 1.34.0
https://sapwiki.cl/wiki/index.php?title=SAP_SOPORTE_VENTAS_T182A&diff=1756&oldid=prev
WikiSysop at 00:51, 25 June 2026
2026-06-25T00:51:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #222; text-align: center;">Revision as of 00:51, 25 June 2026</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l104" >Line 104:</td>
<td colspan="2" class="diff-lineno">Line 104:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>*</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>*</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>* Message class: FB</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>* Message class: FB</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>*000 & & & &</div></td><td class='diff-marker'>+</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>*000 & & & & </nowiki></div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> </div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline">----------------------------------------------------------------------------------</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline">Extracted by Mass Download version 1.5.2 - E.G.Mellodew. 1998-2016. Sap Release 701</del></nowiki></div></td><td colspan="2"> </td></tr>
</table>
WikiSysop
https://sapwiki.cl/wiki/index.php?title=SAP_SOPORTE_VENTAS_T182A&diff=1730&oldid=prev
WikiSysop: Created page with " <nowiki>*&---------------------------------------------------------------------* *& Report ZSD_INSERT_T182A *& *&------------------------------------------------------------..."
2026-06-24T22:23:41Z
<p>Created page with " <nowiki>*&---------------------------------------------------------------------* *& Report ZSD_INSERT_T182A *& *&------------------------------------------------------------..."</p>
<p><b>New page</b></p><div> <nowiki>*&---------------------------------------------------------------------*<br />
*& Report ZSD_INSERT_T182A<br />
*&<br />
*&---------------------------------------------------------------------*<br />
*&<br />
*&<br />
*&---------------------------------------------------------------------*<br />
<br />
REPORT zsd_insert_t182a LINE-SIZE 100.<br />
<br />
DATA ls_t182a TYPE t182a.<br />
SELECTION-SCREEN: BEGIN OF BLOCK bl1 WITH FRAME.<br />
PARAMETERS: p_grpze LIKE t182a-grpze DEFAULT 'LST1' OBLIGATORY,<br />
p_grpno LIKE t182a-grpno OBLIGATORY.<br />
SELECTION-SCREEN: END OF BLOCK bl1.<br />
<br />
<br />
SELECTION-SCREEN: BEGIN OF BLOCK bl2 WITH FRAME.<br />
PARAMETERS: p_window LIKE t182a-window DEFAULT 'MAIN' OBLIGATORY,<br />
p_elemen LIKE t182a-element .<br />
SELECTION-SCREEN: END OF BLOCK bl2.<br />
<br />
INITIALIZATION.<br />
clear p_grpno.<br />
<br />
AT SELECTION-SCREEN OUTPUT.<br />
LOOP AT SCREEN.<br />
IF screen-name = 'P_ELEMEN'.<br />
screen-INPUT = '0'.<br />
MODIFY SCREEN.<br />
endif.<br />
ENDLOOP.<br />
<br />
AT SELECTION-SCREEN ON p_grpno.<br />
<br />
IF p_grpno+0(1) <> '9'.<br />
MESSAGE e000(fb) WITH 'Solo se permiten entradas iniciadas con'<br />
'9'.<br />
ENDIF.<br />
<br />
SELECT SINGLE * INTO ls_t182a FROM t182a<br />
WHERE grpze = p_grpze<br />
AND grpno = p_grpno.<br />
<br />
IF sy-subrc = 0.<br />
MESSAGE e000(fb) WITH 'Registro ya existe, solo se permite insertar'.<br />
Endif..<br />
<br />
CONCATENATE p_grpze '_' p_grpno INTO p_elemen.<br />
<br />
AT SELECTION-SCREEN ON p_grpze.<br />
<br />
SELECT SINGLE * INTO ls_t182a FROM t182a<br />
WHERE grpze = p_grpze<br />
AND grpno = p_grpno.<br />
<br />
IF sy-subrc = 0.<br />
MESSAGE e000(fb) WITH 'Registro ya existe, solo se permite insertar'.<br />
Endif.<br />
<br />
CONCATENATE p_grpze '_' p_grpno INTO p_elemen.<br />
<br />
START-OF-SELECTION.<br />
<br />
* IF p_elemen IS INITIAL.<br />
* MESSAGE e000(fb) WITH 'Debe ingresar elemento'.<br />
* ENDIF.<br />
<br />
SELECT SINGLE * INTO ls_t182a FROM t182a<br />
WHERE grpze = p_grpze<br />
AND grpno = p_grpno.<br />
<br />
IF sy-subrc = 0.<br />
WRITE:/ 'Registro ya existe, solo se permite insertar'.<br />
ELSE.<br />
ls_t182a-grpze = p_grpze.<br />
ls_t182a-grpno = p_grpno.<br />
ls_t182a-window = p_window.<br />
ls_t182a-element = p_elemen.<br />
<br />
INSERT t182a FROM ls_t182a.<br />
IF sy-subrc = 0.<br />
WRITE:/ 'Registro insertado correctamente:',<br />
ls_t182a.<br />
ELSE.<br />
WRITE:/ 'Error insertar registro:',<br />
ls_t182a.<br />
<br />
ENDIF.<br />
<br />
ENDIF.<br />
<br />
<br />
*Selection texts<br />
*----------------------------------------------------------<br />
* P_ELEMEN D .<br />
* P_GRPNO D .<br />
* P_GRPZE D .<br />
* P_WINDOW D .<br />
<br />
<br />
*Messages<br />
*----------------------------------------------------------<br />
*<br />
* Message class: FB<br />
*000 & & & &<br />
<br />
----------------------------------------------------------------------------------<br />
Extracted by Mass Download version 1.5.2 - E.G.Mellodew. 1998-2016. Sap Release 701</nowiki></div>
WikiSysop