WriteOutput(" INSERT INTO web_cs_grupos(Nombre, Descripcion, Posicion, Estado) VALUES('#StrNombre#', '#StrDescripcion#', #IntPosicion#, #BolEstado#)"); WriteOutput(" INSERT INTO web_cs_subgrupos(IDGrupo, Nombre, Descripcion, Posicion, Estado) VALUES(#IntIdGrupo#, '#StrNombre#', '#StrDescripcion#', #IntPosicion#, #BolEstado#)"); WriteOutput(" INSERT INTO web_cs_items(IDSubGrupo, id_sub_grupo_piis, cod_item, Referencia, Nombre, Descripcion, Posicion, Estado, CondicionesPrestacion, CondicionesEntrega, CondicionesUso) VALUES(#IntIdSubGrupo#, '#StrIdSubGrupoPIIS#', '#StrCodigoItem#', '#StrReferencia#', '#StrNombre#', '#StrDescripcion#', #IntPosicion#, #BolEstado#, '#StrCondPrestacion#', '#StrCondEntrega#', '#StrCondUso#')"); WriteOutput(" INSERT INTO web_cs_grupo_idiomas(IDGrupo, IDIdioma, Nombre, Descripcion) VALUES (#IntIdGrupo#, #IntIdIdioma#, '#StrNombre#', '#StrDescripcion#')"); WriteOutput(" INSERT INTO web_cs_subgrupo_idiomas(IDSubGrupo, IDGrupoIdioma, IDIdioma, Nombre, Descripcion) VALUES (#IntIdSubGrupo#, #IntIdGrupoIdioma#, #IntIdIdioma#, '#StrNombre#', '#StrDescripcion#')"); WriteOutput(" INSERT INTO web_cs_item_idiomas(IDItem, IDSubGrupoIdioma, IDIdioma, Nombre, Descripcion) VALUES (#IntIdItem#, #IntIdSubGrupoIdioma#, #IntIdIdioma#, '#StrNombre#', '#StrDescripcion#')"); WriteOutput(" INSERT INTO web_cs_imagenes(NombreArchivo, TextoAlternativo, TipoImagen) VALUES('#StrNombreArchivo#', '#StrTextoAlternativo#', #IntTipoImagen#)"); WriteOutput(" INSERT INTO web_cs_item_imagenes(IDItem, IDImagen, Posicion) VALUES(#IntIdItem#, #IntIdImagen#, #IntPosicion#)"); WriteOutput(" INSERT INTO web_cs_item_tipos_cliente(IDItem, IDTipoCliente) VALUES IDItem IN(#IntIdItem#, #IntIdTipoCliente#)"); /* --CabDoc --CueDoc StrNumeroSolicitud StrNumeroSolicitud StrAnoEvento StrCodEvento StrMoneda StrNit StrAnoContrato StrMesContrato StrNumeroContrato StrObservaciones StrCodContratista (StcItems) StrCodItem (StcItems) IntCantSolicitada (StcItems) IntPorcentajeIva (StcItems) FloValorUnitario (StcItems) StrPabellon (StcExpositor) StrPiso (StcExpositor) StrStand (StcExpositor) StrLogin StrLogin (StcExpositor) StrNombreStand (StcExpositor) StrStandReubic (StcExpositor) StrPabellonReubic (StcExpositor) StrPisoReubic (StcExpositor) FloAreaReubic (StcExpositor) */ /*InsertarCabeceraDocumento(StrNumeroSolicitud="#StrNumeroSolicitud#", StrAnoEvento="#StrAnoEvento#", StrCodEvento="#StrCodEvento#", StrMoneda="#StrMoneda#", StrNit="#StrNit#", StrAnoContrato="#StrAnoContrato#", StrMesContrato="#StrMesContrato#", StrNumeroContrato="#StrNumeroContrato#", StrObservaciones="#StrObservaciones#", StrLogin="#StrLogin#", BolDebugLevel=#BolDebugLevel#); InsertarCuerpoDocumento(StrNumeroSolicitud="#StrNumeroSolicitud#", StcItems=#StcItems#, StcExpositor=#StcExpositor#);*/ StrReturn = "- #StrAnoEvento# - #StrCodEvento# - #StrMoneda# - #StrNit# - #StrAnoContrato# - #StrMesContrato# - #StrNumeroContrato# - #StrObservaciones# - #StrLogin#"; IntCentroCosto = ""; StrAnoSolicitud = ""; StrMesSolicitud = ""; StrNumeroSolicitud = ""; StrTipoSolicitud = "112"; StrFechaDefecto = "1900/01/01"; StrTipoContrato = "120"; StrAnoContrato = DatePart('yyyy', StrFechaContrato); StrMesContrato = DatePart('m', StrFechaContrato); StrFecha = Now(); StrAnoSolicitud = DatePart('yyyy', StrFecha); StrMesSolicitud = DatePart('m', StrFecha); if (Len(StrMes) eq 1) {StrMes = '0' & StrMes;} StrFechaSolicitud = CreateODBCDate(StrFecha); if (IsStruct(StcExpositor)) { for (StrKeyName in StcExpositor) { IntArrayIndex = IntArrayIndex + 1; if (IsSimpleValue(StcExpositor[StrKeyName])) { for (IntIndex = 1; IntIndex lte ListLen(StcExpositor[StrKeyName], ";"); IntIndex = IntIndex + 1) { if (StrReturn eq "") StrReturn = "[" & ListGetAt(StcExpositor[StrKeyName], IntIndex, ";") & "]"; else StrReturn = StrReturn & " - " & "[" & ListGetAt(StcExpositor[StrKeyName], IntIndex, ";") & "]"; } } } } WriteOutput(" SELECT val_var FROM exp_vargen WHERE num_var = 9"); if (QryConsultarCentro.RecordCount gt 0) {IntCentroCosto = QryConsultarCentro.val_var;} WriteOutput(" INSERT INTO exp_cab_doc( ano_doc, per_doc, tip_doc, num_doc, fecha, hora, tasa, fec_tasa, ano_eve, cod_suc, tip_tarifa, cod_cco, cliente, pos_exp, tip_par, ind_tip, cong_tasa, ano_ref, per_ref, tip_ref, num_ref, observ, ind_reporte, fec_reporte, usuario, marca, cambio, fec_ven, dia_pla, ind_aut, fec_aut, usu_aut, cod_aut, asig_lin, fec_asig_lin, usu_asig_lin, ind_exp, vendedor, obs_aut, num_equ, ind_recom, nit_ant) VALUES( '#StrAnoSolicitud#', '#StrMesSolicitud#', '#StrTipoSolicitud#', '#StrNumeroSolicitud#', #StrFechaSolicitud#, '0', 0, #StrFechaDefecto#, '#StrAnoEvento#', '#StrCodEvento#', '#StrMoneda#', '#IntCentroCosto#', '#StrNit#', '0', '0', '0', '0', '#StrAnoContrato#', '#StrMesContrato#', '#StrTipoContrato#', '#StrNumeroContrato#', '#StrObservaciones#', '0', '', '#StrLogin#', '0', '0', #StrFechaDefecto#, 0, 1, #StrFechaDefecto#, '', '0', 0, #StrFechaDefecto#, '0', 1, '0', '', 'WEB', '0', '' )"); StrCodigoTransacion = '30005'; IntEstado = 1; // 1: solicitado /* item; cantidad; por_iva; contratista; val_uni */ IntArrayIndex = 0; if (IsStruct(StcItems)) { for (StrKeyName in StcItems) { if (IsSimpleValue(StcItems[StrKeyName])) { for (IntIndex = 1; IntIndex lte ListLen(StcItems[StrKeyName], ";"); IntIndex = IntIndex + 1) { if (StrReturn eq "") StrReturn = "[" & ListGetAt(StcItems[StrKeyName], IntIndex, ";") & "]"; else StrReturn = StrReturn & " - " & "[" & ListGetAt(StcItems[StrKeyName], IntIndex, ";") & "]"; } } } } WriteOutput(" INSERT INTO exp_cuedoc( ano_doc, per_doc, tip_doc, num_doc, reg_doc, contratista, cant_inst, item, trans, cantidad, cant_dev, cant_entr, cant_asig, por_des, mon_des, val_net, imp_con, por_iva, por_iva_ng, mon_iva, mon_iva_ng, val_tot, val_uni, por_ret, mon_ret, ret_iva, ret_ica, cob_ica, val_def, fin_cap, pabellon, piso, stand, estado, usuario, fec_grab, nom_sta, ano_ref, per_ref, tip_ref, num_ref, descrip, sta_reu, pab_reu, pis_reu, are_reu) VALUES( '#StrAnoSolicitud#', '#StrMesSolicitud#', '#StrTipoSolicitud#', '#StrNumeroSolicitud#', '#IntNumItem#', '#StrCodContratista#', 0, '#StrCodItem#', '#StrCodigoTransacion#', IntCantSolicitada, 0, 0, 0, 0, 0, #FloValorNeto#, 0, #IntPorcentajeIva#, 0, #FloMontoIva#, 0, #FloValorNeto#, #FloValorUnitario#, 0, 0, 0, 0, 0, #FloValorDefinitivo#, , '#StrPabellon#', '#StrPiso#', '#StrStand#', #IntEstado#, '#StrLogin#', , '#StrNombreStand#', , , , , , '#StrStandReubic#', '#StrPabellonReubic#', '#StrPisoReubic#', #FloAreaReubic#)");