Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
...
| Pagetitle | ||||
|---|---|---|---|---|
|
...
Punto de
...
entrada: CTBMOVTOS Complementa procedure
...
Alcances: | Microsiga Protheus 10, Microsiga Protheus 11 |
...
Versiones: | Microsiga Protheus 10, Microsiga Protheus 11 |
...
Compatible países: | Todos |
Sistemas |
...
operativos: | Todos |
...
Compatible con las bases de datos: |
...
Todas |
Idiomas: |
...
Portugués (Brasil) , |
...
Portugués (Portugal) , |
...
Español , |
...
Inglés |
...
Descripción:
Complementa
...
la procedure
...
que se crea dinámicamente
Eventos
...
Se ejecuta en la función que crea la procedure CTB169
...
dinámicamente
Programa
...
fuente
CTBXFUN.PRX
...
...
Sintaxis
CTBMOVTOS Complementa procedure ( [ cSQL ] ) --> cSQL
...
Parámetros:
...
Nombre | Tipo |
...
Descripción |
...
Estándar |
...
Obligatorio |
...
Referencia | |||
cSQL |
...
Carácter | String SQL |
...
Devolución
...
cSQL(caracter)
...
String sql
...
Ejemplos
If ExistBlock( "CTBMOVTOS" ) cSQL := ExecBlock( "CTBMOVTOS", .F., .F., { cSQL } ) EndIf cSQL:=MsParse(cSQL,Alltrim(TcGetDB())) If cSQL='' If !lBlind MsgAlert( STR0232 + " " + cProc + ": " + MsParseError() ) // "...
Error en
...
la
...
creación
...
de procedure" EndIf Else If Alltrim(Upper(TcGetDB()))=="ORACLE" cSQL:=StrTran(cSQL,"= ''","is null") EndIf cRet:=TcSqlExec(cSQL) If cRet <> 0 If !lBlind MsgAlert( STR0232 + " " + cProc + ": " + TCSqlError() ) // "Erro na criacao da procedure" EndIf lRet := .f. EndIf EndIfEndIfcStatement := "INSERT INTO TOP_SP ( SP_NOME, SP_VERSAO, SP_DATA, SP_HORA ) "cStatement += " VALUES ( 'CTBMVT_" + cEmpAnt + "', '"+cVersao+"', '"+cData+"', '"+cHora+"' )"TCSqlExec( cStatement )Return lRet
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas