×
Linguagem de Programação ADVPL
Perguntas Executar StoreProc
- Evangelista190
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 35
- Obrigados Recebidos: 0
11 anos 10 meses atrás #9014
por Evangelista190
Executar StoreProc foi criado por Evangelista190
Ae galera pra encerra o ano.
Fiz esse rotina mas na hora de executar gera erro.
quando executao pelo Query Analiser num da erro, mas se ponho para o User ai puts!!
erro : Exceção ocorrida: type mismatch in array subscriptor - expected N->C
#include "rwmake.ch"
user function RFISA31()
Local c_Perg := "RFSA31"
Local AtualizaCF:= {}
PutSx1(c_Perg,"01","Fil¶ial ? ","","","mv_ch1","C", 2,0,0,"G","","","","","mv_par01","","", "","", "","", "","","", "","","", "","","", "")
PutSx1(c_Perg,"02","Da Data ? ","","","mv_ch2", "C", 6,0,0,"G","","","","","mv_par02","","", "","", "","", "","","", "","","", "","","", "")
if pergunte(c_Perg,.T.)
endif
//TCSPEXEC ( cSProc [, xParam1,...,xParamN])--> [array]
TCSPEXEC (AtualizaCF[ mv_par01,mv_par02])
MSGBOX("Operacao Executada com sucesso." ,"OK","INFO")
return()
Fiz esse rotina mas na hora de executar gera erro.
quando executao pelo Query Analiser num da erro, mas se ponho para o User ai puts!!
erro : Exceção ocorrida: type mismatch in array subscriptor - expected N->C
#include "rwmake.ch"
user function RFISA31()
Local c_Perg := "RFSA31"
Local AtualizaCF:= {}
PutSx1(c_Perg,"01","Fil¶ial ? ","","","mv_ch1","C", 2,0,0,"G","","","","","mv_par01","","", "","", "","", "","","", "","","", "","","", "")
PutSx1(c_Perg,"02","Da Data ? ","","","mv_ch2", "C", 6,0,0,"G","","","","","mv_par02","","", "","", "","", "","","", "","","", "","","", "")
if pergunte(c_Perg,.T.)
endif
//TCSPEXEC ( cSProc [, xParam1,...,xParamN])--> [array]
TCSPEXEC (AtualizaCF[ mv_par01,mv_par02])
MSGBOX("Operacao Executada com sucesso." ,"OK","INFO")
return()
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
Tempo para a criação da página:0.084 segundos