CTBMOVTOS Complementa procedure -- 109697

Punto de entrada: CTBMOVTOS Complementa procedure

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:

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