Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (pauloc), última alteração por admin em 03 jul, 2012

Ponto-de-Entrada: CTBMOVTOS Complementa procedure
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Complementa a procedure que é criada dinamicamente
Eventos

É executado na função que Cria a procedure CTB169 dinamicamente                     

Programa Fonte 
CTBXFUN.PRX
Sintaxe

CTBMOVTOS Complementa procedure ( [ cSQL ] ) --> cSQL

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cSQL Caracter String SQL
Retorno
    cSQL(caracter)
  • String sql
Exemplos 
	If ExistBlock( "CTBMOVTOS" )		cSQL := ExecBlock( "CTBMOVTOS", .F., .F., { cSQL } )	EndIf		cSQL:=MsParse(cSQL,Alltrim(TcGetDB()))		If cSQL=''		If !lBlind			MsgAlert( STR0232 + " " + cProc + ": " + MsParseError() ) // "Erro na criacao da 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