| como puedo concatenar esta instruccion de sql en visual basic
Bueno miren tengo una aplicativo de escritorio para enviar a una base datos un procedimiento almacenado desde visual
pero el problema que tengo es que es demasiado grande el procedimiento almacenado para juntarlos todo en una linea y tengo que cojerlo todo y necesito espacios aca les paso una parte
create PROCEDURE Contabilidad
@MesConsol Varchar (02),
@DiaConsol_I Varchar(02),
@DiaConsol_F Varchar(02),
@Tipo_Consol varchar (10)
As
declare @nrofactura Varchar(10),
@nroReversada varchar(10),
@Fechafac Datetime,
@ID3 varchar(15),
@NomClie Varchar(60),
@NomProv Varchar(60),
@MtoTotFac decimal (34,4),
@MtoTaxFac decimal (34,4),
@TotCostoFac decimal (34,4),
@Base_Iva16Fac decimal (34,4),
@Base_Iva10Fac decimal (34,4),
@TGravableFac decimal (34,4),
@VrIVA16Fac decimal (34,4),
@VrIVA10Fac decimal (34,4),
@TExentoFac decimal (34,4),
@Bodega varchar (5),
@tipo_Operacion Varchar(15),
@CancelI decimal (10,2),
@Descuentos decimal (10,2),
@BDConta varchar (25),
@Prefix Varchar (5),
@siPeriod smallint,
@KeyTrans int,
@KeyEntry int,
@ID_Class Varchar (5),
@Nro_Comprob Varchar(10),
@Descrip_Comprob varchar(60),
@ID_Entry varchar (10),
@Mes_Comprob Tinyint,
@CtaCxCDev varchar (10),
@CtaDev varchar (10),
@CtaCostoDev varchar (10),
@SqlQry varchar (100),
@CodInst int,
@NombreInsta Varchar (35),
@TotalItem decimal (10,2),
@BIva16Item decimal (10,2),
@VrIVA16Item decimal (10,2),
@BIVA10Item decimal (10,2),
@VrIVA10Item decimal (10,2),
@VrExcentoItem decimal (10,2),
@RetenIva decimal (28,4),
@CtaCxC Varchar(12),
@CtaVenGrab Varchar(12),
@CtaVenEx Varchar(12),
@CtaVrIvaVen Varchar(12),
@CtaDeVenGrab Varchar(12),
@CtaDeVenEx Varchar(12),
@CtaIvaDeVen Varchar(12),
@CtaIvaRetVen Varchar(12),
@CtaRfteVen Varchar(12),
@CtaCostoVen Varchar(12),
@CtaInvVen Varchar(12),
@CtaDescVen Varchar(12),
@CtaCxP Varchar(12),
@CtaComGrab Varchar(12),
@CtaComEx Varchar(12),
@CtaVrIvaCom Varchar(12),
@CtaDevComGrab Varchar(12),
@CtaDevComEx Varchar(12),
@CtaIvaDevCom Varchar(12),
@CtaIvaRetCom Varchar(12),
@CtaRfteCom Varchar(12),
@CtaDescCom Varchar(12)
Set @ID_Class='01'
Set @siPeriod='2011'
Set @Mes_Comprob= CASE When @mesconsol <'10' then right (@mesconsol,1) Else @MesConsol End
IF @Tipo_Consol='VENTAS'
Begin
SELECT @CtaCxC=CxCGeneral,@CtaVenGrab=CtaVtaCredito,@CtaD eVenGrab=CtaDevolucionesCRV, @CtaIvaRetVen=CtaProvidenciaV,@CtaCostoVen=CtaCost oVenta,@CtaInvVen=CtaRealInventario,@CtaDescVen=Ct aDctoCrV,
@CtaCxP=CxPGeneral,@CtaComGrab=CtaCompras,@CtaDevC omGrab=CtaDevolucionesC, @CtaIvaRetCom=CtaProvidenciaC,@CtaDescCom=CtaDescu entosC,@CtaCostoVen=CtaCostoVenta,@CtaInvVen=CtaRe alInventario from SAINT_ADM.DBO.SCIPARAM
select @CtaVrIvaVen=CtaCr,@CtaIvaDeVen=CtadevolucionesCrV ,@CtaVrIvaCom=CtaCompra,@CtaIvaDevCom=CtaDevolucio nesC from SCIALICUOTA where Codigo='IVA'
select @CtaVenEx=CtaCr,@CtaDeVenEx=CtadevolucionesCrV,@Ct aComEx=CtaCompra,@CtaDevComEx=CtaDevolucionesC from SCIALICUOTA where Codigo='EXENTO'
select @CtaRfteVen=CtaVtasCredito,@CtaRfteCom=CtaCompras from sciopera where Codigo='RF'
es decir necesito que todo esto me lo coja como string pero no me deja
a por cierto estoy trabajando en el visual studio 2008 |