Mis cosas de ABAP y SAP

Función para saber la impresora por defecto del usuario.

2023-12-14T10:13:00.001+01:00

DATA: p_imp TYPE nast-ldest.

  CALL FUNCTION 'ADS_GET_PRINTER_DEFAULTS'
      EXPORTING
        bname      = sy-uname
      IMPORTING
        sname      = p_imp
*       LNAME      =
*       PRINT_IMMEDIATELY        =
*       DELETE_AFTER_PRINT       =
      EXCEPTIONS
        wrong_user = 1
        OTHERS     = 2.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

Dump al verificar los errores del AIF (/AIF/ERR)

2023-08-04T14:14:00.002+02:00

Al ejecutar la transacción /n/AIF/ERR o incluso al ir a ver los mensajes de Aplicación o Interfase desde el EDOC_COCKPIT me daba dump con la siguiente indicación:

If the error occurs in a non-modfied SAP program, you might be able to

find a solution in the SAP Notes system. If you have access to the SAP

Notes system, check there first using the following keywords:

"RAISE_EXCEPTION"
"CL_ABAP_TYPEDESCR=============CP" bzw. CL_ABAP_TYPEDESCR=============CM002
"DESCRIBE_BY_NAME"
or
"CL_ABAP_TYPEDESCR=============CP" TYPE_NOT_FOUND
or
"/AIF/ERROR_HANDLING_TRANS" "TYPE_NOT_FOUND"

He visto en el método DESCRIBE_BY_NAME de la clase CL_ABAP_TYPEDESCR que precisamente estaba tratando la tabla ZEDOAIFIDXREQ (parámetro p_name) y esta tabla no existe. Así que la he creado siquiendo los pasos de 2027186 - eDocument: AIF Setup. Ha funcionado.

Key field WGLIF is not supported. LTMOM / LTMC Migration tools for MM Conditions.

2021-06-18T11:07:00.003+02:00

Problem: Using we have this error CND_GEN_MIGRATION 004 Key field LIFNR is not supported / Key field WGLIF is not supported because we are using a standard field for conditions but this is not included in the combinations of key fields for price conditions in OSS-Note 2332748.

Solution: After a debugging and I found this 2 oss-notes:

2928354 - The provided key fields are not supported by the condition type XXX

2992615 - Migration of fields not listed in Supported Key Combinations in S4Hana On-Premise System

Then I added with SM30 in view VCND_MIG_SAPFLDS a row for the fieldname WGLIF (or LIFNR,....).

And also you need to add I also need registers for field KFRST in any case in the staging case for Conditions Keys.

Nuevas validaciones SII 1 de octubre 2019 en SAP.

2019-08-01T22:03:00.000+02:00

En SOAMANAGER no está la opción X.509 SSL Client Certificate

2017-08-09T15:20:00.001+02:00

Al implementar nuestra solución SII con SAP nos hemos encontrado que en algunos clientes al crear los End Points en la SOAMANAGER no podíamos seleccionar el certificado creado en la STRUST para conectar con la AEAT.

En la pestaña la parte de "Authentification Settings" no disponiamos de la opción X.509 SSL Client Certificate. Para solucionarlo nuestros compañeros de Basis lo resolvieron aplicando la nota 1669829. Algún otro cliente también ha aplicado la nota 1549580.

1669829 - Unable to generate LP with X.509 client cert. w/o WSDL
1549580 - Default logical port not deleted completely

Sapscript: moneda en cantidades.

2016-07-21T19:43:00.000+02:00

He estado peleándome con un Sapscript, todavía pasan estas cosas, para Colombia. Para quien no lo sepa la moneda de Colombia es el peso colombiano que como las pesetas de mi infancia y juventud no tienen decimales. El Sapscript es una copia del estándar y estaba imprimiendo bien el campo para cantidad KOMK-FKWRT. Yo tenía que añadir un nuevo campo que usaba el anterior para sumarle otras cantidades por lo que me he creado un nuevo campo y lo he puesto TYPE FKWRT. Este nuevo campo se me estaba imprmiendo mal, no sólo porque ponía decimales sino porque me salía dividido entre mil.

La solución que he encontrado y me funciona es decláralo con un LIKE KOMK-FKWRT y así coge la moneda que tiene asignada. Otra opción sería haberme creado una estructura en la SE11 con mi campo y su moneda.

Problemas aplicando nota 1841781 SEPA composite SAP Note: Payment medium

2015-10-30T10:09:00.002+01:00

Aplicando la nota múltiple 1841781 SEPA composite SAP Note: Payment medium para (SAPKH60511 SAPKA70214) me he encontrado con problemas al aplicar algunas de sus notas. Problemas del tipo de no poder encontrar el código previsto aunque no indicaba prerequisitos la nota.

Así los he resuelto:

Para la nota "1948973 Accompanying sheet with more fields (hash value) in exit 41" no sabe encontrar código para ldmee5f01, he aplicado nota "1928773 - DMEE: Accompanying Sheet - wrong sums"

Para la nota "2111694 - Runtime too long for SEPA_CT with country exit: Correction in BAdI for countries" no sabe encontrar el código y da errores al activar de CL_FI_DMEE_SEPA_COUNTRIES_IMP IF_FI_DMEE_SEPA_COUNTRIES~GET_VALUE sobretodo con I_REGUP. Aplico nota"2013784 - SEPA CT: Austria Tax Payments" y esta me pide también la "1983343 - Portugal: SEPA CT: Corrections regarding the tags Ustrd, Strd, CtgyPurp-> Cd and DbtrAcct-> Ccy."

SAFT con SAP. Error SECSTORE:023

2015-10-19T16:18:00.002+02:00

Estoy aplicando las notas para el SAFT de la AT Portugal para hacer la comunicación de los transportes Online con Web Services:

• Note 1901250 - PT Web Services- Online communication to AT : Technical Req
• Note 1901252 - PT Web Services- Online communication to AT:Solution Details

Al probar la transacción WSPT_MONI me da el siguiente error:

(SECSTORE:023) No se ha encontrado entrada /WSPT/DELIVERY/<código de la empresa>;* en memoria segura
(SECSTORE:023) Entrada /WSPT/DELIVERY/<código de la empresa>;* não encontrada na memória segura

La solución es introducir el usuario y password de la AT portuguesa con la transacción WSPT_STORE_PASS.

Por cierto es importante saber que los certificados correctos son los de "2054553 - PT: WS - Online communication to AT: Certificates" y NO los de la nota "1901250 - PT Web Services- Online communication to AT : Technical Req".

Seguimiento (trace) del log de un Web Service en SAP.

2015-09-28T15:49:00.000+02:00

Es interesante lo que explica la nota "1901252 - PT: WS - Online communication to AT:Solution Details" en el documento "Guidelines_for_endpoint_config2_v2.pdf" para como mirar el log al usar un web service.

For trace and LOG you can either use SRT_UTIL transaction or the trace functionality in SOAMANAGER. For the later proceed as indicated below:

Press Add New Button,

After you can define the duration of the trace in seconds, and in order to reduce overhead in SMICM choose a value that can allow you to test.
Example 10h = 36000s.

You should refine the trace either by adding the interface name CO_WSPT_DOCUMENTOS_TRANSPORTE or choose a Username.

Campos adicionales para acreedor / proveedor.

2015-07-16T12:12:00.004+02:00

Para añadir campos adicionales de acreedor (lfa1, lfb1) he seguido estos 2 links:

El primero no me acababa de funcionar a la hora de grabar y el segundo no me acaba de gustar lo que hace para dejar modificar los campos o no. He seguio lo que decía para activar las BADIS. Aqui explico lo que he hecho para poder grabar, he usado un grupo de funciones para el control del screen como hace el segundo link.

Mi append lo he hecho para la LFB1 y le he llamado ZLFB1.

Me he creado un grupo de funciones ZBC_VENDOR con un dynpro 9000 y he puesto he cogido los campos de diccionario de LFB1.

Tiene como variables globales en LZBC_VENDORTOP

tables: zlfb1.data: gl_activity type aktyp.

La dynpro tiene process before output. module status_9000.

module status_9000 output.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.

loop at screen.

*For XD01, It would be H

*For XD02, it would be V

*For XD03, it would be A.

if gl_activity = 'A'. "

Display screen-input = '0'.

endif.

modify screen.

endloop.*

endmodule.

Y tiene 2 módulos de funciones.

function z_bc_vendor_screen_get.
*"----------------------------------------------------------------------
*"*"Interfase local
*"  EXPORTING
*"     REFERENCE(P_ZLFB1) TYPE  ZLFB1
*"----------------------------------------------------------------------

  move-corresponding zlfb1 to p_zlfb1.

endfunction.

function z_bc_vendor_screen_set.
*"----------------------------------------------------------------------
*"*"Interfase local
*"  IMPORTING
*"     REFERENCE(P_ACTIVITY) TYPE  AKTYP OPTIONAL
*"     REFERENCE(P_ZLFB1) TYPE  ZLFB1 OPTIONAL
*"----------------------------------------------------------------------
*
  move-corresponding p_zlfb1 to zlfb1.
  gl_activity = p_activity.
*
endfunction.

Y las implementos en los métodos de la BADI VENDOR_ADD_DATA_CS de la siguiente forma.

  method if_ex_vendor_add_data_cs~set_data.
*
    data: l_zlfb1 type zlfb1.
    move-corresponding  i_lfb1 to l_zlfb1.
*
    call function 'Z_BC_VENDOR_SCREEN_SET'
      exporting
        p_activity = i_activity
        p_zlfb1   = l_zlfb1.
*
  endmethod.

  method if_ex_vendor_add_data_cs~get_data.
    data: l_zlfb1 type zlfb1.
    call function 'Z_BC_VENDOR_SCREEN_GET'
      importing
        p_zlfb1 = l_zlfb1.
*
    move-corresponding l_zlfb1 to s_lfb1.
*
  endmethod.

method if_ex_vendor_add_data_cs~get_taxi_screen.
  if flt_val = 'Z1'.
    case i_taxi_fcode.
      when 'ZTAB1'.
      e_program = 'SAPLZBC_VENDOR'. "Grupo de funciones ZBC_VENDOR
      e_screen = '9000'.
      e_headerscreen_layout = 'B'.
    when others.
    endcase.
  endif.
endmethod.

Además para que si no hay datos de sociedad no salga la pestaña ZTAB1

  METHOD if_ex_vendor_add_data_cs~suppress_taxi_tabstrips.
*
    DATA: code   TYPE not_used_taxi_fcodes_tab,
          code_l LIKE LINE OF code.
*
    IF i_bukrs IS INITIAL.
      code_l = 'ZTAB1'.
      APPEND code_l TO code.
*
      e_not_used_taxi_fcodes = code.
    ENDIF.
*
  ENDMETHOD.

De la parte de Custo dejo aquí la pantalla de la SPRO en castellano.

Leyendo fichero de la AL11 con caracter extraño # (hashtag).

2015-07-02T11:21:00.000+02:00

Un compañero, Joan Zenon, tenía un problema al leer con OPEN DATA SET un fichero que tiene en el servidor. Tanto con la AL11 como al leer en el programa tenía carácter # al final. Estas cosas son por el fin de carro o fin de línea, pero intentado reemplazar con las constantes de la clase cl_abap_char_utilities no acababa de encontrar cual era.

Al final lo ha solucionado con la función SCP_REPLACE_STRANGE_CHARS. Por defecto pone el punto (.) porque es 46 el valor que tiene el parámetro REPLACEMENT, si ponemos 32 deja un espacio.

Consumo de web services con xsd:dateTime (UTC) en SAP.

2015-04-21T16:29:00.002+02:00

Para los web services que tienen tipo de datos xsd:dateTime, sap los transforma en el tipo sap XSDDATETIME_Z (Evento XSD (UTC): aaaa-mm-ddThh:ssZ [ext.]). Este tipo de dato guarda internamente la fecha, la hora y el huso horario.

Para poder pasar de UTC a fecha, hora y huso y viceversa podemos servirnos de guía de este código que he extraido de la clase de SAP cl_appointment. Prueba con este código.

Programa de ejemplo.

  DATA: l_tst TYPE xsddatetime_z, "LIKE scappt-tst_from,
        l_zone TYPE tznzone,      "LIKE scappt-zone_from,
        l_date TYPE datum,        "LIKE scappt-date_from,
        l_time TYPE sytime.       "LIKE scappt-time_from.

  CLEAR: l_tst, l_zone, l_date, l_time.
*
  GET TIME STAMP FIELD l_tst.
  l_zone = 'CET'."No es necesario si nos viene ya dentro del l_tst y nos lo resolvería el convert time.
*
  WRITE: / 'UTC->fecha, hora, huso'.
*
  CONVERT TIME STAMP l_tst
           TIME ZONE l_zone
           INTO DATE l_date
                TIME l_time.
*
  WRITE: / 'TIME STAMP ', l_tst.
*
  WRITE: / 'ZONE ', l_zone.
  WRITE: / 'DATE ', l_date.
  WRITE: / 'TIME ', l_time.
*
  WRITE: /.
  WRITE: / 'fecha, hora, huso->UTC'.
*
  CLEAR: l_tst, l_zone, l_date, l_time.
*
  l_date = sy-datum.
  l_time = sy-uzeit.
  l_zone = SY-ZONLO.
*
  CONVERT DATE l_date
  TIME l_time
  INTO TIME STAMP l_tst
  TIME ZONE l_zone.
*
  WRITE: / 'ZONE ', l_zone.
  WRITE: / 'DATE ', l_date.
  WRITE: / 'TIME ', l_time.
*
  WRITE: / 'TIME STAMP ', l_tst.
*

Excepción de clase CX_AI_SOAP_FAULT (SoapFaultCode:4 ) al invocar un WebService.

2015-04-19T06:30:00.000+02:00

Para este errores al intentar implementar un Web Services que había creado en .Net:

SoapFaultCode:4 System.Web.Services.Protocols.SoapException: Server did not
recognize the value of HTTP Header SOAPAction: .## at
System.Web.Services.Protocols.Soap11ServerProtocolHelper.RouteRequest()## at
System.Web.Services.Protocols.SoapServerProtocol.Initialize()## at
System.Web.Services.Protocols.ServerProtocolFactory.Create(Type type,
HttpContext context, HttpRequest request, HttpResponse response, Boolean&

abortProcessing)

Excepción de clase CX_AI_SOAP_FAULT

Solución.

En el soamanager he ido al endpoint que había creado. Luego en pestaña "Operation Specific" hay que mirar que todas las operaciones tengan el SOAP Action informado.

Excepción de clase CX_AI_SOAP_FAULT (SoapFaultCode:3 ) al invocar un WebService.

2015-04-17T13:09:00.001+02:00

Para estos 2 errores al intentar implementar un par Web Services que había creado en .Net:

Error 1.

SoapFaultCode:3 The header 'Action' from the namespace
http://schemas.xmlsoap.org/ws/2004/08/addressing' was not understood by the
ecipient of this message, causing the message to not be processed. This
rror typically indicates that the sender of this message has enabled a
ommunication protocol that the receiver cannot process. Please ensure that
he configuration of the client's binding is consistent with the service's
inding.

Excepción de clase CX_AI_SOAP_FAULT

Error 2.

SoapFaultCode:3 System.Web.Services.Protocols.SoapHeaderException: SOAP
header Action was not understood.## at
System.Web.Services.Protocols.SoapHeaderHandling.
SetHeaderMembers(SoapHeaderCollection headers, Object target,
SoapHeaderMapping[] mappings, SoapHeaderDirection direction, Boolean client)##
at System.Web.Services.Protocols.SoapServerProtocol.CreateServerInstance()##
at System.Web.Services.Protocols.WebServiceHandler.Invoke()## at
System.Web.Services.Protocols.WebServiceHandler.CoreProcessRequest()

Excepción de clase CX_AI_SOAP_FAULT

Solución.

En el soamanager he ido al endpoint que había creado. Luego en pestaña Messaging y en Message ID Protocol lo he cambiado a "SAP Message ID".

Problemas con notas SEPA.

2015-03-11T11:55:00.000+01:00

Hemos aplicado las notas para SEPA:

1857318 CGI_XML_CT: DMEE XML Format as per ISO20022
1923419 - CGI_XML_CT: SEPA changes for Spain

Pero al activar el DMEE (PAYM / CGI_XML_CT) y me da error:

DMEE_ABA203 Format tree CGI_XML_CT inconsistent (see log); tree saved in maintenance version

Miro el log y tengo errores DMEE_ABA358 del estilo "Node AdrLine: function module DMEE_EXIT_CGI_CRED_STREET has incorrect interface"

"No documentation is assigned to the format tree

Node Id: function module DMEE_EXIT_CGI_XML has incorrect interface

Node Issr: function module DMEE_EXIT_CGI_XML has incorrect interface

Node Nm: function module DMEE_EXIT_CGI_DEBT_NAME has incorrect interf X

Node Issr: function module DMEE_EXIT_CGI_XML has incorrect interface

Node Amt: function module DMEE_EXIT_CGI_EQVTAMT has incorrect interfa X

Node CcyOfTrf: function module DMEE_EXIT_CGI_CCYOFTRF has incorrect i X

Node ZNME1: function module DMEE_EXIT_CGI_CRED_NAME has incorrect int X

Node StrtNm: function module DMEE_EXIT_CGI_CRED_STREET has incorrect X

Node POBoxCity: function module DMEE_EXIT_CGI_CRED_PO_CITY has incorr X

Node City: function module DMEE_EXIT_CGI_CRED_CITY has incorrect inte X

Node CtrySubDvsn: function module DMEE_EXIT_CGI_CRED_REGION has incor X

Node AdrLine: function module DMEE_EXIT_CGI_CRED_STREET has incorrect X

Node StrtNm: function module DMEE_EXIT_CGI_CRED_STREET has incorrect X

Node City: function module DMEE_EXIT_CGI_CRED_CITY has incorrect inte X

Node TaxId: function module DMEE_EXIT_CGI_CRED_TAXID has incorrect in X

Node Mtd: function module DMEE_EXIT_CGI_TAX_METHOD has incorrect inte X

Node SeqNb: function module DMEE_EXIT_CGI_TAX_SQNB has incorrect inte X

Node Ctgy: function module DMEE_EXIT_CGI_TAX_CATEGORY has incorrect i X

Node CtgyDtls: function module DMEE_EXIT_CGI_TAX_CTGRY_DTLS has incor X

Node FrmsCd: function module DMEE_EXIT_CGI_TAX_FORMS_CODE has incorre X

Node Rate: function module DMEE_EXIT_CGI_TAXAMT_RATE has incorrect in X

Node Amt: function module DMEE_EXIT_CGI_TAXAMT_TTLAMT has incorrect i X

Node TaxblBaseAmt: function module DMEE_EXIT_CGI_TAXAMT_TXBASEAMT has X

Node Amt: function module DMEE_EXIT_CGI_TAXAMT_TTLAMT has incorrect i X

Node TaxblBaseAmt: function module DMEE_EXIT_CGI_TAXAMT_TXBASEAMT has X"

Lee 1901772 DMEE: Checking errors with SEPA* formats - DMEE_ABA 358, 118 during upload y aplica 1914322 DMEE: can not activate DMEE tree due to wrong interface.

340 / 2015. Validador y documentación AEAT.

2015-03-05T11:31:00.003+01:00

Programa con formulario 2015 para el 340 y ejecutar con el explorador, luego el "programa" lo tendremos en C:\aeat\340_2015\PROGRAMA\nre15340.html. Así no será mucho más fácil validar el resultado de S_ALR_87012403 - Declaración recapitulativa (España).

Documentación de modelos 300 al 399, aquí podemos encontrar sobre el modelo 340 (340 - Orden EHA/3787/2008 (modificada por Orden HAP/2215/2013, de 26 de noviembre) Declaración informativa de operaciones incluidas en los libros registro Documento).

Gracias a Carol, Juan Carlos y el chat de la AEAT.

SAFT por WebService: Define Rejection Codes

2015-01-15T11:51:00.001+01:00

Estoy aplicando las notas para poder recibir el codigo AT para los movimientos de mercancías en Portugal. Ahora mismo en el punto de http://help.sap.com/saphelp_sfin100/helpdata/en/8c/dbb752112fbd66e10000000a441470/content.htm

· Defined rejection codes for web services. You do this in Customizing for Sales and Distribution, under Logistics Execution ->Shipping ->Deliveries ->Country-Specific Functions ->Portugal ->Define Rejection Codes .

Esta opción de hecho es para llenar la vista WSPT_V_REJ_CODES, pero no queda claro de donde sacar lo valores. Deben ser los del documento de la AT portuguesa, desde la página 26 al final en el punto "Documentos de transporte - Resposta ao pedido SOAP".

Comentario (PD): también vienen en la nota 0001901252 [1901252 - PT: WS - Online communication to AT:Solution Details] que aunque en mi caso deberían ya estar informados los valores por parche no lo están. De hecho hay más valores y creo que es mejor coger los del documento AT.

Excel con los valores WSPT_V_REJ_CODES.

Un programa para crear objetos de diccionario y otros objetos de desarrollo.

2015-01-13T11:45:00.001+01:00

Estoy aplicando la nota "1997540 - PT: Manual changes flag added to WSPT_LIKP" y me he encontrado la grata sorpresa que aplicando la nota se instala el programa NOTE_1997540 que según pone en la nota "This program generates ABAP dictionary objects and other ABAP development objects in the ERP system" lo cual es un gran que y va en una buena línea por parte de SAP porque siempre me ha costado entender lo de tener que hacer pasoS manuales para crear elementos, dominios y otros objetos de diccionario de la SE11. Agradezco el detalle y habrá que buscar tiempo para mirar el programa y poder readaptarlo para situaciones análogas.

Como curiosidad en la nota también habla de la tabla DWINACTIV que es la tabla donde se guardan los objetos pendientes de activación.

Y parece que la línea es esta.

Porque en la nota "1992838 - PT: WS - Contingency approval" tenemos un programa análogo NOTE_1992838.

Notas para rejilla, grid, tabla en un SapScript

2014-07-09T19:00:00.000+02:00

Para hacer una tabla (grid, rejilla) con el BOX pero que pueda ir variando de alturas.

Declaramos variables en el programa de control:

DATA: wnx TYPE p LENGTH 5 DECIMALS 2,
      wny LIKE wnx,
      wx0(5),
      wy0 LIKE wx0 .

Contamos líneas.

En la parte que vamos pintando la línea vamos sumando.
Por una parte inicializamos
  CLEAR: wx0, wy0.
    wnx = '0.9'.
    wny = '2.2'.
*
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
           element   = 'LINEA_TITLE'
           window    = 'MAIN'.
*
Y vamos sumando dentro del loop a la tabla que pintamos.

  LOOP AT i_tabla.
*
      IF sy-tabix = 1.
        ADD '0.5' TO wny.
      ELSE.
        ADD '0.8' TO wny.
      ENDIF.
*
      wx0 = wnx.
      wy0 = wny.
*
      " when oper not marked for print
      CALL FUNCTION 'WRITE_FORM'                              "
           EXPORTING
             element   = 'LINEA'
             window    = 'MAIN'.
*
  ENDLOOP.

En sapscript tenemos elementos en ventana MAIN.

/E LINEA_TITLE

/: BOX XPOS '0.90' CM YPOS '2.2' CM WIDTH '18.5' CM HEIGHT '0.5' CM FRAME 10 TW INTENSITY 20

TT <B2>Título1:</>,,&VLINE&<B2> Título2:</>

/E LINEA

BOX XPOS &WX0& CM YPOS &WY0& CM WIDTH '18.5' CM HEIGHT '0.8' CM FRAME 10 TW

TT <I0><H2>& i_tabla-columna1&</></>,,&VLINE&& i_tabla-columna2&

Imágenes o logos dinámicos en un SapScript

2014-06-23T20:00:00.000+02:00

Programación:
  TYPES: BEGIN OF ty_logo,
*        tdobject TYPE tdobject,
        tdname TYPE tdobname, "tdname,
*        tdid TYPE tdid,
        tdbtype TYPE tdbtype,
        tdresolut TYPE tdresolut,
  END OF ty_logo.

PERFORM zlogo_get '0300'.

  FORM zlogo_get USING p_bukrs TYPE bukrs.
*
    CASE p_bukrs.
      WHEN '0300'.
        gl_logo-tdname = 'LOGO_0300'.
        gl_logo-tdbtype = 'BCOL'.
        gl_logo-tdresolut = 300.
      WHEN '0200'.
        gl_logo-tdname = 'LG_0200'.
        gl_logo-tdbtype = 'BCOL'.
        gl_logo-tdresolut = 200.
      WHEN '0400'.
        gl_logo-tdname = 'LOG4EX'.
        gl_logo-tdbtype = 'BCOL'.
        gl_logo-tdresolut = 200.
      WHEN '0500'.
        gl_logo-tdname = 'LOGONEW'.
        gl_logo-tdbtype = 'BCOL'.
        gl_logo-tdresolut = 200.
      WHEN OTHERS.
    ENDCASE.
*
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        window = 'LOGO_SOC'.
*
  ENDFORM.

En la ventana LOGO_SOC comando /:
BITMAP &GL_LOGO-TDNAME& OBJECT GRAPHICS ID BMAP TYPE &GL_LOGO-TDBTYPE& DPI &GL_LOGO-TDRESOLUT&

Depurar (debugging) un smartform.

2014-06-06T13:25:00.000+02:00

Este es un truco personal que también le parece útil a Dani, no sé si otra gente lo hacer o si hay alternativas. Como no deja poner break-points no explícitos en el código de los smartforms.

Lo que hago es en la parte alta de la edición del smartform, voy Entorno->Nombre del módulo de funciones. Copio el nombre del módulo de funciones, que además en este caso también es el nombre del grupo de funciones. Voy a la SE80 y lo copia allí en grupos de funciones. Busco un trozo de código en todo el programa que corresponda al sitio donde quieres debuggar.

A veces no encuentras tu trozo de código... la solución es ponerse encima del grupo de funciones botón derecho, Otras funciones-> Reestructurar lista de objetos.

Cómo obtener el flujo de documentos desde un programa ABAP

2014-06-04T10:03:00.001+02:00

Muy interesante post de Teknoda sobre el módulo de funciones RV_ORDER_FLOW_INFORMATION y el flujo de documentos comerciales.

Guardar campos en tablas Z con el Generador de actualización de tablas. Evento 01.

2014-05-28T18:22:00.001+02:00

Situación:

Tengo una tabla ZTABLA a la que le he creado una vista de actualización para la SM30. Y quiero controlar quien y cuando hace cambios en los campos ERDAT, ERZET, ERNAM, AEDAT, AEZET, AENAM.

El código de help.sap no acaba de funcionar tal cual.

Solución: Primero bloqueo en la dynpro de la actualización estas columnas para que sólo sean de salida y añado el evento 01 (Antes de grabar los datos en la base de datos) con la siguiente subrutina:

*&---------------------------------------------------------------------*

*& FORM ZEVENTO01

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM ZEVENTO01.

  CONSTANTS: LC_ACTION TYPE FIELDNAME VALUE 'ACTION'.

  DATA: BEGIN OF ZTABLA_EXTRACT OCCURS 0010.
          INCLUDE STRUCTURE ZTABLA_COSTES.
          INCLUDE STRUCTURE VIMFLAGTAB.
  DATA: END OF ZTABLA_EXTRACT.

  DATA LS_DATA_TOTAL          LIKE ZTABLA_EXTRACT.
  DATA LS_DATA_EXTRACT        LIKE ZTABLA_EXTRACT.
  DATA LV_ACTION_TOTAL              TYPE COMT_BOOLEAN.
  DATA LS_TABIX               TYPE SY-TABIX.

  FIELD-SYMBOLS: <LV_ACTION_TOTAL>    TYPE CHAR1,
                 <LS_DATA_TOTAL>      TYPE ANY,
                 <LS_DATA_EXTRACT>    TYPE ANY.

  LOOP AT TOTAL.
*
    ASSIGN TOTAL TO <LS_DATA_TOTAL> CASTING LIKE ZTABLA.
    LS_DATA_TOTAL = <LS_DATA_TOTAL>.
    ASSIGN COMPONENT LC_ACTION OF STRUCTURE TOTAL TO <LV_ACTION_TOTAL>.
*
    IF SY-SUBRC NE 0.
      LV_ACTION_TOTAL = <ACTION>.
      ASSIGN LV_ACTION_TOTAL TO <LV_ACTION_TOTAL>.
    ENDIF.
*
    LV_ACTION_TOTAL = <LV_ACTION_TOTAL>.
    CHECK LV_ACTION_TOTAL IS NOT INITIAL.
*
    READ TABLE EXTRACT WITH KEY  <VIM_XTOTAL_KEY>.
*
    IF SY-SUBRC EQ 0.
      LS_TABIX = SY-TABIX.
    ELSE.
      CLEAR LS_TABIX.
    ENDIF.
*
    IF LS_DATA_TOTAL-PEINH IS INITIAL.
      LS_DATA_TOTAL-PEINH = 1.
    ENDIF.
*
    IF LV_ACTION_TOTAL EQ 'N'." New Entry.
      LS_DATA_TOTAL-ERDAT = SY-DATUM.
      LS_DATA_TOTAL-ERZET = SY-UZEIT.
      LS_DATA_TOTAL-ERNAM  = SY-UNAME.
    ENDIF.
*
    IF LV_ACTION_TOTAL EQ 'U'."Update
      LS_DATA_TOTAL-AEDAT = SY-DATUM.
      LS_DATA_TOTAL-AEZET = SY-UZEIT.
      LS_DATA_TOTAL-AENAM = SY-UNAME.
    ENDIF.
    <LS_DATA_TOTAL> = LS_DATA_TOTAL.
*
    MODIFY TOTAL.
    CHECK LS_TABIX GT 0.
    EXTRACT = TOTAL.
    MODIFY EXTRACT INDEX LS_TABIX.
*
  ENDLOOP.
*
  SY-SUBRC = 0.

ENDFORM. "FORM ZEVENTO01

Nota: podemos buscar otras vistas de actualización con eventos en TVIMF para ver como lo hace.
Otras referencias:
http://scn.sap.com/docs/DOC-10318
http://help.sap.com/saphelp_nw04s/helpdata/en/a7/5133ac407a11d1893b0000e8323c4f/frameset.htm

BW: Infopaquete en peticiones vacías.

2014-05-20T12:15:00.002+02:00

Al planificar una cadena tengo el problema de que si la fuente de datos no tiene registros y viene vacío se que me queda parado el infopaquete con un aviso (warning) y no continua cuando ya puede ser estemos sin registros.

Solución que me dio en su momento Laura, vamos al infopaquete, y en el menú superior, vamos a Planificador -> Tratamiento de avertencias y ponemos que sea ok. O en este caso casi mejor Planificador-> Color de semáforo en peticiones vacías e indicamos que semáforo verde.

~~Lo he hecho directamente en producción.~~ Y para que poder continuar ejecutando la cadena, desde el log la cadena he llegado al monitor del infopaquete y le he cambiado el estado de la cabecera a correcto, esto ya no tendré que hacerlo en este caso por que cambio hecho desde el Planificador.

Nota sobre transporte en Business Warehouse de desarrollo a productivo.

2014-03-31T13:12:00.000+02:00

Me anoto lo que me explico Laura, una vez más, a la hora de transporta de BW-DES a BW-PRO el orden recomendado para hacerlo sería:

Primero hay que mapear en BW-PRO entre los sistemas fuentes con la transacción RSLGMP, si no al transportar los sistemas fuentes nos dará la STMS un error del tipo "El sistema fuente <E3-DES-100> no existe".

Orden con objetos (sólo estructuras como infocubos y características).
Fuentes de datos.
Transformaciones.
DTP/Infopaquetes.
Informes (Querys).