Skip to content

Instantly share code, notes, and snippets.

View SidVal's full-sized avatar
🎯
Focusing

Waldo SidVal

🎯
Focusing
44 followers · 121 following
View GitHub Profile
@SidVal
SidVal / otro-codigo.vba
Created December 1, 2023 23:13
Para el post: https://www.consultoria-sap.com/2021/04/como-conectar-excel-con-sap.html
If Session.ActiveWindow.Text = "Error" Then Err.Raise 99 ' error detected?
'
' find the collection object that contains the Message from the bottom of the SAP screen and write the message to Excel
Info (17) ' puts the Message in the 17th column on the Excel Spreadsheet - column "Q"
'
If Session.ActiveWindow.Name = "wnd[1]" And Session.ActiveWindow.Text = "Log Off" Then
Session.findById("wnd[1]/usr/btnSPOP-OPTION2").press
Sheets("SAP_DATA").Cells(lDataRow, 16) = "error"
End If
'-------------------------------------------------------
@SidVal
SidVal / Generar_EAN128.vba
Last active February 7, 2023 17:56
Generar Codigo EAN128 en Crystal Report
Function TestNum (Codigo as string, i as number, mini as number) as Number 'Si los caracteres de la variable mini desde la variable i son numericos entonces se devuelve 0 mini = mini - 1 If i + mini <= Len(Codigo) Then Do While mini >= 0 If Asc(Mid(Codigo, i + mini, 1)) < 48 Or Asc(Mid(Codigo, i + mini, 1)) > 57 Then Exit Do mini = mini - 1 Loop End If TestNum = mini End Function
@SidVal
SidVal / consulta1.sql
Created October 1, 2019 00:40
Tema https://foros.consultoria-sap.com/t/40928
DECLARE @INI VARCHAR(10)=‘2019-08-01’, @FIN VARCHAR(10)=‘2019-08-31’,@CTA VARCHAR(30)=‘2150.0011.0001.0004’,@Subtotal NUMERIC(19,4),@Iva NUMERIC(19,4),@Total NUMERIC(19,4),@CDML NUMERIC(19,4),@Divi NUMERIC(19,4)
CREATE TABLE #General
(No int IDENTITY(1,1),Fecha DATE,TransId int,BaseRef int,
ContraAct varchar(50),LineMemo varchar(80),Segment_0 varchar(80),ML numeric(12,2),
CardCode VARCHAR(20),RFC varchar(20),Name VARCHAR(80),Divi numeric(19,2),CardCode2 VARCHAR(20),RFC2 varchar(20),Name2 VARCHAR(80))
INSERT INTO #General
SELECT T0.RefDate,T0.TransId,T0.BaseRef,T0.ContraAct,T0.LineMemo,T1.Segment_0,CAST((T0.Debit+(- T0.Credit)) AS NUMERIC(11,2)) AS ‘C/D (ML)’,
(SELECT TX.ShortName
FROM JDT1 TX
FULL OUTER JOIN OACT T1 ON T1.AcctCode=TX.Account
@SidVal
SidVal / Open Graph Protocol for Blogger
Created January 7, 2017 02:13 — forked from vinayprajapati/Open Graph Protocol for Blogger
Open Graph Protocol/ Meta Tags/ Micro Data for Blogger
// Turn <head> tag like this -
<head prefix='og: http://ogp.me/ns# fb: http://ogp.me/ns/fb# article: http://ogp.me/ns/article#'>
// Then just below this add this code -
// Copyright (c) 2013, Vinay Prajapati, Tech Prevue Labs, India
// http://www.techprevue.com
<b:if cond='data:blog.pageType != &quot;index&quot;'>
<meta expr:content='data:blog.title' property='og:site_name'/>
<meta expr:content='data:blog.pageName' property='og:title'/>
<meta content='article' property='og:type'/>
@SidVal
SidVal / TCURR_BAPI.abap
Created November 29, 2016 14:30
*&---------------------------------------------------------------------*
*& Desde sapabap-4.blogspot.com/2016/11/currency-table-update-automatically.html
*& Para www.Consultoria-SAP.com - 2016
*&---------------------------------------------------------------------*
REPORT zsr_test NO STANDARD PAGE HEADING.
DATA:
it_intern TYPE TABLE OF alsmex_tabline,
wa_intern TYPE alsmex_tabline,