SELECT
STUFF((SELECT
' ' + CAST(NUMBER AS VARCHAR)
FROM MASTER..SPT_VALUES
WHERE NUMBER BETWEEN 2000 AND 2010
FOR XML PATH ('')), 1, 1, '');
Sequência de números em linha no SQL Server
Responder
Arquivo da tag: programação
Debug de uma janela popup
Matchcode com tabela interna
REPORT zmatch.
TYPES: BEGIN OF ty_t001w,
werks TYPE t001w-werks,
sep TYPE c LENGTH 3,
name1 TYPE t001w-name1,
END OF ty_t001w.
DATA: t_t001w TYPE TABLE OF ty_t001w, "#EC NEEDED
w_t001w TYPE ty_t001w,
l_index TYPE sy-tabix. "#EC NEEDED
SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS: p1 TYPE c LENGTH 4.
SELECT-OPTIONS: p2 FOR w_t001w-werks NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1.
SELECT werks name1
INTO CORRESPONDING FIELDS OF TABLE t_t001w
FROM t001w
WHERE vtweg = '10'.
w_t001w-sep = ' - '.
MODIFY t_t001w FROM w_t001w TRANSPORTING sep WHERE sep IS INITIAL.
CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
EXPORTING
endpos_col = 70
endpos_row = 20
startpos_col = 43
startpos_row = 1
titletext = 'SELECIONAR O CENTRO'
IMPORTING
choise = l_index
TABLES
valuetab = t_t001w
EXCEPTIONS
break_off = 1
OTHERS = 2.
IF sy-subrc IS NOT INITIAL.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
IF l_index IS NOT INITIAL.
READ TABLE t_t001w INTO w_t001w INDEX l_index.
* MESSAGE w_t001w-name1 TYPE 'I'.
p1 = w_t001w-werks.
ENDIF.
START-OF-SELECTION.
* CLEAR: t_t001w, t_t001w[], w_t001w.
* SELECT werks name1
* INTO CORRESPONDING FIELDS OF TABLE t_t001w
* FROM t001w
* WHERE werks = p1.
* READ TABLE t_t001w INTO w_t001w INDEX 1.
WRITE: / w_t001w-name1.
END-OF-SELECTION.
CommonDialog com Múltiplos Arquivos VB6
On Error GoTo Erro
CD1.CancelError = True
CD1.Filter = “Bibliotecas|*.OCX;*.DLL|Todos os Arquivos|*.*”
CD1.FilterIndex = 1 Continue lendo
Script para gerar número randômico no SQL Server
Random Number Generator
There are many methods to generate random number in SQL Server.
Method 1 : Generate Random Numbers (Int) between Rang
---- Create the variables for the random number generation
DECLARE @Random INT; Continue lendo
Deixar endereço dinâmico ASP
Página ASP interpretando imagem jpg
<!– imagem.asp –>
<% ‘IF Request.ServerVariables(“HTTP_REFERER”) <> Request.ServerVariables(“SERVER_NAME”) and Request.ServerVariables(“HTTP_REFERER”) = “” THEN
‘response.write “Página inválida!”
‘response.End()
‘end if
Set Objstr = Server.CreateObject(“ADODB.Stream”)
ObjStr.Type = 1 ‘adtext
ObjStr.Open
Objstr.LoadFromFile Server.MapPath(“imagens\calendar.jpg”)
mytextFile = ObjStr.Read
Set ObjStr = Nothing
Response.ContentType = “image/jpg”
Response.BinaryWrite mytextFile
Response.End
%>
<!– teste.asp –>
<img src=”imagem.asp” />