cFormaPagoNom = globales.DBconex.ExecQuerySingleResult2("select nombre from tbFormasPago where codigo=?",Array As String(iFormaPagoCod))
cSql = "Select ga.codigogrupo from tbGruposArticulos ga inner join tbGrupos g on g.codigo=ga.codigogrupo order by g.orden limit 1"
cMinGrupo = globales.DBconex.ExecQuerySingleResult(cSql)
cSql = "update "&cTBcab&" set numeromesa=?, codigosalon=? where id=?"
globales.DBconex.ExecNonQuery2(cSql,Array As String(iMesa,iSalonCod, iID))
cInsert = "insert into "&cTBlin&" (idcabecera,linea,tiposerienumerocabecera,codigoempleado,codigoarticulo,"
cInsert = cInsert & "nombrearticulo,cantidad,precio,ivacod,ivapc,repc,ivaimporte,reimporte,sumalinea,"
cInsert = cInsert & "estadolinea) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
globales.DBconex.ExecNonQuery2( cInsert, Array As Object( iIIDnew, QN.GetInt("linea"), iTip&cSNnew, _
QN.GetInt("codigoempleado"), _
QN.GetString("codigoarticulo"), QN.GetString("nombrearticulo"), _
QN.GetDouble("cantidad") * (-1), QN.GetDouble("precio"), _
QN.GetInt("ivacod"), QN.GetDouble("ivapc"), _
QN.GetDouble("repc"), QN.GetDouble("ivaimporte") *(-1), _
QN.GetDouble("reimporte") *(-1), QN.GetDouble("sumalinea") *(-1), _
QN.GetInt("estadolinea")))