sql 插入TQuery hana

Posted 2021-05-13

Dim Ultimo_Consecutivo As Long = TRutinas.SiguienteContador("LDT_GTIR")
            Dim Insert As TInsert = New TInsert(_Transaccion.Conexion)
            Insert.Table = "@LDT_GTIR"
            Insert.Into("Code", New TValue(Ultimo_Consecutivo))
            Insert.Into("Name", New TValue(Ultimo_Consecutivo))
            Insert.Into("U_LDT_DocEntry", New TValue(DocEntry))
            Insert.Into("U_LDT_TipoDoc", New TValue(TIPO_OBJETO))
            Insert.Into("U_LDT_NumeroGTI", New TValue(NumeroGTI))
            Insert.Into("U_LDT_ClaveNumericaGTI", New TValue(ClaveNumericaGTI))
            Insert.Into("U_LDT_GTIMSG", New TValue(GTIMSG))
            Insert.Into("U_LDT_FechaSinc", New TGetDate())
            Insert.Into("U_LDT_MsgError", New TValue(pMensajeError))
            Insert.Into("U_LDT_IdCarga", New TValue(pIDCarga))
            Insert.Genere_Query()
            recset.DoQuery(Insert.SQL)