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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas