× Linguagem de Programação ADVPL

Perguntas Executar StoreProc

Mais
11 anos 4 meses atrás #9014 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()

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 4 meses atrás #9040 por kanaamlrr
Respondido por kanaamlrr no tópico Re: Executar StoreProc
Tenta assim cara

TCSPEXEC ("AtualizaCF",{mv_par01,mv_par02})

abraços e feliz ano novo!

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.085 segundos
Joomla templates by a4joomla